mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-29 07:58:21 +00:00
Code

org.el: Allow to customize the way links are displayed.

Browse Source 
(org-link-display-descriptive): New option to customize the
default display of links, either literal or descriptive.
(org-toggle-link-display): New command to toggle link display.
(org-org-menu): Use the new toggle function for links.

Thanks to Reiner Steib for suggesting this.
This commit is contained in:
Bastien Guerry 2011-08-17 15:01:54 +02:00
parent 58f1dbccf8
commit 4774b1b026
1 changed files with 28 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
lisp/org.el
View File

@ -1326,6 +1326,18 @@ description to use."
:group 'org-link :group 'org-link
:type 'function) :type 'function)
(defcustom org-link-display-descriptive t
"Non-nil means Org will display descriptive links.
E.g. [[http://orgmode.org][Org website]] will be displayed as
\"Org Website\", hiding the link itself and just displaying its
description. When set to `nil', Org will display the full links
literally.
You can interactively set the value of this variable using the
`org-toggle-link-display'."
:group 'org-link
:type 'boolean)
(defgroup org-link-store nil (defgroup org-link-store nil
"Options concerning storing links in Org-mode." "Options concerning storing links in Org-mode."
:tag "Org Store Link" :tag "Org Store Link"
@ -18425,14 +18437,14 @@ See the individual commands for more information."
["Previous link" org-previous-link t] ["Previous link" org-previous-link t]
"--" "--"
["Descriptive Links" ["Descriptive Links"
(progn (add-to-invisibility-spec '(org-link)) (org-restart-font-lock)) org-toggle-link-display
:style radio :style radio
:selected (member '(org-link) buffer-invisibility-spec)] :selected org-link-display-descriptive
]
["Literal Links" ["Literal Links"
(progn org-toggle-link-display
(org-remove-from-invisibility-spec '(org-link)) (org-restart-font-lock))
:style radio :style radio
:selected (not (member '(org-link) buffer-invisibility-spec))]) :selected (not org-link-display-descriptive)])
"--" "--"
("TODO Lists" ("TODO Lists"
["TODO/DONE/-" org-todo t] ["TODO/DONE/-" org-todo t]
@ -20489,6 +20501,17 @@ if no description is present"
nil t link) nil t link)
link))) link)))
(defun org-toggle-link-display ()
"Toggle the literal or descriptive display of links."
(interactive)
(if org-link-display-descriptive
(progn (org-remove-from-invisibility-spec '(org-link))
(org-restart-font-lock)
(setq org-link-display-descriptive nil))
(progn (add-to-invisibility-spec '(org-link))
(org-restart-font-lock)
(setq org-link-display-descriptive t))))
;; Speedbar support ;; Speedbar support
(defvar org-speedbar-restriction-lock-overlay (make-overlay 1 1) (defvar org-speedbar-restriction-lock-overlay (make-overlay 1 1)