blob: 535e8f4b2667f2d8b8b0215f02d8587e89df2f3b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
(require 'org)
;;; links
(defun jao-org-link-at-point ()
(when (thing-at-point-looking-at "\\[\\[\\([^]]+\\)\\]\\[[^]]+\\]\\]")
(match-string-no-properties 1)))
(defun jao-org-copy-link-at-point ()
(interactive)
(message "%s" (or (jao-org-link-at-point) "No link at point")))
;;; eldoc
(defun jao-org-eldoc--hook ()
(set (make-local-variable 'eldoc-documentation-function)
'jao-org-link-at-point)
(eldoc-mode))
(defun jao-org-utils-eldoc-setup ()
(add-hook 'org-mode-hook 'jao-org-eldoc--hook))
;;; play fair with saveplace
(defun jao-org--show-if-hidden ()
(when (outline-invisible-p)
(save-excursion
(outline-previous-visible-heading 1)
(org-show-subtree))))
;;; verifying org refile targets
(defun jao-org--refile-target-verify ()
(not (looking-at-p ".*\\[\\[.+$")))
(defun jao-org-utils-setup ()
(setq org-refile-target-verify-function 'jao-org--refile-target-verify)
(add-hook 'org-mode-hook 'jao-org--show-if-hidden t))
(provide 'jao-org-utils)
|
