separated app from lib systems; added with-client-state

1 files changed, 4 insertions, 13 deletions

diff --git a/lib/oneliner.lisp b/lib/oneliner.lisp
index e96ec22..48c78f6 100644
--- a/lib/oneliner.lisp
+++ b/lib/oneliner.lisp
@@ -1,4 +1,4 @@
-;;;; oneliner.lisp -- holds a local representation of onelienrs.
+;;;; oneliner.lisp -- defines a oneliner structure and functions for using it
 
 ;; Copyright (C) 2022  Colin Okay
 
@@ -32,8 +32,9 @@
   isflagged
   islocked)
 
+;;; SUPPLEMENTARY GETTERS
 
-(defun collect-positional-arguments (ol)
+(defun get-positional-arguments (ol)
   "Collects the names of all positional arguments in the oneliner, prefix included."
   (remove-duplicates 
    (sort 
@@ -41,22 +42,12 @@
     #'string<)
    :test #'equal))
 
-(defun collect-named-arguments (ol)
+(defun get-named-arguments (ol)
   "Collects the names of all named arguments in the oneliner, prefix included"
   (remove-duplicates 
    (ppcre:all-matches-as-strings "#[A-Za-z][A-Za-z0-9_]*" (oneliner-oneliner ol))
    :test #'equal))
 
-(defun tags-from-oneliner (string)
-  "Splits a string using consequitive whitespace as a separator,
-returning a set of tags"
-  (remove-duplicates
-   (remove-if-not #'executable-on-system-p (ppcre:split " +" string))
-   :test #'equal))
-
-
-
-
 ;;; VALIDATION OF ONELINER SLOT VALUES
 
 (defun valid-oneliner-string-p (string)