mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-28 07:44:49 +00:00
Code

ISO weeks date support, and fast agenda jumping.

Browse Source 
ISO week dates can now be entered at the date prompt.
The ISO week of each day is displayed in the agenda.
New jumping commands like `43 w' quickly switch the agenda
to a certain week.
This commit is contained in:
Carsten Dominik 2008-03-20 08:42:41 +01:00
parent ee330492da
commit 16e15ecd82
4 changed files with 225 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ChangeLog
View File

@ -1,7 +1,23 @@
2008-03-20 Carsten Dominik <dominik@science.uva.nl>
* org.el (org-small-year-to-year): New function.
2008-03-18 Carsten Dominik <dominik@science.uva.nl> 2008-03-18 Carsten Dominik <dominik@science.uva.nl>
* org.el (org-clock-find-position): Handle special case at end of * org.el (org-clock-find-position): Handle special case at end of
buffer. buffer.
(org-agenda-day-view): New argument DAY-OF-YEAR, pass it on to
`org-agenda-change-time-span'.
(org-agenda-week-view): New argument ISO-WEEK, pass it on to
`org-agenda-change-time-span'.
(org-agenda-month-view): New argument MONTH, pass it on to
`org-agenda-change-time-span'.
(org-agenda-year-view): New argument YEAR, pass it on to
`org-agenda-change-time-span'.
(org-agenda-change-time-span): New optional argument N, pass it on
to `org-agenda-compute-time-span'.
(org-agenda-compute-time-span): New argument N, interpret it by
changing the starting day.
2008-03-17 Carsten Dominik <dominik@science.uva.nl> 2008-03-17 Carsten Dominik <dominik@science.uva.nl>

42
ORGWEBPAGE/Changes.org
View File

@ -9,6 +9,48 @@
** Details ** Details
*** Suport for ISO week dates (RFC odder ISO number???)
Dates in the agenda now show the ISO week an day
specification, in the form =W08 2=, meaning Tuesday of
week 2.
The keys =d=, =w=, =m=, and =y= in the agenda view now accept
prefix arguments. Remember that in the agenda, you can
directly type a prefix argument by typing a number, no need
to press =C-u= first. The prefix argument may be used to
jump directly to a specific day of the year, ISO week, month,
or year, respectively. For example, =32 d= jumps to February
1st, =9 w= to ISO week number 9. When setting day, week, or
month view, a year may be encoded in the prefix argument as
well. For example, =200712 w= will jump to week 12 in
2007. If such a year specification has only one or two
digits, it will be mapped to the interval 1938-2037.
When entering a date at the date prompt, you may now also
specify an ISO week. For example
: w4 Monday of week 4
: fri w4 Friday of week 4
: w4-5 Same as above
: 2012 w4 fri Friday of week 4 in 2012.
: 2012-W04-5 Same as above
So far I have not implements the effect of
`org-read-date-prefer-future' on this functionality, because
it seemed too magic for me. I'd appreciate comments on this
issue: Should `org-read-date-prefer-future' also push dates
into the next year if the week you are entering has already
passed in the current year? For consistency I guess this
should be the case, but I cannot quite wrap my head around
it.
I hope but am not entirely convinced that this will behave
sanely also during the first/last week of a year. Please
test extensively and report back.
This was a request by Thomas Baumann.
*** Loading modules *** Loading modules
Org-mode has now a system for loading modules by simply Org-mode has now a system for loading modules by simply

216
org.el
View File

