mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-26 17:30:46 +00:00
ol.el: New option to set org-link-file-path-type to a function
* lisp/ol.el (org-link-file-path-type): Add new option. (org-insert-link): Handle function option for org-link-file-path-type.
This commit is contained in:
parent
e9c3993ee5
commit
5371b30fe5
18
etc/ORG-NEWS
18
etc/ORG-NEWS
|
@ -35,6 +35,24 @@ omit a file description was to omit the header argument entirely,
|
|||
which made it difficult/impossible to provide a default value for
|
||||
=file-desc=.
|
||||
|
||||
*** New option to set ~org-link-file-path-type~ to a function
|
||||
|
||||
~org-link-file-path-type~ can now be set to a function that takes the
|
||||
full filename as an argument and returns the path to link to.
|
||||
|
||||
For example, if you use ~project.el~, you can set this function to use
|
||||
relative links within a project as follows:
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
(setq (org-link-file-path-type
|
||||
(lambda (path)
|
||||
(let* ((proj (project-current))
|
||||
(root (if proj (project-root proj) default-directory)))
|
||||
(if (string-prefix-p (expand-file-name root) path)
|
||||
(file-relative-name path)
|
||||
(abbreviate-file-name path))))))
|
||||
#+end_src
|
||||
|
||||
** New features
|
||||
*** =ob-python= improvements to =:return= header argument
|
||||
|
||||
|
|
12
lisp/ol.el
12
lisp/ol.el
|
@ -212,13 +212,18 @@ relative Relative to the current directory, i.e. the directory of the file
|
|||
absolute Absolute path, if possible with ~ for home directory.
|
||||
noabbrev Absolute path, no abbreviation of home directory.
|
||||
adaptive Use relative path for files in the current directory and sub-
|
||||
directories of it. For other files, use an absolute path."
|
||||
directories of it. For other files, use an absolute path.
|
||||
|
||||
Alternatively, users may supply a custom function that takes the
|
||||
full filename as an argument and returns the path."
|
||||
:group 'org-link
|
||||
:type '(choice
|
||||
(const relative)
|
||||
(const absolute)
|
||||
(const noabbrev)
|
||||
(const adaptive))
|
||||
(const adaptive)
|
||||
(function))
|
||||
:package-version '(Org . "9.5")
|
||||
:safe #'symbolp)
|
||||
|
||||
(defcustom org-link-abbrev-alist nil
|
||||
|
@ -1876,6 +1881,9 @@ Use TAB to complete link prefixes, then RET for type-specific completion support
|
|||
(setq path (expand-file-name path)))
|
||||
((eq org-link-file-path-type 'relative)
|
||||
(setq path (file-relative-name path)))
|
||||
((functionp org-link-file-path-type)
|
||||
(setq path (funcall org-link-file-path-type
|
||||
(expand-file-name path))))
|
||||
(t
|
||||
(save-match-data
|
||||
(if (string-match (concat "^" (regexp-quote
|
||||
|
|
Loading…
Reference in a new issue