calendar problem: week number

calendar problem: week number

[Werner LEMBERG]

[-- Attachment #1: Type: Text/Plain, Size: 312 bytes --]


Companies in German are used to refer to the `Kalenderwoche' (the
current number of the week counted from the beginning of the year).
For example, this week is the 32nd week.  Can I configure `calendar'
to make it display, eg., like in the attached image?  I haven't found
a hint in the info file.


    Werner

[-- Attachment #2: calendar-week.png --]
[-- Type: Image/Png, Size: 10128 bytes --]

Re: calendar problem: week number

[Tassilo Horn]

On Thursday 07 August 2008 11:15:11 Werner LEMBERG wrote:

Hi Werner,

> Companies in German are used to refer to the `Kalenderwoche' (the
> current number of the week counted from the beginning of the year).
> For example, this week is the 32nd week.  Can I configure `calendar'
> to make it display, eg., like in the attached image?  I haven't found
> a hint in the info file.

I use this custom code to do that:

--8<---------------cut here---------------start------------->8---
(add-to-list 'calendar-mode-line-format
             '(let ((day (nth 1 date))
                    (month (nth 0 date))
                    (year (nth 2 date)))
                (format-time-string "Week of year: %V"
                                    (encode-time 1 1 1 day month 
year))))
--8<---------------cut here---------------end--------------->8---

Bye,
Tassilo

Re: calendar problem: week number

[tomas]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On Thu, Aug 07, 2008 at 11:15:11AM +0200, Werner LEMBERG wrote:
> 
> Companies in German are used to refer to the `Kalenderwoche' (the
> current number of the week counted from the beginning of the year).
> For example, this week is the 32nd week.  Can I configure `calendar'
> to make it display, eg., like in the attached image?  I haven't found
> a hint in the info file.

Typing 'p c' shows you the ISO date, with week number, which should be
the same as the German 'Kalenderwoche' (AFAIK it's all ISO 8601).

I don't think you can customize the calendar to show week numbers next
to the rows (that's what you are looking for, right?

Regards
- -- tomás
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.6 (GNU/Linux)

iD8DBQFImshYBcgs9XrR2kYRAhuSAJ4z8PKQWTILkBm17wmAxxgusdO38ACbBnjI
kP3pkAsTajTFs40QMNb3ffg=
=YiSt
-----END PGP SIGNATURE-----

Re: calendar problem: week number

[Werner LEMBERG]

> Typing 'p c' shows you the ISO date, with week number, which should
> be the same as the German 'Kalenderwoche' (AFAIK it's all ISO 8601).

Ah, thanks.

> I don't think you can customize the calendar to show week numbers
> next to the rows (that's what you are looking for, right?

Yep.


    Werner

Re: calendar problem: week number

[Lawrence Mitchell]

Werner LEMBERG wrote:


> Companies in German are used to refer to the `Kalenderwoche' (the
> current number of the week counted from the beginning of the year).
> For example, this week is the 32nd week.  Can I configure `calendar'
> to make it display, eg., like in the attached image?  I haven't found
> a hint in the info file.

The following patch seems to do the right thing, although it only
works correctly if calendar-week-start-day is 1 (monday).  I don't think
it breaks any of the movement commands.

Cheers,

Lawrence

diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index dc2f8ce..9989b22 100644
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -1409,7 +1409,13 @@ line."
           (substring string 0 calendar-day-header-width)))
       (make-string (- calendar-column-width calendar-day-header-width) ?\s)))
    (calendar-ensure-newline)
-   (calendar-insert-at-column indent calendar-intermonth-text trunc)
+   (calendar-insert-at-column (- indent 3) calendar-intermonth-text trunc)
+   (insert (propertize (format "%2d " (car (calendar-iso-from-absolute
+                                            (calendar-dayname-on-or-before
+                                             1 (calendar-absolute-from-gregorian
+                                                (list month 1
+                                                      year))))))
+                       'font-lock-face 'font-lock-comment-face))
    ;; Add blank days before the first of the month.
    (insert (make-string (* blank-days calendar-column-width) ?\s))
    ;; Put in the days of the month.
@@ -1429,7 +1435,18 @@ line."
                 (/= day last))
        (calendar-ensure-newline)
        (setq day (1+ day))              ; first day of next week
