Org follow links on "RET" key
This commit is contained in:
+23
-3
@@ -728,7 +728,7 @@ Functions that only use built-in Emacs functionality.
|
||||
"Hide default startup message."
|
||||
(message ""))
|
||||
|
||||
(defun dot/describe-symbol-at-point (&optional SYMBOL)
|
||||
(defun dot/describe-symbol-at-point (&optional symbol)
|
||||
"Display the full documentation of SYMBOL at point.
|
||||
Will show the info of SYMBOL as a function, variable, and/or face."
|
||||
(interactive "P")
|
||||
@@ -742,6 +742,19 @@ Functions that only use built-in Emacs functionality.
|
||||
(save-excursion
|
||||
(indent-region (point-min) (point-max) nil)))
|
||||
|
||||
(defun dot/org-ret-at-point ()
|
||||
"Org return key at point.
|
||||
|
||||
If point is on:
|
||||
link -- follow it
|
||||
otherwise -- run the default (evil-ret) expression"
|
||||
(interactive)
|
||||
(let ((type (org-element-type (org-element-context))))
|
||||
(pcase type
|
||||
('link (org-open-at-point))
|
||||
(_ (evil-ret))
|
||||
)))
|
||||
|
||||
(defun split-follow-horizontally ()
|
||||
"Split and follow window."
|
||||
(interactive)
|
||||
@@ -1005,10 +1018,9 @@ Set custom keybinds to functionality of custom packages.
|
||||
(with-eval-after-load 'evil-states
|
||||
(general-define-key
|
||||
:keymaps 'evil-normal-state-map
|
||||
|
||||
;; Neotree
|
||||
"C-n" 'neotree-toggle-in-project-root)
|
||||
|
||||
;; Neotree
|
||||
(general-define-key
|
||||
:states 'normal
|
||||
:keymaps 'neotree-mode-map
|
||||
@@ -1038,6 +1050,12 @@ Set custom keybinds to functionality of custom packages.
|
||||
"r" 'dashboard-goto-recent-files
|
||||
)
|
||||
|
||||
;; Org
|
||||
(general-define-key
|
||||
:states 'normal
|
||||
:keymaps 'org-mode-map
|
||||
"RET" 'dot/org-ret-at-point)
|
||||
|
||||
;; Elfeed
|
||||
(general-define-key
|
||||
:states 'normal
|
||||
@@ -1215,6 +1233,8 @@ https://github.com/suyashbire1/emacs.d/blob/master/init.el
|
||||
(local-leader org-mode-map
|
||||
"'" '(org-edit-special :which-key "Org edit")
|
||||
"c" '(org-edit-special :which-key "Org edit")
|
||||
"l" '(org-insert-link :which-key "Org make link")
|
||||
"o" '(org-open-at-point :which-key "Org open at point")
|
||||
)
|
||||
|
||||
(local-leader org-src-mode-map
|
||||
|
||||
Reference in New Issue
Block a user