Remove two unused functions with key bindings
This commit is contained in:
parent
23ae951280
commit
fba94f9db9
24
README.org
24
README.org
@ -2345,34 +2345,12 @@ Undo this by means of `org-delete-property-globally'."
|
|||||||
When called twice, replace the previously inserted \\(\\) by one $."
|
When called twice, replace the previously inserted \\(\\) by one $."
|
||||||
(interactive)
|
(interactive)
|
||||||
(if (and (looking-at "\\\\)") (looking-back "\\\\(" (- (point) 2)))
|
(if (and (looking-at "\\\\)") (looking-back "\\\\(" (- (point) 2)))
|
||||||
(progn (delete-char 2)
|
(progn (delete-char 2) (delete-char -2) (insert "$"))
|
||||||
(delete-char -2)
|
|
||||||
(insert "$"))
|
|
||||||
(insert "\\(\\)")
|
(insert "\\(\\)")
|
||||||
(backward-char 2)))
|
(backward-char 2)))
|
||||||
|
|
||||||
(defun org-active-current-time-stamp ()
|
|
||||||
"Insert an active date-time stamp of the current time."
|
|
||||||
(interactive)
|
|
||||||
(if (fboundp 'org-insert-time-stamp)
|
|
||||||
(org-insert-time-stamp (current-time) 'with-hm)
|
|
||||||
(let ((stamp (format-time-string "<%Y-%m-%d %a %H:%M>" (current-time))))
|
|
||||||
(insert stamp)
|
|
||||||
stamp)))
|
|
||||||
|
|
||||||
(defun org-inactive-current-time-stamp ()
|
|
||||||
"Insert an inactive date-time stamp of the current time."
|
|
||||||
(interactive)
|
|
||||||
(if (fboundp 'org-insert-time-stamp)
|
|
||||||
(org-insert-time-stamp (current-time) 'with-hm 'inactive)
|
|
||||||
(let ((stamp (format-time-string "[%Y-%m-%d %a %H:%M]" (current-time))))
|
|
||||||
(insert stamp)
|
|
||||||
stamp)))
|
|
||||||
|
|
||||||
(with-eval-after-load 'org
|
(with-eval-after-load 'org
|
||||||
(setopt org-return-follows-link t)
|
(setopt org-return-follows-link t)
|
||||||
(keymap-set org-mode-map "C-c <SPC>" #'org-inactive-current-time-stamp)
|
|
||||||
(keymap-set org-mode-map "C-c C-<SPC>" #'org-active-current-time-stamp)
|
|
||||||
(keymap-set org-mode-map "$" #'org-electric-dollar)
|
(keymap-set org-mode-map "$" #'org-electric-dollar)
|
||||||
(keymap-set org-mode-map "M-q" #'org-fill-paragraph))
|
(keymap-set org-mode-map "M-q" #'org-fill-paragraph))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
Loading…
Reference in New Issue
Block a user