[共享]Emacs Calendar配置文件

fog_proxy

经常不记得朋友的生日或者属性，所以整理了一下calendar,写了这个配置文件，感觉还不错，给有需要的朋友共享把。

1. 
   
2. ;; Emacs Calender
   
3. ;;
   
4. ;; Emacs 中有日历，而且可以称之为一个系统，因为其中除了最常用的日历之外，
   
5. ;; 还有其他的近十种历法，其中有日记、约会提醒、纪念日提示以及节假日提示等
   
6. ;; 等。其中的历法包括中国的农历、希伯来历、伊斯兰历、法国革命历、中美玛雅
   
7. ;; 历等等，可以根据经纬度告知你的所在的每天日出日落的时间等等。
   
8. ;;
   
9. ;; holiday-fixed m d        固定阳历节日， m 月 d 日
   
10. ;; holiday-float m w n 浮动阳历节日， m 月的第 n 个星期 w%7
    
11. ;;                     
    
12. ;; ----------------------------------------------
    
13. ;; .        跳回当前天
    
14. ;; o        跳到某一个月
    
15. ;; g d        跳到某年某月某日
    
16. ;; g c        跳到某年某星期的星期几
    
17. ;; g C        跳到阴历的某一天
    
18. ;; p C        显示当前的阴历日期
    
19. ;; h        显示当前节日
    
20. ;; i d        加入当前这一天的日程安排
    
21. ;; i w        加入每周这一天的日程安排
    
22. ;; i m        加入每月这一天的日程安排
    
23. ;; i y        加入每年这一天的日程安排
    
24. ;; i a        加入周年纪念（anniversary），比如生日等
    
25. ;; d        察看当前日期的diary
    
26. ;; -----------------------------------------------
    
27. ;;
    
28. 
    
29. (defun animals(birthyear)
    
30.   "Calculate the Chinese aninal by year"
    
31.   (let ((x (% (- 1997 birthyear) 12)))
    
32.     (cond ((or (= x 1) (= x -11))  "鼠")
    
33.           ((= x 0)                 "牛")
    
34.           ((or (= x 11) (= x -1))  "虎")
    
35.           ((or (= x 10) (= x -2))  "兔")
    
36.           ((or (= x 9) (= x -3))   "龙")
    
37.           ((or (= x 8) (= x -4))   "蛇")
    
38.           ((or (= x 7) (= x -5))   "马")
    
39.           ((or (= x 6) (= x -6))   "羊")
    
40.           ((or (= x 5) (= x -7))   "猴")
    
41.           ((or (= x 4) (= x -8))   "鸡")
    
42.           ((or (= x 3) (= x -9))   "狗")
    
43.           ((or (= x 2) (= x -10))  "猪")
    
44.           )
    
45.     )
    
46.   )
    
47. 
    
48. ;; 保存日记的文件
    
49. (setq diary-file "~/emacs/data/diary")
    
50. (setq diary-mail-addr "guest@gmail.com")
    
51. (add-hook 'diary-hook 'appt-make-list)
    
52. ;;appointment
    
53. (setq appt-issue-message t)
    
54. 
    
55. ;; 设置所在地的经纬度和地名，calendar 中按 S，可以根据这些信息告知你每天的
    
56. ;; 日出和日落的时间：
    
57. (setq calendar-latitude +31.3)
    
58. (setq calendar-longitude +120.6)
    
59. (setq calendar-location-name "苏州")
    
60. 
    
61. (setq calendar-remove-frame-by-deleting t)
    
62. (setq calendar-week-start-day 1)              ; 每周第一天是周一
    
63. (setq mark-diary-entries-in-calendar t)       ; 标记有记录的日子
    
64. (setq mark-holidays-in-calendar nil)          ; 标记节假日
    
65. (setq view-calendar-holidays-initially nil)   ; 不显示节日列表
    
66. 
    
67. ;;除去基督徒的节日、希伯来人的节日和伊斯兰教的节日。
    
68. (setq christian-holidays nil
    
69.       hebrew-holidays nil
    
70.       islamic-holidays nil
    
71.       solar-holidays nil
    
72.       bahai-holidays nil
    
73.       )
    
74. 
    
