From 7ae6cbff1875ea271fa1724d6e53bc3d3d48dd26 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Sun, 13 Mar 2022 13:56:49 -0500
Subject: support for running drafts; drafts accounted for in with-local-state

---
 lib/client.lisp | 18 +++++++++++++-----
 lib/state.lisp  | 10 +++++++++-
 2 files changed, 22 insertions(+), 6 deletions(-)

(limited to 'lib')

diff --git a/lib/client.lisp b/lib/client.lisp
index 8d40fd5..db19bda 100644
--- a/lib/client.lisp
+++ b/lib/client.lisp
@@ -45,12 +45,18 @@ not in the local cache, try to fetch from configured server."
 (defmacro when-oneliner ((var name-or-id) &body body)
   "Finds the oneliner with name-or-id and binds it to var before
 running the body. If such a oneliner can be found."
-  (assert (symbolp var))
   (let ((nvar (gensym)))
     `(let ((,nvar ,name-or-id))
        (a:when-let (,var (the-oneliner ,nvar))
          ,@body))))
 
+(defmacro when-draft ((var name) &body body)
+  "Like when-oneliner but restricts itself to local drafts."
+  (let ((nvar (gensym)))
+    `(let ((,nvar ,name))
+       (a:when-let (,var (fetch-draft ,nvar))
+         ,@body))))
+
 (defun newest-oneliners (&optional limit)
   (let ((response
           (if limit
@@ -76,10 +82,12 @@ running the body. If such a oneliner can be found."
 
 (defvar *ol-output-timeout* 1)
 
-(defun run-item (ident args &key force-clip (timeout nil timeout-p))
-  (when-oneliner (ol ident)
-    (let ((*ol-output-timeout* (if timeout-p timeout *ol-output-timeout*)))
-      (bind-vars-and-run-oneliner ol args force-clip))))
+(defun run-item (ident args &key force-clip (timeout nil timeout-p) draftp)
+  "Runs a oneliner identified by IDENT (if available) with arguments ARGS."
+  (let ((ol (if draftp (fetch-draft ident) (the-oneliner ident))))
+    (when ol
+      (let ((*ol-output-timeout* (if timeout-p timeout *ol-output-timeout*)))
+        (bind-vars-and-run-oneliner ol args force-clip)))))
 
 (defun bind-vars-and-run-oneliner (ol args &optional force-clip)
   (let* ((oneliner (oneliner-oneliner ol))
diff --git a/lib/state.lisp b/lib/state.lisp
index 123bd79..8ab6c51 100644
--- a/lib/state.lisp
+++ b/lib/state.lisp
@@ -86,7 +86,7 @@
 
 (defun fetch-draft (name)
   "Fetch a draft by name form the *DRAFTS* association list."
-  (cdr (assoc name *drafts*)))
+  (cdr (assoc name *drafts* :test #'string-equal)))
 
 (defun drop-draft (name)
   "Drop a draft by NAME from the *DFRAFTS* association list."
@@ -143,6 +143,12 @@ CACHED-ONELINERS-FILE. NIL if there is no such file."
    :shell (prompt "With which shell should oneliners be run? "
                   :prefill "bash")))
 
+(defun read-drafts-file ()
+  (read-from-file (drafts-file)))
+
+(defun write-drafts-to-disk ()
+  (print-to-file *drafts* (drafts-file)))
+
 (defun ensure-config ()
   "Ensures that a configuration file exists on disk, prompting the
 user for some input if it does not."
@@ -158,6 +164,7 @@ user for some input if it does not."
 sets the api's *host* variable. If BODY produces no errors, the "
   `(let* ((*config* (ensure-config))
           (*cache* (read-cache-file))
+          (*drafts* (read-drafts-file))
           (api:*host* (config-host *config*)))
      (assert api:*host* () "ol must be configured with a server host.")
      (set-term-width)
@@ -165,6 +172,7 @@ sets the api's *host* variable. If BODY produces no errors, the "
          (progn
            ,@body
            ;; only if there is no error do we save the local state.
+           (write-drafts-to-disk)
            (write-cache-to-disk) 
            (write-config-to-disk))
        (error (e)
-- 
cgit v1.2.3