Emacs 技巧
发信人: dddkk (被淹死的鱼), 信区: Linux
标 题: 用emacs看日出和日落的时间
发信站: BBS 水木清华站 (Tue Apr 29 08:40:47 2003), 转信
呵呵，感觉比较有趣，share一下 :)
在.emacs里面，或者site-lisp/default.el，加入：
(setq calendar-latitude 45.75) ;;纬度，正数北纬
(setq calendar-longitude 126.63) ;;经度，正数东经
(setq calendar-location-name "Harbin") ;;地名
在calendar里面，随便哪一天上，按 S
现在哈尔滨的日出日落时间是：
Apr 29, 2003:
Sunrise 4:27am (CST), sunset 6:36pm (CST) at Harbin (14:09 hours daylight)
发信人: licro (蓝枫), 信区: Emacs
标 题: Re: emacs-wiki中怎么生成menu
发信站: BBS 水木清华站 (Wed Dec 22 19:34:27 2004), 站内
在~/.emacs中加上
(require 'emacs-wiki-menu)
在要加Menu的页面中加上
<lisp> (funcall emacs-wiki-menu-factory) </lisp
)
outline mode
M-x outline-mode
*标题
内容
C-c C-c 折起来
C-c C-o 展开
M-q 自动排版
glasses-mode 为了把 ThisIsASimpleVarInJava 变成
This_Is_A_Simple_Var_In_Jave
hide-ifdef-mode 可以把一些ifdef的代码先关闭掉，方便查看啊，
按键C-c @ C-c，hs-troggle-hiding，先打开 M-x hs-minor-mode
C-c @ d ,隐藏define的
C-c @ u ,隐藏undef的
ff-find-related-file 头文件
查找函数帮助C-h f 函数名
C-h v describe-variable
C-c C-c注释掉整块已经选定的区域
C-x h选定整个buffer
C-M-\重新排版
C-c C-q 是{处,排版一个代码段
Emacs Outline Mode
全局hide操作
* C-o C-q 全局隐藏hide-sublevels 前面可加参数：M-
* C-o C-t 文档的所有 Entry 都被隐藏。只显示主干
全局Show操作
* C-o C-a Show All.
* C-o C-i show-children显示下一级子树。
子树hide操作
* C-o C-d 子树被折叠起来hide-subtree
* C-o C-o hide-other。除了本子树，其它子树全部被折叠起来。这个操作正好与 hide-subtree 互补。
* C-o C-l hide-leaves。子树下的所有级别的entry被隐藏，只显示 branch。
* C-o C-c hide-entry。本部分的Entry被隐藏，但是所有子树都不动。
子树Show操作
* C-o C-e show-entry
* C-o C-k show-branches.各级“树干”被显示，但是各级 entry 还是保持隐藏
* C-o C-s show-subtree. 本部分所有子结构全部被扩展。
Move 操作
* C-o C-n (outline-next-visible-heading) 移动到下一个可见标题。
* C-o C-p (outline-previous-visible-heading) 移动到上一个可见标题。
* C-o C-f (outline-forward-same-level) 移动到下一个同级可见标题。
* C-o C-b (outline-backward-same-level) 移动到上一个同级可见标题。
* C-o C-u (outline-up-heading) 到上一级标题。
发信人: ann77 (ann), 信区: Emacs
标 题: 原创：按照中国习惯的 calendar
发信站: BBS 水木清华站 (Wed Apr 14 12:50:08 2004)
没有想到中国的历法那么复杂，本来想增加
端午节，重阳节，等传统节日，但是发现很复杂，
于是作罢。
大多数的工作就是读懂程序，然后翻译。
主要支持中文习惯的日期表达方式.和部分节日,
例如
2004年4月12日 星期一
安装方法：
把下面的两行， 增加到 .emacs 中。
(add-to-path 'load-path "path/where/to/chinese-calendar.el"
(require 'chinese-calendar)
注意事项：一定要再配好中文环境之后，再调用(require 'chinese-calendar)
例如
(set-language-environment "Chinese-GB")
;;; Coding system
(set-default-coding-systems 'cn-gb-2312)
(set-buffer-file-coding-system 'cn-gb-2312)
(set-terminal-coding-system 'cn-gb-2312)
(set-keyboard-coding-system 'cn-gb-2312)
(set-selection-coding-system 'cn-gb-2312)
(setq locale-coding-system 'cn-gb-2312)
(add-to-path 'load-path "path/where/to/chinese-calendar.el"
(require 'chinese-calendar)
--
※ 来源:·BBS 水木清华站 http://smth.org·[FROM: 210.12.42.*]
附上chinese-calendar.el,是水木上ann77的杰作
;;; chinese-calendar.el --- calendar for chinese
;; Copyright (C) 2004 Free Software Foundation, Inc.
;; Author: Charles Wang <charleswang@peoplemail.com.cn>
;; Keywords: calendar, i18n
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
;; installation:
;; put the following line in your .emacs
;;
;; (add-to-path 'load-path "path/where/to/chinese-calendar.el"
;; (require 'chinese-calendar)
;;; Code:
(require 'calendar)
(require 'cal-china)
(defun wcy-calendar-remapkey())
(add-hook 'calendar-load-hook 'wcy-calendar-remapkey)
(defun wcy-calendar-move-hook ()
(wcy-calender-set-mode-line))
(add-hook 'calendar-move-hook 'wcy-calendar-move-hook)
(defun wcy-calendar-init-windows-hook()
(wcy-calender-set-mode-line))
(add-hook 'initial-calendar-window-hook 'wcy-calendar-init-windows-hook)
(setq chinese-calendar-celestial-stem
["甲" "乙" "丙" "丁" "戊" "已" "庚" "辛" "壬" "癸"])
(setq chinese-calendar-terrestrial-branch
["子" "丑" "寅" "卯" "辰" "巳" "午" "未" "申" "酉" "戌" "亥"])
(setq chinese-number ["一" "二" "三" "四" "五" "六" "七" "八" "九" "十"])
(defun wcy-chinese-day-name (date)
(let ((day (calendar-day-of-week date)))
(concat "星期"
(if (eq day 0)
"日"
(aref chinese-number (1- day))))))
(defun wcy-calendar-display-form (date)
(let* ((dayname (wcy-chinese-day-name date))
(day (extract-calendar-day date))
(month (extract-calendar-month date))
(year (extract-calendar-year date)))
(format "%4d年%2d月%2d日 %s" year month day dayname)))
;;
(setq chinese-date-diary-pattern
'(( year " *年" month " *月" day "日 *[^/年0-9]")
( year "-" month "-" day "[^0-9]")
(day "/" month "[^/0-9]")
(day "/" month "/" year "[^0-9]")
(backup day " *" monthname "\\W+\\<\\([^*0-9]\\|\\([0-9]+[:aApP]\\)\\)")
(day " *" monthname " *" year "[^0-9]")
(dayname "\\W")))
(setq calendar-date-display-form '((wcy-calendar-display-form date)))
(setq diary-date-forms chinese-date-diary-pattern)
(defun wcy-count-chinese-character (string)
(length (remq nil
(mapcar 'multibyte-string-p
(mapcar 'char-to-string string)))))
(setq wcy-chinese-month-name ["正月" "二月" "三月" "四月" "五月" "六月" "七月" "八月" "九月" "十月" "十一月" "腊月"])
(setq wcy-chinese-day-name
[
"初一" "初二" "初三" "初四" "初五" "初六" "初七" "初八" "初九" "初十"
"十一" "十二" "十三" "十四" "十五" "十六" "十七" "十八" "十九" "廿"
"廿一" "廿二" "廿三" "廿四" "廿五" "廿六" "廿七" "廿八" "廿九" "三十"
"卅一" "卅二" "卅三" "卅四" "卅五" "卅六" "卅七" "卅八" "卅九" "卅十"
])
(defun wcy-chinese-date-string (date)
(let* ((a-date (calendar-absolute-from-gregorian date))
(c-date (calendar-chinese-from-absolute a-date))
(cycle (car c-date))
(year (car (cdr c-date)))
(month (car (cdr (cdr c-date))))
(day (car (cdr (cdr (cdr c-date)))))
(this-month (calendar-absolute-from-chinese
(list cycle year month 1)))
(next-month (calendar-absolute-from-chinese
(list (if (= year 60) (1+ cycle) cycle)
(if (= (floor month) 12) (1+ year) year)
(calendar-mod (1+ (floor month)) 12)
1)))
(m-cycle (% (+ (* year 5) (floor month)) 60)))
(format "农历%s年%s%s%s"
;;cycle
;;year
(calendar-chinese-sexagesimal-name year)
(if (not (integerp month))
"润"
(if (< 30 (- next-month this-month))
""
""))
(aref wcy-chinese-month-name (1- (floor month)))
(aref wcy-chinese-day-name (1- day))
)))
(defun wcy-calender-set-mode-line ()
(let* ((date (calendar-cursor-to-date))
(s1 (calendar-date-string date t))
(s2 (wcy-chinese-date-string date))
(x (list s1 s2))
(y (make-string (apply '+ (mapcar 'wcy-count-chinese-character x )) ? )))
(progn
(setq calendar-mode-line-format
(append x (list y)))
(update-calendar-mode-line)
(force-mode-line-update))))
;;; the following function is copied from calendar.el or cal-china.el
;;; because they don't conform with the chinese traditional presentation.
(defun calendar-chinese-sexagesimal-name (n)
"The N-th name of the Chinese sexagesimal cycle.
N congruent to 1 gives the first name, N congruent to 2 gives the second name,
..., N congruent to 60 gives the sixtieth name."
(format "%s%s"
(aref chinese-calendar-celestial-stem (% (1- n) 10))
(aref chinese-calendar-terrestrial-branch (% (1- n) 12))))
(defun generate-calendar-month (month year indent)
"Produce a calendar for MONTH, YEAR on the Gregorian calendar.
The calendar is inserted in the buffer starting at the line on which point
is currently located, but indented INDENT spaces. The indentation is done
from the first character on the line and does not disturb the first INDENT
characters on the line."
(let* ((blank-days;; at start of month
(mod
(- (calendar-day-of-week (list month 1 year))
calendar-week-start-day)
7))
(last (calendar-last-day-of-month month year)))
(goto-char (point-min))
(calendar-insert-indented
(calendar-string-spread
(list (format "%d年%d月" year month)) ? 20)
indent t)
(calendar-insert-indented "" indent);; Go to proper spot
(calendar-for-loop i from 0 to 6 do
(insert (calendar-day-name (mod (+ calendar-week-start-day i) 7)
2 t))
(insert " "))
(calendar-insert-indented "" 0 t);; Force onto following line
(calendar-insert-indented "" indent);; Go to proper spot
;; Add blank days before the first of the month
(calendar-for-loop i from 1 to blank-days do (insert " "))
;; Put in the days of the month
(calendar-for-loop i from 1 to last do
(insert (format "%2d " i))
(add-text-properties
(- (point) 3) (1- (point))
'(mouse-face highlight
help-echo "mouse-2: menu of operations for this date"))
(and (zerop (mod (+ i blank-days) 7))
(/= i last)
(calendar-insert-indented "" 0 t) ;; Force onto following line
(calendar-insert-indented "" indent)))));; Go to proper spot
(setq general-holidays
'((holiday-fixed 1 1 "元旦")
(holiday-chinese-new-year )
(holiday-fixed 3 8 "妇女节")
(holiday-fixed 3 12 "植树节")
(holiday-fixed 5 1 "劳动节")
(holiday-fixed 5 4 "青年节")
(holiday-fixed 6 1 "儿童节")
(holiday-fixed 9 10 "教师节")
(holiday-fixed 10 1 "国庆节")))
(setq local-holidays nil)
(setq christian-holidays nil)
(setq hebrew-holidays nil)
(setq islamic-holidays nil)
(setq other-holidays
'((holiday-fixed 2 14 "情人节")
(holiday-fixed 4 1 "愚人节")
(holiday-fixed 12 25 "圣诞节")
(holiday-float 5 0 2 "母亲节")
(holiday-float 6 0 3 "父亲节")
(holiday-float 11 4 4 "感恩节")))
(setq calendar-holidays
(append general-holidays local-holidays other-holidays))
(defun holiday-chinese-new-year ()
"Date of Chinese New Year."
(let ((m displayed-month)
(y displayed-year))
(increment-calendar-month m y 1)
(if (< m 5)
(let ((chinese-new-year
(calendar-gregorian-from-absolute
(car (cdr (assoc 1 (chinese-year y)))))))
(if (calendar-date-is-visible-p chinese-new-year)
(list
(list chinese-new-year
(format "%s年春节"
(calendar-chinese-sexagesimal-name (+ y 57))))))))))
(setq solar-n-hemi-seasons
'( "春分" "夏至" "秋分" "冬至"))
(setq solar-s-hemi-seasons
'("秋分" "夏至" "春分" "冬至"))
(provide 'chinese-calendar)
;;; chinese-calendar.el ends here
如果你发现calendar显示对不齐星期(我就有这个问题),你可以把 generate-calendar-month 函数屏蔽掉就可以了
hex 编辑模式
M-x hexl-mode
M-x calculator Calculator
This is a handy calculator. You can do number conversion with the following commands.
D - to decimal
X - to hexadecimal
O - to octal
B - to binary