org-keys.el 42 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919
  1. ;;; org-keys.el --- Key bindings for Org mode -*- lexical-binding: t; -*-
  2. ;; Copyright (C) 2018 Free Software Foundation, Inc.
  3. ;; Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
  4. ;; This program is free software; you can redistribute it and/or modify
  5. ;; it under the terms of the GNU General Public License as published by
  6. ;; the Free Software Foundation, either version 3 of the License, or
  7. ;; (at your option) any later version.
  8. ;; This program is distributed in the hope that it will be useful,
  9. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  11. ;; GNU General Public License for more details.
  12. ;; You should have received a copy of the GNU General Public License
  13. ;; along with this program. If not, see <https://www.gnu.org/licenses/>.
  14. ;;; Commentary:
  15. ;; This library adds bindings for Org mode buffers. It also
  16. ;; implements both Speed keys and Babel speed keys. See manual for
  17. ;; details.
  18. ;;; Code:
  19. (defvar org-outline-regexp)
  20. (declare-function org-add-note "org" ())
  21. (declare-function org-agenda "org" (&optional arg org-keys restriction))
  22. (declare-function org-agenda-file-to-front "org" (&optional to-end))
  23. (declare-function org-agenda-remove-restriction-lock "org" (&optional noupdate))
  24. (declare-function org-agenda-set-restriction-lock "org" (&optional type))
  25. (declare-function org-archive-subtree "org" (&optional find-done))
  26. (declare-function org-archive-subtree-default "org" ())
  27. (declare-function org-archive-subtree-default-with-confirmation "org" ())
  28. (declare-function org-archive-to-archive-sibling "org" ())
  29. (declare-function org-at-heading-p "org" (&optional ignored))
  30. (declare-function org-attach "org" ())
  31. (declare-function org-backward-element "org" ())
  32. (declare-function org-backward-heading-same-level "org" (arg &optional invisible-ok))
  33. (declare-function org-backward-paragraph "org" ())
  34. (declare-function org-backward-sentence "org" (&optional arg))
  35. (declare-function org-beginning-of-line "org" (&optional n))
  36. (declare-function org-clock-cancel "org" ())
  37. (declare-function org-clock-display "org" (&optional arg))
  38. (declare-function org-clock-goto "org" (&optional select))
  39. (declare-function org-clock-in "org" (&optional select start-time))
  40. (declare-function org-clock-in-last "org" (&optional arg))
  41. (declare-function org-clock-out "org" (&optional switch-to-state fail-quietly at-time))
  42. (declare-function org-clone-subtree-with-time-shift "org" (n &optional shift))
  43. (declare-function org-columns "org" (&optional global columns-fmt-string))
  44. (declare-function org-comment-dwim "org" (arg))
  45. (declare-function org-copy "org" ())
  46. (declare-function org-copy-special "org" ())
  47. (declare-function org-copy-visible "org" (beg end))
  48. (declare-function org-ctrl-c-ctrl-c "org" (&optional arg))
  49. (declare-function org-ctrl-c-minus "org" ())
  50. (declare-function org-ctrl-c-ret "org" ())
  51. (declare-function org-ctrl-c-star "org" ())
  52. (declare-function org-ctrl-c-tab "org" (&optional arg))
  53. (declare-function org-cut-special "org" ())
  54. (declare-function org-cut-subtree "org" (&optional n))
  55. (declare-function org-cycle "org" (&optional arg))
  56. (declare-function org-cycle-agenda-files "org" ())
  57. (declare-function org-date-from-calendar "org" ())
  58. (declare-function org-dynamic-block-insert-dblock "org" (&optional arg))
  59. (declare-function org-dblock-update "org" (&optional arg))
  60. (declare-function org-deadline "org" (arg1 &optional time))
  61. (declare-function org-decrease-number-at-point "org" (&optional inc))
  62. (declare-function org-delete-backward-char "org" (n))
  63. (declare-function org-delete-char "org" (n))
  64. (declare-function org-delete-indentation "org" (&optional arg))
  65. (declare-function org-demote-subtree "org" ())
  66. (declare-function org-display-outline-path "org" (&optional file current separator just-return-string))
  67. (declare-function org-down-element "org" ())
  68. (declare-function org-edit-special "org" (&optional arg))
  69. (declare-function org-element-at-point "org-element" ())
  70. (declare-function org-element-type "org-element" (element))
  71. (declare-function org-emphasize "org" (&optional char))
  72. (declare-function org-end-of-line "org" (&optional n))
  73. (declare-function org-entry-put "org" (pom property value))
  74. (declare-function org-eval-in-calendar "org" (form &optional keepdate))
  75. (declare-function org-evaluate-time-range "org" (&optional to-buffer))
  76. (declare-function org-export-dispatch "org" (&optional arg))
  77. (declare-function org-feed-goto-inbox "org" (feed))
  78. (declare-function org-feed-update-all "org" ())
  79. (declare-function org-fill-paragraph "org" (&optional justify region))
  80. (declare-function org-find-file-at-mouse "org" (ev))
  81. (declare-function org-footnote-action "org" (&optional special))
  82. (declare-function org-force-cycle-archived "org" ())
  83. (declare-function org-force-self-insert "org" (n))
  84. (declare-function org-forward-element "org" ())
  85. (declare-function org-forward-heading-same-level "org" (arg &optional invisible-ok))
  86. (declare-function org-forward-paragraph "org" ())
  87. (declare-function org-forward-sentence "org" (&optional arg))
  88. (declare-function org-goto "org" (&optional alternative-interface))
  89. (declare-function org-goto-calendar "org" (&optional arg))
  90. (declare-function org-inc-effort "org" ())
  91. (declare-function org-increase-number-at-point "org" (&optional inc))
  92. (declare-function org-info-find-node "org" (&optional nodename))
  93. (declare-function org-insert-all-links "org" (arg &optional pre post))
  94. (declare-function org-insert-drawer "org" (&optional arg drawer))
  95. (declare-function org-insert-heading-respect-content "org" (&optional invisible-ok))
  96. (declare-function org-insert-last-stored-link "org" (arg))
  97. (declare-function org-insert-link "org" (&optional complete-file link-location default-description))
  98. (declare-function org-insert-structure-template "org" (type))
  99. (declare-function org-insert-todo-heading "org" (arg &optional force-heading))
  100. (declare-function org-insert-todo-heading-respect-content "org" (&optional force-state))
  101. (declare-function org-kill-line "org" (&optional arg))
  102. (declare-function org-kill-note-or-show-branches "org" ())
  103. (declare-function org-list-make-subtree "org" ())
  104. (declare-function org-mark-element "org" ())
  105. (declare-function org-mark-ring-goto "org" (&optional n))
  106. (declare-function org-mark-ring-push "org" (&optional pos buffer))
  107. (declare-function org-mark-subtree "org" (&optional up))
  108. (declare-function org-match-sparse-tree "org" (&optional todo-only match))
  109. (declare-function org-meta-return "org" (&optional arg))
  110. (declare-function org-metadown "org" (&optional _arg))
  111. (declare-function org-metaleft "org" (&optional _))
  112. (declare-function org-metaright "org" (&optional _arg))
  113. (declare-function org-metaup "org" (&optional _arg))
  114. (declare-function org-narrow-to-block "org" ())
  115. (declare-function org-narrow-to-element "org" ())
  116. (declare-function org-narrow-to-subtree "org" ())
  117. (declare-function org-next-block "org" (arg &optional backward block-regexp))
  118. (declare-function org-next-link "org" (&optional search-backward))
  119. (declare-function org-next-visible-heading "org" (arg))
  120. (declare-function org-open-at-mouse "org" (ev))
  121. (declare-function org-open-at-point "org" (&optional arg reference-buffer))
  122. (declare-function org-open-line "org" (n))
  123. (declare-function org-paste-special "org" (arg))
  124. (declare-function org-plot/gnuplot "org-plot" (&optional params))
  125. (declare-function org-previous-block "org" (arg &optional block-regexp))
  126. (declare-function org-previous-link "org" ())
  127. (declare-function org-previous-visible-heading "org" (arg))
  128. (declare-function org-priority "org" (&optional action show))
  129. (declare-function org-promote-subtree "org" ())
  130. (declare-function org-redisplay-inline-images "org" ())
  131. (declare-function org-refile "org" (&optional arg1 default-buffer rfloc msg))
  132. (declare-function org-reftex-citation "org" ())
  133. (declare-function org-reload "org" (&optional arg1))
  134. (declare-function org-remove-file "org" (&optional file))
  135. (declare-function org-resolve-clocks "org" (&optional only-dangling-p prompt-fn last-valid))
  136. (declare-function org-return "org" (&optional indent))
  137. (declare-function org-return-indent "org" ())
  138. (declare-function org-reveal "org" (&optional siblings))
  139. (declare-function org-schedule "org" (arg &optional time))
  140. (declare-function org-self-insert-command "org" (N))
  141. (declare-function org-set-effort "org" (&optional increment value))
  142. (declare-function org-set-property "org" (property value))
  143. (declare-function org-set-property-and-value "org" (use-last))
  144. (declare-function org-set-tags-command "org" (&optional arg))
  145. (declare-function org-shiftcontroldown "org" (&optional n))
  146. (declare-function org-shiftcontrolleft "org" ())
  147. (declare-function org-shiftcontrolright "org" ())
  148. (declare-function org-shiftcontrolup "org" (&optional n))
  149. (declare-function org-shiftdown "org" (&optional arg))
  150. (declare-function org-shiftleft "org" (&optional arg))
  151. (declare-function org-shiftmetadown "org" (&optional _arg))
  152. (declare-function org-shiftmetaleft "org" ())
  153. (declare-function org-shiftmetaright "org" ())
  154. (declare-function org-shiftmetaup "org" (&optional arg))
  155. (declare-function org-shiftright "org" (&optional arg))
  156. (declare-function org-shifttab "org" (&optional arg))
  157. (declare-function org-shiftup "org" (&optional arg))
  158. (declare-function org-show-all "org" (&optional types))
  159. (declare-function org-show-children "org" (&optional level))
  160. (declare-function org-show-subtree "org" ())
  161. (declare-function org-sort "org" (&optional with-case))
  162. (declare-function org-sparse-tree "org" (&optional arg type))
  163. (declare-function org-table-blank-field "org" ())
  164. (declare-function org-table-copy-down "org" (n))
  165. (declare-function org-table-create-or-convert-from-region "org" (arg))
  166. (declare-function org-table-create-with-table\.el "org-table" ())
  167. (declare-function org-table-edit-field "org" (arg))
  168. (declare-function org-table-eval-formula "org" (&optional arg equation suppress-align suppress-const suppress-store suppress-analysis))
  169. (declare-function org-table-field-info "org" (arg))
  170. (declare-function org-table-rotate-recalc-marks "org" (&optional newchar))
  171. (declare-function org-table-sum "org" (&optional beg end nlast))
  172. (declare-function org-table-toggle-coordinate-overlays "org" ())
  173. (declare-function org-table-toggle-formula-debugger "org" ())
  174. (declare-function org-time-stamp "org" (arg &optional inactive))
  175. (declare-function org-time-stamp-inactive "org" (&optional arg))
  176. (declare-function org-timer "org" (&optional restart no-insert))
  177. (declare-function org-timer-item "org" (&optional arg))
  178. (declare-function org-timer-pause-or-continue "org" (&optional stop))
  179. (declare-function org-timer-set-timer "org" (&optional opt))
  180. (declare-function org-timer-start "org" (&optional offset))
  181. (declare-function org-timer-stop "org" ())
  182. (declare-function org-todo "org" (&optional arg1))
  183. (declare-function org-toggle-archive-tag "org" (&optional find-done))
  184. (declare-function org-toggle-checkbox "org" (&optional toggle-presence))
  185. (declare-function org-toggle-comment "org" ())
  186. (declare-function org-toggle-fixed-width "org" ())
  187. (declare-function org-toggle-inline-images "org" (&optional include-linked))
  188. (declare-function org-toggle-latex-fragment "org" (&optional arg))
  189. (declare-function org-toggle-narrow-to-subtree "org" ())
  190. (declare-function org-toggle-ordered-property "org" ())
  191. (declare-function org-toggle-pretty-entities "org" ())
  192. (declare-function org-toggle-tags-groups "org" ())
  193. (declare-function org-toggle-time-stamp-overlays "org" ())
  194. (declare-function org-transpose-element "org" ())
  195. (declare-function org-transpose-words "org" ())
  196. (declare-function org-tree-to-indirect-buffer "org" (&optional arg))
  197. (declare-function org-up-element "org" ())
  198. (declare-function org-update-statistics-cookies "org" (all))
  199. (declare-function org-yank "org" (&optional arg))
  200. (declare-function orgtbl-ascii-plot "org-table" (&optional ask))
  201. ;;; Variables
  202. (defvar org-mode-map (make-sparse-keymap)
  203. "Keymap fo Org mode.")
  204. (defcustom org-replace-disputed-keys nil
  205. "Non-nil means use alternative key bindings for some keys.
  206. Org mode uses S-<cursor> keys for changing timestamps and priorities.
  207. These keys are also used by other packages like Shift Select mode,
  208. CUA mode or Windmove. If you want to use Org mode together with
  209. one of these other modes, or more generally if you would like to
  210. move some Org mode commands to other keys, set this variable and
  211. configure the keys with the variable `org-disputed-keys'.
  212. This option is only relevant at load-time of Org mode, and must be set
  213. *before* org.el is loaded. Changing it requires a restart of Emacs to
  214. become effective."
  215. :group 'org-startup
  216. :type 'boolean
  217. :safe #'booleanp)
  218. (defcustom org-use-extra-keys nil
  219. "Non-nil means use extra key sequence definitions for certain commands.
  220. This happens automatically if `window-system' is nil. This
  221. variable lets you do the same manually. You must set it before
  222. loading Org."
  223. :group 'org-startup
  224. :type 'boolean
  225. :safe #'booleanp)
  226. (defvaralias 'org-CUA-compatible 'org-replace-disputed-keys)
  227. (defcustom org-disputed-keys
  228. '(([(shift up)] . [(meta p)])
  229. ([(shift down)] . [(meta n)])
  230. ([(shift left)] . [(meta -)])
  231. ([(shift right)] . [(meta +)])
  232. ([(control shift right)] . [(meta shift +)])
  233. ([(control shift left)] . [(meta shift -)]))
  234. "Keys for which Org mode and other modes compete.
  235. This is an alist, cars are the default keys, second element specifies
  236. the alternative to use when `org-replace-disputed-keys' is t.
  237. Keys can be specified in any syntax supported by `define-key'.
  238. The value of this option takes effect only at Org mode startup,
  239. therefore you'll have to restart Emacs to apply it after changing."
  240. :group 'org-startup
  241. :type 'alist)
  242. (defcustom org-mouse-1-follows-link
  243. (if (boundp 'mouse-1-click-follows-link) mouse-1-click-follows-link t)
  244. "Non-nil means mouse-1 on a link will follow the link.
  245. A longer mouse click will still set point. Needs to be set
  246. before org.el is loaded."
  247. :group 'org-link-follow
  248. :version "26.1"
  249. :package-version '(Org . "8.3")
  250. :type '(choice
  251. (const :tag "A double click follows the link" double)
  252. (const :tag "Unconditionally follow the link with mouse-1" t)
  253. (integer :tag "mouse-1 click does not follow the link if longer than N ms" 450))
  254. :safe t)
  255. (defcustom org-tab-follows-link nil
  256. "Non-nil means on links TAB will follow the link.
  257. Needs to be set before Org is loaded.
  258. This really should not be used, it does not make sense, and the
  259. implementation is bad."
  260. :group 'org-link-follow
  261. :type 'boolean)
  262. (defcustom org-follow-link-hook nil
  263. "Hook that is run after a link has been followed."
  264. :group 'org-link-follow
  265. :type 'hook)
  266. (defcustom org-return-follows-link nil
  267. "Non-nil means on links RET will follow the link.
  268. In tables, the special behavior of RET has precedence."
  269. :group 'org-link-follow
  270. :type 'boolean
  271. :safe t)
  272. ;;; Functions
  273. ;;;; Base functions
  274. (defun org-key (key)
  275. "Select key according to `org-replace-disputed-keys' and `org-disputed-keys'.
  276. Or return the original if not disputed."
  277. (when org-replace-disputed-keys
  278. (let* ((nkey (key-description key))
  279. (x (cl-find-if (lambda (x) (equal (key-description (car x)) nkey))
  280. org-disputed-keys)))
  281. (setq key (if x (cdr x) key))))
  282. key)
  283. (defun org-defkey (keymap key def)
  284. "Define a key, possibly translated, as returned by `org-key'."
  285. (define-key keymap (org-key key) def))
  286. (defun org-remap (map &rest commands)
  287. "In MAP, remap the functions given in COMMANDS.
  288. COMMANDS is a list of alternating OLDDEF NEWDEF command names."
  289. (let (new old)
  290. (while commands
  291. (setq old (pop commands) new (pop commands))
  292. (org-defkey map (vector 'remap old) new))))
  293. ;;; Mouse map
  294. (defvar org-mouse-map (make-sparse-keymap))
  295. (org-defkey org-mouse-map [mouse-2] 'org-open-at-mouse)
  296. (org-defkey org-mouse-map [mouse-3] 'org-find-file-at-mouse)
  297. (when org-mouse-1-follows-link
  298. (org-defkey org-mouse-map [follow-link] 'mouse-face))
  299. (when org-tab-follows-link
  300. (org-defkey org-mouse-map (kbd "<tab>") #'org-open-at-point)
  301. (org-defkey org-mouse-map (kbd "TAB") #'org-open-at-point))
  302. ;;; Read date map
  303. (defvar org-read-date-minibuffer-local-map
  304. (let* ((map (make-sparse-keymap)))
  305. (set-keymap-parent map minibuffer-local-map)
  306. (org-defkey map (kbd ".")
  307. (lambda () (interactive)
  308. ;; Are we at the beginning of the prompt?
  309. (if (looking-back "^[^:]+: "
  310. (let ((inhibit-field-text-motion t))
  311. (line-beginning-position)))
  312. (org-eval-in-calendar '(calendar-goto-today))
  313. (insert "."))))
  314. (org-defkey map (kbd "C-.")
  315. (lambda () (interactive)
  316. (org-eval-in-calendar '(calendar-goto-today))))
  317. (org-defkey map (kbd "M-S-<left>")
  318. (lambda () (interactive)
  319. (org-eval-in-calendar '(calendar-backward-month 1))))
  320. (org-defkey map (kbd "ESC S-<left>")
  321. (lambda () (interactive)
  322. (org-eval-in-calendar '(calendar-backward-month 1))))
  323. (org-defkey map (kbd "M-S-<right>")
  324. (lambda () (interactive)
  325. (org-eval-in-calendar '(calendar-forward-month 1))))
  326. (org-defkey map (kbd "ESC S-<right>")
  327. (lambda () (interactive)
  328. (org-eval-in-calendar '(calendar-forward-month 1))))
  329. (org-defkey map (kbd "M-S-<up>")
  330. (lambda () (interactive)
  331. (org-eval-in-calendar '(calendar-backward-year 1))))
  332. (org-defkey map (kbd "ESC S-<up>")
  333. (lambda () (interactive)
  334. (org-eval-in-calendar '(calendar-backward-year 1))))
  335. (org-defkey map (kbd "M-S-<down>")
  336. (lambda () (interactive)
  337. (org-eval-in-calendar '(calendar-forward-year 1))))
  338. (org-defkey map (kbd "ESC S-<down>")
  339. (lambda () (interactive)
  340. (org-eval-in-calendar '(calendar-forward-year 1))))
  341. (org-defkey map (kbd "S-<up>")
  342. (lambda () (interactive)
  343. (org-eval-in-calendar '(calendar-backward-week 1))))
  344. (org-defkey map (kbd "S-<down>")
  345. (lambda () (interactive)
  346. (org-eval-in-calendar '(calendar-forward-week 1))))
  347. (org-defkey map (kbd "S-<left>")
  348. (lambda () (interactive)
  349. (org-eval-in-calendar '(calendar-backward-day 1))))
  350. (org-defkey map (kbd "S-<right>")
  351. (lambda () (interactive)
  352. (org-eval-in-calendar '(calendar-forward-day 1))))
  353. (org-defkey map (kbd "!")
  354. (lambda () (interactive)
  355. (org-eval-in-calendar '(diary-view-entries))
  356. (message "")))
  357. (org-defkey map (kbd ">")
  358. (lambda () (interactive)
  359. (org-eval-in-calendar '(calendar-scroll-left 1))))
  360. (org-defkey map (kbd "<")
  361. (lambda () (interactive)
  362. (org-eval-in-calendar '(calendar-scroll-right 1))))
  363. (org-defkey map (kbd "C-v")
  364. (lambda () (interactive)
  365. (org-eval-in-calendar
  366. '(calendar-scroll-left-three-months 1))))
  367. (org-defkey map (kbd "M-v")
  368. (lambda () (interactive)
  369. (org-eval-in-calendar
  370. '(calendar-scroll-right-three-months 1))))
  371. map)
  372. "Keymap for minibuffer commands when using `org-read-date'.")
  373. ;;; Global bindings
  374. ;;;; Outline functions
  375. (define-key org-mode-map [menu-bar headings] 'undefined)
  376. (define-key org-mode-map [menu-bar hide] 'undefined)
  377. (define-key org-mode-map [menu-bar show] 'undefined)
  378. (define-key org-mode-map [remap outline-mark-subtree] #'org-mark-subtree)
  379. (define-key org-mode-map [remap outline-show-subtree] #'org-show-subtree)
  380. (define-key org-mode-map [remap outline-forward-same-level]
  381. #'org-forward-heading-same-level)
  382. (define-key org-mode-map [remap outline-backward-same-level]
  383. #'org-backward-heading-same-level)
  384. (define-key org-mode-map [remap outline-show-branches]
  385. #'org-kill-note-or-show-branches)
  386. (define-key org-mode-map [remap outline-promote] #'org-promote-subtree)
  387. (define-key org-mode-map [remap outline-demote] #'org-demote-subtree)
  388. (define-key org-mode-map [remap outline-insert-heading] #'org-ctrl-c-ret)
  389. (define-key org-mode-map [remap outline-next-visible-heading]
  390. #'org-next-visible-heading)
  391. (define-key org-mode-map [remap outline-previous-visible-heading]
  392. #'org-previous-visible-heading)
  393. (define-key org-mode-map [remap show-children] #'org-show-children)
  394. ;;;; Make `C-c C-x' a prefix key
  395. (org-defkey org-mode-map (kbd "C-c C-x") (make-sparse-keymap))
  396. ;;;; TAB key with modifiers
  397. (org-defkey org-mode-map (kbd "C-i") #'org-cycle)
  398. (org-defkey org-mode-map (kbd "<tab>") #'org-cycle)
  399. (org-defkey org-mode-map (kbd "C-<tab>") #'org-force-cycle-archived)
  400. (org-defkey org-mode-map (kbd "M-<tab>") #'pcomplete)
  401. (org-defkey org-mode-map (kbd "ESC <tab>") #'pcomplete)
  402. (org-defkey org-mode-map (kbd "<S-iso-leftab>") #'org-shifttab)
  403. (org-defkey org-mode-map (kbd "S-<tab>") #'org-shifttab)
  404. (define-key org-mode-map (kbd "<backtab>") #'org-shifttab)
  405. ;;;; RET/<return> key with modifiers
  406. (org-defkey org-mode-map (kbd "S-<return>") #'org-table-copy-down)
  407. (org-defkey org-mode-map (kbd "S-RET") #'org-table-copy-down)
  408. (org-defkey org-mode-map (kbd "M-S-<return>") #'org-insert-todo-heading)
  409. (org-defkey org-mode-map (kbd "M-S-RET") #'org-insert-todo-heading)
  410. (org-defkey org-mode-map (kbd "ESC S-<return>") #'org-insert-todo-heading)
  411. (org-defkey org-mode-map (kbd "ESC S-RET") #'org-insert-todo-heading)
  412. (org-defkey org-mode-map (kbd "M-<return>") #'org-meta-return)
  413. (org-defkey org-mode-map (kbd "M-RET") #'org-meta-return)
  414. (org-defkey org-mode-map (kbd "ESC <return>") #'org-meta-return)
  415. (org-defkey org-mode-map (kbd "ESC RET") #'org-meta-return)
  416. ;;;; Cursor keys with modifiers
  417. (org-defkey org-mode-map (kbd "M-<left>") #'org-metaleft)
  418. (org-defkey org-mode-map (kbd "M-<right>") #'org-metaright)
  419. (org-defkey org-mode-map (kbd "ESC <right>") #'org-metaright)
  420. (org-defkey org-mode-map (kbd "M-<up>") #'org-metaup)
  421. (org-defkey org-mode-map (kbd "ESC <up>") #'org-metaup)
  422. (org-defkey org-mode-map (kbd "M-<down>") #'org-metadown)
  423. (org-defkey org-mode-map (kbd "ESC <down>") #'org-metadown)
  424. (org-defkey org-mode-map (kbd "C-M-S-<right>") #'org-increase-number-at-point)
  425. (org-defkey org-mode-map (kbd "C-M-S-<left>") #'org-decrease-number-at-point)
  426. (org-defkey org-mode-map (kbd "M-S-<left>") #'org-shiftmetaleft)
  427. (org-defkey org-mode-map (kbd "ESC S-<left>") #'org-shiftmetaleft)
  428. (org-defkey org-mode-map (kbd "M-S-<right>") #'org-shiftmetaright)
  429. (org-defkey org-mode-map (kbd "ESC S-<right>") #'org-shiftmetaright)
  430. (org-defkey org-mode-map (kbd "M-S-<up>") #'org-shiftmetaup)
  431. (org-defkey org-mode-map (kbd "ESC S-<up>") #'org-shiftmetaup)
  432. (org-defkey org-mode-map (kbd "M-S-<down>") #'org-shiftmetadown)
  433. (org-defkey org-mode-map (kbd "ESC S-<down>") #'org-shiftmetadown)
  434. (org-defkey org-mode-map (kbd "S-<up>") #'org-shiftup)
  435. (org-defkey org-mode-map (kbd "S-<down>") #'org-shiftdown)
  436. (org-defkey org-mode-map (kbd "S-<left>") #'org-shiftleft)
  437. (org-defkey org-mode-map (kbd "S-<right>") #'org-shiftright)
  438. (org-defkey org-mode-map (kbd "C-S-<right>") #'org-shiftcontrolright)
  439. (org-defkey org-mode-map (kbd "C-S-<left>") #'org-shiftcontrolleft)
  440. (org-defkey org-mode-map (kbd "C-S-<up>") #'org-shiftcontrolup)
  441. (org-defkey org-mode-map (kbd "C-S-<down>") #'org-shiftcontroldown)
  442. ;;;; Extra keys for TTY access.
  443. ;; We only set them when really needed because otherwise the
  444. ;; menus don't show the simple keys
  445. (when (or org-use-extra-keys (not window-system))
  446. (org-defkey org-mode-map (kbd "C-c C-x c") #'org-table-copy-down)
  447. (org-defkey org-mode-map (kbd "C-c C-x m") #'org-meta-return)
  448. (org-defkey org-mode-map (kbd "C-c C-x M") #'org-insert-todo-heading)
  449. (org-defkey org-mode-map (kbd "C-c C-x RET") #'org-meta-return)
  450. (org-defkey org-mode-map (kbd "ESC RET") #'org-meta-return)
  451. (org-defkey org-mode-map (kbd "ESC <left>") #'org-metaleft)
  452. (org-defkey org-mode-map (kbd "C-c C-x l") #'org-metaleft)
  453. (org-defkey org-mode-map (kbd "ESC <right>") #'org-metaright)
  454. (org-defkey org-mode-map (kbd "C-c C-x r") #'org-metaright)
  455. (org-defkey org-mode-map (kbd "C-c C-x u") #'org-metaup)
  456. (org-defkey org-mode-map (kbd "C-c C-x d") #'org-metadown)
  457. (org-defkey org-mode-map (kbd "C-c C-x L") #'org-shiftmetaleft)
  458. (org-defkey org-mode-map (kbd "C-c C-x R") #'org-shiftmetaright)
  459. (org-defkey org-mode-map (kbd "C-c C-x U") #'org-shiftmetaup)
  460. (org-defkey org-mode-map (kbd "C-c C-x D") #'org-shiftmetadown)
  461. (org-defkey org-mode-map (kbd "C-c <up>") #'org-shiftup)
  462. (org-defkey org-mode-map (kbd "C-c <down>") #'org-shiftdown)
  463. (org-defkey org-mode-map (kbd "C-c <left>") #'org-shiftleft)
  464. (org-defkey org-mode-map (kbd "C-c <right>") #'org-shiftright)
  465. (org-defkey org-mode-map (kbd "C-c C-x <right>") #'org-shiftcontrolright)
  466. (org-defkey org-mode-map (kbd "C-c C-x <left>") #'org-shiftcontrolleft))
  467. ;;;; Narrow map
  468. (org-defkey narrow-map "s" #'org-narrow-to-subtree)
  469. (org-defkey narrow-map "b" #'org-narrow-to-block)
  470. (org-defkey narrow-map "e" #'org-narrow-to-element)
  471. ;;;; Remap usual Emacs bindings
  472. (org-remap org-mode-map
  473. 'self-insert-command 'org-self-insert-command
  474. 'delete-char 'org-delete-char
  475. 'delete-backward-char 'org-delete-backward-char
  476. 'kill-line 'org-kill-line
  477. 'open-line 'org-open-line
  478. 'yank 'org-yank
  479. 'comment-dwim 'org-comment-dwim
  480. 'move-beginning-of-line 'org-beginning-of-line
  481. 'move-end-of-line 'org-end-of-line
  482. 'forward-paragraph 'org-forward-paragraph
  483. 'backward-paragraph 'org-backward-paragraph
  484. 'backward-sentence 'org-backward-sentence
  485. 'forward-sentence 'org-forward-sentence
  486. 'fill-paragraph 'org-fill-paragraph
  487. 'delete-indentation 'org-delete-indentation
  488. 'transpose-words 'org-transpose-words)
  489. ;;;; All the other keys
  490. (org-defkey org-mode-map (kbd "|") #'org-force-self-insert)
  491. (org-defkey org-mode-map (kbd "C-c C-r") #'org-reveal)
  492. (org-defkey org-mode-map (kbd "C-M-t") #'org-transpose-element)
  493. (org-defkey org-mode-map (kbd "M-}") #'org-forward-element)
  494. (org-defkey org-mode-map (kbd "ESC }") #'org-forward-element)
  495. (org-defkey org-mode-map (kbd "M-{") #'org-backward-element)
  496. (org-defkey org-mode-map (kbd "ESC {") #'org-backward-element)
  497. (org-defkey org-mode-map (kbd "C-c C-^") #'org-up-element)
  498. (org-defkey org-mode-map (kbd "C-c C-_") #'org-down-element)
  499. (org-defkey org-mode-map (kbd "C-c C-f") #'org-forward-heading-same-level)
  500. (org-defkey org-mode-map (kbd "C-c C-b") #'org-backward-heading-same-level)
  501. (org-defkey org-mode-map (kbd "C-c M-f") #'org-next-block)
  502. (org-defkey org-mode-map (kbd "C-c M-b") #'org-previous-block)
  503. (org-defkey org-mode-map (kbd "C-c $") #'org-archive-subtree)
  504. (org-defkey org-mode-map (kbd "C-c C-x C-s") #'org-archive-subtree)
  505. (org-defkey org-mode-map (kbd "C-c C-x C-a") #'org-archive-subtree-default)
  506. (org-defkey org-mode-map (kbd "C-c C-x d") #'org-insert-drawer)
  507. (org-defkey org-mode-map (kbd "C-c C-x a") #'org-toggle-archive-tag)
  508. (org-defkey org-mode-map (kbd "C-c C-x A") #'org-archive-to-archive-sibling)
  509. (org-defkey org-mode-map (kbd "C-c C-x b") #'org-tree-to-indirect-buffer)
  510. (org-defkey org-mode-map (kbd "C-c C-x q") #'org-toggle-tags-groups)
  511. (org-defkey org-mode-map (kbd "C-c C-j") #'org-goto)
  512. (org-defkey org-mode-map (kbd "C-c C-t") #'org-todo)
  513. (org-defkey org-mode-map (kbd "C-c C-q") #'org-set-tags-command)
  514. (org-defkey org-mode-map (kbd "C-c C-s") #'org-schedule)
  515. (org-defkey org-mode-map (kbd "C-c C-d") #'org-deadline)
  516. (org-defkey org-mode-map (kbd "C-c ;") #'org-toggle-comment)
  517. (org-defkey org-mode-map (kbd "C-c C-w") #'org-refile)
  518. (org-defkey org-mode-map (kbd "C-c M-w") #'org-copy)
  519. (org-defkey org-mode-map (kbd "C-c /") #'org-sparse-tree) ;minor-mode reserved
  520. (org-defkey org-mode-map (kbd "C-c \\") #'org-match-sparse-tree) ;minor-mode r.
  521. (org-defkey org-mode-map (kbd "C-c RET") #'org-ctrl-c-ret)
  522. (org-defkey org-mode-map (kbd "C-c C-x c") #'org-clone-subtree-with-time-shift)
  523. (org-defkey org-mode-map (kbd "C-c C-x v") #'org-copy-visible)
  524. (org-defkey org-mode-map (kbd "C-<return>") #'org-insert-heading-respect-content)
  525. (org-defkey org-mode-map (kbd "C-S-<return>") #'org-insert-todo-heading-respect-content)
  526. (org-defkey org-mode-map (kbd "C-c C-x C-n") #'org-next-link)
  527. (org-defkey org-mode-map (kbd "C-c C-x C-p") #'org-previous-link)
  528. (org-defkey org-mode-map (kbd "C-c C-l") #'org-insert-link)
  529. (org-defkey org-mode-map (kbd "C-c M-l") #'org-insert-last-stored-link)
  530. (org-defkey org-mode-map (kbd "C-c C-M-l") #'org-insert-all-links)
  531. (org-defkey org-mode-map (kbd "C-c C-o") #'org-open-at-point)
  532. (org-defkey org-mode-map (kbd "C-c %") #'org-mark-ring-push)
  533. (org-defkey org-mode-map (kbd "C-c &") #'org-mark-ring-goto)
  534. (org-defkey org-mode-map (kbd "C-c C-z") #'org-add-note) ;alternative binding
  535. (org-defkey org-mode-map (kbd "C-c .") #'org-time-stamp) ;minor-mode reserved
  536. (org-defkey org-mode-map (kbd "C-c !") #'org-time-stamp-inactive) ;minor-mode r.
  537. (org-defkey org-mode-map (kbd "C-c ,") #'org-priority) ;minor-mode reserved
  538. (org-defkey org-mode-map (kbd "C-c C-y") #'org-evaluate-time-range)
  539. (org-defkey org-mode-map (kbd "C-c >") #'org-goto-calendar)
  540. (org-defkey org-mode-map (kbd "C-c <") #'org-date-from-calendar)
  541. (org-defkey org-mode-map (kbd "C-,") #'org-cycle-agenda-files)
  542. (org-defkey org-mode-map (kbd "C-'") #'org-cycle-agenda-files)
  543. (org-defkey org-mode-map (kbd "C-c [") #'org-agenda-file-to-front)
  544. (org-defkey org-mode-map (kbd "C-c ]") #'org-remove-file)
  545. (org-defkey org-mode-map (kbd "C-c C-x <") #'org-agenda-set-restriction-lock)
  546. (org-defkey org-mode-map (kbd "C-c C-x >") #'org-agenda-remove-restriction-lock)
  547. (org-defkey org-mode-map (kbd "C-c -") #'org-ctrl-c-minus)
  548. (org-defkey org-mode-map (kbd "C-c *") #'org-ctrl-c-star)
  549. (org-defkey org-mode-map (kbd "C-c TAB") #'org-ctrl-c-tab)
  550. (org-defkey org-mode-map (kbd "C-c ^") #'org-sort)
  551. (org-defkey org-mode-map (kbd "C-c C-c") #'org-ctrl-c-ctrl-c)
  552. (org-defkey org-mode-map (kbd "C-c C-k") #'org-kill-note-or-show-branches)
  553. (org-defkey org-mode-map (kbd "C-c #") #'org-update-statistics-cookies)
  554. (org-defkey org-mode-map (kbd "RET") #'org-return)
  555. (org-defkey org-mode-map (kbd "C-j") #'org-return-indent)
  556. (org-defkey org-mode-map (kbd "C-c ?") #'org-table-field-info)
  557. (org-defkey org-mode-map (kbd "C-c SPC") #'org-table-blank-field)
  558. (org-defkey org-mode-map (kbd "C-c +") #'org-table-sum)
  559. (org-defkey org-mode-map (kbd "C-c =") #'org-table-eval-formula)
  560. (org-defkey org-mode-map (kbd "C-c '") #'org-edit-special)
  561. (org-defkey org-mode-map (kbd "C-c `") #'org-table-edit-field)
  562. (org-defkey org-mode-map (kbd "C-c \" a") #'orgtbl-ascii-plot)
  563. (org-defkey org-mode-map (kbd "C-c \" g") #'org-plot/gnuplot)
  564. (org-defkey org-mode-map (kbd "C-c |") #'org-table-create-or-convert-from-region)
  565. (org-defkey org-mode-map (kbd "C-#") #'org-table-rotate-recalc-marks)
  566. (org-defkey org-mode-map (kbd "C-c ~") #'org-table-create-with-table.el)
  567. (org-defkey org-mode-map (kbd "C-c C-a") #'org-attach)
  568. (org-defkey org-mode-map (kbd "C-c }") #'org-table-toggle-coordinate-overlays)
  569. (org-defkey org-mode-map (kbd "C-c {") #'org-table-toggle-formula-debugger)
  570. (org-defkey org-mode-map (kbd "C-c C-e") #'org-export-dispatch)
  571. (org-defkey org-mode-map (kbd "C-c :") #'org-toggle-fixed-width)
  572. (org-defkey org-mode-map (kbd "C-c C-x C-f") #'org-emphasize)
  573. (org-defkey org-mode-map (kbd "C-c C-x f") #'org-footnote-action)
  574. (org-defkey org-mode-map (kbd "C-c @") #'org-mark-subtree)
  575. (org-defkey org-mode-map (kbd "M-h") #'org-mark-element)
  576. (org-defkey org-mode-map (kbd "ESC h") #'org-mark-element)
  577. (org-defkey org-mode-map (kbd "C-c C-*") #'org-list-make-subtree)
  578. (org-defkey org-mode-map (kbd "C-c C-x C-w") #'org-cut-special)
  579. (org-defkey org-mode-map (kbd "C-c C-x M-w") #'org-copy-special)
  580. (org-defkey org-mode-map (kbd "C-c C-x C-y") #'org-paste-special)
  581. (org-defkey org-mode-map (kbd "C-c C-x C-t") #'org-toggle-time-stamp-overlays)
  582. (org-defkey org-mode-map (kbd "C-c C-x C-i") #'org-clock-in)
  583. (org-defkey org-mode-map (kbd "C-c C-x C-x") #'org-clock-in-last)
  584. (org-defkey org-mode-map (kbd "C-c C-x C-z") #'org-resolve-clocks)
  585. (org-defkey org-mode-map (kbd "C-c C-x C-o") #'org-clock-out)
  586. (org-defkey org-mode-map (kbd "C-c C-x C-j") #'org-clock-goto)
  587. (org-defkey org-mode-map (kbd "C-c C-x C-q") #'org-clock-cancel)
  588. (org-defkey org-mode-map (kbd "C-c C-x C-d") #'org-clock-display)
  589. (org-defkey org-mode-map (kbd "C-c C-x x") #'org-dynamic-block-insert-dblock)
  590. (org-defkey org-mode-map (kbd "C-c C-x C-u") #'org-dblock-update)
  591. (org-defkey org-mode-map (kbd "C-c C-x C-l") #'org-toggle-latex-fragment)
  592. (org-defkey org-mode-map (kbd "C-c C-x C-v") #'org-toggle-inline-images)
  593. (org-defkey org-mode-map (kbd "C-c C-x C-M-v") #'org-redisplay-inline-images)
  594. (org-defkey org-mode-map (kbd "C-c C-x \\") #'org-toggle-pretty-entities)
  595. (org-defkey org-mode-map (kbd "C-c C-x C-b") #'org-toggle-checkbox)
  596. (org-defkey org-mode-map (kbd "C-c C-x p") #'org-set-property)
  597. (org-defkey org-mode-map (kbd "C-c C-x P") #'org-set-property-and-value)
  598. (org-defkey org-mode-map (kbd "C-c C-x e") #'org-set-effort)
  599. (org-defkey org-mode-map (kbd "C-c C-x E") #'org-inc-effort)
  600. (org-defkey org-mode-map (kbd "C-c C-x o") #'org-toggle-ordered-property)
  601. (org-defkey org-mode-map (kbd "C-c C-,") #'org-insert-structure-template)
  602. (org-defkey org-mode-map (kbd "C-c C-x .") #'org-timer)
  603. (org-defkey org-mode-map (kbd "C-c C-x -") #'org-timer-item)
  604. (org-defkey org-mode-map (kbd "C-c C-x 0") #'org-timer-start)
  605. (org-defkey org-mode-map (kbd "C-c C-x _") #'org-timer-stop)
  606. (org-defkey org-mode-map (kbd "C-c C-x ;") #'org-timer-set-timer)
  607. (org-defkey org-mode-map (kbd "C-c C-x ,") #'org-timer-pause-or-continue)
  608. (org-defkey org-mode-map (kbd "C-c C-x C-c") #'org-columns)
  609. (org-defkey org-mode-map (kbd "C-c C-x !") #'org-reload)
  610. (org-defkey org-mode-map (kbd "C-c C-x g") #'org-feed-update-all)
  611. (org-defkey org-mode-map (kbd "C-c C-x G") #'org-feed-goto-inbox)
  612. (org-defkey org-mode-map (kbd "C-c C-x [") #'org-reftex-citation)
  613. (org-defkey org-mode-map (kbd "C-c C-x I") #'org-info-find-node)
  614. ;;; Speed keys
  615. (defcustom org-use-speed-commands nil
  616. "Non-nil means activate single letter commands at beginning of a headline.
  617. This may also be a function to test for appropriate locations where speed
  618. commands should be active.
  619. For example, to activate speed commands when the point is on any
  620. star at the beginning of the headline, you can do this:
  621. (setq org-use-speed-commands
  622. (lambda () (and (looking-at org-outline-regexp) (looking-back \"^\\**\"))))"
  623. :group 'org-structure
  624. :type '(choice
  625. (const :tag "Never" nil)
  626. (const :tag "At beginning of headline stars" t)
  627. (function)))
  628. (defcustom org-speed-commands-user nil
  629. "Alist of additional speed commands.
  630. This list will be checked before `org-speed-commands-default'
  631. when the variable `org-use-speed-commands' is non-nil
  632. and when the cursor is at the beginning of a headline.
  633. The car of each entry is a string with a single letter, which must
  634. be assigned to `self-insert-command' in the global map.
  635. The cdr is either a command to be called interactively, a function
  636. to be called, or a form to be evaluated.
  637. An entry that is just a list with a single string will be interpreted
  638. as a descriptive headline that will be added when listing the speed
  639. commands in the Help buffer using the `?' speed command."
  640. :group 'org-structure
  641. :type '(repeat :value ("k" . ignore)
  642. (choice :value ("k" . ignore)
  643. (list :tag "Descriptive Headline" (string :tag "Headline"))
  644. (cons :tag "Letter and Command"
  645. (string :tag "Command letter")
  646. (choice
  647. (function)
  648. (sexp))))))
  649. (defcustom org-speed-command-hook
  650. '(org-speed-command-activate org-babel-speed-command-activate)
  651. "Hook for activating speed commands at strategic locations.
  652. Hook functions are called in sequence until a valid handler is
  653. found.
  654. Each hook takes a single argument, a user-pressed command key
  655. which is also a `self-insert-command' from the global map.
  656. Within the hook, examine the cursor position and the command key
  657. and return nil or a valid handler as appropriate. Handler could
  658. be one of an interactive command, a function, or a form.
  659. Set `org-use-speed-commands' to non-nil value to enable this
  660. hook. The default setting is `org-speed-command-activate'."
  661. :group 'org-structure
  662. :version "24.1"
  663. :type 'hook)
  664. (defconst org-speed-commands-default
  665. '(("Outline Navigation")
  666. ("n" . (org-speed-move-safe 'org-next-visible-heading))
  667. ("p" . (org-speed-move-safe 'org-previous-visible-heading))
  668. ("f" . (org-speed-move-safe 'org-forward-heading-same-level))
  669. ("b" . (org-speed-move-safe 'org-backward-heading-same-level))
  670. ("F" . org-next-block)
  671. ("B" . org-previous-block)
  672. ("u" . (org-speed-move-safe 'outline-up-heading))
  673. ("j" . org-goto)
  674. ("g" . (org-refile t))
  675. ("Outline Visibility")
  676. ("c" . org-cycle)
  677. ("C" . org-shifttab)
  678. (" " . org-display-outline-path)
  679. ("s" . org-toggle-narrow-to-subtree)
  680. ("k" . org-cut-subtree)
  681. ("=" . org-columns)
  682. ("Outline Structure Editing")
  683. ("U" . org-metaup)
  684. ("D" . org-metadown)
  685. ("r" . org-metaright)
  686. ("l" . org-metaleft)
  687. ("R" . org-shiftmetaright)
  688. ("L" . org-shiftmetaleft)
  689. ("i" . (progn (forward-char 1) (call-interactively
  690. 'org-insert-heading-respect-content)))
  691. ("^" . org-sort)
  692. ("w" . org-refile)
  693. ("a" . org-archive-subtree-default-with-confirmation)
  694. ("@" . org-mark-subtree)
  695. ("#" . org-toggle-comment)
  696. ("Clock Commands")
  697. ("I" . org-clock-in)
  698. ("O" . org-clock-out)
  699. ("Meta Data Editing")
  700. ("t" . org-todo)
  701. ("," . (org-priority))
  702. ("0" . (org-priority ?\ ))
  703. ("1" . (org-priority ?A))
  704. ("2" . (org-priority ?B))
  705. ("3" . (org-priority ?C))
  706. (":" . org-set-tags-command)
  707. ("e" . org-set-effort)
  708. ("E" . org-inc-effort)
  709. ("W" . (lambda(m) (interactive "sMinutes before warning: ")
  710. (org-entry-put (point) "APPT_WARNTIME" m)))
  711. ("Agenda Views etc")
  712. ("v" . org-agenda)
  713. ("/" . org-sparse-tree)
  714. ("Misc")
  715. ("o" . org-open-at-point)
  716. ("?" . org-speed-command-help)
  717. ("<" . (org-agenda-set-restriction-lock 'subtree))
  718. (">" . (org-agenda-remove-restriction-lock)))
  719. "The default speed commands.")
  720. (defun org-print-speed-command (e)
  721. (if (> (length (car e)) 1)
  722. (progn
  723. (princ "\n")
  724. (princ (car e))
  725. (princ "\n")
  726. (princ (make-string (length (car e)) ?-))
  727. (princ "\n"))
  728. (princ (car e))
  729. (princ " ")
  730. (if (symbolp (cdr e))
  731. (princ (symbol-name (cdr e)))
  732. (prin1 (cdr e)))
  733. (princ "\n")))
  734. (defun org-speed-command-help ()
  735. "Show the available speed commands."
  736. (interactive)
  737. (unless org-use-speed-commands
  738. (user-error "Speed commands are not activated, customize `org-use-speed-commands'"))
  739. (with-output-to-temp-buffer "*Help*"
  740. (princ "User-defined Speed commands\n===========================\n")
  741. (mapc #'org-print-speed-command org-speed-commands-user)
  742. (princ "\n")
  743. (princ "Built-in Speed commands\n=======================\n")
  744. (mapc #'org-print-speed-command org-speed-commands-default))
  745. (with-current-buffer "*Help*"
  746. (setq truncate-lines t)))
  747. (defun org-speed-move-safe (cmd)
  748. "Execute CMD, but make sure that the cursor always ends up in a headline.
  749. If not, return to the original position and throw an error."
  750. (interactive)
  751. (let ((pos (point)))
  752. (call-interactively cmd)
  753. (unless (and (bolp) (org-at-heading-p))
  754. (goto-char pos)
  755. (error "Boundary reached while executing %s" cmd))))
  756. (defun org-speed-command-activate (keys)
  757. "Hook for activating single-letter speed commands.
  758. `org-speed-commands-default' specifies a minimal command set.
  759. Use `org-speed-commands-user' for further customization."
  760. (when (or (and (bolp) (looking-at org-outline-regexp))
  761. (and (functionp org-use-speed-commands)
  762. (funcall org-use-speed-commands)))
  763. (cdr (assoc keys (append org-speed-commands-user
  764. org-speed-commands-default)))))
  765. ;;; Babel speed keys
  766. (defvar org-babel-key-prefix "\C-c\C-v"
  767. "The key prefix for Babel interactive key-bindings.
  768. See `org-babel-key-bindings' for the list of interactive Babel
  769. functions which are assigned key bindings, and see
  770. `org-babel-map' for the actual babel keymap.")
  771. (defvar org-babel-map (make-sparse-keymap)
  772. "The keymap for interactive Babel functions.")
  773. (defvar org-babel-key-bindings
  774. '(("p" . org-babel-previous-src-block)
  775. ("\C-p" . org-babel-previous-src-block)
  776. ("n" . org-babel-next-src-block)
  777. ("\C-n" . org-babel-next-src-block)
  778. ("e" . org-babel-execute-maybe)
  779. ("\C-e" . org-babel-execute-maybe)
  780. ("o" . org-babel-open-src-block-result)
  781. ("\C-o" . org-babel-open-src-block-result)
  782. ("\C-v" . org-babel-expand-src-block)
  783. ("v" . org-babel-expand-src-block)
  784. ("u" . org-babel-goto-src-block-head)
  785. ("\C-u" . org-babel-goto-src-block-head)
  786. ("g" . org-babel-goto-named-src-block)
  787. ("r" . org-babel-goto-named-result)
  788. ("\C-r" . org-babel-goto-named-result)
  789. ("\C-b" . org-babel-execute-buffer)
  790. ("b" . org-babel-execute-buffer)
  791. ("\C-s" . org-babel-execute-subtree)
  792. ("s" . org-babel-execute-subtree)
  793. ("\C-d" . org-babel-demarcate-block)
  794. ("d" . org-babel-demarcate-block)
  795. ("\C-t" . org-babel-tangle)
  796. ("t" . org-babel-tangle)
  797. ("\C-f" . org-babel-tangle-file)
  798. ("f" . org-babel-tangle-file)
  799. ("\C-c" . org-babel-check-src-block)
  800. ("c" . org-babel-check-src-block)
  801. ("\C-j" . org-babel-insert-header-arg)
  802. ("j" . org-babel-insert-header-arg)
  803. ("\C-l" . org-babel-load-in-session)
  804. ("l" . org-babel-load-in-session)
  805. ("\C-i" . org-babel-lob-ingest)
  806. ("i" . org-babel-lob-ingest)
  807. ("\C-I" . org-babel-view-src-block-info)
  808. ("I" . org-babel-view-src-block-info)
  809. ("\C-z" . org-babel-switch-to-session)
  810. ("z" . org-babel-switch-to-session-with-code)
  811. ("\C-a" . org-babel-sha1-hash)
  812. ("a" . org-babel-sha1-hash)
  813. ("h" . org-babel-describe-bindings)
  814. ("\C-x" . org-babel-do-key-sequence-in-edit-buffer)
  815. ("x" . org-babel-do-key-sequence-in-edit-buffer)
  816. ("k" . org-babel-remove-result-one-or-many)
  817. ("\C-\M-h" . org-babel-mark-block))
  818. "Alist of key bindings and interactive Babel functions.
  819. This list associates interactive Babel functions
  820. with keys. Each element of this list will add an entry to the
  821. `org-babel-map' using the letter key which is the `car' of the
  822. a-list placed behind the generic `org-babel-key-prefix'.")
  823. (define-key org-mode-map org-babel-key-prefix org-babel-map)
  824. (pcase-dolist (`(,key . ,def) org-babel-key-bindings)
  825. (define-key org-babel-map key def))
  826. (defun org-babel-speed-command-activate (keys)
  827. "Hook for activating single-letter code block commands."
  828. (when (and (bolp)
  829. (let ((case-fold-search t)) (looking-at "[ \t]*#\\+begin_src"))
  830. (eq 'src-block (org-element-type (org-element-at-point))))
  831. (cdr (assoc keys org-babel-key-bindings))))
  832. ;;;###autoload
  833. (defun org-babel-describe-bindings ()
  834. "Describe all keybindings behind `org-babel-key-prefix'."
  835. (interactive)
  836. (describe-bindings org-babel-key-prefix))
  837. (provide 'org-keys)
  838. ;;; org-keys.el ends here