diff options
| -rw-r--r-- | oni-org/oni-org.el | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/oni-org/oni-org.el b/oni-org/oni-org.el index 47bccb1..444a508 100644 --- a/oni-org/oni-org.el +++ b/oni-org/oni-org.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse <tom@ryuslash.org> ;; Keywords: local -;; Version: 2026.0322.164302 +;; Version: 2026.0324.011543 ;; Package-Requires: (oni-yasnippet oni-hydra org org-edna diminish olivetti org-pretty-table) ;; This program is free software; you can redistribute it and/or modify @@ -1057,6 +1057,25 @@ CLOSED: %(setq oni-org--capture-D-date (format-time-string (org-time-stamp-forma (delete-file (buffer-file-name (org-capture-get :buffer)) t) (kill-buffer (org-capture-get :buffer)))))) +(defun oni-org-insert-link (title entry) + (interactive + (let ((collection (mapcar + (lambda (entry) + (list (org-mem-entry-title entry) + entry)) + (seq-filter (lambda (entry) + (not (string-search "archive" (org-mem-entry-file entry)))) + (org-mem-all-entries))))) + (assoc (completing-read "To: " collection) collection))) + (insert (if (> (org-mem-entry-level entry) 0) + (format "[[file:%s::%s][%s]]" + (file-relative-name (org-mem-entry-file entry)) + title + title) + (format "[[file:%s][%s]]" + (file-relative-name (org-mem-entry-file entry)) + title)))) + ;;; Mastodon post dynamic block (defun oni-org-dblock-write-mastodon-post (params) |