marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

If README.org file write README.md on save custom function

Browse source
This commit is contained in:
Marcus Kammer 2022-01-01 13:12:50 +01:00
parent 1b9fadb68c
commit ebb8631a81
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
bundle/bundle--org.el
View file

@ -113,7 +113,15 @@
(shell . t) (shell . t)
(plantuml . t) (plantuml . t)
(typescript . t) (typescript . t)
(http . t)))) (http . t)))
(defun me/write-readme-md-on-save ()
;; when README.org, also write README.md on save
(when (string-match "README" (buffer-file-name))
(make-local-variable 'after-save-hook)
(add-hook 'after-save-hook
(lambda () (let ((outfile (org-export-output-file-name ".md")))
(org-export-to-file 'md outfile))))))
(add-hook 'org-mode-hook 'me/write-readme-md-on-save))
(use-package org-roam (use-package org-roam
:init :init