Adds perge-tags option

inc/tag-management

@@ -75,3 +75,10 @@ listTags(){
 		GROUP BY tags.id" |
 		sqlite3 --column $header "${sqliteFile}"
 }
+
+purgeTags(){
+	vecho "purgeTags $*"
+	echo "DELETE FROM tags WHERE id IN (
+		SELECT id FROM tags WHERE id NOT IN (SELECT tagID FROM links)
+	)"| sqlite3 --column --header "${sqliteFile}"
+}

kb

@@ -314,6 +314,7 @@ mainScript() {
 		list-tags) listTags "${args[@]:1}"; safeExit ;; 
 		makedb) makedb; safeExit ;;
 		new) newFile "${args[@]:1}"; safeExit ;;
+		purge-tags) purgeTags "${args[@]:1}"; safeExit ;;
 		update) updateFileChange "${args[@]:1}"; safeExit ;;
 		view) viewFile "${args[@]:1}"; safeExit ;;
 
@@ -358,6 +359,7 @@ usage() {
 		--normal            List items of type \"normal\"
 	list-tags               Lists tags with the number of times its used
 		--noheader          Don't include the header
+	purge-tags              Deletes any unused tags
 	update <file> [<file>]  Updates the database and git repo of a changed file
 	                        If 2 files are given, it assumes a move
 	view                    View a file