diff options
Diffstat (limited to 'lib/org/jao-org-utils.el')
-rw-r--r-- | lib/org/jao-org-utils.el | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/lib/org/jao-org-utils.el b/lib/org/jao-org-utils.el deleted file mode 100644 index 8d65ed7..0000000 --- a/lib/org/jao-org-utils.el +++ /dev/null @@ -1,43 +0,0 @@ -(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)) - -;;;###autoload -(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 ".*\\[\\[.+$"))) - -;;;###autoload -(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) |