Переглянути джерело

Update git, gitbare link definitions

* contrib/lisp/org-git-link.el ("git-link"):

Update to use org-link-set-parameters.
Robert Klein 8 роки тому
батько
коміт
690f92f685
1 змінених файлів з 2 додано та 4 видалено
  1. 2 4
      contrib/lisp/org-git-link.el

+ 2 - 4
contrib/lisp/org-git-link.el

@@ -69,7 +69,7 @@
 
 
 ;; org link functions
 ;; org link functions
 ;; bare git link
 ;; bare git link
-(org-add-link-type "gitbare" 'org-gitbare-open)
+(org-link-set-parameters "gitbare" :follow #'org-gitbare-open)
 
 
 (defun org-gitbare-open (str)
 (defun org-gitbare-open (str)
   (let* ((strlist (org-git-split-string str))
   (let* ((strlist (org-git-split-string str))
@@ -92,7 +92,7 @@
     (setq buffer-read-only t)))
     (setq buffer-read-only t)))
 
 
 ;; user friendly link
 ;; user friendly link
-(org-add-link-type "git" 'org-git-open)
+(org-link-set-parameters "git" :follow #'org-git-open :store #'org-git-store-link)
 
 
 (defun org-git-open (str)
 (defun org-git-open (str)
   (let* ((strlist (org-git-split-string str))
   (let* ((strlist (org-git-split-string str))
@@ -190,8 +190,6 @@ than two double colons, str2 and/or str3 may be set the empty string."
 	 :type "git"
 	 :type "git"
 	 :link (org-git-create-git-link file line))))))
 	 :link (org-git-create-git-link file line))))))
 
 
-(add-hook 'org-store-link-functions 'org-git-store-link)
-
 (defun org-git-insert-link-interactively (file searchstring &optional description)
 (defun org-git-insert-link-interactively (file searchstring &optional description)
   (interactive "FFile: \nsSearch string: \nsDescription: ")
   (interactive "FFile: \nsSearch string: \nsDescription: ")
   (insert (org-make-link-string (concat "git:" file "::" searchstring) description)))
   (insert (org-make-link-string (concat "git:" file "::" searchstring) description)))