blob: aa411437c41a80841cdee5fde6010de99cb8b7c6 (
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
38
39
40
41
|
(require 'org)
;;; links
(defun jao-org-link-at-point (&optional copy)
(when (thing-at-point-looking-at "\\[\\[\\([^]]+\\)\\]\\[[^]]+\\]\\]")
(when copy (kill-ring-save (match-beginning 1) (match-end 1)))
(match-string-no-properties 1)))
(defun jao-org-copy-link-at-point ()
(interactive)
(message "%s" (or (jao-org-link-at-point t) "No link at point")))
(defun jao-org-insert-link (url title)
(insert (format "[[%s][%s]]" url title)))
;;; 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)
|
