Remove two unused functions with key bindings

This commit is contained in:
Gerard Vermeulen 2024-06-11 09:52:57 +02:00
parent 23ae951280
commit fba94f9db9

View File

@ -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