emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add -h/--help usage info to bin/org-tangle

Browse source
This commit is contained in:
Henrik Lissner 2018-06-20 11:29:29 +02:00
parent 60d6f70646
commit 8e23ab0a05
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 32 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

35
bin/org-tangle
View file

@ -27,6 +27,35 @@
(require 'cl-lib)
(require 'ob-tangle)
(defun usage ()
(with-temp-buffer
(insert (format "%s %s [OPTIONS] [TARGETS...]\n"
"Usage:"
(file-name-nondirectory load-file-name))
"\n"
"A command line interface for tangling org-mode files. TARGETS can be\n"
"files or folders (which are searched for org files recursively).\n"
"\n"
"This is useful for literate configs that rely on command line\n"
"workflows to build it.\n"
"\n"
"Example:\n"
" org-tangle some-file.org\n"
" org-tangle literate/config/\n"
" org-tangle -p -l sh scripts.org > do_something.sh\n"
" org-tangle -p -l python -t tagA -t tagB file.org | python\n"
"\n"
"Options:\n"
" -a --all\t\tTangle all blocks by default\n"
" -l --lang LANG\tOnly tangle blocks written in LANG\n"
" -p --print\t\tPrint tangled output to stdout than to files\n"
" -t --tag TAG\n"
" --and TAG\n"
" --or TAG\n"
" Lets you tangle org blocks by tag. You may have more than one\n"
" of these options.\n")
(princ (buffer-string))))
(defun *org-babel-tangle (orig-fn &rest args)
"Don't write tangled blocks to files, print them to stdout."
(cl-letf (((symbol-function 'write-region)
@ -88,11 +117,11 @@ trees with the :notangle: tag."
(let ((arg (pop argv)))
(pcase arg
((or "-h" "--help")
;; TODO
(error "No help yet, sorry!"))
(usage)
(error ""))
((or "-a" "--all")
(setq all-blocks t))
((or "--lang" "-l")
((or "-l" "--lang")
(setq lang (pop argv)))
((or "-p" "--print")
(advice-add #'org-babel-tangle :around #'*org-babel-tangle))