diff options
author | Alex Poslavsky <alexander.poslavsky@gmail.com> | 2013-12-21 19:08:27 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-12-22 09:17:43 +0100 |
commit | 22af33a015ad4cd6e9ec7330c2d04131cb774aa8 (patch) | |
tree | 56dc878f2c991bb54c343c5eb6d5fbd34d21f4df | |
parent | 8e00dbb00ba024c3d2c36640b36be3de37f4b872 (diff) | |
download | org-mode-22af33a015ad4cd6e9ec7330c2d04131cb774aa8.tar.gz |
org-as-mac-chrome-get-frontmost-url: Fix to remove unneeded double quotes.
* contrib/lisp/org-mac-link.el: Fix bug: remove double quotes.
TINYCHANGE
Applescript returns the link and description in quotes like this:
[["http://orgmode.org/worg/org-contribute.html#sec-4][How to contribute to Org?"]]
The fix changes it to this:
[[http://orgmode.org/worg/org-contribute.html#sec-4][How to contribute to Org?]]
-rw-r--r-- | contrib/lisp/org-mac-link.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/contrib/lisp/org-mac-link.el b/contrib/lisp/org-mac-link.el index 2ff6711..332c1cf 100644 --- a/contrib/lisp/org-mac-link.el +++ b/contrib/lisp/org-mac-link.el @@ -3,13 +3,13 @@ ;; ;; Copyright (c) 2010-2013 Free Software Foundation, Inc. ;; -;; Authors: +;; Authors: ;; Anthony Lander <anthony.lander@gmail.com> ;; John Wiegley <johnw@gnu.org> ;; Christopher Suckling <suckling at gmail dot com> ;; Daniil Frumin <difrumin@gmail.com> ;; -;; +;; ;; Version: 1.1 ;; Keywords: org, mac, hyperlink ;; @@ -201,14 +201,14 @@ applications and inserting them in org documents" ("S" "kim" org-mac-skim-insert-page ,org-mac-grab-Skim-app-p))) (menu-string (make-string 0 ?x)) input) - + ;; Create the menu string for the keymap (mapc '(lambda (descriptor) (when (elt descriptor 3) (setf menu-string (concat menu-string "[" (elt descriptor 0) "]" (elt descriptor 1) " ")))) descriptors) (setf (elt menu-string (- (length menu-string) 1)) ?:) - + ;; Prompt the user, and grab the link (message menu-string) (setq input (read-char-exclusive)) @@ -368,7 +368,7 @@ applications and inserting them in org documents" "set links to {}\n" "copy theResult to the end of links\n" "return links as string\n")))) - (car (split-string result "[\r\n]+" t)))) + (substring (car (split-string result "[\r\n]+" t)) 1 -1))) (defun org-mac-chrome-get-frontmost-url () (interactive) |