space fix

[org-ref.git] / org-ref.org

diff --git a/org-ref.org b/org-ref.org
index d4dc2a40f5f0169b1067a2e72e79af7983b52910..e4baf37dc61040d3dde844397c8b4d1ae2650e5a 100644 (file)
--- a/org-ref.org
+++ b/org-ref.org
@@ -2716,8 +2716,8 @@ ref:test citep:test  label:rett
   (interactive)
   (let* ((object (org-element-context))
         (type (org-element-property :type object)))
-
-    (cond
+    (save-excursion
+      (cond
      ;; cite links
      ((-contains? org-ref-cite-types type)
       (message (org-ref-get-citation-string-at-point)))
@@ -2727,6 +2727,10 @@ ref:test citep:test  label:rett
       (message (org-ref-get-label-context
                (org-element-property :path object))))
 
+     ((string= type "eqref")
+      (message (org-ref-get-label-context
+               (org-element-property :path object))))
+
      ;; message the count
      ((string= type "label")
       (let ((count (org-ref-count-labels
@@ -2737,7 +2741,7 @@ ref:test citep:test  label:rett
                  " occurence"
                  (when (or (= count 0)
                            (> count 1))
-                   "s"))))))))
+                   "s")))))))))
 
 
 (when org-ref-show-citation-on-enter
@@ -2791,6 +2795,7 @@ Now, let us define a function that inserts the cite links:
   "Insert selected KEYS as cite link. Append KEYS if you are on a link.
 Technically, this function should return a string that is inserted by helm. This function does the insertion and gives helm an empty string to insert. This lets us handle appending to a link properly."
   (let* ((object (org-element-context)))
+  (message-box "prefix is %s" helm-current-prefix-arg)
     (cond
      ;; case where we are in a link
      ((and (equal (org-element-type object) 'link)
@@ -2822,8 +2827,8 @@ Technically, this function should return a string that is inserted by helm. This
                org-ref-default-citation-link)
               ":"
               (s-join "," keys))))))
-;; return empty string for helm
-"")
+  ;; return empty string for helm
+  "")
 
 (setq helm-bibtex-format-citation-functions
       '((org-mode . helm-bibtex-format-org-ref)))
@@ -2879,12 +2884,12 @@ Checks for pdf and doi, and add appropriate functions."
     (when (string= doi "") (setq doi nil))
     (when (string= url "") (setq url nil))
 
+    ;; Conditional pdf functions
     (if (file-exists-p pdf-file)
        (add-to-list
         'candidates
         '("Open pdf" . org-ref-open-pdf-at-point)
-        t
-        )
+        t)
       (add-to-list
        'candidates
        '("Try to get pdf" . (lambda ()
@@ -2900,6 +2905,7 @@ Checks for pdf and doi, and add appropriate functions."
      '("Open notes" . org-ref-open-notes-at-point)
      t)
 
+    ;; conditional url and doi functions
     (when (or url doi)
       (add-to-list
        'candidates