75. (setq general-holidays '((holiday-fixed 1 1   "元旦")
    
76.                          (holiday-fixed 2 14  "情人节")
    
77.                          (holiday-fixed 4 1   "愚人节")
    
78.                          (holiday-fixed 12 25 "圣诞节")
    
79.                          (holiday-fixed 10 1  "国庆节")
    
80.                          (holiday-float 5 0 2 "母亲节")   ;5月的第二个星期天
    
81.                          (holiday-float 6 0 3 "父亲节")
    
82.                          ))
    
83. 
    
84. (setq local-holidays '((holiday-chinese 1 15  "元宵节 (正月十五)")
    
85.                        (holiday-chinese 5 5   "端午节 (五月初五)")
    
86.                        (holiday-chinese 9 9   "重阳节 (九月初九)")
    
87.                        (holiday-chinese 8 15  "中秋节 (八月十五)")
    
88.                        ;; 生日
    
89.                        (birthday-fixed 9 28  "爸爸生日(1950)")
    
90.                        (birthday-fixed 10 1  "妈妈生日(1953)")
    
91.                        (holiday-chinese 5 29 "老婆生日")           ;阴历生日
    
92.                        ))
    
93. 
    
94. (setq chinese-calendar-celestial-stem
    
95.       ["甲" "乙" "丙" "丁" "戊" "己" "庚" "辛" "壬" "癸"])
    
96. (setq chinese-calendar-terrestrial-branch
    
97.       ["子" "丑" "寅" "卯" "辰" "巳" "午" "未" "申" "酉" "戌" "亥"])
    
98. 
    
99. (setq mark-diary-entries-in-calendar t
    
100.       appt-issue-message nil
     
101.       mark-holidays-in-calendar t
     
102.       view-calendar-holidays-initially nil)
     
103. 
     
104. (setq diary-date-forms '((year "/" month "/" day "[^/0-9]"))
     
105.       calendar-date-display-form '(year "/" month "/" day)
     
106.       calendar-time-display-form
     
107.       '(24-hours ":" minutes (if time-zone " (") time-zone (if time-zone ")")))
     
108. 
     
109. (add-hook 'today-visible-calendar-hook 'calendar-mark-today)
     
110. 
     
111. (autoload 'chinese-year "cal-china" "Chinese year data" t)
     
112. 
     
113. (defun holiday-chinese (cmonth cday string)
     
114.   "Chinese calendar holiday, month and day in Chinese calendar (CMONTH, CDAY).
     
115. 
     
116. If corresponding MONTH and DAY in gregorian calendar is visible,
     
117. the value returned is the list \(((MONTH DAY year) STRING)).
     
118. Returns nil if it is not visible in the current calendar window."
     
119.   (let* ((m displayed-month)
     
120.          (y displayed-year)
     
121.          (gdate (calendar-gregorian-from-absolute
     
122.                  (+ (cadr (assoc cmonth (chinese-year y))) (1- cday))))
     
123.          (gm (car gdate))
     
124.          (gd (cadr gdate))
     
125.          (gy (caddr gdate)))
     
126.     (increment-calendar-month m y (- 11 gm))
     
127.     (if (> m 9)
     
128.         (list (list (list gm gd gy) string)))))
     
129. 
     
130. (defun birthday-fixed (month day string)
     
131.   "Holiday on MONTH, DAY (Gregorian) called STRING.
     
132. If MONTH, DAY is visible, the value returned is the list (((MONTH DAY year)
     
133. STRING)).  Returns nil if it is not visible in the current calendar window."
     
134.   (let ((m displayed-month)
     
135.         (y displayed-year)
     
136.         (animal (animals (string-to-number (nth 1 (split-string string "(")))))
     
137.         )
     
138.     (increment-calendar-month m y (- 11 month))
     
139.     (if (> m 9)
     
140.       (list (list (list month day y) string animal)))))
     
141. 
     
142. ;; 设置颜色显示                       
     
143. (setq calendar-load-hook
     
144.       '(lambda ()
     
145.          (set-face-foreground 'diary-face   "skyblue")
     
146.          (set-face-background 'holiday-face "slate blue")
     
147.          (set-face-foreground 'holiday-face "white")))
     
148. 
     
149. 
     
150. (global-set-key (kbd "<f11>") 'calendar)
     
151. 
     
152. 
     

复制代码