[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 17e27ea: Merge branch 'maint'
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 17e27ea: Merge branch 'maint' |
Date: |
Fri, 19 Mar 2021 00:57:12 -0400 (EDT) |
branch: externals/org
commit 17e27ea6342773b94aacc6b8dc1b2c27bbb8af60
Merge: b241c12 dbc8431
Author: Kyle Meyer <kyle@kyleam.com>
Commit: Kyle Meyer <kyle@kyleam.com>
Merge branch 'maint'
---
contrib/lisp/ob-smiles.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/contrib/lisp/ob-smiles.el b/contrib/lisp/ob-smiles.el
index 9f4f140..5a0fbf6 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'."
@@ -25,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'."
@@ -36,10 +39,10 @@
((eq 'html backend)
(format "<a href=\"#%s\">%s</a>" 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)