diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-06-05 09:38:46 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-06-05 09:38:46 +0200 |
commit | 88de98a778846f91679a57abcf4a6758bc49c9e1 (patch) | |
tree | 9a5fc4ca28c14700fe3049d6184ee720763cf87d | |
parent | ba66f05e57a92fbe61cef74deca113491a373849 (diff) | |
download | org-mode-88de98a778846f91679a57abcf4a6758bc49c9e1.tar.gz |
org-wikinodes: Fix export
* contrib/lisp/org-wikinodes.el (org-wikinodes-set-wiki-targets-during-export): Fix signature.
(org-wikinodes-process-links-for-export): Fix signature. Fix produced
Org link.
-rw-r--r-- | contrib/lisp/org-wikinodes.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/contrib/lisp/org-wikinodes.el b/contrib/lisp/org-wikinodes.el index e66b248..35242db 100644 --- a/contrib/lisp/org-wikinodes.el +++ b/contrib/lisp/org-wikinodes.el @@ -252,7 +252,7 @@ If there is no such wiki target, return nil." (defvar target-alist) (defvar last-section-target) (defvar org-export-target-aliases) -(defun org-wikinodes-set-wiki-targets-during-export () +(defun org-wikinodes-set-wiki-targets-during-export (_) (let ((line (buffer-substring (point-at-bol) (point-at-eol))) (case-fold-search nil) wtarget a) @@ -268,9 +268,8 @@ If there is no such wiki target, return nil." (car org-export-target-aliases)))) (push (caar target-alist) (cdr a))))) -(defun org-wikinodes-process-links-for-export () +(defun org-wikinodes-process-links-for-export (_) "Process Wiki links in the export preprocess buffer. - Try to find target matches in the wiki scope and replace CamelCase words with working links." (let ((re org-wikinodes-camel-regexp) @@ -289,7 +288,7 @@ with working links." (cond ((org-find-exact-headline-in-buffer link (current-buffer)) ;; Found in current buffer - (insert (format "[[#%s][%s]]" link link))) + (insert (format "[[*%s][%s]]" link link))) ((eq org-wikinodes-scope 'file) ;; No match in file, and other files are not allowed (insert (format "%s" link))) |