-       (calendar-insert-at-column indent calendar-intermonth-text trunc)))))
+       (calendar-insert-at-column (- indent 3) calendar-intermonth-text trunc)
+       (insert (propertize
+                (format "%2d " (car (calendar-iso-from-absolute
+                                     (calendar-dayname-on-or-before
+                                      1
+                                      (calendar-absolute-from-gregorian
+                                       (list month
+                                             (+ i
+                                                (- 7
+                                                   calendar-week-start-day))
+                                            year))))))
+                'font-lock-face 'font-lock-comment-face))))))
 
 (defun calendar-redraw ()
   "Redraw the calendar display, if `calendar-buffer' is live."

-- 
Lawrence Mitchell <wence@gmx.li>

Re: calendar problem: week number

[Ed Reingold]

The "fix" below will break many, many things--holidays, diary entries, 
conversions to other calendars, etc.  The exact shape of the calendar window 
cannot be changed.


> Werner LEMBERG wrote:
> 
> 
> > Companies in German are used to refer to the `Kalenderwoche' (the
> > current number of the week counted from the beginning of the year).
> > For example, this week is the 32nd week.  Can I configure `calendar'
> > to make it display, eg., like in the attached image?  I haven't found
> > a hint in the info file.
> 
> The following patch seems to do the right thing, although it only
> works correctly if calendar-week-start-day is 1 (monday).  I don't think
> it breaks any of the movement commands.
> 
> Cheers,
> 
> Lawrence
> 
> diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
> index dc2f8ce..9989b22 100644
> --- a/lisp/calendar/calendar.el
> +++ b/lisp/calendar/calendar.el
> @@ -1409,7 +1409,13 @@ line."
>            (substring string 0 calendar-day-header-width)))
>        (make-string (- calendar-column-width calendar-day-header-width) ?\s)))
>     (calendar-ensure-newline)
> -   (calendar-insert-at-column indent calendar-intermonth-text trunc)
> +   (calendar-insert-at-column (- indent 3) calendar-intermonth-text trunc)
> +   (insert (propertize (format "%2d " (car (calendar-iso-from-absolute
> +                                            (calendar-dayname-on-or-before
> +                                             1 (calendar-absolute-from-gregorian
> +                                                (list month 1
> +                                                      year))))))
> +                       'font-lock-face 'font-lock-comment-face))
>     ;; Add blank days before the first of the month.
>     (insert (make-string (* blank-days calendar-column-width) ?\s))
>     ;; Put in the days of the month.
> @@ -1429,7 +1435,18 @@ line."
>                  (/= day last))
>         (calendar-ensure-newline)
>         (setq day (1+ day))              ; first day of next week
> -       (calendar-insert-at-column indent calendar-intermonth-text trunc)))))
> +       (calendar-insert-at-column (- indent 3) calendar-intermonth-text trunc)
> +       (insert (propertize
> +                (format "%2d " (car (calendar-iso-from-absolute
> +                                     (calendar-dayname-on-or-before
> +                                      1
> +                                      (calendar-absolute-from-gregorian
> +                                       (list month
> +                                             (+ i
> +                                                (- 7
> +                                                   calendar-week-start-day))
> +                                            year))))))
> +                'font-lock-face 'font-lock-comment-face))))))
>  
>  (defun calendar-redraw ()
>    "Redraw the calendar display, if `calendar-buffer' is live."
> 
> -- 
> Lawrence Mitchell <wence@gmx.li>
> 
> 

Re: calendar problem: week number

[Lawrence Mitchell]

Ed Reingold wrote:
> The "fix" below will break many, many things--holidays, diary entries,
> conversions to other calendars, etc.  The exact shape of the calendar window
> cannot be changed.

I made sure not to change the shape of the calendar window: the
extra week numbers are placed in the space between months without
changing the column layout.  Will this nonetheless affect things?

[...]

Cheers,
Lawrence
-- 
Lawrence Mitchell <wence@gmx.li>

Re: calendar problem: week number

[Ed Reingold]

> (add-to-list 'calendar-mode-line-format
>              '(let ((day (nth 1 date))
>                     (month (nth 0 date))
>                     (year (nth 2 date)))
>                 (format-time-string "Week of year: %V"
>                                     (encode-time 1 1 1 day month 
> year))))

That should not cause any problems.  Note that you can also use the calendar 
code functions for the week number; see cal-iso.el

Re: calendar problem: week number

[Werner LEMBERG]

> > Companies in German are used to refer to the `Kalenderwoche' (the
> > current number of the week counted from the beginning of the
> > year).  For example, this week is the 32nd week.  Can I configure
> > `calendar' to make it display, eg., like in the attached image?  I
> > haven't found a hint in the info file.
> 
> I use this custom code to do that: [...]

Thanks, but helps a bit but it is not what I really want -- in most
cases you don't need the current week number but a values of a
completely different week number.

Maybe this can be added somehow to calendar.


    Werner

Re: calendar problem: week number

[Werner LEMBERG]

> Thanks, but helps a bit but it is not what I really want [...]

Oops.  I shouldn't watch the opening of the Olympic Games :-)


    Werner

Re: calendar problem: week number

[Lawrence Mitchell]

Werner LEMBERG wrote:
>>> Companies in German are used to refer to the `Kalenderwoche' (the
>>> current number of the week counted from the beginning of the
>>> year).  For example, this week is the 32nd week.  Can I configure
>>> `calendar' to make it display, eg., like in the attached image?  I
>>> haven't found a hint in the info file.

>> I use this custom code to do that: [...]

> Thanks, but helps a bit but it is not what I really want -- in most
> cases you don't need the current week number but a values of a
> completely different week number.

> Maybe this can be added somehow to calendar.

It turns out it is, after Ed pointed out that my idea of adding
something to calendar-generate-month may not work, I had another
look to see if I had in fact broken things.  It turns out Glenn
Morris has recently (Jun 26th) implemented more flexible calendar
printing: removing magic numbers and the like.

Anyway, to get iso week numbers in the calendar view, just modify
`calendar-intermonth-text' as suggested in its docstring.  This
is in NEWS, but not yet in the info file, I believe.

Cheers,
Lawrence
-- 
Lawrence Mitchell <wence@gmx.li>