added lib support for aliases.

1 files changed, 58 insertions, 42 deletions

diff --git a/src/lib.lisp b/src/lib.lisp
index f596c84..4a8988a 100644
--- a/src/lib.lisp
+++ b/src/lib.lisp
@@ -13,10 +13,11 @@
 (defvar *config* nil
   "A configuration plist")
 
-(defun make-config (&key host api-token editor)
+(defun make-config (&key host api-token editor (shell "bash"))
   (append (when host (list :host host))
           (when api-token (list :api-token api-token))
-          (when editor (list :editor editor))))
+          (when editor (list :editor editor))
+          (list :shell shell)))
 
 (defun valid-config-p (config)
   (and (listp config)
@@ -52,10 +53,17 @@
 (defun api-token () (getf *config* :api-token))
 (defun (setf api-token) (newval)
   (setf (getf *config* :api-token) newval))
-
 (defun get-shell ()
   (getf *config* :shell))
 
+(defun config-file ()
+  (merge-pathnames ".config/oneliners.config" (user-homedir-pathname)))
+
+(defun last-search-file ()
+  (merge-pathnames ".last_oneliners_search" (user-homedir-pathname)))
+
+
+;;; UTILITIES 
 (defun make-temp-file-name ()
   (namestring
    (merge-pathnames (format nil "~a" (gensym "oneliners")) (uiop:temporary-directory))))
@@ -67,17 +75,6 @@
          (magic-ed:magic-ed filename :eval nil :output :string)
       (uiop:delete-file-if-exists filename))))
 
-(defun config-file ()
-  (merge-pathnames ".config/oneliners.config" (user-homedir-pathname)))
-
-(defun last-search-file ()
-  (merge-pathnames ".last_oneliners_search" (user-homedir-pathname)))
-
-(defun fetch-nth-oneliner (n)
-  "Returns nil if there is no nth oneliner from the search history."
-  (when (uiop:file-exists-p (last-search-file))
-    (nth n (uiop:read-file-form (last-search-file)))))
-
 (defun executable-on-system-p (name)
   "A hack that heuristically determins whether or not an executable
 with the provided name is on the system. It is not perfect. It
@@ -93,8 +90,6 @@ the directories that appear in the value of that variable."
 (defun tags-from-oneliner (oneliner)
   (remove-if-not #'executable-on-system-p (ppcre:split " +" oneliner)))
 
-
-
 (rl:register-hook :signal (lambda () (uiop:quit)))
 
 (defun prompt (prompt
@@ -197,33 +192,33 @@ the directories that appear in the value of that variable."
         (princ #\newline)
         (run-with-shell ol  :shell-name (or (get-shell) "bash")))))
 
-
-
+(defun bind-vars-and-run-oneliner (ol args &optional force-clip)
+  (let* ((oneliner (getf ol :oneliner))
+         (runstyle (getf ol :runstyle))
+         (pos-args (collect-positional-arguments oneliner))
+         (named-args (collect-named-arguments oneliner)))
+    
+    (when  (or (not (getf ol :isflagged))
+               (y-or-n-p "This oneliner is flagged. Are you sure you want to run it?"))
+      ;; substitute positional args
+      (loop for param in pos-args
+            for arg in args
+            do (setf oneliner (str:replace-all param arg oneliner)))
+      ;; substitute named args 
+      (setf args
+            (mapcar (lambda (s) (str:split "=" s))
+                    (nthcdr (length pos-args) args)))
+      (loop for var in named-args
+            for bound = (assoc (subseq var 1) args :test #'equal)
+            when bound
+              do (setf oneliner
+                       (str:replace-all var (second bound) oneliner)))
+      
+      (handle-run-oneliner oneliner (or force-clip (equalp runstyle "manual"))))))
 
 (defun run-item (item-number args &optional force-clip)
   (with-cached-result (ol item-number)
-    (let* ((oneliner (getf ol :oneliner))
-           (runstyle (getf ol :runstyle))
-           (pos-args (collect-positional-arguments oneliner))
-           (named-args (collect-named-arguments oneliner)))
-
-      (when  (or (not (getf ol :isflagged))
-                 (y-or-n-p "This oneliner is flagged. Are you sure you want to run it?"))
-        ;; substitute positional args
-        (loop for param in pos-args
-              for arg in args
-              do (setf oneliner (str:replace-all param arg oneliner)))
-        ;; substitute named args 
-        (setf args
-              (mapcar (lambda (s) (str:split "=" s))
-                      (nthcdr (length pos-args) args)))
-        (loop for var in named-args
-              for bound = (assoc (subseq var 1) args :test #'equal)
-              when bound
-                do (setf oneliner
-                         (str:replace-all var (second bound) oneliner)))
-
-        (handle-run-oneliner oneliner (or force-clip (equalp runstyle "manual")))))))
+    (bind-vars-and-run-oneliner ol args force-clip)))
 
 (defun valid-oneliner-string-p (string)
   (and (not (find #\newline string))
@@ -235,6 +230,28 @@ the directories that appear in the value of that variable."
 (defun valid-runstyle-p (string)
   (member string '("auto" "manual") :test 'equalp))
 
+(defun aliases ()
+  (getf *config* :aliases))
+
+(defun (setf aliases) (newval)
+  (setf  (getf *config* :aliases) newval))
+
+(defun alias-item (item alias)
+  (with-cached-result (ol item)
+    (ensure-config)
+    (a:if-let (found (assoc alias (aliases)))
+      (setf (cdr found) ol)
+      (push (cons alias ol) (aliases)))
+    (write-config-to-disk)))
+
+(defun lookup-alias (alias)
+  (cdr (assoc alias (aliases))))
+
+(defun run-alias (alias args &optional force-clip)
+  (ensure-config)
+  (a:when-let (ol (lookup-alias alias))
+    (bind-vars-and-run-oneliner ol args force-clip)))
+
 (defun add-new-oneliner ()
   (ensure-config)
   (assert (api-token) () "Cannot add a oneliner without an api token.")
@@ -354,7 +371,6 @@ the directories that appear in the value of that variable."
       (:host (host))
     (api:delete--access-access  (api-token) :token (api-token))))
 
-
 (defun cache-search-results-to-last-search-file (results)
   (with-open-file (output (last-search-file) :direction :output :if-exists :supersede)
     (print results output)))
@@ -395,7 +411,7 @@ the directories that appear in the value of that variable."
           (format t "Run a command with: ol NUMBER [ARGS...]~%")))))
 
 
-;;; RUNNING COMMANDS
+;;; RUNNING THINGS IN THE SHELL.
 
 (defun parent-process-name ()
   "Prints the name of the parent process of the current process."