Use created argument in ein:org-goto-link

This commit is contained in:
Takafumi Arakaki 2012-10-15 21:20:37 +02:00
parent 5da71023d9
commit b8195bc947

View file

@ -29,15 +29,17 @@
(require 'org)
(require 'ein-notebooklist)
(defun* ein:org-goto-link (notebook -created-not-used-
(defun* ein:org-goto-link (notebook created
&key worksheet-index
&allow-other-keys)
(if worksheet-index
(ein:notebook-worksheet-open-ith notebook worksheet-index
#'pop-to-buffer)
(pop-to-buffer (ein:notebook-buffer notebook)))
;; More to come here:
)
(if created
(ein:log 'info "Linked notebook did not exist. Created a new one.")
(if worksheet-index
(ein:notebook-worksheet-open-ith notebook worksheet-index
#'pop-to-buffer)
(pop-to-buffer (ein:notebook-buffer notebook)))
;; More to come here:
))
;;;###autoload
(defun ein:org-open (link-path)