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