changeset 567: |
32995daa9a07 |
parent: |
42bc1432f217
|
child: |
35bb0d5ec95e |
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Mon, 29 Jul 2024 20:55:09 -0400 |
permissions: |
-rw-r--r-- |
description: |
skel and cli updates |
1 ;;; organ.lisp --- Org-mode utility 7 (:use :cl :organ :std :cli :log :clap) 10 (in-package :bin/organ) 11 (defopt organ-help (print-help *cli*)) 12 (defopt organ-version (print-version *cli*)) 13 (defopt organ-log-level (setq *log-level* (if *arg* t :info))) 14 ;; (defopt organ-output (when *arg* (trace! (or *arg* "output.organ")))) 15 (defcmd organ-describe 18 (describe (org-parse :document (pathname (car *args*)))) 19 (describe (org-parse :document #P"readme.org")))) 24 (inspect (org-parse :document (pathname (car *args*)))) 25 (inspect (org-parse :document #P"readme.org")))) 29 (print (org-parse-lines t (uiop:read-file-string (car *args*)))) 30 (error! "missing file arg"))) 33 (let ((input (if *args* (car *args*) #P"readme.org"))) 34 (describe (org-parse :document input)))) 39 :description "org-mode toolbox" 41 :opts ((:name "level" :global t :description "set the log level" :thunk organ-log-level) 42 (:name "help" :global t :description "print help" :thunk organ-help) 43 (:name "version" :global t :description "print version" :thunk organ-version) 44 ;; (:name "output" :description "output file" :kind file :thunk organ-output) 47 :description "inspect an org file" 50 :description "display local org info" 53 :description "describe local org info" 54 :thunk organ-describe) 59 (let ((*log-level* :info)) 60 (with-cli (opts cmds args) *cli* 66 (sb-ext:exit :code 0))