init.el

@@ -744,7 +744,6 @@
              db/org-onenote-open
              db/org-outlook-open
              db/org-rfc-open
-             db/org-clear-stored-links
              db/org-cleanup-continuous-clocks
              db/find-csv-in-org
              db/org-mark-current-default-task
@@ -909,7 +908,7 @@
               (org-link-set-parameters "onenote" :follow #'db/org-onenote-open)
               (org-link-set-parameters "outlook" :follow #'db/org-outlook-open))
 
-            ;; Mark some org mode regions to be skipped by ispell
+            ;; Skip some org mode regions to be skipped by ispell
             (add-hook 'org-mode-hook #'endless/org-ispell)
 
             ;; Link type for RFCs
@@ -953,7 +952,7 @@
              org-dblock-write:org-ql))
 
 (use-package ol
-  :init (setq org-link-keep-stored-after-insertion t)
+  :init (setq org-link-keep-stored-after-insertion nil)
   :commands (org-store-link))
 
 (use-package org-id

site-lisp/db-org.el

@@ -524,13 +524,6 @@ open RFC in HTML format in the default browser."
     (warn "`db/rfc-cache-path' not defined or not an absolute writable path, opening RFC in browser.")
     (browse-url (concat "https://tools.ietf.org/html/rfc" number)))))
 
-(defun db/org-clear-stored-links ()
-  "Clear list of stored links by setting `org-stored-links' to NIL.
-This might be handy when links are kept by setting
-`org-link-keep-stored-after-insertion' to T, but too many links
-have accumulated over time."
-  (interactive)
-  (setq org-stored-links nil))
 
 
 ;;; Org Utilities
@@ -545,8 +538,8 @@ have accumulated over time."
     (save-excursion
       (goto-char (point-min))
       (while (search-forward-regexp clock-line nil t)
-        (replace-match "\\1CLOCK: [\\4]--[\\3]")
-        (org-clock-update-time-maybe)))))
+       (replace-match "\\1CLOCK: [\\4]--[\\3]")
+       (org-clock-update-time-maybe)))))
 
 (defun db/find-csv-in-org (arg)
   "Interactively find CSV file and open it as Org mode table.