emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed

From: Levin <zslevin@gmail.com>
To: emacs-orgmode@gnu.org
Subject: [PATCH]add a custom function to get date string in agenda
Date: Wed, 12 Sep 2007 11:08:07 +0800	[thread overview]
Message-ID: <200709121108.08018.zslevin@gmail.com> (raw)

I have a special need of customizing date string in agenda (the date format 
string is even not enough because I'd like other date format than Gregorian). 
So I add a custom variable org-agenda-date-string-function,
bind it to org-agenda-date-string to preserve current org behaviour.

Then in my org conf file, I add:
(defun my-org-agenda-date-string (date)
  (...))

(setq org-agenda-date-string-function 'my-org-agenda-date-string)

Hope it helps.
--
Levin

diff --git a/lisp/org/org.el b/lisp/org/org.el
index 97bde49..3f6c9b5 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -2322,6 +2322,15 @@ FIXME: Not used currently, because of timezone 
problem."
   :group 'org-agenda-daily/weekly
   :type 'string)
 
+(defcustom org-agenda-date-string-function
+  'org-agenda-date-string
+  "Function that obtains a string for displaying date in the agenda.
+Used by the daily/weekly agenda and by the timeline.
+
+This function is passed a date and should return a string."
+  :group 'org-agenda-daily/weekly
+  :type 'function)
+
 (defcustom org-agenda-include-diary nil
   "If non-nil, include in the agenda entries from the Emacs Calendar's 
diary."
   :group 'org-agenda-daily/weekly
@@ -17565,6 +17574,12 @@ When a buffer is unmodified, it is just killed.  When 
modified, it is saved
       (or (cdar tbl) (cdr (nth (1- (length org-category-table))
 			       org-category-table))))))
 ;;; Agenda timeline
+(defun org-agenda-date-string (date)
+  (format "%-9s %2d %s %4d\n" 
+          (calendar-day-name date)
+          (extract-calendar-day date)
+          (calendar-month-name (extract-calendar-month date))
+          (extract-calendar-year date)))
 
 (defun org-timeline (&optional include-all)
   "Show a time-sorted view of the entries in the current org file.
@@ -17626,10 +17641,8 @@ dates."
 			      entry date args)))
 	(if (or rtn (equal d today) org-timeline-show-empty-dates)
 	    (progn
-	      (insert (calendar-day-name date) " "
-		      (number-to-string (extract-calendar-day date)) " "
-		      (calendar-month-name (extract-calendar-month date)) " "
-		      (number-to-string (extract-calendar-year date)) "\n")
+              (insert (funcall org-agenda-date-string-function date)
+                      "\n")
 ; FIXME: this gives a timezone problem
 ;	      (insert (format-time-string org-agenda-date-format
 ;					  (calendar-time-from-absolute d 0))
@@ -17806,11 +17819,8 @@ NDAYS defaults to `org-agenda-ndays'."
 	    (setq rtnall (append rtnall rtn))))
       (if (or rtnall org-agenda-show-all-dates)
 	  (progn
-	    (insert (format "%-9s %2d %s %4d\n"
-			    (calendar-day-name date)
-			    (extract-calendar-day date)
-			    (calendar-month-name (extract-calendar-month date))
-			    (extract-calendar-year date)))
+	    (insert (funcall org-agenda-date-string-function date)
+                    "\n")
 ; FIXME: this gives a timezone problem
 ;	    (insert (format-time-string org-agenda-date-format
 ;					(calendar-time-from-absolute d 0)) "\n")

next             reply	other threads:[~2007-09-12  3:09 UTC|newest]

Thread overview: 3+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2007-09-12  3:08 Levin [this message]
2007-09-12 21:17 ` [PATCH]add a custom function to get date string in agenda Carsten Dominik
2007-09-13  0:45   ` Levin

find likely ancestor, descendant, or conflicting patches for this message:
( dfblob:97bde49 dfblob:3f6c9b5 )
 OR (
bs:"[PATCH]add a custom function to get date string in agenda" )
	(help)

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=200709121108.08018.zslevin@gmail.com \
    --to=zslevin@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).