summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2017-06-05 09:38:46 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2017-06-05 09:38:46 +0200
commit88de98a778846f91679a57abcf4a6758bc49c9e1 (patch)
tree9a5fc4ca28c14700fe3049d6184ee720763cf87d
parentba66f05e57a92fbe61cef74deca113491a373849 (diff)
downloadorg-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.el7
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)))