tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-colview: Remove `org-columns-compact-links' 

* lisp/org-colview.el (org-columns--displayed-value): Use
  `org-link-display-format' instead.
This commit is contained in:
Nicolas Goaziou 2018-12-02 14:03:53 +01:00
parent a253f4f7ff
commit df7b8cdf70
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org-colview.el
View File

@ -247,7 +247,7 @@ display, as a string."
(concat (make-string (1- (org-current-level))
(if org-hide-leading-stars ?\s ?*))
"* "
(org-columns-compact-links value)))
(org-link-display-format value)))
(`(,_ ,_ ,_ ,_ nil) value)
;; If PRINTF is set, assume we are displaying a number and
;; obey to the format string.
@ -501,14 +501,6 @@ for the duration of the command.")
(when (local-variable-p 'org-colview-initial-truncate-line-value)
(setq truncate-lines org-colview-initial-truncate-line-value))))
(defun org-columns-compact-links (s)
"Replace [[link][desc]] with [desc] or [link]."
(while (string-match org-bracket-link-regexp s)
(setq s (replace-match
(concat "[" (match-string (if (match-end 3) 3 1) s) "]")
t t s)))
s)
(defun org-columns-show-value ()
"Show the full value of the property."
(interactive)