1 ;;; org-tempo.el --- Template expansion for Org structures -*- lexical-binding: t; -*-
3 ;; Copyright (C) 2017 Free Software Foundation, Inc.
5 ;; Author: Rasmus Pank Roulund <emacs at pank dot eu>
6 ;; Keywords: outlines, hypermedia, calendar, wp
7 ;; Homepage: http://orgmode.org
9 ;; This file is part of GNU Emacs.
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation, either version 3 of the License, or
14 ;; (at your option) any later version.
16 ;; GNU Emacs is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
26 ;; Org Tempo reimplements completions of structure template before
27 ;; point like `org-try-structure-completion' in Org v9.1 and earlier.
28 ;; For example, strings like "<e" at the beginning of the line will be
29 ;; expanded to an example block.
31 ;; All blocks defined in `org-structure-template-alist' are added as
32 ;; Org Tempo shortcuts, in addition to keywords defined in
33 ;; `org-tempo-keywords-alist'.
35 ;; `tempo' can also be used to define more sophisticated keywords
36 ;; completions. See the section "Additional keywords" below for
37 ;; additional details.
45 (defgroup org-tempo nil
46 "Options for template expansion of Org structures"
50 (defvar org-tempo-tags nil
51 "Tempo tags for Org mode")
53 (defcustom org-tempo-keywords-alist
58 "Keyword completion elements.
60 Like `org-structure-template-alist' this alist of KEY characters
61 and KEYWORD. The tempo snippet \"<KEY\" is expand to the KEYWORD
64 For example \"<l\" at the beginning of a line is expanded to
67 :type
'(repeat (cons (character :tag
"Key")
68 (string :tag
"Keyword")))
69 :package-version
'(Org .
"9.2"))
73 ;;; Org Tempo functions and setup.
75 (defun org-tempo-setup ()
76 (org-tempo-add-templates)
77 (tempo-use-tag-list 'org-tempo-tags
)
78 (setq-local tempo-match-finder
"^ *\\(<[[:word:]]\\)\\="))
80 (defun org-tempo-add-templates ()
81 "Update all Org Tempo templates.
83 Goes through `org-structure-template-alist' and
84 `org-tempo-keywords-alist'."
85 (let ((keys (mapcar (lambda (pair) (format "<%c" (car pair
)))
86 (append org-structure-template-alist
87 org-tempo-keywords-alist
))))
88 ;; Check for duplicated snippet keys and warn if any are found.
89 (when (> (length keys
) (length (delete-dups keys
)))
91 "Duplicated keys in `org-structure-template-alist' and `org-tempo-keywords-alist'"))
93 ;; Remove any keys already defined in case they have been updated.
95 (if (assoc-string key org-tempo-tags
)
97 (delete (assoc-string key org-tempo-tags
)
100 (mapc #'org-tempo-add-block org-structure-template-alist
)
101 (mapc #'org-tempo-add-keyword org-tempo-keywords-alist
)))
103 (defun org-tempo-add-block (entry)
104 "Add block entry from `org-structure-template-alist'."
105 (let* ((key (format "<%c" (car entry
)))
107 (tempo-define-template (format "org-%s" (replace-regexp-in-string " " "-" name
))
108 `(,(format "#+begin_%s " name
) p
'> n n
109 ,(format "#+end_%s" (car (split-string name
" ")))
112 (format "Insert a %s block" name
)
115 (defun org-tempo-add-keyword (entry)
116 "Add keyword entry from `org-tempo-keywords-alist'."
117 (let* ((key (format "<%c" (car entry
)))
119 (tempo-define-template (format "org-%s" (replace-regexp-in-string " " "-" name
))
120 `(,(format "#+%s: " name
) p
'>)
122 (format "Insert a %s keyword" name
)
125 ;;; Additional keywords
127 (defun org-tempo--include-file ()
128 "Ask for file name and take care of quit"
129 (let ((inhibit-quit t
))
130 (unless (with-local-quit
133 (format "#+include: %S "
135 (read-file-name "Include file: "))))))
137 (setq quit-flag nil
))))
139 (tempo-define-template "org-include"
140 '((org-tempo--include-file)
147 ;;; Setup of Org Tempo
149 ;; Org Tempo is set up with each new Org buffer and potentially in the
150 ;; current Org buffer.
152 ;; Tempo templates can only be added after Org is loaded as
153 ;; `org-structure-template-alist' must be loaded.
155 (add-hook 'org-mode-hook
'org-tempo-setup
)
156 (add-hook 'org-tab-before-tab-emulation-hook
159 ;; Enable Org Tempo in all open Org buffers.
160 (dolist (b (org-buffer-list))
161 (with-current-buffer b
(org-tempo-setup)))
163 (eval-after-load 'org
164 '(org-tempo-add-templates))
168 ;;; org-tempo.el ends here