aboutsummaryrefslogtreecommitdiff
path: root/lib/oneliner.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lib/oneliner.lisp')
-rw-r--r--lib/oneliner.lisp17
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)