diff --git a/ol-conlang.el b/ol-conlang.el index cc2dc53..6f356ab 100644 --- a/ol-conlang.el +++ b/ol-conlang.el @@ -34,7 +34,7 @@ (require 'ol) (require 'org-element) -(defun org-link-conlang-open (path arg) +(defun org-link-conlang-open (path _arg) "Open a conlang dictionary link. PATH is the path to a word or a language, as a string." (let* ((destructured-path (split-string path ":")) @@ -86,6 +86,15 @@ containing the export paramenters." (if (not desc) (format "@uref{%s}" generic-uri) (format "@urif{%s, %s}" generic-uri desc))) + (`conlang-md + (format "" + language + (if word + (format "word=\"%s\" " word) + "") + (if desc + (format "desc=\"%s\" " desc) + ""))) (_ generic-uri)))) (org-link-set-parameters "conlang"