diff options
author | Colin Okay <okay@toyful.space> | 2022-03-01 11:39:08 -0600 |
---|---|---|
committer | Colin Okay <okay@toyful.space> | 2022-03-01 11:39:08 -0600 |
commit | ff8a6b5bb611fa5094de230e38c7f35188726e79 (patch) | |
tree | 2bd498affd42c04d8c7f078cb41f31cde8c43565 | |
parent | c028a38f6b2c72c9be9c98d6f0dd1b376d58779c (diff) |
bugfix; forgot to update the --explain function to use --id
-rw-r--r-- | oneliners.cli.asd | 2 | ||||
-rw-r--r-- | src/lib.lisp | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/oneliners.cli.asd b/oneliners.cli.asd index ff3aae7..19cdb69 100644 --- a/oneliners.cli.asd +++ b/oneliners.cli.asd @@ -1,5 +1,5 @@ (defsystem "oneliners.cli" - :version "0.4.1" + :version "0.4.2" :author "Colin Okay" :license "AGPLv3" :depends-on ("trivial-clipboard" diff --git a/src/lib.lisp b/src/lib.lisp index f9d81aa..2f25ac7 100644 --- a/src/lib.lisp +++ b/src/lib.lisp @@ -165,8 +165,8 @@ the directories that appear in the value of that variable." (progn ,@body) (format t "Could not find the oneliner specified by ~a~%" ,nvar))))) -(defun print-item-explanation (number) - (with-cached-result (ol number) +(defun print-item-explanation (number &optional idp) + (with-cached-result (ol number idp) (when (getf ol :explanation) (princ #\newline) (princ (getf ol :explanation))))) |