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."
|
"Hide default startup message."
|
||||||
(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.
|
"Display the full documentation of SYMBOL at point.
|
||||||
Will show the info of SYMBOL as a function, variable, and/or face."
|
Will show the info of SYMBOL as a function, variable, and/or face."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
@@ -742,6 +742,19 @@ Functions that only use built-in Emacs functionality.
|
|||||||
(save-excursion
|
(save-excursion
|
||||||
(indent-region (point-min) (point-max) nil)))
|
(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 ()
|
(defun split-follow-horizontally ()
|
||||||
"Split and follow window."
|
"Split and follow window."
|
||||||
(interactive)
|
(interactive)
|
||||||
@@ -1005,10 +1018,9 @@ Set custom keybinds to functionality of custom packages.
|
|||||||
(with-eval-after-load 'evil-states
|
(with-eval-after-load 'evil-states
|
||||||
(general-define-key
|
(general-define-key
|
||||||
:keymaps 'evil-normal-state-map
|
:keymaps 'evil-normal-state-map
|
||||||
|
|
||||||
;; Neotree
|
|
||||||
"C-n" 'neotree-toggle-in-project-root)
|
"C-n" 'neotree-toggle-in-project-root)
|
||||||
|
|
||||||
|
;; Neotree
|
||||||
(general-define-key
|
(general-define-key
|
||||||
:states 'normal
|
:states 'normal
|
||||||
:keymaps 'neotree-mode-map
|
:keymaps 'neotree-mode-map
|
||||||
@@ -1038,6 +1050,12 @@ Set custom keybinds to functionality of custom packages.
|
|||||||
"r" 'dashboard-goto-recent-files
|
"r" 'dashboard-goto-recent-files
|
||||||
)
|
)
|
||||||
|
|
||||||
|
;; Org
|
||||||
|
(general-define-key
|
||||||
|
:states 'normal
|
||||||
|
:keymaps 'org-mode-map
|
||||||
|
"RET" 'dot/org-ret-at-point)
|
||||||
|
|
||||||
;; Elfeed
|
;; Elfeed
|
||||||
(general-define-key
|
(general-define-key
|
||||||
:states 'normal
|
:states 'normal
|
||||||
@@ -1215,6 +1233,8 @@ https://github.com/suyashbire1/emacs.d/blob/master/init.el
|
|||||||
(local-leader org-mode-map
|
(local-leader org-mode-map
|
||||||
"'" '(org-edit-special :which-key "Org edit")
|
"'" '(org-edit-special :which-key "Org edit")
|
||||||
"c" '(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
|
(local-leader org-src-mode-map
|
||||||
|
|||||||
Reference in New Issue
Block a user