TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use file-name-nondirectory to shorten filenames on home buffer

This commit is contained in:
Gregor Olenik 2020-06-22 11:11:02 +02:00 committed by Maximilian Wolff
parent 70441bd088
commit 111e7a6a36
No known key found for this signature in database
GPG Key ID: 2DD07025BFDBD89A
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
core/core-spacemacs-buffer.el
View File

@ -824,6 +824,10 @@ EL: `org-agenda' element to jump to."
(goto-char (match-beginning 4))))
(run-hooks 'org-agenda-after-show-hook))
(defvar spacemacs-org-agenda-display-filename-only nil
"if nil the full path of the org file is displayed.
If non nil only the file name without the path is displayed")
(defun spacemacs-buffer//insert-todo-list (list-display-name list)
"Insert an interactive todo list of `org-agenda' entries in the home buffer.
LIST-DISPLAY-NAME: the displayed title of the list.
@ -851,8 +855,13 @@ LIST: list of `org-agenda' entries in the todo list."
:button-suffix ""
:format "%[%t%]"
(format "%s %s %s"
(abbreviate-file-name
(cdr (assoc "file" el)))
(
let ((filename (cdr (assoc "file" el))))
(
if spacemacs-org-agenda-display-filename-only
(file-name-nondirectory filename)
(abbreviate-file-name filename)
))
(if (not (eq "" (cdr (assoc "time" el))))
(format "- %s -"
(cdr (assoc "time" el)))