Permalink
Browse files

Fixed org-devonthink for Lion

  • Loading branch information...
1 parent d447de3 commit 1cb2d7871529f0b615f4a742c72ce729d8d1a61f @jwiegley committed Nov 9, 2011
Showing with 4 additions and 4 deletions.
  1. +4 −4 lisp/org-devonthink.el
@@ -12,14 +12,14 @@
(defun org-get-dtp-link ()
(interactive)
- (let ((name (do-applescript (format "
+ (let ((name (substring (do-applescript (format "
tell application \"DEVONthink Pro\"
get name of content record
- end tell")))
- (location (do-applescript (format "
+ end tell")) 1 -1))
+ (location (substring (do-applescript (format "
tell application \"DEVONthink Pro\"
get uuid of content record
- end tell"))))
+ end tell")) 1 -1)))
(org-make-link-string
(concat "x-devonthink-item://" location) name)))

0 comments on commit 1cb2d78

Please sign in to comment.