|  | @@ -2909,20 +2909,26 @@
 | 
	
		
			
				|  |  |         ;; not copied from the external clipboard
 | 
	
		
			
				|  |  |         (= (string/replace (string/trim initial-text) "\r" "")
 | 
	
		
			
				|  |  |            (string/replace (string/trim (or (:copy/content copied-blocks) "")) "\r" "")))
 | 
	
		
			
				|  |  | -      (let [blocks (or
 | 
	
		
			
				|  |  | -                    (:copy/full-blocks copied-blocks)
 | 
	
		
			
				|  |  | -                    (get-all-blocks-by-ids (state/get-current-repo) copied-block-ids))]
 | 
	
		
			
				|  |  | -        (when (seq blocks)
 | 
	
		
			
				|  |  | -          (state/set-copied-full-blocks! blocks)
 | 
	
		
			
				|  |  | -          (paste-blocks blocks {})))
 | 
	
		
			
				|  |  | +      (do
 | 
	
		
			
				|  |  | +        (util/stop e)
 | 
	
		
			
				|  |  | +        (let [blocks (or
 | 
	
		
			
				|  |  | +                     (:copy/full-blocks copied-blocks)
 | 
	
		
			
				|  |  | +                     (get-all-blocks-by-ids (state/get-current-repo) copied-block-ids))]
 | 
	
		
			
				|  |  | +         (when (seq blocks)
 | 
	
		
			
				|  |  | +           (state/set-copied-full-blocks! blocks)
 | 
	
		
			
				|  |  | +           (paste-blocks blocks {}))))
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |        (and (gp-util/url? text)
 | 
	
		
			
				|  |  |             (not (string/blank? (util/get-selected-text))))
 | 
	
		
			
				|  |  | -      (html-link-format! text)
 | 
	
		
			
				|  |  | +      (do
 | 
	
		
			
				|  |  | +        (util/stop e)
 | 
	
		
			
				|  |  | +        (html-link-format! text))
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |        (and (text/block-ref? text)
 | 
	
		
			
				|  |  |             (wrapped-by? input "((" "))"))
 | 
	
		
			
				|  |  | -      (commands/simple-insert! (state/get-edit-input-id) (text/get-block-ref text) nil)
 | 
	
		
			
				|  |  | +      (do
 | 
	
		
			
				|  |  | +        (util/stop e)
 | 
	
		
			
				|  |  | +        (commands/simple-insert! (state/get-edit-input-id) (text/get-block-ref text) nil))
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |        :else
 | 
	
		
			
				|  |  |        ;; from external
 |