contrapunctus
/
chronometrist
Archived
1
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

feat(dir-locals): prompt before tangling

This commit is contained in:
contrapunctus 2021-06-17 00:25:58 +05:30
parent ad36dc0b2f
commit 15e1eb8580
1 changed files with 20 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
.dir-locals.el
View File

@ -14,18 +14,23 @@
("cr" . "chronometrist-report")
("cs" . "chronometrist-statistics")
("cx" . "chronometrist-sexp")))))
(org-mode . ((org-html-self-link-headlines . t)
(eval . (org-indent-mode))
(org-html-head
. (concat "<link rel=\"stylesheet\" "
"type=\"text/css\" "
"href=\"../org-doom-molokai.css\" />"))
(eval . (add-hook 'after-save-hook
(lambda nil
(compile
(mapconcat #'shell-quote-argument
`("emacs" "-q" "-Q" "--batch" "--eval=(require 'ob-tangle)"
,(format "--eval=(org-babel-tangle-file \"%s\")" (buffer-file-name)))
" ")))
nil t))
(eval . (add-hook 'before-save-hook (lambda nil (org-align-all-tags)) nil t)))))
(org-mode
. ((org-html-self-link-headlines . t)
(eval . (org-indent-mode))
(org-html-head
. (concat "<link rel=\"stylesheet\" "
"type=\"text/css\" "
"href=\"../org-doom-molokai.css\" />"))
(eval
. (add-hook
'after-save-hook
(lambda ()
(let ((fn (buffer-file-name)))
(when (y-or-n-p (format "Tangle file %s?" fn))
(compile
(mapconcat #'shell-quote-argument
`("emacs" "-q" "-Q" "--batch" "--eval=(require 'ob-tangle)"
,(format "--eval=(org-babel-tangle-file \"%s\")" fn))
" ")))))
nil t))
(eval . (add-hook 'before-save-hook (lambda nil (org-align-all-tags)) nil t)))))