From: John Kitchin <jkitchin@andrew.cmu.edu>
Date: Mon, 26 Jan 2015 21:04:57 +0000 (-0500)
Subject: update insert ref so we can replace current link.
X-Git-Url: https://git.donarmstrong.com/?p=org-ref.git;a=commitdiff_plain;h=2d2531c06b7ea5ae425b159c2c0b2f73b4a2f71b

update insert ref so we can replace current link.
---

diff --git a/org-ref.org b/org-ref.org
index 22cf65e..b04c1a1 100644
--- a/org-ref.org
+++ b/org-ref.org
@@ -1145,17 +1145,21 @@ Another alternative ref insertion is to use helm.
 #+BEGIN_SRC emacs-lisp :tangle org-ref.el
 (defun org-ref-helm-insert-ref-link ()
   "Helm menu to insert ref links to labels in the document.
+If you are on link, replace with newly selected label.
 Use C-u to insert a different kind of ref link.
-C-u C-u to replace the current ref with selection"
+"
   (interactive)
   (let* ((labels (org-ref-get-labels))
 	 (contexts (mapcar 'org-ref-get-label-context labels))
 	 (cb (current-buffer)))
 
-    (helm :sources `(((name . "Available labels to ref")
+    (helm :input (thing-at-point 'word)
+	  :sources `(((name . "Available labels to ref")
 		      (candidates . ,(loop for label in labels
 					   for context in contexts
-;; we do some kludgy adding spaces and bars to make it "easier" to see in helm.
+					   ;; we do some kludgy adding spaces
+					   ;; and bars to make it "easier" to
+					   ;; see in helm.
 					   collect (cons (concat
 							  label "\n"
 							  (mapconcat
@@ -1168,11 +1172,33 @@ C-u C-u to replace the current ref with selection"
 				  (switch-to-buffer ,cb)
 
 				  (cond
-				   ;;  no prefix
+				   ;;  no prefix or on a link
 				   ((equal helm-current-prefix-arg nil)
-				     (insert
-				      (concat
-				       "ref:" label)))
+				    (let* ((object (org-element-context))
+					   (last-char (save-excursion
+							(goto-char (org-element-property :end object))
+							(backward-char)
+							(if (looking-at " ")
+							    " "
+							  ""))))
+				      (if (-contains? '("ref" "eqref" "pageref" "nameref")
+						      (org-element-property :type object))
+					  ;; we are on a link, so replace it.
+					  (setf
+					   (buffer-substring
+					    (org-element-property :begin object)
+					    (org-element-property :end object))
+					   (concat
+					    (replace-regexp-in-string
+					     (org-element-property :path object)
+					     label
+					     (org-element-property :raw-link object))
+					    last-char))
+					;; insert a new link
+					(insert
+					 (concat
+					  "ref:" label))
+					)))
 				   ;; one prefix, alternate ref link
 				   ((equal helm-current-prefix-arg '(4))
 				    (insert
@@ -1181,26 +1207,7 @@ C-u C-u to replace the current ref with selection"
 						       (candidates . ("ref" "eqref" "pageref" "nameref"))
 						       (action . (lambda (x) x))))
 				      ":" label)))
-				   ;; two prefixes, replace current label
-				   ((equal helm-current-prefix-arg '(16))
-				    ;; get link
-				    (let* ((object (org-element-context))
-					   (last-char (save-excursion
-							(goto-char (org-element-property :end object))
-							(backward-char)
-							(if (looking-at " ")
-							    " "
-							  ""))))
-				      (setf
-				       (buffer-substring
-					(org-element-property :begin object)
-					(org-element-property :end object))
-				       (concat
-					(replace-regexp-in-string
-					 (org-element-property :path object)
-					 label
-					 (org-element-property :raw-link object))
-					last-char))))))))))))
+				   ))))))))