[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: Emacs fuer Kalender+Todo



* Quoting Joerg Desch <jd@voelker-web.de>:

> > http://www.anc.ed.ac.uk/~stephen/emacs/ell.html
> 
> Prima Link. Mich würde interessieren, welchen ToDo-Mode Du verwendest.
> Alles was ich bisher gesehen habe, war nicht so berauschend. Ich suche
> eine Möglichkeit meine ToDo-Listen projektspezifisch zu verwalten, 

Ich verwende als Kalender Plan, den Xemacs Kalender eigentlich nur noch
nebenbei.

Als To-Do benutze ich todo-mode.el. Man kann zwar Unterhierarchien
anlegen, aber ich weiß nicht ob dir das ausreicht.

> ... und eventuell in einem Calender als Termin einzutragen. Verwendest
> Du den Standardcalender?

Es besteht die Möglichkeit die To-Do Listen im Kalender anzeigen zu
lassen. 

Ich schicke dir mal zur Ansicht meine Kalender Konfiguration:

--8<------------------------schnipp------------------------->8---

;:*===================================================
;:* Calendar Settings
;:*===================================================
(defun own-calendar-load-settings ()
  (setq calendar-month-name-array        [ "Januar" "Februar" "März" "April"
                                           "Mai" "Juni" "Juli" "August"
                                           "September" "Oktober" "November"
                                           "Dezember" ]
        calendar-day-name-array          [ "Sonntag" "Montag" "Dienstag"
                                           "Mittwoch" "Donnerstag" "Freitag"
                                           "Samstag" ]
        european-calendar-style          t)
)



(add-hook 'diary-display-hook 'fancy-diary-display)
(add-hook 'list-diary-entries-hook 'sort-diary-entries)
(setq all-christian-calendar-holidays t)
(setq calendar-date-display-form
      '((if dayname (concat dayname ", ")) day " " monthname " " year))
(setq calendar-time-display-form
      '(24-hours ":" minutes
                 (if time-zone " (") time-zone (if time-zone ")")))
(setq appt-message-warning-time 30)
(setq view-diary-entries-initially t)
(setq diary-file "~/.diary")
(setq number-of-diary-entries 2)
(setq appt-issue-message t)
(add-hook 'diary-hook 'appt-make-list)

(defun own-calendar-initial-settings ()
  (add-hook 'today-visible-calendar-hook 'calendar-mark-today)
  (add-hook 'diary-display-hook          'fancy-diary-display)

  ;: maybe this is set on the wrong hook but I found no other way to mark all
  ;: entries initially:
  (if (not mark-diary-entries-in-calendar)
      (progn
        (mark-diary-entries)
        (mark-calendar-holidays)))
  (show-all-diary-entries))

;;(add-hook 'initial-calendar-window-hook 'own-calendar-initial-settings)
(add-hook 'calendar-load-hook           'own-calendar-load-settings)
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*
(message "calendar initialised")


;:*===================================================================================
;:*		german holidays in calendar
;:*===================================================================================
(and (file-exists-p "~/.elisp/cal.de.el")      ; contains all settings
     (load-library "~/.elisp/cal.de"))

;:*===================================================================================
;:*		ToDo's in calendar
;:*===================================================================================

(add-hook 'list-diary-entries-hook 'include-other-diary-files)
(add-hook 'mark-diary-entries-hook 'mark-included-diary-files)
(setq european-calendar-style t)


--8<------------------------schnapp------------------------->8---

in die $HOME/.diary

--8<------------------------schnipp------------------------->8---

#include "/home/michael/.todo-do"
#include "/home/michael/.birthdays"

--8<------------------------schnapp------------------------->8---

Mit dem "fancy-diary-display" bekommt man einen schöneren Output des
Kalenders und dazu noch die To-Do Listen angezeigt

Tip:
comp.emacs.xemacs
de.comp.gnu
de.comp.editoren

Bis denne,

Michael

-- 
"Software ist wie Sex: es ist besser, wenn es free ist!" 
frei nach Linus Torvalds.

-- 
-----------------------------------------------------------
Um sich aus der Liste auszutragen schicken Sie bitte eine
E-Mail an debian-user-de-request@lehmanns.de die im Subject
"unsubscribe <deine_email_adresse>" enthaelt.
Bei Problemen bitte eine Mail an: Jan.Otto@Lehmanns.de
-----------------------------------------------------------

923 eingetragene Mitglieder in dieser Liste.


Reply to: