From ff8a6b5bb611fa5094de230e38c7f35188726e79 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Tue, 1 Mar 2022 11:39:08 -0600 Subject: bugfix; forgot to update the --explain function to use --id --- oneliners.cli.asd | 2 +- 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))))) -- cgit v1.2.3