bug#10452: 24.0.92; calendar-abbrev-length in calendar.el

bug#10452: 24.0.92; calendar-abbrev-length in calendar.el

[Peter Dyballa]

Hello!

The introduction of this variable is no good idea. In German we are using two values: the number 2 for day names and the number 3 for month names.

--
Greetings

  Pete

To most people solutions mean finding the answers. But to chemists solutions
are things that are still all mixed up.

bug#10452: 24.0.92; calendar-abbrev-length in calendar.el

[Andreas Schwab]

Peter Dyballa <Peter_Dyballa@Freenet.DE> writes:

> The introduction of this variable is no good idea. In German we are using two values: the number 2 for day names and the number 3 for month names.

You can set calendar-day-abbrev-array to anything you like.

Andreas.

-- 
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."

bug#10452: 24.0.92; calendar-abbrev-length in calendar.el

[Glenn Morris]

tags 10452 notabug wontfix
severity 10452 wishlist
stop

Andreas Schwab wrote:

> Peter Dyballa <Peter_Dyballa@Freenet.DE> writes:
>
>> The introduction of this variable is no good idea.

It exists since Emacs 22.

> You can set calendar-day-abbrev-array to anything you like.

Indeed. calendar-abbrev-length only provides a default set of
abbreviations. I'm not going to introduce separate length variables for
days and months.

bug#10452: 24.0.92; calendar-abbrev-length in calendar.el

[Kevin Rodgers]

On 1/8/12 5:30 AM, Andreas Schwab wrote:
> Peter Dyballa<Peter_Dyballa@Freenet.DE>  writes:
>
>> The introduction of this variable is no good idea. In German we are using two values: the number 2 for day names and the number 3 for month names.
>
> You can set calendar-day-abbrev-array to anything you like.

Here's some code I posted in 2006 to automatically set localized day and month 
names.  To set localized abbrevs, just use the lowercase "%a" and "%b" formats
instead.

(let ((days (locale-info 'days))
       (months (locale-info 'months)))
   (if days
       (setq calendar-day-name-array days)
     (let ((this-year
            (string-to-number (format-time-string "%Y")))
           (this-month
            (string-to-number (format-time-string "%m"))))
       (setq calendar-day-name-array
             (apply 'vector
                    (mapcar (lambda (time)
                              (format-time-string "%A" time))
                            (sort (mapcar (lambda (day)
                                            (encode-time 0 0 0 day
                                                         this-month this-year
                                                         0))
                                          '(1 2 3 4 5 6 7))
                                  ;; by day of week:
                                  (lambda (time-1 time-2)
                                    (< (nth 6 (decode-time time-1))
                                       (nth 6 (decode-time time-2))))))))))
   (if months
       (setq calendar-month-name-array months)
     (let ((this-year
            (string-to-number (format-time-string "%Y"))))
       (setq calendar-month-name-array
             (apply 'vector
                    (mapcar (lambda (month)
                              (let ((first (encode-time 0 0 0 1 month
                                                        this-year
                                                        0)))
                                (format-time-string "%B" first t)))
                            '(1 2 3 4 5 6 7 8 9 10 11 12)))))))


-- 
Kevin Rodgers
Denver, Colorado, USA