@ -5,7 +5,7 @@
;; Author: Carsten Dominik <carsten at orgmode dot org> ;; Author: Carsten Dominik <carsten at orgmode dot org>
;; Keywords: outlines, hypermedia, calendar, wp ;; Keywords: outlines, hypermedia, calendar, wp
;; Homepage: http://orgmode.org ;; Homepage: http://orgmode.org
;; Version: 5.23a-test ;; Version: 5.23a++
;; ;;
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
;; ;;
@ -84,7 +84,7 @@
;;; Version ;;; Version
(defconst org-version "5.23a-test" (defconst org-version "5.23a++"
"The version number of the file org.el.") "The version number of the file org.el.")
(defun org-version (&optional here) (defun org-version (&optional here)
@ -163,7 +163,7 @@ With prefix arg HERE, insert it at point."
(defun org-load-modules-maybe (&optional force) (defun org-load-modules-maybe (&optional force)
"Load all extensions listed in `org-default-extensions'." "Load all extensions listed in `org-default-extensions'."
(when (or force (not org-modules-loaded)) (when (or force (not org-modules-loaded))
(mapc (lambda (ext) (mapc (lambda (ext)
(condition-case nil (require ext) (condition-case nil (require ext)
(error (message "Problems while trying to load feature `%s'" ext)))) (error (message "Problems while trying to load feature `%s'" ext))))
org-modules) org-modules)
@ -1572,7 +1572,7 @@ given in the variable `org-remember-default-headline'.
An optional sixth element specifies the contexts in which the user can An optional sixth element specifies the contexts in which the user can
select the template. This element can be either a list of major modes select the template. This element can be either a list of major modes
or a function. `org-remember' will first check whether the function or a function. `org-remember' will first check whether the function
returns `t' or if we are in any of the listed major mode, and select returns `t' or if we are in any of the listed major mode, and select
the template accordingly. the template accordingly.
The template specifies the structure of the remember buffer. It should have The template specifies the structure of the remember buffer. It should have
@ -2007,7 +2007,7 @@ It is not recommended to change this constant.")
These are two values, the first applies when first creating a time stamp. These are two values, the first applies when first creating a time stamp.
The second applies when changing it with the commands `S-up' and `S-down'. The second applies when changing it with the commands `S-up' and `S-down'.
When changing the time stamp, this means that it will change in steps When changing the time stamp, this means that it will change in steps
of N minues, as given by the second value. of N minues, as given by the second value.
When a setting is 0 or 1, insert the time unmodified. Useful rounding When a setting is 0 or 1, insert the time unmodified. Useful rounding
numbers should be factors of 60, so for example 5, 10, 15. numbers should be factors of 60, so for example 5, 10, 15.
@ -2069,6 +2069,8 @@ This affects the following situations:
For example, if it is april and you enter \"feb 2\", this will be read For example, if it is april and you enter \"feb 2\", this will be read
as feb 2, *next* year. \"May 5\", however, will be this year. as feb 2, *next* year. \"May 5\", however, will be this year.
Currently this does not work for ISO week specifications.
When this option is nil, the current month and year will always be used When this option is nil, the current month and year will always be used
as defaults." as defaults."
:group 'org-time :group 'org-time
@ -2448,7 +2450,7 @@ you can \"misuse\" it to also add other text to the header. However,
(const org-agenda-files) (const org-agenda-files)
(list (list
(const :format "" quote) (const :format "" quote)
(repeat (repeat
(file)))) (file))))
(list :tag "Sorting strategy" (list :tag "Sorting strategy"
(const org-agenda-sorting-strategy) (const org-agenda-sorting-strategy)
@ -2614,7 +2616,7 @@ should provide a description for the prefix, like
(list :tag "Stuck projects" (list :tag "Stuck projects"
(const :format "" stuck) (const :format "" stuck)
(const :tag "" :format "" "") (const :tag "" :format "" "")
,org-agenda-custom-commands-local-options) ,org-agenda-custom-commands-local-options)
(list :tag "Tags search" (list :tag "Tags search"
(const :format "" tags) (const :format "" tags)
(string :tag "Match") (string :tag "Match")
@ -2870,11 +2872,30 @@ a calendar-style date list like (month day year)."
(defun org-agenda-format-date-aligned (date) (defun org-agenda-format-date-aligned (date)
"Format a date string for display in the daily/weekly agenda, or timeline. "Format a date string for display in the daily/weekly agenda, or timeline.
This function makes sure that dates are aligned for easy reading." This function makes sure that dates are aligned for easy reading."
(format "%-9s %2d %s %4d" (let* ((dayname (calendar-day-name date))
(calendar-day-name date) (day (extract-calendar-day date))
(extract-calendar-day date) (day-of-week0 (calendar-day-of-week date))
(calendar-month-name (extract-calendar-month date)) (day-of-week (if (= day-of-week0 0) 7 day-of-week0))
(extract-calendar-year date))) (month (extract-calendar-month date))
(monthname (calendar-month-name month))
(year (extract-calendar-year date))
(iso-week (string-to-number
(format-time-string
"%V" (calendar-time-from-absolute
(calendar-absolute-from-gregorian date) 1))))
(weekyear (cond ((and (= month 1) (>= iso-week 52))
(1- year))
((and (= month 12) (<= iso-week 1))
(1+ year))
(t year)))
(weekstring (if (= year weekyear)
(format "W%02d %d" iso-week day-of-week)
(format "%4d-W%02d %d" weekyear iso-week day-of-week))))
(setq weekstring (concat (make-string (max 0 (- 12 (length monthname)))
?\ )
weekstring))
(format "%-9s %2d %s %4d %s"
dayname day monthname year weekstring)))
(defcustom org-agenda-include-diary nil (defcustom org-agenda-include-diary nil
"If non-nil, include in the agenda entries from the Emacs Calendar's diary." "If non-nil, include in the agenda entries from the Emacs Calendar's diary."
@ -12135,7 +12156,7 @@ type. For a simple example of an export function, see `org-bbdb.el'."
(if (assoc type org-link-protocols) (if (assoc type org-link-protocols)
(setcdr (assoc type org-link-protocols) (list follow export)) (setcdr (assoc type org-link-protocols) (list follow export))
(push (list type follow export) org-link-protocols))) (push (list type follow export) org-link-protocols)))
(defun org-add-agenda-custom-command (entry) (defun org-add-agenda-custom-command (entry)
"Replace or add a command in `org-agenda-custom-commands'. "Replace or add a command in `org-agenda-custom-commands'.
@ -13300,12 +13321,12 @@ RET at beg-of-buf -> Append to file as level 2 headline
;; If no template at this point, add the default templates: ;; If no template at this point, add the default templates:
(pre-selected-templates1 (pre-selected-templates1
(if (not (delq nil pre-selected-templates)) (if (not (delq nil pre-selected-templates))
(mapcar (lambda(x) (if (not (nth 5 x)) x)) (mapcar (lambda(x) (if (not (nth 5 x)) x))
org-remember-templates) org-remember-templates)
pre-selected-templates)) pre-selected-templates))
;; Then unconditionnally add template for any contexts ;; Then unconditionnally add template for any contexts
(pre-selected-templates2 (pre-selected-templates2
(append (mapcar (lambda(x) (if (eq (nth 5 x) t) x)) (append (mapcar (lambda(x) (if (eq (nth 5 x) t) x))
org-remember-templates) org-remember-templates)
(delq nil pre-selected-templates1))) (delq nil pre-selected-templates1)))
(templates (mapcar (lambda (x) (templates (mapcar (lambda (x)
@ -14057,7 +14078,7 @@ the property list including an extra property :name with the block name."
(error "Dynamic block not terminated")) (error "Dynamic block not terminated"))
(setq params (setq params
(append params (append params
(list :content (buffer-substring (list :content (buffer-substring
begdel (match-beginning 0))))) begdel (match-beginning 0)))))
(delete-region begdel (match-beginning 0)) (delete-region begdel (match-beginning 0))
(goto-char begdel) (goto-char begdel)
@ -14664,7 +14685,7 @@ This function is run automatically after each state change to a DONE state."
(while (< (time-to-days time) (time-to-days (current-time))) (while (< (time-to-days time) (time-to-days (current-time)))
(when (= (incf nshift) nshiftmax) (when (= (incf nshift) nshiftmax)
(or (y-or-n-p (message "%d repeater intervals were not enough to shift date past today. Continue? " nshift)) (or (y-or-n-p (message "%d repeater intervals were not enough to shift date past today. Continue? " nshift))
(error "Abort"))) (error "Abort")))
(org-timestamp-change n (cdr (assoc what whata))) (org-timestamp-change n (cdr (assoc what whata)))
(sit-for .0001) ;; so we can watch the date shifting (sit-for .0001) ;; so we can watch the date shifting
(org-at-timestamp-p t) (org-at-timestamp-p t)
@ -14762,7 +14783,7 @@ be removed."
default-input (and ts (org-get-compact-tod ts)))))) default-input (and ts (org-get-compact-tod ts))))))
(when what (when what
;; If necessary, get the time from the user ;; If necessary, get the time from the user
(setq time (or time (org-read-date nil 'to-time nil nil (setq time (or time (org-read-date nil 'to-time nil nil
default-time default-input)))) default-time default-input))))
(when (and org-insert-labeled-timestamps-at-point (when (and org-insert-labeled-timestamps-at-point
@ -17651,7 +17672,8 @@ user."
"Analyze the combined answer of the date prompt." "Analyze the combined answer of the date prompt."
;; FIXME: cleanup and comment ;; FIXME: cleanup and comment
(let (delta deltan deltaw deltadef year month day (let (delta deltan deltaw deltadef year month day
hour minute second wday pm h2 m2 tl wday1) hour minute second wday pm h2 m2 tl wday1
iso-year iso-weekday iso-week iso-year)
(when (setq delta (org-read-date-get-relative ans (current-time) def)) (when (setq delta (org-read-date-get-relative ans (current-time) def))
(setq ans (replace-match "" t t ans) (setq ans (replace-match "" t t ans)
@ -17659,6 +17681,15 @@ user."
deltaw (nth 1 delta) deltaw (nth 1 delta)
deltadef (nth 2 delta))) deltadef (nth 2 delta)))
;; Check if there is an iso week date in there
;; If yes, sore the info and ostpone interpreting it until the rest
;; of the parsing is done
(when (string-match "\\<\\(?:\\([0-9]+\\)-\\)?[wW]\\([0-9]\\{1,2\\}\\)\\(?:-\\([0-6]\\)\\)?\\([ \t]\\|$\\)" ans)
(setq iso-year (if (match-end 1) (org-small-year-to-year (string-to-number (match-string 1 ans))))
iso-weekday (if (match-end 3) (string-to-number (match-string 3 ans)))
iso-week (string-to-number (match-string 2 ans)))
(setq ans (replace-match "" t t ans)))
;; Help matching ISO dates with single digit month ot day, like 2006-8-11. ;; Help matching ISO dates with single digit month ot day, like 2006-8-11.
(when (string-match (when (string-match
"^ *\\(\\([0-9]+\\)-\\)?\\([0-1]?[0-9]\\)-\\([0-3]?[0-9]\\)\\([^-0-9]\\|$\\)" ans) "^ *\\(\\([0-9]+\\)-\\)?\\([0-1]?[0-9]\\)-\\([0-3]?[0-9]\\)\\([^-0-9]\\|$\\)" ans)
@ -17693,9 +17724,11 @@ user."
(setq hour (string-to-number (match-string 1 ans)) (setq hour (string-to-number (match-string 1 ans))
h2 (+ hour (string-to-number (match-string 3 ans))) h2 (+ hour (string-to-number (match-string 3 ans)))
minute (string-to-number (match-string 2 ans)) minute (string-to-number (match-string 2 ans))
m2 (+ minute (if (match-end 5) (string-to-number (match-string 5 ans))0))) m2 (+ minute (if (match-end 5) (string-to-number
(match-string 5 ans))0)))
(if (>= m2 60) (setq h2 (1+ h2) m2 (- m2 60))) (if (>= m2 60) (setq h2 (1+ h2) m2 (- m2 60)))
(setq ans (replace-match (format "%02d:%02d-%02d:%02d" hour minute h2 m2) t t ans))) (setq ans (replace-match (format "%02d:%02d-%02d:%02d" hour minute h2 m2)
t t ans)))
;; Check if there is a time range ;; Check if there is a time range
(when (boundp 'org-end-time-was-given) (when (boundp 'org-end-time-was-given)
@ -17722,7 +17755,30 @@ user."
minute (or (nth 1 tl) (nth 1 defdecode)) minute (or (nth 1 tl) (nth 1 defdecode))
second (or (nth 0 tl) 0) second (or (nth 0 tl) 0)
wday (nth 6 tl)) wday (nth 6 tl))
(when deltan
;; Special date definitions below
(cond
(iso-week
;; There was an iso week
(setq year (or iso-year year)
day (or iso-weekday wday 1)
wday nil ; to make sure that the trigger below does not match
iso-date (calendar-gregorian-from-absolute
(calendar-absolute-from-iso
(list iso-week day year))))
; FIXME: Should we also push ISO weeks into the future?
; (when (and org-read-date-prefer-future
; (not iso-year)
; (< (calendar-absolute-from-gregorian iso-date)
; (time-to-days (current-time))))
; (setq year (1+ year)
; iso-date (calendar-gregorian-from-absolute
; (calendar-absolute-from-iso
; (list iso-week day year)))))
(setq month (car iso-date)
year (nth 2 iso-date)
day (nth 1 iso-date)))
(deltan
(unless deltadef (unless deltadef
(let ((now (decode-time (current-time)))) (let ((now (decode-time (current-time))))
(setq day (nth 3 now) month (nth 4 now) year (nth 5 now)))) (setq day (nth 3 now) month (nth 4 now) year (nth 5 now))))
@ -17730,12 +17786,12 @@ user."
((equal deltaw "w") (setq day (+ day (* 7 deltan)))) ((equal deltaw "w") (setq day (+ day (* 7 deltan))))
((equal deltaw "m") (setq month (+ month deltan))) ((equal deltaw "m") (setq month (+ month deltan)))
((equal deltaw "y") (setq year (+ year deltan))))) ((equal deltaw "y") (setq year (+ year deltan)))))
(when (and wday (not (nth 3 tl))) ((and wday (not (nth 3 tl)))
;; Weekday was given, but no day, so pick that day in the week ;; Weekday was given, but no day, so pick that day in the week
;; on or after the derived date. ;; on or after the derived date.
(setq wday1 (nth 6 (decode-time (encode-time 0 0 0 day month year)))) (setq wday1 (nth 6 (decode-time (encode-time 0 0 0 day month year))))
(unless (equal wday wday1) (unless (equal wday wday1)
(setq day (+ day (% (- wday wday1 -7) 7))))) (setq day (+ day (% (- wday wday1 -7) 7))))))
(if (and (boundp 'org-time-was-given) (if (and (boundp 'org-time-was-given)
(nth 2 tl)) (nth 2 tl))
(setq org-time-was-given t)) (setq org-time-was-given t))
@ -18412,12 +18468,12 @@ in the timestamp determines what will be changed."
(setq ng 6 new (car (rassoc (+ n (cdr (assoc (match-string 6 s) idx))) idx)))) (setq ng 6 new (car (rassoc (+ n (cdr (assoc (match-string 6 s) idx))) idx))))
((org-pos-in-match-range pos 5) ((org-pos-in-match-range pos 5)
(setq ng 5 new (format "%d" (max 1 (+ n (string-to-number (match-string 5 s))))))) (setq ng 5 new (format "%d" (max 1 (+ n (string-to-number (match-string 5 s)))))))
((org-pos-in-match-range pos 9) ((org-pos-in-match-range pos 9)
(setq ng 9 new (car (rassoc (+ n (cdr (assoc (match-string 9 s) idx))) idx)))) (setq ng 9 new (car (rassoc (+ n (cdr (assoc (match-string 9 s) idx))) idx))))
((org-pos-in-match-range pos 8) ((org-pos-in-match-range pos 8)
(setq ng 8 new (format "%d" (max 0 (+ n (string-to-number (match-string 8 s)))))))) (setq ng 8 new (format "%d" (max 0 (+ n (string-to-number (match-string 8 s))))))))
(when ng (when ng
(setq s (concat (setq s (concat
(substring s 0 (match-beginning ng)) (substring s 0 (match-beginning ng))
@ -22531,36 +22587,51 @@ With prefix ARG, go backward that many times the current span."
(interactive "p") (interactive "p")
(org-agenda-later (- arg))) (org-agenda-later (- arg)))
(defun org-agenda-day-view () (defun org-agenda-day-view (&optional day-of-year)
"Switch to daily view for agenda." "Switch to daily view for agenda.
(interactive) With argument DAY-OF-YEAR, switch to that day of the year."
(interactive "P")
(setq org-agenda-ndays 1) (setq org-agenda-ndays 1)
(org-agenda-change-time-span 'day)) (org-agenda-change-time-span 'day day-of-year))
(defun org-agenda-week-view () (defun org-agenda-week-view (&optional iso-week)
"Switch to daily view for agenda." "Switch to daily view for agenda.
(interactive) With argument ISO-WEEK, switch to the corresponding ISO week.
If ISO-WEEK has more then 2 digits, only the last two encode the
week. Any digits before this encode a year. So 200712 means
week 12 of year 2007. Years in the range 1938-2037 can also be
written as 2-digit years."
(interactive "P")
(setq org-agenda-ndays 7) (setq org-agenda-ndays 7)
(org-agenda-change-time-span 'week)) (org-agenda-change-time-span 'week iso-week))
(defun org-agenda-month-view () (defun org-agenda-month-view (&optional month)
"Switch to daily view for agenda." "Switch to daily view for agenda.
(interactive) With argument MONTH, switch to that month."
(org-agenda-change-time-span 'month)) (interactive "P")
(defun org-agenda-year-view () ;; FIXME: allow month like 812 to mean 2008 december
"Switch to daily view for agenda." (org-agenda-change-time-span 'month month))
(interactive) (defun org-agenda-year-view (&optional year)
"Switch to daily view for agenda.
With argument YEAR, switch to that year.
If MONTH has more then 2 digits, only the last two encode the
month. Any digits before this encode a year. So 200712 means
December year 2007. Years in the range 1938-2037 can also be
written as 2-digit years."
(interactive "P")
(when year
(setq year (org-small-year-to-year year)))
(if (y-or-n-p "Are you sure you want to compute the agenda for an entire year? ") (if (y-or-n-p "Are you sure you want to compute the agenda for an entire year? ")
(org-agenda-change-time-span 'year) (org-agenda-change-time-span 'year year)
(error "Abort"))) (error "Abort")))
(defun org-agenda-change-time-span (span) (defun org-agenda-change-time-span (span &optional n)
"Change the agenda view to SPAN. "Change the agenda view to SPAN.
SPAN may be `day', `week', `month', `year'." SPAN may be `day', `week', `month', `year'."
(org-agenda-check-type t 'agenda) (org-agenda-check-type t 'agenda)
(if (equal org-agenda-span span) (if (and (not n) (equal org-agenda-span span))
(error "Viewing span is already \"%s\"" span)) (error "Viewing span is already \"%s\"" span))
(let* ((sd (or (get-text-property (point) 'day) (let* ((sd (or (get-text-property (point) 'day)
org-starting-day)) org-starting-day))
(computed (org-agenda-compute-time-span sd span)) (computed (org-agenda-compute-time-span sd span n))
(org-agenda-overriding-arguments (org-agenda-overriding-arguments
(list (car org-agenda-last-arguments) (list (car org-agenda-last-arguments)
(car computed) (cdr computed) t))) (car computed) (cdr computed) t)))
@ -22569,15 +22640,22 @@ SPAN may be `day', `week', `month', `year'."
(org-agenda-set-mode-name) (org-agenda-set-mode-name)
(message "Switched to %s view" span)) (message "Switched to %s view" span))
(defun org-agenda-compute-time-span (sd span) (defun org-agenda-compute-time-span (sd span n)
"Compute starting date and number of days for agenda. "Compute starting date and number of days for agenda.
SPAN may be `day', `week', `month', `year'. The return value SPAN may be `day', `week', `month', `year'. The return value
is a cons cell with the starting date and the number of days, is a cons cell with the starting date and the number of days,
so that the date SD will be in that range." so that the date SD will be in that range."
(let* ((greg (calendar-gregorian-from-absolute sd)) (let* ((greg (calendar-gregorian-from-absolute sd))
nd) (dg (nth 1 greg))
(mg (car greg))
(yg (nth 2 greg))
nd w1 y1 m1 thisweek)
(cond (cond
((eq span 'day) ((eq span 'day)
(when n
(setq sd (+ (calendar-absolute-from-gregorian
(list mg 1 yg))
n -1)))
(setq nd 1)) (setq nd 1))
((eq span 'week) ((eq span 'week)
(let* ((nt (calendar-day-of-week (let* ((nt (calendar-day-of-week
@ -22586,21 +22664,45 @@ so that the date SD will be in that range."
(- nt org-agenda-start-on-weekday) (- nt org-agenda-start-on-weekday)
0))) 0)))
(setq sd (- sd (+ (if (< d 0) 7 0) d))) (setq sd (- sd (+ (if (< d 0) 7 0) d)))
(when n
(require 'cal-iso)
(setq thisweek (car (calendar-iso-from-absolute sd)))
(when (> n 99)
(setq y1 (org-small-year-to-year (/ n 100))
n (mod n 100)))
(setq sd
(calendar-absolute-from-iso
(list n 1
(or y1 (nth 2 (calendar-iso-from-absolute sd)))))))
(setq nd 7))) (setq nd 7)))
((eq span 'month) ((eq span 'month)
(when (and n (> n 99))
(setq y1 (org-small-year-to-year (/ n 100))
n (mod n 100)))
(setq sd (calendar-absolute-from-gregorian (setq sd (calendar-absolute-from-gregorian
(list (car greg) 1 (nth 2 greg))) (list (or n mg) 1 (or y1 yg)))
nd (- (calendar-absolute-from-gregorian nd (- (calendar-absolute-from-gregorian
(list (1+ (car greg)) 1 (nth 2 greg))) (list (1+ (or n mg)) 1 (or y1 yg)))
sd))) sd)))
((eq span 'year) ((eq span 'year)
(setq sd (calendar-absolute-from-gregorian (setq sd (calendar-absolute-from-gregorian
(list 1 1 (nth 2 greg))) (list 1 1 (or n yg)))
nd (- (calendar-absolute-from-gregorian nd (- (calendar-absolute-from-gregorian
(list 1 1 (1+ (nth 2 greg)))) (list 1 1 (1+ (or n yg))))
sd)))) sd))))
(cons sd nd))) (cons sd nd)))
(defun org-small-year-to-year (year)
"Convert 2-digit years into 4-digit years.
38-99 are mapped into 1938-1999. 1-37 are mapped into 2001-2007.
The year 2000 cannot be abbreviated. Any year lager than 99
is retrned unchanged."
(if (< year 38)
(setq year (+ 2000 year))
(if (< year 100)
(setq year (+ 1900 year))))
year)
;; FIXME: does not work if user makes date format that starts with a blank ;; FIXME: does not work if user makes date format that starts with a blank
(defun org-agenda-next-date-line (&optional arg) (defun org-agenda-next-date-line (&optional arg)
"Jump to the next line indicating a date in agenda buffer." "Jump to the next line indicating a date in agenda buffer."
@ -25220,7 +25322,7 @@ PUB-DIR is set, use this as the publishing directory."
(>= (org-end-of-subtree t t) (region-end)))))) (>= (org-end-of-subtree t t) (region-end))))))
;; The following two are dynamically scoped into other ;; The following two are dynamically scoped into other
;; routines below. ;; routines below.
(org-current-export-dir (org-current-export-dir
(or pub-dir (org-export-directory :html opt-plist))) (or pub-dir (org-export-directory :html opt-plist)))
(org-current-export-file buffer-file-name) (org-current-export-file buffer-file-name)
(level 0) (line "") (origline "") txt todo (level 0) (line "") (origline "") txt todo
@ -25615,10 +25717,10 @@ lang=\"%s\" xml:lang=\"%s\">
(if (not valid) (setq rpl desc)))) (if (not valid) (setq rpl desc))))
((functionp (setq fnc (nth 2 (assoc type org-link-protocols)))) ((functionp (setq fnc (nth 2 (assoc type org-link-protocols))))
(setq rpl (setq rpl
(save-match-data (save-match-data
(funcall fnc (org-link-unescape path) desc1 'html)))) (funcall fnc (org-link-unescape path) desc1 'html))))
(t (t
;; just publish the path, as default ;; just publish the path, as default
(setq rpl (concat "<i>&lt;" type ":" (setq rpl (concat "<i>&lt;" type ":"
@ -25626,7 +25728,7 @@ lang=\"%s\" xml:lang=\"%s\">
"&gt;</i>")))) "&gt;</i>"))))
(setq line (replace-match rpl t t line) (setq line (replace-match rpl t t line)
start (+ start (length rpl)))) start (+ start (length rpl))))
;; TODO items ;; TODO items
(if (and (string-match org-todo-line-regexp line) (if (and (string-match org-todo-line-regexp line)
(match-beginning 2)) (match-beginning 2))
@ -27466,7 +27568,7 @@ to normal lines."
(if (looking-at "\\([ \t]*\\)\\(\\S-\\)") (if (looking-at "\\([ \t]*\\)\\(\\S-\\)")
(replace-match "\\1- \\2"))) (replace-match "\\1- \\2")))
(beginning-of-line 2)))))) (beginning-of-line 2))))))
(defun org-toggle-region-headings (beg end) (defun org-toggle-region-headings (beg end)
"Convert all lines in region to list items. "Convert all lines in region to list items.
If the first line is already an item, convert all list items in the region If the first line is already an item, convert all list items in the region
@ -27495,7 +27597,7 @@ to normal lines."
(if (looking-at "\\([ \t]*\\)\\(\\S-\\)") (if (looking-at "\\([ \t]*\\)\\(\\S-\\)")
(replace-match rpl))) (replace-match rpl)))
(beginning-of-line 2))))))) (beginning-of-line 2)))))))
(defun org-meta-return (&optional arg) (defun org-meta-return (&optional arg)
"Insert a new heading or wrap a region in a table. "Insert a new heading or wrap a region in a table.
Calls `org-insert-heading' or `org-table-wrap-region', depending on context. Calls `org-insert-heading' or `org-table-wrap-region', depending on context.

9
org.texi
View File

@ -5451,7 +5451,14 @@ Delete other windows.
@item d w m y @item d w m y
Switch to day/week/month/year view. When switching to day or week view, Switch to day/week/month/year view. When switching to day or week view,
this setting becomes the default for subseqent agenda commands. Since this setting becomes the default for subseqent agenda commands. Since
month and year views are slow to create, the do not become the default. month and year views are slow to create, they do not become the default.
A numeric prefix argument may be used to jump directly to a specific day
of the year, ISO week, month, or year, respectively. For example,
@kbd{32 d} jumps to February 1st, @kbd{9 w} to ISO week number 9. When
setting day, week, or month view, a year may be encoded in the prefix
argument as well. For example, @kbd{200712 w} will jump to week 12 in
2007. If such a year specification has only one or two digits, it will
be mapped to the interval 1938-2037.
@c @c
@kindex D @kindex D
@item D @item D