diff options
author | Feng Shu <tumashu@163.com> | 2019-03-21 12:49:42 +0800 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2019-03-21 21:46:10 +0100 |
commit | 967f6c0dd0da371a71dd22ab9a4a0649332fd2be (patch) | |
tree | 8d81c8b4ebd84cd31aab40a7df8a229a81f92e91 | |
parent | 07d0c9edbc29ed79e6d16c654b562aefaeeca7cb (diff) | |
download | org-mode-967f6c0dd0da371a71dd22ab9a4a0649332fd2be.tar.gz |
org-agenda: Add org-agenda-breadcrumbs-separator
* lisp/org-agenda.el (org-agenda-breadcrumbs-separator): New variable.
(org-agenda-format-item): Use org-agenda-breadcrumbs-separator
* etc/ORG-NEWS (New variable: ~org-agenda-breadcrumbs-separator~): New variable.
-rw-r--r-- | etc/ORG-NEWS | 5 | ||||
-rw-r--r-- | lisp/org-agenda.el | 11 |
2 files changed, 14 insertions, 2 deletions
diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS index a3f0d26..518a6fa 100644 --- a/etc/ORG-NEWS +++ b/etc/ORG-NEWS @@ -241,6 +241,11 @@ The ~:mkdirp~ header argument used to only work for ~:tangle~ tangle files. Now ~:mkdirp~ works for ~:dir~ too. This is more convenient for specify default directory and with ~:file~ header argument. +*** New variable: ~org-agenda-breadcrumbs-separator~ +If breadcrumbs are showed in org-agenda with the help of "%b" format +in ~org-agenda-prefix-format~, user can customize breadcrumbs's +separator using ~org-agenda-breadcrumbs-separator~. + * Version 9.2 ** Incompatible changes *** Removal of OrgStruct mode mode and radio lists diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index baf9c8d..2616947 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -1708,6 +1708,13 @@ Custom commands can set this variable in the options section." :version "26.1" :package-version '(Org . "9.1")) +(defcustom org-agenda-breadcrumbs-separator "->" + "The separator of breadcrumbs in agenda lines." + :group 'org-agenda-line-format + :package-version '(Org . "9.3") + :type 'string + :safe #'stringp) + (defvar org-prefix-format-compiled nil "The compiled prefix format and associated variables. This is a list where first element is a list of variable bindings, and second @@ -6556,8 +6563,8 @@ Any match of REMOVE-RE will be removed from TXT." (setq breadcrumbs (org-with-point-at (org-get-at-bol 'org-marker) (let ((s (org-format-outline-path (org-get-outline-path) (1- (frame-width)) - nil "->"))) - (if (eq "" s) "" (concat s "->")))))) + nil org-agenda-breadcrumbs-separator))) + (if (eq "" s) "" (concat s org-agenda-breadcrumbs-separator)))))) (setq time (cond (s2 (concat (org-agenda-time-of-day-to-ampm-maybe s1) "-" (org-agenda-time-of-day-to-ampm-maybe s2) |