diff options
Diffstat (limited to 'src/lib.lisp')
| -rw-r--r-- | src/lib.lisp | 59 |
1 files changed, 43 insertions, 16 deletions
diff --git a/src/lib.lisp b/src/lib.lisp index 6f7f377..b87ffc6 100644 --- a/src/lib.lisp +++ b/src/lib.lisp @@ -13,7 +13,7 @@ (defvar *config* nil "A configuration plist") -(defvar *ol-output-timeout* 0.8) +(defvar *ol-output-timeout* 1) (defun valid-config-p (config) (and (listp config) @@ -72,6 +72,26 @@ (defun last-search-file () (merge-pathnames ".last_oneliners_search" (user-homedir-pathname))) +(defun cached-oneliners-file () + (merge-pathnames ".cached_oneliners" (user-homedir-pathname))) + +(defun wipe-cache () + (uiop:delete-file-if-exists (cached-oneliners-file)) + (uiop:delete-file-if-exists (last-search-file ))) + +(defun merge-into-cache (ols) + (if (uiop:file-exists-p (cached-oneliners-file)) + (let ((cached (with-open-file (input (cached-oneliners-file)) (read input)))) + (with-open-file (out (cached-oneliners-file) :direction :output :if-exists :supersede) + (print (nconc + ols + (remove-if + (lambda (old) + (member (getf old :id) ols :test 'equal :key (lambda (x) (getf x :id)))) + cached)) + out))) + (with-open-file (out (cached-oneliners-file) :direction :output :if-exists :supersede) + (print ols out)))) ;;; UTILITIES (defun make-temp-file-name () @@ -127,20 +147,22 @@ the directories that appear in the value of that variable." ;; unregisters the hook. (rl:register-hook :pre-input nil))) -(defun cached-result (&optional n) - (when (uiop:file-exists-p (last-search-file)) - (let ((contents (with-open-file (input (last-search-file)) (read input)))) - (if n - (nth n contents) - contents)))) +(defun cached-result (n &optional idp) + (if idp + (when (uiop:file-exists-p (cached-oneliners-file)) + (let ((contents (with-open-file (input (cached-oneliners-file)) (read input)))) + (find n contents :key (lambda (x) (getf x :id))))) + (when (uiop:file-exists-p (last-search-file)) + (let ((contents (with-open-file (input (last-search-file)) (read input)))) + (nth n contents))))) -(defmacro with-cached-result ((olvar n) &body body) +(defmacro with-cached-result ((olvar n &optional idp) &body body) (a:with-gensyms (nvar) `(let ((,nvar ,n)) (assert (plusp ,nvar) () "Item number must be 1 or greater") - (a:if-let (,olvar (cached-result (1- ,nvar))) + (a:if-let (,olvar ,(if idp `(cached-result ,nvar t) `(cached-result (1- ,nvar)))) (progn ,@body) - (format t "The last search was shorter than ~a" ,nvar))))) + (format t "Could not find the oneliner specified by ~a~%" ,nvar))))) (defun print-item-explanation (number) (with-cached-result (ol number) @@ -226,10 +248,13 @@ the directories that appear in the value of that variable." (handle-run-oneliner oneliner (or force-clip (equalp runstyle "manual")))))) -(defun run-item (item-number args &key force-clip (timeout nil timeout-p)) +(defun run-item (item-number args &key by-id force-clip (timeout nil timeout-p)) (let ((*ol-output-timeout* (if timeout-p timeout *ol-output-timeout*))) - (with-cached-result (ol item-number) - (bind-vars-and-run-oneliner ol args force-clip)))) + (if by-id + (with-cached-result (ol item-number t) + (bind-vars-and-run-oneliner ol args force-clip)) + (with-cached-result (ol item-number) + (bind-vars-and-run-oneliner ol args force-clip))))) (defun valid-oneliner-string-p (string) (and (not (find #\newline string)) @@ -459,12 +484,13 @@ the directories that appear in the value of that variable." (defun cache-search-results-to-last-search-file (results) (with-open-file (output (last-search-file) :direction :output :if-exists :supersede) - (print results output))) + (print results output)) + (merge-into-cache results)) (defun print-oneliner-result-for-user (number oneliner) (dotimes (n 80) (princ #\_)) (terpri) - (format t "~3a~a~a~a ~a" + (format t "~3a~a~a~a [~a] ~a" number (if (getf oneliner :isflagged) "⚠" " ") @@ -472,6 +498,7 @@ the directories that appear in the value of that variable." "🔒" " ") (if (equalp "manual" (getf oneliner :runstyle)) "📋" " ") + (getf oneliner :id) (getf oneliner :brief)) (format t "~% by: ~12a tags: ~{~a~^ ~}" (getf oneliner :createdby) (getf oneliner :tags)) (format t "~%~% ~a~%~%" (getf oneliner :oneliner))) @@ -480,7 +507,7 @@ the directories that appear in the value of that variable." (cache-search-results-to-last-search-file (loop for number from 1 for oneliner in (getf (jonathan:parse response) :oneliners) - collect (list* :result-number number oneliner) + collect oneliner do (print-oneliner-result-for-user number oneliner)))) (defun newest-oneliners (&optional limit) |