Added: Multiple quick clip tables (both numbered and custom)

Refactored: Unified ToolTip formatting
Added: Logging of tooltip index in various tooltips

Author: Heck-R

.gitignore

@@ -1 +1,3 @@
-log/
+log/
+
+HeckR_ClipLog.ini

components/logic.ahk

@@ -86,10 +86,27 @@ getUniqueFileExtension(extLessFileWithPath){
 	}
 }
 
+getCurrentCustomQuickClipBase() {
+	global
+	return customQuickClipTableIsUsed ? customQuickClipTableList[customQuickClipTablePos] : customQuickClipTablePos
+}
+
+getQuickClipCurrentSlotString(index){
+	global
+	return getCurrentCustomQuickClipBase() . " - " . index
+}
+
+quickClipExists(index){
+	global
+
+	fileAttributes := FileExist(quickClipLogDir . getCurrentCustomQuickClipBase() . index . ".?log")
+	return (fileAttributes != "")
+}
+
 getFullPathOfQuickClip(place){
 	global
 
-	quickClipFile := quickClipLogDir . place
+	quickClipFile := quickClipLogDir . getCurrentCustomQuickClipBase() . place
 	quickClipType := getUniqueFileExtension(quickClipFile)
 
 	return quickClipFile . "." . quickClipType
@@ -203,8 +220,10 @@ changeClip(place = "", force = false, showPreview = true){
 
 
 	if( !hasClipFiles() ){
-		ToolTip, %errorNoClipHistory%
-		
+		if(showPreview){
+			ToolTip % errorNoClipHistory
+		}
+
 		changeClipRunning := false
 		return
 	}
@@ -221,7 +240,7 @@ changeClip(place = "", force = false, showPreview = true){
 	{
 		changed := setClipCursorPos(place, force)
 		if( !changed && place != clipCursorPos){
-			ToolTip, %errorNoClipAtIndex%
+			ToolTip % errorNoClipAtIndex
 			return
 		}
 	}
@@ -348,8 +367,8 @@ AddClipFromQuickClip(quickClipIndex){
 	AddClipFromQuickClipRunning := true
 
 
-	if(!quickClipFiles[quickClipIndex]){
-		ToolTip, %errorNoClipAtIndex%
+	if(!quickClipExists(quickClipIndex)){
+		ToolTip % errorNoClipAtIndex . " (" . getQuickClipCurrentSlotString(quickClipIndex) . ")"
 		return
 	}
 
@@ -374,7 +393,7 @@ deleteClip(place = "", maintainCursorPos = false){
 
 	placeToDelete := calcPlace(place)
 	if(!hasClipFile(placeToDelete)){
-		ToolTip, %errorNoClipAtIndex%
+		ToolTip % errorNoClipAtIndex . " (" . place . ")"
 		return
 	}
 
@@ -413,6 +432,24 @@ deleteClip(place = "", maintainCursorPos = false){
 
 ;--------------------------------------------------------------------------------------------------
 
+setQuickClipTable(place := ""){
+	global
+
+	if(place == ""){
+		if(customQuickClipTableIsUsed){
+			customQuickClipTablePos := Mod(customQuickClipTablePos, customQuickClipTableList.MaxIndex()) + 1
+		} else {
+			customQuickClipTableIsUsed := true
+			customQuickClipTablePos := 1
+		}
+	} else{
+		customQuickClipTableIsUsed := false
+		customQuickClipTablePos := place
+	}
+
+	ToolTip % "Quick clip table: " . getCurrentCustomQuickClipBase()
+}
+
 setQuickClip(place, dataToUse = false){
 	global
 
@@ -423,27 +460,25 @@ setQuickClip(place, dataToUse = false){
 
 
 	if(!hasClipFiles() && dataToUse == false){
-		ToolTip, %errorCantSetQSlot% %place%`n%errorNoClipHistory%
+		ToolTip % errorCantSetQSlot . " (" . getQuickClipCurrentSlotString(place) . ")`n" . errorNoClipHistory
 
 		setQuickClipRunning := false
 		return
 	}
 
-	if(quickClipFiles[place])
-		FileDelete, %quickClipLogDir%%place%.*
-	else
-		quickClipFiles[place] := true
+	if(quickClipExists(place))
+		FileDelete, % quickClipLogDir . getCurrentCustomQuickClipBase() . place ".*"
 
 	if(dataToUse == false){
 		sourceFile := getClipFilePath(clipCursorPos)
-		destinationFile := quickClipLogDir . place . "." . clipType
+		destinationFile := quickClipLogDir . getCurrentCustomQuickClipBase() . place . "." . clipType
 
 		FileCopy, %sourceFile%, %destinationFile%, 1
 
 		previewHeader = %notifySavedQSlot% %place%
 		showClipPreview(previewHeader, clipType)
 	} else{
-		destinationFile := quickClipLogDir . place . "." . clipTextExt
+		destinationFile := quickClipLogDir . getCurrentCustomQuickClipBase() . place . "." . clipTextExt
 
 		clipSave := ClipboardAll
 		Clipboard := dataToUse
@@ -466,13 +501,13 @@ peekQuickClip(place, customHeader = ""){
 
 	GDIP_StartDraw()
 
-	if(quickClipFiles[place]){
+	if(quickClipExists(place)){
 		clipSave := ClipboardAll
 
 		quickClipPath := getFullPathOfQuickClip(place)
 		loadClipDataWithoutSaving(quickClipPath, true)
 
-		previewHeader := place
+		previewHeader := getQuickClipCurrentSlotString(place)
 		if(customHeader != "")
 			previewHeader := customHeader
 		showClipPreview(previewHeader, getExtension(quickClipPath))
@@ -482,7 +517,7 @@ peekQuickClip(place, customHeader = ""){
 	else{
 		GDIP_Clean()
 		GDIP_Update()
-		ToolTip, %place%`n%errorNoClipAtIndex%
+		ToolTip % getQuickClipCurrentSlotString(place) . "`n" . errorNoClipAtIndex
 	}
 
 
@@ -498,7 +533,7 @@ pasteQuickClip(place){
 	pasteQuickClipRunning := true
 
 
-	if(quickClipFiles[place]){
+	if(quickClipExists(place)){
 		clipSave := ClipboardAll
 
 		quickClipPath := getFullPathOfQuickClip(place)
@@ -524,13 +559,12 @@ deleteQuickClip(place){
 	deleteQuickClipRunning := true
 
 
-	if(quickClipFiles[place]){
-		FileDelete, %quickClipLogDir%%place%.*
-		quickClipFiles[place] := false
+	if(quickClipExists(place)){
+		FileDelete, % quickClipLogDir . getCurrentCustomQuickClipBase() . place . ".*"
 
-		ToolTip, %notifyDelQSlot% %place%
+		ToolTip % notifyDelQSlot . " " . getQuickClipCurrentSlotString(place)
 	}
 
 
 	deleteQuickClipRunning := false
-}
+}

components/setup.ahk

@@ -12,6 +12,8 @@ SetupClipLog:
 
 	gosub SetupClipLogGlobalVariables
 
+	gosub ReadConfigFile
+
 	gosub SetupClipLogDirectories
 
 	gosub SetupClipLogFileLists
@@ -46,6 +48,9 @@ SetupClipLogFinalValues:
 	clipLogDir=%logDir%clipLogDir\				;Standard clip log directory
 	quickClipLogDir=%logDir%quickClipLogDir\	;Quick clip logging directory 
 
+	; Config/Ini file
+	iniFilePath := regexreplace(A_ScriptFullPath, "\.[^.]+$",".ini")
+
 	; Clip types
 	clipTextExt := "clog"	;Text
 	clipPicExt := "plog"	;Picture/Image/Bitmap
@@ -54,6 +59,7 @@ SetupClipLogFinalValues:
 
 	; Clip modes
 	clipModeNone := "none"
+	clipModeSetting := "setting"
 	clipModePreview := "preview"
 	clipModePaste := "paste"
 	clipModeAdd := "add"
@@ -102,8 +108,10 @@ SetupClipLogGlobalVariables:
 	prevClipType := ""		;Previous clip type for avoiding duplications
 	prevClipSize := 0		;Previous clip type for avoiding duplications
 
-	clipFiles := []							;List of standard clip log files
-	quickClipFiles := []					;List of quick clip log files
+	clipFiles := []				;List of standard clip log files
+	customQuickClipTableList := []			;Custom quick clip table IDs/names
+	customQuickClipTablePos := 1			;Selected custom quickclip table's number/position (either an index from the custom tables list, or an indexed table. See variable: customQuickClipTableIsUsed)
+	customQuickClipTableIsUsed := true		;Flag indicating the meaning of customQuickClipTablePos. true => index, false => table name
 
 	isLogging := true						;Flag for enabling/disabling hotkeys
 	scriptIsModifyingClipboard := false		;Flag for making sure only one thing is trying to modify the cliboard
@@ -112,30 +120,54 @@ return
 
 ;------------------------------------------------
 
+ReadConfigFile:
+
+	; Create config if necessary
+	if(!FileExist(iniFilePath)){
+    	FileAppend, [settings]`n, %iniFilePath%
+	}
+
+	; Init quick clip list names
+	IniRead, customQuickClipTableListString, %iniFilePath%, settings, customQuickClipTables, %A_Space%
+	customQuickClipTableList := StrSplit(customQuickClipTableListString, ",", " `t")
+
+	; Always start with default
+	customQuickClipTableList.InsertAt(1, "default")
+
+return
+
+;------------------------------------------------
+
 SetupClipLogFileLists:
 
-	;Reading clips
+	gosub SetupStandardClipLogFileList
+
+return
+
+SetupStandardClipLogFileList:
 	Loop, Files, %clipLogDir%*.?log
 	{
 		clipFiles.Push(A_LoopFileName)
 	}
+return
 
-	; Reading quick clips
-	Loop, 10 {
-		quickClipFiles[A_Index] := false
-	}
-	Loop, Files, %quickClipLogDir%*.?log
+DeleteQuickClipsOfNonexistentTables:
+	fileStartingOptions := join("|", customQuickClipTableList*)
+	fileMatchPattern := "^(\d|" . fileStartingOptions . ")(\d)\.(.log)$"
+	
+	Loop, Files, %quickClipLogDir%*
 	{
-		tmpFileName := StrSplit(A_LoopFileName, ".")[1]
-		quickClipFiles[tmpFileName] := true
+		if (RegExMatch(A_LoopFileName, fileMatchPattern, matchObject) == 0)
+			FileDelete, %A_LoopFileFullPath%
 	}
-
 return
 
 ;------------------------------------------------
 
 SetupClipLogInit:
 
+	gosub DeleteQuickClipsOfNonexistentTables
+
     deleteOldLogFiles()
 
 	GDIP_SetUp()