aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-02-18 21:02:06 -0600
committerColin Okay <okay@toyful.space>2022-02-18 21:02:06 -0600
commit2c49e526105cd04d4b76bc204929ee8b8a9f6c6b (patch)
treef8d5c9ca9de3b7298b4384ca54c746e4a618a128
parentc2475ad2a120f67a2dd373d1e720e4dac77d1d7e (diff)
adding adding
-rw-r--r--build-app.lisp34
-rw-r--r--src/lib.lisp47
2 files changed, 69 insertions, 12 deletions
diff --git a/build-app.lisp b/build-app.lisp
index c2f79ba..155f8e9 100644
--- a/build-app.lisp
+++ b/build-app.lisp
@@ -49,23 +49,24 @@ my1337pw.")
(flag :long-name "help"
:description "Print this help menu.")
(enum :long-name "help-topic"
- :enum '(:admin :wiki :invites)
+ :enum '(:contributor :adding :invites)
:argument-name "TOPIC"
- :description "Print help for a topic. Topics are: wiki, admin, invites"))
- (group (:header "Wiki" :hidden t)
- (text :contents "This section documents options used to add and edit oneliners in the wiki.")
- (flag :long-name "add-interactive"
- :description "Interactively add a new oneliner")
- (flag :long-name "update-interactive"
+ :description "Print help for a topic. Topics are: adding, contributor, invites"))
+ (group (:header "Adding" :hidden t)
+ (flag :long-name "add"
+ :description "Intaractively add a oneliner and update the wiki.")
+ (flag :long-name "update"
:description "Interactively edit a oneliner and update the wiki."))
- (group (:header "Admin" :hidden t)
+ (group (:header "Contributor" :hidden t)
(flag :long-name "login"
:description "Attempt to login to your contributor account. ARGS are interpreted as USERNAME PASSWORD. Success will return ab API token, writing it automatically into your config file.")
+ (flag :long-name "revoke"
+ :description "Revoke your own access token."))
+ (group (:header "Invites" :hidden t)
(flag :long-name "invite"
:description "Request an invite token to send to a friend.")
(flag :long-name "redeem"
- :description "Redeem an invite token. See also --help-topic=invites"))
- (group (:header "Invites" :hidden t)
+ :description "Redeem an invite token.")
(text :contents +invite-help-text+)))
@@ -96,19 +97,28 @@ than the users."
(handler-case
(let ((arguments (remainder)))
(cond
+
((getopt :long-name "redeem")
(destructuring-bind (token name pass) arguments
(cli::redeem-invite token name pass)))
+
((getopt :long-name "login")
(destructuring-bind (user pass) arguments
(cli::login user pass)))
+
((getopt :long-name "invite")
(cli::request-invite-code))
+
+ ((getopt :long-name "add")
+ (cli::add-new))
+
(arguments
;; when the first argument is a number, try run a oneliner
(a:when-let (hist-number (parse-integer (first arguments) :junk-allowed t))
- (format t "TBD: Going to run command ~a with arguments ~a~%"
- hist-number (rest arguments))
+ (if (getopt :long-name "flag")
+ (format t "TBD: going to flag a command~%") ;(cli::flag-item hist-number)
+ (format t "TBD: Going to run command ~a with arguments ~a~%"
+ hist-number (rest arguments)))
(uiop:quit))
;; otherwise search for oneliners
(cli::search-for-oneliners arguments
diff --git a/src/lib.lisp b/src/lib.lisp
index 0ae2b8b..ec65d13 100644
--- a/src/lib.lisp
+++ b/src/lib.lisp
@@ -63,8 +63,55 @@
(when (uiop:file-exists-p (last-search-file))
(nth n (uiop:read-file-form (last-search-file)))))
+(defun command-on-system (cmd)
+ )
+
+(defun tags-from-oneliner (oneliner)
+ (loop for cmd? in (ppcre:split " +" oneliner)
+ when (command-on-system cmd?)
+ collect cmd?))
+
+(defun prompt (prompt &key (out-stream *standard-output*) (in-stream *standard-input*))
+ (princ prompt out-stream)
+ (read-line in-stream))
+
;;; API REQUEST FUNCTIONS
+;; (defun flag-item (item-number)
+;; (ensure-config)
+;; (api:request-with
+;; (:host (host))
+;; (a:if-let ((token (api-token))
+;; (oneliner (history item-number)))
+;; (api:patch--flag-oneliner (getf oneliner :id) :token token))))
+
+(defun add-new-oneliner ()
+ (ensure-config)
+ (assert (api-token) () "Cannot add a oneliner without an api token.")
+ (let* ((oneliner
+ (prompt "Oneliner: "))
+ (init-tags
+ (tags-from-oneliner oneliner))
+ (brief
+ (prompt "Brief Description: "))
+ (tags
+ (when (y-or-n-p "Add tags in addition to: ~{~a ~}?" init-tags)
+ (ppcre:split " +" (prompt "(e.g. foo bar goo): "))))
+ (explaination
+ (when (y-or-n-p "Provide an explaination?")
+ (prompt "Go head: "))))
+ (format t "Adding a new oneliner.~%")
+
+ ;; (api:request-with
+ ;; (:host (host)
+ ;; :body (jonathan:to-json
+ ;; (list :oneliners oneliner
+ ;; :brief brief
+ ;; :tags )))
+ ;; (api:post--add-oneliner :token (api-token)))
+
+ (format t "Added~%")))
+
(defun request-invite-code ()
(ensure-config)
(api:request-with