Add option to prefix links with filename before anchor tag

alphapapa · Jul 31, 2018 · fbbac97 · fbbac97
1 parent 69bfc93
commit fbbac97
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/org-make-toc.el b/org-make-toc.el
@@ -80,6 +80,11 @@
   :group 'org
   :link '(url-link "http://github.com/alphapapa/org-make-toc"))
 
+(defcustom org-make-toc-prefix-filename-p nil
+  "If non-nil, prefix links with filename before anchor tag."
+  :type 'boolean
+  :safe #'booleanp)
+
 ;;;; Commands
 
 ;;;###autoload
@@ -281,8 +286,11 @@ When KEEP-ALL is non-nil, return all entries."
   (-when-let* ((title (org-element-property :title entry))
                (title (org-link-display-format title))
                (target (replace-regexp-in-string " " "-" (downcase title)))
-               (target (replace-regexp-in-string "[^[:alnum:]_-]" "" target)))
-    (format "[[#%s][%s]]" target title)))
+               (target (replace-regexp-in-string "[^[:alnum:]_-]" "" target))
+               (filename (if org-make-toc-prefix-filename-p
+                             (file-name-nondirectory (buffer-file-name))
+                           "")))
+    (format "[[%s#%s][%s]]" filename target title)))
 
 ;;;;; Misc