[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [Feature proposal] Add :description function to org-link-parameters
From: |
Ihor Radchenko |
Subject: |
[O] [Feature proposal] Add :description function to org-link-parameters |
Date: |
Sat, 03 Aug 2019 00:01:45 +0800 |
Hi,
Wondering if anyone is interested in adding a new org-link property to
customise generating the link description.
For now, there is global org-link-make-description-function, which is
shared among all the link types. If would be more convenient if the
description function can be set independently for different link types.
I propose to use :description property in org-link-parameters. A sample
implementation working with current org version is below:
#+begin_src emacs-lisp
(defun yant/org-make-link-description-function (link desk)
"Return description of the link LINK according to :description link property.
Return DESK if :desk is not set."
(let ((fun (org-link-get-parameter (car (split-string link ":"))
:description)))
(if (functionp fun)
(funcall fun link desk)
desk)))
(setq org-make-link-description-function
#'yant/org-make-link-description-function)
#+end_src
Example usage:
#+begin_src emacs-lisp
(defun org-id-link-desk (link desk)
"Description function for id: link."
(let ((id (cadr (split-string link ":"))))
(org-with-point-at (org-id-find id 'marker)
(s-replace "||" "/" (yant/task-fulltitle)))))
(org-link-set-parameters "id"
:desk #'org-id-link-desk)
#+end_src
Best,
Ihor
--
Ihor Radchenko,
PhD,
Center for Advancing Materials Performance from the Nanoscale (CAMP-nano)
State Key Laboratory for Mechanical Behavior of Materials, Xi'an Jiaotong
University, Xi'an, China
Email: address@hidden, address@hidden
- [O] [Feature proposal] Add :description function to org-link-parameters,
Ihor Radchenko <=