summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFeng Shu <tumashu@163.com>2019-03-21 12:49:42 +0800
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2019-03-21 21:46:10 +0100
commit967f6c0dd0da371a71dd22ab9a4a0649332fd2be (patch)
tree8d81c8b4ebd84cd31aab40a7df8a229a81f92e91
parent07d0c9edbc29ed79e6d16c654b562aefaeeca7cb (diff)
downloadorg-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-NEWS5
-rw-r--r--lisp/org-agenda.el11
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)