From 80bf9816c6e35bf7ffcc1e4349d5abf056c4df7f Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Sun, 13 Mar 2022 11:22:21 -0500
Subject: updating helptexts; drafts-file function

---
 lib/state.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib')

diff --git a/lib/state.lisp b/lib/state.lisp
index 0f69ff3..a156d59 100644
--- a/lib/state.lisp
+++ b/lib/state.lisp
@@ -63,6 +63,10 @@
   "Returns the pathname holding the location of the cache."
   (merge-pathnames ".cache/oneliners.cache" (user-homedir-pathname)))
 
+(defun drafts-file ()
+  "Returns the pathame holding the location of the oneliner drafts file."
+  (merge-pathnames ".cache/oneliners.drafts" (user-homedir-pathname)))
+
 (defun wipe-cache ()
   "Deletes the cache, if present."
   (uiop:delete-file-if-exists (cached-oneliners-file)))
-- 
cgit v1.2.3