20 lines
608 B
EmacsLisp
20 lines
608 B
EmacsLisp
|
;;
|
||
|
|
(defcustom org-templates-directory "~/workenv/templates/"
|
||
|
|
"The directory which org templates have been put"
|
||
|
|
:type 'string
|
||
|
|
:group 'orgtools)
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun org-use-template (template)
|
||
|
|
(interactive
|
||
|
|
(let ((templated-used (read-file-name "Choose template:"
|
||
|
|
(expand-file-name org-templates-directory)
|
||
|
|
nil nil nil)))
|
||
|
|
(list templated-used)))
|
||
|
|
(when template
|
||
|
|
(insert-file-contents template)
|
||
|
|
;; enable file local variables defined in template
|
||
|
|
(hack-local-variables)))
|
||
|
|
|
||
|
|
(provide 'org-templates)
|