unused org-mode stuff removed

1 files changed, 30 insertions, 6 deletions

diff --git a/org.org b/org.org
index 897fc41..9f935fb 100644
--- a/org.org
+++ b/org.org
@@ -234,6 +234,18 @@
     (require 'ol-info nil t)
     (setq org-link-abbrev-alist '(("jao.io" "https://jao.io/")))
 
+    (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)))
+
     (defun jao-insert-eww-link ()
       "Look for last eww buffer and insert an org link to it."
       (interactive)
@@ -241,22 +253,34 @@
         (let ((lnk (with-current-buffer b
                      (format "[[%s][%s]]" (eww-current-url) (jao-eww--title)))))
           (insert lnk))))
-  #+end_src
-* jao-org
-  #+begin_src emacs-lisp
-    (use-package jao-org-utils)
 
     (use-package jao-org-links
       :commands jao-org-links-setup
       :bind (("C-c T" . jao-org-insert-doc)))
 
-    (jao-org-utils-setup)
-    (jao-org-utils-eldoc-setup)
     (jao-org-links-setup jao-sink-dir)
 
     (with-eval-after-load "pdf-view"
       (define-key pdf-view-mode-map (kbd "C-c o") #'jao-org-pdf-goto-org)
       (define-key pdf-view-mode-map (kbd "C-c O") #'jao-org-pdf-goto-org*))
+
+  #+end_src
+* Eldoc
+  #+begin_src emacs-lisp
+    (defun jao-org-eldoc--hook ()
+      (set (make-local-variable 'eldoc-documentation-function)
+           'jao-org-link-at-point)
+      (eldoc-mode))
+    (add-hook 'org-mode-hook 'jao-org-eldoc--hook)
+  #+end_src
+* Savedoc
+  #+begin_src emacs-lisp
+    (defun jao-org--show-if-hidden ()
+      (when (outline-invisible-p)
+        (save-excursion
+          (outline-previous-visible-heading 1)
+          (org-show-subtree))))
+    (add-hook 'org-mode-hook 'jao-org--show-if-hidden t)
   #+end_src
 * Geiser and org
   #+begin_src emacs-lisp