From 1738b455b3503ec04fe24d3bf72edbb7ca64b502 Mon Sep 17 00:00:00 2001 From: Lein Matsumaru Date: Tue, 16 Mar 2021 10:52:18 +0000 Subject: [PATCH 1/2] ob-smiles.el: Update org babel API * contrib/lisp/ob-smiles.el (org-link): Fix from org-add-link-type to org-link-set-parameters TINYCHANGE --- contrib/lisp/ob-smiles.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/contrib/lisp/ob-smiles.el b/contrib/lisp/ob-smiles.el index 9f4f14080..77d7e11c4 100644 --- a/contrib/lisp/ob-smiles.el +++ b/contrib/lisp/ob-smiles.el @@ -14,7 +14,10 @@ ;; Maintainer: stardiviner [numbchild@gmail.com] ;;; Code: - + +(require 'ob) +(require 'org-element) + ;; Org-mode Babel (defun org-babel-execute:smiles (body params) "Execute SMILES babel `BODY' with `PARAMS'." @@ -36,10 +39,10 @@ ((eq 'html backend) (format "%s" name name))))) -(org-add-link-type +(org-link-set-parameters "molecule" - 'molecule-jump - 'molecule-export) + :follow 'molecule-jump + :export 'molecule-export) ;; org-mode element (org-element-map (org-element-parse-buffer) From dbc84311c0e1aec42c4cf29985d42cb6a3adc0c4 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Fri, 19 Mar 2021 00:36:20 -0400 Subject: [PATCH 2/2] ob-smiles.el: Fix reference to free variable * contrib/lisp/ob-smiles.el (molecule-jump): Format string with NAME argument rather than undefined variable `path'. --- contrib/lisp/ob-smiles.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/lisp/ob-smiles.el b/contrib/lisp/ob-smiles.el index 77d7e11c4..5a0fbf61a 100644 --- a/contrib/lisp/ob-smiles.el +++ b/contrib/lisp/ob-smiles.el @@ -28,7 +28,7 @@ (defun molecule-jump (name) "Jump to molecule `NAME' definition." (org-mark-ring-push) - (org-link-open-from-string (format "[[%s]]" path))) + (org-link-open-from-string (format "[[%s]]" name))) (defun molecule-export (path desc backend) "Export molecule to HTML format on `PATH' with `DESC' and `BACKEND'."