注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

My Unix World

不要迷恋Unix,Unix只是计算世界很小的一部分!

 
 
 

日志

 
 

【Copy】emacs配置文件浅谈2  

2009-01-02 16:59:12|  分类: L-Emacs |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
hvj的讨论和推广emacs贴10:
(ZI |/_8r4v!f%A,_hf z7x:T\(o)}*g
此帖讲讲在Emacs中看新闻组和收邮件。在emacs中看新闻组当仍不让的是gnus,收邮件的则比较多,我用过的就有gnus和mew。
Oa1Y8d.j*E,L mK
cUG:Nm` 这贴讲的是我以前的gnus的配置,可以看新闻组和收发邮件。
BKMp"]@!Ls{
e&B4Nu&n V"C5E gnus的使用可以参考进化的鱼的网站和起配置文件:B/zbd%NZE;kX m4UW
网站:[url]http://db.cs.hit.edu.cn/people/WangChunyu[/url] 2G a'V1]H6f,E
配置文件:[url]http://www.linuxsir.org/bbs/showthre...threadid=57933[/url])WL0z+[+m(GQ

up2F(}w6I tq hvj-gnus-withemal.el
3p7`B9}fO*Y$^,k^ PHP 代码:
{0J\nl/bvq1_"m ;;;;;;;;;;;;;;;;;;;;;;;;;;;
/NU6sN5Q-b#B ;;news/email服务器基本设置 3day6K2sY
;;;;;;;;;;;;;;;;;;;;;;;;;;; 2qWQ @WwC

+PI%~e&E4lD ;;新闻和邮件服务器设置
K+M"QE}+M ^8dq Y ;;常用新闻服务器:news.cn99.com和news.yaako.com
]/`oH9p4|.? t ;;可更换使用,谁快用谁
(JX(x.w7S-i,O.Z3O Z*v (setq gnus-select-method '(nntp "news.cn99.com")) #UI.TdHB
t1_ [ T)t*@
U$sI/yQ
;;我的邮件用nnml通过pop3来收 B[9sK(y V
;;hotmail和yahoo等Webmail虽说手册上写的是可以的,但我还没有成功过 lNn S.hYP\"D-\
;;这里也支持多邮箱的设置,直接在后面以同样格式添加即可 A*of~ On7}5x t
(add-to-list 'gnus-secondary-select-methods '(nnml "")) vE4VH%^ C]
(eval-after-load "mail-source" v ~8uC8}`4\ T*wy
'(add-to-list 'mail-sources '(pop :server "pop.citiz.net"
X*d"oE;z8O :user "joanphan" +b0Ba9L[r
:password "hvjhvjhvj"))) _?e(l-|!|)w.l!I4^
6C j9|7t%lD(K/et[

tJm IJXL ;;邮件发送配置 }d3Or5iDy
;;邮件通过smtp.citiz.com或本地服务器发送 TbBu&|;\!oA V,t}
;;由于有些邮箱(如hotmail.com)将本地服务器作为垃圾邮件处理,所以最好使用smtp.citiz.net A IJ)F3W!D8iqr
(setq send-mail-function 'smtpmail-send-it) QQ0zfs e
(setq message-send-mail-function 'smtpmail-send-it) .H Z9xM?7r
;;不过我还未配置好这个用外部smtp服务器,我就转用mew了 i8I]dx[E
;;下面这一行是从一个地方找到的设置,大家可以试试
1EtrK-K ;(setq smtpmail-auth-credentials '(("smtp.citiz.com" 25 "hvj" nil))) e&c^? [} |%ja,N u
;;我以前用的都是本地服务器
D#SCWu h (setq smtpmail-default-smtp-server "127.0.0.1")
?,^8BGf 6d K{.s'R%EF'V U
w A8Z|^BNg-G7J
;;启用gnus-agent可以脱页浏览
U ^Y7wt*[FD (gnus-agentize) ~/O(b#P'`s.|'^l4r f s
B3\!W K$Ur
%L5YN%RZ^_
r$i3E+KZt\
;;;;;;;;;;;; ,t;t\z}U G1A6Ss
;;外观设置
f j*k2M-uQ:K ;;;;;;;;;;;;
6@P-YzdV4M(c&D)p
$o*A ^K3u1z7e ;;中文设置 0L$^ w#if&D
(setq gnus-default-charset 'cn-gb-2312 h]q*zH7h
gnus-group-name-charset-group-alist '((".*" . gb2312)) )^V2g3t5X7Q3q.ut!I
gnus-summary-show-article-charset-alist '((1 . cn-gb-2312) (2 . big5) (3 . chinese-gbk) (4 . utf-8))
-|YA$I0hEmT gnus-newsgroup-ignored-charsets '(unknown-8bit x-unknown iso-8859-1) \#Q_S6Y-DZw,w
gnus-group-posting-charset-alist '((".*" gb2312 (gb2312))))
gr%R&OY/lHG~ (define-coding-system-alias 'gb18030 'gb2312) E6p:p'M~;c1O.xuy

pTXH^&K a5h%m ;;窗口设置 R h_vg6Va$j&}5Q
(gnus-add-configuration '(article (vertical 1.0 (summary .35 point) (article 1.0))))
h d'S7Q TL7L3Dm,A"g3@$E (~,\!yjr.J0o#p}
;;Group Buffer设置 e$S Ajq-n j
;;自动进入Topic-mode
AfhzO (add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
)CZ%`9rC#u-]#u1jw
-h5F]RE#?2}s^9Z ;;Sumarry Buffer设置 a&ra Z/hIW
(setq gnus-summary-line-format ":%U%R %B %s %-60=|%4L |%-20,20f |%&user-date; \n")
!g.C3~8p}z,p G
2p8P)T"d7Mt!R ;;Article Buffer设置 5[['b%e,F#p!WC};B
;;设定要显示的头消息格式
&?Q$|!JP6Gd/y{? (setq gnus-visible-headers
!Bx4v GD'`VQ#f "^\\(^To:\\|^CC:\\|^From:\\|^Subject:\\|^Date:\\|^Followup-To:
JwR*_!c \\|^X-Newsreader:\\|^User-Agent:\\|^X-Mailer: -P(bN4R!^1|U|%e.k
\\|Line:\\|Lines:\\|Content-Type:\\|NNTP-Posting-Host\\)") /@7Sq.] fZ|Q9C
;;自动断行,每行72个字符 |+Yh.KIP;Y
(add-hook 'message-mode-hook (lambda ()
0_;A rAf'd$h O (setq fill-column 72) 9\x_$BJ.c!e ^Sd
(turn-on-auto-fill)))
"pP to!j8~f)V-_K
\%`y&KB:D F_ v
;]-R/G0Xa.Q ;;;;;;;;;;;;;;;;;; 1L&Z3o AyN"P
;; 回复和发送设置
/J+[j"~1W5j2F%^:wQs ;;;;;;;;;;;;;;;;;; hQO%Kn+_ ^&dm

lrjU)gzg+p!Q ;;引用设置:不要原来的签名,引用全文
d%YPni_M (setq message-cite-function 'message-cite-original-without-signature)
m `]yhw (add-hook 'mail-citation-hook 'sc-cite-original)
HZ6r_1] d;W$QD,J
*d8Bk'gD$['N4r+faI ;;在新闻组中,提示确认是r(reply)还是f(follow)
@/y(t&l5^ (setq gnus-confirm-mail-reply-to-news t) mx|uRK)P
.MF4A2Tz0k-bkY
;;news/email基本回复设置 )Mx*v:`5i
;;news的基本设置为将自己地址设为[email]joanphanA@TcitizD.Tnet[/email],避免被垃圾邮件者轻易搜到 3Df-J0P6x&Zh9b;q
;;email的基本设置使用公共邮件[email]joanphan@citiz.com[/email],私人邮箱可以在后面另设
:n#M!R^|3w`&w (setq gnus-posting-styles
9n.H ^A*y!SL '(((message-mail-p)
4]Go+~I (name "Joanphan")
1ye:Sk.ZjGfDH0G (address "[email]joanphan@citiz.net[/email]")
6b1c(bD8YF7Tt (User-Agent "Emacs+gnus")
g+@T-v7{Na (signature-file "~/hvj/sig/default.sig")
^i.^9AA{uX )
``N IA.g2]&rj ((message-news-p) +`8E3L?4U\)@9e
(name "Hans Joanphan")
EMi.?qH+o (address "[email]joanphanA@TcitizD.Tnet[/email]")
`o$?7o0v/[?Rt )
)|ML'U!rA&u )) 5S4?Q&T3u4G.ZF
Gb;T3|,kZ'm
;;goupe parameters设置 ;_u6J0R4X9Vw
(setq gnus-parameters
.e.Vu3I8`Hz?!?3f ;;下面是用正则表达式表达的我的文件夹mail.self和mail.local /kaFO|.~)h
'(("mail\\.\\(self\\|local\\).*" @cuj\"v'|%N
(auto-expire . t)
bB,hk6LsA (posting-style O3wo k w^
(name "Hans")
@_H4x{|3q"@5y (address "[email]joanphan@vj.org[/email]") N6zWI[9K
;;带签名档就是如下这句 K;U}0bEfax
(signature-file "~/hvj/sig/default.sig"))) !piT4D4k3a'i*]L
("mail\\.\\(misc\\|spam\\).*"
aD6b&rssR] ;;设定垃圾邮件自动过期 1`L2C @ p t J2`!]-h,}
;;gnus中使用过期一词,表示邮件将会很快被删除
&Li^v8]R7k d"m (auto-expire . t)) gkt1LV_
("mail\\.friends.*" d gP `)m
(posting-style 9q G$~nW1L k
(name "Joanphan") q#JI8e$];{Q
;;给mail.friedns里的朋友回Email使用私人邮箱
*lb#Z$ec(E K"\Bx ;;安全原因,我这里将私人邮箱改了 W`0`D7gDl
;;以下的设置同上
.QG*S9Q@%[+uh (address "[email]joanphan@citiz.net[/email]") R6C3z(V;G xPg
(signature-file "~/hvj/sig/default.sig"))) x2I\Zcm4D|
("Send-.*"
4y(T+Z]OSU6? (total-expire . t) vpBT)b }
(expire-wait . 1))
4Z CmE-kt)s,AJ ("cn\\..*" )tC8in#b `
(auto-expire . t) 5}sX,a/ku*a9li{
(posting-style 3QbzQ^_ o
(name "永远的阿凡") #V2ZOX&^!d3FC+w
(address "[email]joanphanA@TcitizD.Tnet[/email]")
-q G?\g#v|mF?+O (User-Agent "Slackware/Gnus")
VD3J9k@V+a)k (signature-file "~/hvj/sig/cn.sig"))) qSa8i,Y\
("\\(alt\\|comp\\|gnu\\|linux\\|sci\\)\\..*"
,KC$Y F9zoc (auto-expire . t) N)J$a)@-pFG
(posting-style
$TD~m&T (name "Hans Joanphan")
GMB o{q (address "[email]joanphanA@TcitizD.Tnet[/email]") !? AjFm7e@{8Xz
(User-Agent "Emacs21.3/Gnus5.10.6")
'p*^ C-j!F.Q (signature-file "~/hvj/sig/en.sig"))))) CH4P6W?r
*] LKk2t|0H&V2Q5u
;;;;;;;;;;;;;;;;;;;;; 'hrX5E0i:h
;;email/news管理设置
2ZQ0}O s)f"XF ;;;;;;;;;;;;;;;;;;;;; !nt.Q`jO2|G

&X'B&Qro ;;地址簿管理 .{d5t| Xa7j
(require 'bbdb) :Q!qaAf
(bbdb-initialize 'gnus 'message) 8X6I7i;S{~)C+Iz

]r ]8]3Nat ;;开启记分功能 S(L0F g(a"m#O
(setq gnus-use-adaptive-scoring t) 7B%~"\n0cap8U
(setq gnus-save-score t)
1t |h1kbP (add-hook 'message-sent-hook 'gnus-score-followup-article)
hH1O2|m"nN (add-hook 'message-sent-hook 'gnus-score-followup-thread) 5Q&h.DM$rO }$}%b

J2qXe f Zz~&^ ;;定义自己的计分原则 Y)gP-`1kv!v7k@mV
(defvar gnus-default-adaptive-score-alist
c9s/L%JW6@(C` '((gnus-kill-file-mark (from -10))
"Z%k}x n'j}|)eE (gnus-unread-mark)
X+fp#lo} S e L (gnus-read-mark (from 10) (subject 30))
|K;lr |3l'^ ns (gnus-catchup-mark (subject -10))
lm9}i4r (gnus-killed-mark (from -1) (subject -30)) 3Z6I-rZ R9[6L/b
(gnus-del-mark (from -2) (subject -15))
!wA'\ug X7E:@E (gnus-ticked-mark (from 10)) ^Q:aUM0R G0^G;n
(gnus-dormant-mark (from 5))))
#noh$ZW0[
t;jR#m1P*T7| (setq gnus-score-find-score-files-function 8j0[O!t h2X
'(gnus-score-find-hierarchical gnus-score-find-bnews bbdb/gnus-score)
UV9\(Yvg k gnus-use-adaptive-scoring t)
V"R5|1fuO
#Vv`(N@ ;;archive设置
j|/W1f)t (setq gnus-message-archive-group Z&X%Wcs5t
'((if (message-news-p) 9c Ol a+dgT
(concat "news." (format-time-string "%Y-%m")) }-R0nX G)J
(concat "mail." (format-time-string "%Y-%m"))))) Q])v%o\lU7H

U9g$CTP yAgFj ;;;;;;;;;;;;;;;; %AqSm{I,L9R
;;邮件分类
p5x*P5^%z@ ] ;;;;;;;;;;;;;;;;
5f"WG#q$jZ 7TTY M B q z5pK _
;;保存发送的email和news分别到Send-Mail和Send-News 3@4B'vqLu%c+Go
(setq gnus-message-archive-group u}7y&Y(pG
'((if (message-news-p)
Zw?%k hd*Xu "nnml:Send-News"
8st xJ1P5BR "nnml:Send-Mail"))) u$Y2^ P @i$w[

2IFxjEEZx\ ;;;使用split-fancy来分类,并取消一信多投和删除重复邮件
#rK/Lf ]Ae ;;注意,这里的邮箱使用正则表达式表示,如[email]j@linux.org[/email]应表示为[email]j@linux.org[/email]
(~aVeJ&~\ (setq nnmail-treat-duplicates 'delete) :u&T|iT3t*t"[e
;;不使用交叉投信,即下面的分类按先后有优先顺序 r5@1j"R/n gt
(setq nnmail-crosspost nil) 7wC a.A |%j(I j;e+J9B
;;默认邮件分类不是这个,但我们所用的这个功能更强大
?)U3jln (setq nnmail-split-methods 'nnmail-split-fancy)
kkDPr9J1Q (setq nnmail-split-fancy
"w9K,T!i*t8m '(|
BB1i cM:S#E ("from" mail (|
5W8myx Ld;u9bWv ("subject" "warn.*" "mail.local")
6_xp:luJ:RX "mail.misc"))
P X(m {4N ;;网页格式的email送入mail.html (]z$VJ:B;~b
("Content-Type" "text/\\(html\\|richtest\\)" "mail.html") 0T;n!Fg@"~ ~ n(}%[
;;设定一些垃圾邮件过滤设置
0BDBgn ("Content-Type" "\\(ks_c_5601-1987\\|EUC-KR\\|big5\\|iso-2022-jp\\)" "mail.spam")
GJK\v}/{ ("Subject" "\\(This really work\\|XINGA\\|ADV:\\|XXX\\|adult\\|sex\\)" "mail.spam")
x*Y+uU ao ("Subject" "\\(\=\?ks_c_5601-1987\?\\|\=\?euc-kr\?\\|\=\?big5\?\\)" "mail.spam")
K_/U wdn ("X-Mailer" "\\(.*BulkMailer.*\\|.*MIME::Lite.*\\)" "mail.spam")
,P)}I!?-P,bZ ("X-Mailer" "\\(.*CyberCreek Avalanche\\|.*http\:\/\/GetResponse\.com\\)" "mail.spam") #O zN$d?'_c Fu
("from" "\\(verizon\.net\\|prontomail\.com\\|money\\|ConsumerDirect\\)" "mail.spam") W7C-_5us-D
;;news-letter的设置
\'`;_#r$h5Y (any "ding@gnus\\.org" "list.gnus") ,D"[5s-XCf^W
(any "emacs-devel@gnu\\.org" "list.emacs-devel") S r;a b:c y6b:M
("Subject" "ding" "list.ding") \)J0kw0O-H\
;;自己给自发的邮件放入mail.self )_$N,e@7mWIF
("from" "joanphan@vj\\.org" "mail.self") Cwh-s.{'Z} G6?1O
(to "\\(joanphan@citiz\\.net\\|joanphan@vip\\.ddd\\.com\\)" S1rpPB&|+?^
(| 's'EKx g|5UI
;;下面两个email是假的,用作实验
*Z|;n2j!pHF8d)T*i R ;;[email]ddk@sina.com[/email]的邮件自动送到文件夹mail.linuxers
S2v2X'Y7]{1P3n4\ \!l (from "ddk@sina\\.com" "mail.linuxers")
&BV4{%N%{@%RX ;;此处省略我的地址簿分类
)k3f;^*}Q}di3X'r ;;kailiu@sina.com的邮件自动送到文件夹mail.friends
j]}8^ Jd8a?o (from "kailiu@sina\\.com" "mail.friends")
]zh9D`j ;;接受者是我,但发送者不在以上分类,发到文件夹mail.misc
zkcj1P "mail.misc"))
l&_0dj rw+l2m4z ;;其余无法归类的列为垃圾邮件,送入mail.spam
M(y9`2G4sP0| ;;当然你愿意的时候可以去文件夹mail.spam看看是不是真的是垃圾邮件 hs9Y.bmI T
"mail.spam"))
Gw*C"eQ ?;q_ J#J8xi*Rv@
;;;;;;;;;;;;;;;;;;;;;;;
F)? A3W!Dt(a-z ;; Misc Configurations ?h(kdT,Uz*Km
;;;;;;;;;;;;;;;;;;;;;;;
7M2G%V b X u
b2u0I7E$n"A:C"yj ;;看html和richtext的email只看文本部分 ^X%eDE1Dm"@'q
(eval-after-load "mm-decode"
S {$VB*i^/RF Z+H%`7i '(progn h0QEH'V
(add-to-list 'mm-discouraged-alternatives "text/richtext"))) 0i^^ Zw$M]?s;\
(setq mm-text-html-renderer 'w3m)
1t'['j!G}jJ$d (setq mm-inline-text-html-with-w3m-keymap nil)
4c6waG i'Y
(GN pjA 后来我用Gnus只看新闻组,设置稍微减了些,如下
iSEl%EY7rj;zY S
],a;n1B#C"X hvj-gnus.el[SY,E7CN
PHP 代码:%X![ID!Oe
;;;;;;;;;;;;;;;;;;;;;;;;;;; (_mCyYs$E
;;news服务器基本设置
8K&Pwb@nM}a!C ;;;;;;;;;;;;;;;;;;;;;;;;;;;
;\(QG"H:Wdz &hlkoH` E
;;新闻和邮件服务器设置 !LI,a8J"qO
;;常用新闻服务器:news.cn99.com和news.yaako.com
+`!b9m@1L1^2v/@ ;;可更换使用,谁快用谁 2|;g L8I;qEV
(setq gnus-select-method '(nntp "news.cn99.com"))
O^0B5_u\N
)o#WJ Nl7h ;;启用gnus-agent可以脱页浏览 $e+m(?*V$NF3M
(gnus-agentize)
`;QHE+E|"k (~8iLR*W1z#N6~

[HVHm-g~ ;;;;;;;;;;;;
*S dHY;T]?0`h ;;外观设置 ,P;`;H??1m2r ny)bl
;;;;;;;;;;;;
x3b-S:Vy\k l 0eY0DM9m9gf
;;中文设置
AbN x{ (setq gnus-default-charset 'cn-gb-2312 Y;@0~;mz4Bq
gnus-group-name-charset-group-alist '((".*" . gb2312))
U j K"I#js:QO9L(F%Y:j gnus-summary-show-article-charset-alist '((1 . cn-gb-2312) (2 . big5) (3 . chinese-gbk) (4 . utf-8))
j"mo sf0b gnus-newsgroup-ignored-charsets '(unknown-8bit x-unknown iso-8859-1)
)Ew%K O5O gnus-group-posting-charset-alist '((".*" gb2312 (gb2312)))) :R:A;VE jC`E+P
(define-coding-system-alias 'gb18030 'gb2312)
+m Sj8Z"?kj "jm3tT%Hc)? t
;;窗口设置
9B{ B?6O7O (gnus-add-configuration '(article (vertical 1.0 (summary .35 point) (article 1.0))))
.[~ sqe(Kq
wX[J,S8{ E@G yo'z"d ;;Group Buffer设置, 自动进入Topic-mode $LUJ rToC
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode) w#@u)s;YP$?,b?
P;k2A1Lx X'M
;;Sumarry Buffer设置 |dW8iGGD9d\
(setq gnus-summary-line-format ":%U%R %B %s %-60=|%4L |%-20,20f |%&user-date; \n")
"i$_3K[%O4] YS H
E#O-^n[#O_ ;;Article Buffer设置
9?#uJf6M ;;设定要显示的头消息格式
$xO,|-l/W2i7md (setq gnus-visible-headers
t6K+cDt#PR#g "^\\(^To:\\|^CC:\\|^From:\\|^Subject:\\|^Date:\\|^Followup-To: I#EF.ii k0a
\\|^X-Newsreader:\\|^User-Agent:\\|^X-Mailer: 9b3uV,V3@ X a
\\|Line:\\|Lines:\\|Content-Type:\\|NNTP-Posting-Host\\)") -ea r`#xI3q7~
;;自动断行,每行72个字符
?c?-bZ (add-hook 'message-mode-hook (lambda () D\d?J&j
(setq fill-column 72)
'?G.Z M:F (turn-on-auto-fill)))
VV$iVM x:z `k1B }q`-BQ

3J q'P^ dzd$h{ ;;;;;;;;;;;;;;;;;;
qh/S)h)V ei/E{&T ;; 回复和发送设置
cKoUvSr O ;;;;;;;;;;;;;;;;;; 4v1zb)t T1Ey }b
ZKkJ-Q
;;引用设置:不要原来的签名,引用全文
sg5f.KH1Pu%OC (setq message-cite-function 'message-cite-original-without-signature) (o:jt\T&TN&rD
(add-hook 'mail-citation-hook 'sc-cite-original)
[R6X!ez*n %W-k9~r%~rZJV
;;在新闻组中,提示确认是r(reply)还是f(follow)
}aC,[&Z(`] _!mw%X$f (setq gnus-confirm-mail-reply-to-news t) g&V(v\ L)U}l5F
)|4X} t h
;;news基本回复设置 T[vM MG/?
(setq gnus-posting-styles 2ZcfX,A~qD*i1A-w
'(((message-news-p) :V$^A3I!z5[9hN
(name "Hans Joanphan") "KvM2Icdx9b G
(address "[email]joanphanA@TcitizD.Tnet[/email]")
)L-r)P~;]P+I _ ) e-_O}O D
)) n{$O^-wB$C2d3W

y;UqPJ7X ;;group parameters设置
#iJ~4]mi b\ (setq gnus-parameters
Uy1kGD"u '(("Send-.*" 6gX|5osj%t
(total-expire . t)
H,}3exS1R m (expire-wait . 1))
5Uw1Y+XOzl ("cn\\..*"
!d%e\P&S (auto-expire . t) ewPu*N
(posting-style ,U2}+Xnb*r1Q9C?#e
(name "永远的阿凡") H3X!P7z*P2C t O9u
(address "[email]joanphanA@TcitizD.Tnet[/email]")
+c2D"N|$nV (User-Agent "Slackware/Gnus") *O8bpapH!d j$ys
(signature-file "~/hvj/sig/cn.sig"))) 1jpl CeI$n"K
("\\(alt\\|comp\\|gnu\\|linux\\|sci\\)\\..*"
U*bP9R'Y)lv fs (auto-expire . t) .c9Fx/M,vl#U,Z(k
(posting-style &cI@eY.]2tD
(name "Hans Joanphan") &tqDP'u:qy
(address "[email]joanphanA@TcitizD.Tnet[/email]")
1g3rt'`&[ (User-Agent "Emacs21.3/Gnus5.10.6") "c$W;V$Z#| MC\3~1im/BrDC
(signature-file "~/hvj/sig/en.sig")))))
0_nl;]3oN$D4S Hy hk9w"^ t yJ
;;;;;;;;;;;;;;;;;;;;; 1Zi5S9e6e^
;;news管理设置 Erz5{,o2o!A2j
;;;;;;;;;;;;;;;;;;;;;
!hv!n1g'| Kx!b
H)],}p)A3BCM&?'F ;;开启记分功能
P qj7D+pB3}*Xw n6n (setq gnus-use-adaptive-scoring t) u!f(LX r8A?g
(setq gnus-save-score t)
W%IqG { A gc;j (add-hook 'message-sent-hook 'gnus-score-followup-article)
_5H],DrHd6vR'S (add-hook 'message-sent-hook 'gnus-score-followup-thread) 6~$]3{ [i-i^[ Fj6D

-} R,Rb Z"V ;;定义自己的计分原则 ,@ lF1M'S+z`$R
(defvar gnus-default-adaptive-score-alist
e+?0u[\ '((gnus-kill-file-mark (from -10)) BH ud6w
(gnus-unread-mark)
_ Q I7F-H/x (gnus-read-mark (from 10) (subject 30))
6Llcw%na{:{t (gnus-catchup-mark (subject -10)) 8f'E$UNDj$Q
(gnus-killed-mark (from -1) (subject -30))
/`f:W9h`"|(K (gnus-del-mark (from -2) (subject -15)) 3ml5Z6f%d9lg;[w
(gnus-ticked-mark (from 10)) *A ke Q2wU v
(gnus-dormant-mark (from 5)))) VG c2t*R(]4~

Qk(Kmu (setq gnus-score-find-score-files-function
/?'o9~:]FuZL:Z '(gnus-score-find-hierarchical gnus-score-find-bnews bbdb/gnus-score)
'I2_)|^,O@ O gnus-use-adaptive-scoring t) !r'i,GF b wg6{
8XmOz,G ~ UH$n
;;archive设置
` Js.S V ut/U2P$] (setq gnus-message-archive-group
;F/_ kduXt-W0{*{ '((if (message-news-p) Kp%h:r)b v3T
(concat "news." (format-time-string "%Y-%m"))))) Im:Yorq
!w dvj)l`#D

+{6ql^u:x%K[ ;;保存发送的news分别到Send-News
m!q3p Ku (setq gnus-message-archive-group K0e5^$]%Ap qo\#R6[}
'((if (message-news-p) Gy)qp7u:z
"nnml:Send-News")))
e}r2i T'D f
)R"OQU8m\N+x
5H1a:_`9b(eD hvj的讨论和推广emacs贴11:b[(r0JLql*|
*C,OmJ,?3ui
前面讲到用gnus收发Email,我们还有另外一个不错的选择,就是mew。a ^8D4q6BI Fb^,I

W8xx:^;V3c"iJ~4[ 其实Gnus(注:安装emacs后需另升级gnus)和mew对中文支持差不多了,但是有两点理由我暂时转向了mew
dW0W*sw)f|y.b*r[ 1,gnus收新闻和email同时时很慢(两者没有影响,只是加起来就长了),而分开后感觉就快了is:?S j P
注:有朋友解决了这个问题,用fetchmail收邮件到本地,在用gnus看本地邮件,速度就快了,U.p8Q3F8|'EV9b8N)cB
2,gnus没有将邮件保存在服务器的功能,对于一些我无法处理的Unicode解码的邮件我是无可奈何,但是mew可以,对于比较少数的unicode解码邮件,我大不了上网用浏览器看'q+l j0`z p{:]
注:有朋友解决了这个问题,fetchmail取信有保存邮件到邮件服务器的功能
I'C%i%R:b.l n5W@/t%Y2U9e:m
当然了,mew没有gnus强大的邮件分类归档功能,对垃圾邮件处理不行。等到下一版emacs对unicode支持好了,我还是会用gnus。/]J*an6}:pP
注:emacs-cvs对unicode已经不错,大家可以去试用
"}K?,A-j2PY/~5M}s
ejbEz'a 下面是我的hvj-mew.el
N[:_.if5^,G*S PHP 代码:
.n2Q5D9x%\pcy+d5D ;;;;;;;;;;;;;;;;;;;;;
9]:n2z9a$V \9w ;;启动和初始化mew的设置
9Z1p#i&|T4[`5U0aH ;;将emacs收发邮件的默认设置为gnus改为mew
] TKdH8N? zm ;;;;;;;;;;;;;;;;;;;;; 0asJ-Q },W
(autoload 'mew "mew" nil t)
R1{Bdo$T@"] v (autoload 'mew-send "mew" nil t) Gi9El:xAY+m
;;设定图表所在文件夹,这个和w3m类似,如果不正确,mew无法启动 y8E%^&x8H g%t
(setq mew-icon-directory "/usr/share/mew") 4~'B Pv?.}N]6a
(if (boundp 'read-mail-command) *Q(k,a"hL+K*nG!@S8z
(setq read-mail-command 'mew))
Vd5?1H7z a#TE (autoload 'mew-user-agent-compose "mew" nil t)
9N1j Lh4Zo%] (if (boundp 'mail-user-agent) HKxo cF\/_l/Mg
(setq mail-user-agent 'mew-user-agent))
E*Z;atq (if (fboundp 'define-mail-user-agent) 0Z;A4x9R R2i!qmq3v.V
(define-mail-user-agent
`0D#MY/Gp 'mew-user-agent |Kn%Ts4p^dW
'mew-user-agent-compose
%p^?C$ShQ 'mew-draft-send-message
g.ANY"@)])X z 'mew-draft-kill )jA x1r{:`X
'mew-send-hook))
8x2Di9oj's
deV.sn c;?3U6RO] 2cZ v4a'H_1a
;;;;;;;;;;;;;;;;;;;;;;
Kx*r_%?9]/~8nIv&V'_ ;;信件引用设置
3ji#id/^P ;;;;;;;;;;;;;;;;;;;;;; 9\`Z"F"X'H
(setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:"))
.[Pl5ew x b8m (setq mew-cite-format "From: %s\nSubject: %s\nDate: %s\nMessage-ID: %s\n\n") ZqPr4w_
(setq mew-cite-prefix-function 'mew-cite-prefix-username)
2U1m7rd N|A )@!V8?c([

(J:@9?](E.X9]ZD\}-x ;;;;;;;;;;;;;;;;;;;;;
Rp i4f5~s$i-i*gd ;;用w3m来读html格式邮件 :Y#o/z'N'Xv m&`
;;w3m的使用将在以后讲到
7e1x dd&Q!v ;;;;;;;;;;;;;;;;;;;;;
;^;v#ZLs1Hp B (setq mew-mime-multipart-alternative-list '("Text/Html" "Text/Plain" "*."))
f kgy U5Z0Ge (condition-case nil
[4g]%s2D1cr z7y (require 'mew-w3m) $v,S){/jy A%I ];S
(file-error nil)) )aM;Qxi_

\sm z f|/q1c aN
iu$`t[5d7ck+y ;;;;;;;;;;;;;;;;;
.A+EuB Z9Fk'P ;;一些其他设置,未归类
(e&R)Z-D7dX"[Mb;q ;;;;;;;;;;;;;;;;;
H.Zg1N"x+L (setq mew-pop-size 0) op}e;L5x5e
(setq toolbar-mail-reader 'Mew) L9F%t`'D.o
(set-default 'mew-decode-quoted 't) )@I;p&p:M[Y5q
;;设定公共钥匙所用程序,下面采用的是GnuPG 2goA z8tA
(setq mew-prog-pgp "gpg") (IJ8L9I&v
e g!X o/S5gx8er

w%?/u8~\|)[)^ p ;;;;;;;;;;;;
3nE [F5sf8{ ;;设定用户信息 \bG9`.D(oG
;;;;;;;;;;;; 3N*O~,@-X#B
(setq mew-name "Hans Joanphan") n9?!t s8m/K m!A$s5p$a.y
(setq mew-user "joanphan") ;B"Wv$b)WCS
c*w3pT9`;`~&F3j$? kuR

nbA1p1nQ9\]2b;tX ;;;;;;;;;;;; s'Aj5W4i
;;设定smtp服务器
:K1xO0U-MVM ;;个人原因,这里不列出我的正确Email 7?~(r y5Q|c:e1H:R
;;;;;;;;;;;; W0Fh*s aRL&}
(setq mew-smtp-user "[email]joanphan@citiz.com[/email]")
)k+X(}$}1F"~%S&c/KS (setq mew-mail-domain "citiz.com")
b3x7N1Jwn (setq mew-smtp-server "smtp.citiz.com")
i3YEg5_]BU+SS-q9A ;;smtp服务器认证设定 B{B%{S8\|cX
(setq mew-smtp-auth-list (quote ("CRAM-MD5" "LOGIN" "PLAIN")))
H-HT&~(\/z/f ;;smtp服务器不用认证采用下面设定 }b[Ak~1Q3v;OKV
;(setq mew-smtp-auth-list nil)
:H3AH RYbLF }kU;N4?"\ BzN"e*n
'H`|)| i&^
;;;;;;;;;;;
lX6kZkQ ;;设定pop3服务器
@#W_[R2|R o ;;个人原因,这里不列出我的正确Email 6X)Y5p&Ad7vf
;;;;;;;;;;; ,V s0gu8c'eZ
(setq mew-pop-server "pop.citiz.net") y^ l;fb
(setq mew-pop-user "[email]joanphan@citiz.com[/email]") }:e veCMT+\
(setq mew-pop-auth 'pass) ;;认证方式 1bb }?Li#a
(setq mew-pop-delete nil) ;;将邮件留在服务器上
C%j i0]?#a._"eh
wy'??My ;;;;;;;;;;;;
:A]:U9^Zj ;;设定将密码保存一段时间,默认20分钟
Y D:\6Dm+R7de0e ;;;;;;;;;;;;
jV T2Y/C'[A} (setq mew-use-cached-passwd t) hXr8IFdm%d8~0?
;;gnus可以将密码放在配置文件里,收邮件的时候就不用输入密码了 A%K+d A C*h ?w
;;我找了一下,发现下面这个变量应该有类似功能,但没有搞掂,高人帮忙!
wbW7Pf1G ?l ;(setq mew-passwd-alist '(hvjhvjhvj)
x7h`3E}Is2d$H
S4CWdU\ wm ;;;;;;;;;;;;;;;;;;;;; 1tC_or{A/Z
;;语言设置
gr d.Z$I3? ;;这个不知道有用没,好像在下一版emacs对unicode支持好了就可以了
?X${D \q ;;当然这个试用emacs-cvs W#Vls"uXA%L"z
;;;;;;;;;;;;;;;;;;;;;
qK:?0D5[,XWbc G (when (boundp 'utf-translate-cjk) "n VwU9i#c
(setq utf-translate-cjk t) )k%Ux'G5C7j
(custom-set-variables o*d$AP d,O,B
'(utf-translate-cjk t)))
(t v#`9YaqF1u.a7~]#A1C (if (fboundp 'utf-translate-cjk-mode)
@4N(F3b ntH (utf-translate-cjk-mode 1)) #l0O:T:X&Ac~1K r

Vt'ReT~:L 默认的邮件保存在~/Mail,里面的文件Addrbook是地址本设置,设置好,在写邮件时可以自动补全,同gnus里使用bbdb一样,也有组群发功能。rSrO#X.D D q
@W&TXE%~KE6{m r
一个地址簿样本:z|4S-b P

,b5i ~,g Qs 代码:
8b%IFm;bX*eT hvj [email]hvj@hvj.org[/email]BZuax4Ew
hhh [email]hhh@hvj.org[/email]ZWI]2AKE(b^
h hvj, hhh
WNmFh*Z3o} TB ^"Q`w&L
hvj的讨论和推广emacs贴12:*\_5j+X-v#a"f C
`(TT F`y%Q5D.O
emacs中浏览网页的工具包主要有两个w3和w3m,xemacs中会默认使用w3,而w3已经很久没有更新了,在GNU emacs中推荐使用w3m。
"H$E2^QO"RH!rn
b"BK3\6A w3m 是一个非常优秀的字符端网页浏览器,并且对CJK支持非常不错;在emacs中使用w3m是通过emacs-w3m扩展包使用w3m的。而w3是完全用 elisp语言编写的一个给emacs使用的浏览器扩展包。相对而言,emacs-w3m速度更快,对中文支持更好,对网页的支持也更强一些。 apiyhb*|

G:K|8ta&S 安装w3m时如果要给emacs使用,还得安装emacs-w3m包;另,很重要的一点,要安装w3m的图标,否则emacs-w3m无法使用。
0m"cn,u7FO4Hw W*^"y2}3e']
emacs-w3m不仅仅可用来单独浏览网页(支持图片),gnus或mew可以调用他来读html格式的邮件,所以对于一个爱好emacs的朋友,我还是推荐大家安装w3m;虽然大部分我们上网浏览网页还是用mozilla或opera。D2nf@P{+s:gZ

-@ _w[{!vv O.] z 下面是我的配置文件:
6? Zt6mA.d hvj-w3m.el
8l6YFh8`4y H-K*D PHP 代码:Q8M T0v`Ti
;;启动和初始化w3m.el U+?W9v\
(autoload 'w3m "w3m" "Interface for w3m on Emacs." t) )L8CU bI
(autoload 'w3m-browse-url "w3m" "Ask a WWW browser to show a URL." t)
o0jJu-I"x (autoload 'w3m-search "w3m-search" "Search words using emacs-w3m." t)
;`K3v`F)R ;;使用mule-ucs,只有在你安装mule-ucs elisp扩展包时这个才有用,可以看Unicode解码的网页
1k.O1f:o[`*M@ (setq w3m-use-mule-ucs t) 1M'Tho6w&`*_u
;;使用工具包
O1W%H5O#P X8q_7e M(h (setq w3m-use-toolbar t) 2l8dXjb
;;启用cookie ,F?)F n#]8wd E,|,Dk
(setq w3m-use-cookies t)
+{ ?!KD`p)st ;;设定w3m图标所在文件夹,gentoo的默认安装位置就是如下,大家可以根据自己的情况改一下 %ow3?9L-Cs|7FIu
(setq w3m-icon-directory "/usr/share/emacs-w3m/emacs-w3m/icon")
@E/Mbdg7|+n?[ ;;设定w3m运行的参数,分别为使用cookie和使用框架 ,o$B C0Zh{,Y
(setq w3m-command-arguments '("-cookie" "-F"))
Xf9l*Tce%H/e ;;用w3m浏览网页时也显示图片 NA7l5wV
(setq w3m-display-inline-image t)
vf^P|0`)G+f ;;设定w3m的语言设置,以便方便使用和阅读中文 w8e@3{1K&^c
;;书签解码设置
DLRMJ-^ E-Jv (setq w3m-bookmark-file-coding-system 'chinese-iso-8bit) ;| ~o,i#D
;;w3m的解码设置,后面最好都有,我也不详解了 4c5n7Vz'_
(setq w3m-coding-system 'chinese-iso-8bit)
O^jq:`+NI (setq w3m-default-coding-system 'chinese-iso-8bit)
x8Gw;\/^-s o (setq w3m-file-coding-system 'chinese-iso-8bit)
U5b yPI0H(P:^ (setq w3m-file-name-coding-system 'chinese-iso-8bit)
^7[,dI0z cT!{j (setq w3m-terminal-coding-system 'chinese-iso-8bit) C*OY&a U
(setq w3m-input-coding-system 'chinese-iso-8bit)
Wyy}+O,uHg#{$K (setq w3m-output-coding-system 'chinese-iso-8bit)
8a)}~ T Yw{ ;;w3m是使用tab的,设定Tab的宽度
"~\!g@:h (setq w3m-tab-width 8) 6_3G0Fa ]q!K
;;设定w3m的主页,同mozilla的默认主页一样 vth-D_m9`)O
(setq w3m-home-page "file://home/hans/.w3m/bookmark.html")
#rz?:iO%R ;;以下都给倒忘了
&B1B+X&[%}^ z*B*|3z (setq w3m-view-this-url-new-session-in-background t)
Q"U9HjE1c\ nwW (add-hook 'w3m-fontify-after-hook 'remove-w3m-output-garbages) 0T;X#_9TPJD
;;好像是有利于中文搜索的 !QM j3v6A7\8_^ dB
(defun remove-w3m-output-garbages () ?}ftX2f`&Zx
(interactive)
V9E([4A d:K7Vq (let ((buffer-read-only)) T4T r%?]h6G
(setf (point) (point-min)) q+Q_nB0CB
(while (re-search-forward "[\200-\240]" nil t) %U JH JJe @
(replace-match " ")) )XJkD3k"V"Q{
(set-buffer-multibyte t))
ENI\|9}oC w (set-buffer-modified-p nil)) @v4hh_

1L4SV[mk.yIRz M;PBM,V%T D.e%En
hvj的讨论和推广emacs贴13:
,?M8vG]*l;u;A`
3A1?3dA DR nD sir的IRC已经开了,相信不少人想去聊天和讨论问题,也找了不少IRC客户端,如:Xchat, mirc, ircssi, chatzilla等等,这里就向大家推荐erc,emacs里的IRC客户端,对中文的支持也是非常好的。
B4E h,Cq \*?!o|
wI4n3H+P/l$N 下面是我的配置文件和讲解:hvj-erc.elI~Y%L*?L^
XT*qC L S+n
PHP 代码:mF(]-s@@
;;加载erc.el包 7i;bGO XI!Wv U
;;这个配置文件最好不要编译,否则下面定义的erc-sir等函数不能用 E C uYd urR'i9V1g ]
;;不过这个应该可以修改,我以后试试 -SB]0XVMh4K
(require 'erc)
$U-[/Ndi ;;设定一个有关方便连接IRC服务器的函数
7@3\ y,t1pn5B3v,A4C (defmacro de-erc-connect (command server port nick)
Sa]"Pq "Create interactive command `command', for connecting to an IRC server. The
U0{5R~eh&|m command uses interactive mode if passed an argument."
$Jt'CP$Rpi (fset command
5d]9O&a9_s3c `(lambda (arg)
I6x&d1E o*r (interactive "p") k [&`^i
(if (not (= 1 arg)) $m6S%`-HcD"J3ZQ
(erc-select ,server ,port ,nick) PW`c1r6l
(erc ,server ,port ,nick ,erc-user-full-name t))))) "h9n{ [q:K`L
;;这是咱们Sir的IRC,大家记得常去 7a y:A _.y }9vO1x
(de-erc-connect erc-sir "linuxsir.org" 6667 "hvj") 'J)Kw/Y%xf2H
;;这是linuxfans的IRC,有些时日了 |\:t5N0}-b!LL
(de-erc-connect erc-fans "irc.linuxfans.org" 6667 "hvj") .o.yua(E;l2A6j
;;下面是我所在局域网里的IRC H(HX6p-i0B)Q
(de-erc-connect erc-me "192.168.1.191" 6667 "hvj") O T`A |m7e:]^`v
(de-erc-connect erc-van "192.168.1.14" 6667 "hvj")
:Y4R`%D uR
P&PPq mW,P ;;设定一些有关变量 #~/ME\:~Cw
(custom-set-variables nK8`6ft:fb$u)b{
;;进入linuxsir的IRC,自动加入#javalee频道,咱们的灌水频道,人气还不错
x#]il*?)G A '(erc-autojoin-channels-alist '(("linuxsir.org" "#javalee") :V;V fcqm.S5E6Y;JaR
;;进入linuxfans的IRC,自动加入#linuxfans和#linuxer频道,不过linuxfans的IRC已经自动这样设置了
ryB'Slx ("irc.linuxfans.org" "#linuxfans" "#linuxer")))
V'q-of I+g%H `"b ;;在默认情况下IRC里我的ID是hvj
#f+x dtm4ZxJe"s '(erc-email-userid "hvj") 1i ]#w/SU%O/N/l
;;设定聊天时的行宽,方便阅读
*t*z4IN+|(R_ '(erc-fill-column 67) e L T)~a
;;什么来着?
}ZL-}NC '(erc-fill-prefix " ") f C?ht8iyvf6a
;;屏蔽掉的一些命令
,n,QR"RLd'~5^)^ '(erc-hide-list '("JOIN" "PART" "QUIT")) b5M0| Bf2V
;;默认的昵称,这和userid有什么区别?还不清楚,清大家告诉我。 q gH6q(?4GF
'(erc-nick "hvj")
4P^!?,\ i!H'l ;;默认的端口6667
?7x+C:v"q Q '(erc-port 6667) 4Ml'U"H [ Yd-|!_
;;登录这些IRC不用密码登录
X7cq-`c:K#uGb#Y ;;我在linuxfans已经注册了我的ID,我不用密码登录,将会一分钟后将我改名 .s:e&P)^:|x `2Izu
;;下次我将改改这个变量 M%`2g1~M]7hq'?
'(erc-prompt-for-password nil)
RY-VX[ Y{ ;;有关退出IRC的,什么意思来着?
cB\ qH5w2l]+e '(erc-quit-reason 'erc-quit-reason-zippy) 6{Z` `-ze W-_
;;不保存IRC聊天记录 wO!k;P"W9z7Q,r6^
;;大家可以找找,是可以保存的,只要你愿意
l6Y1l fH '(erc-save-buffer-on-part nil)) r5nZ*P+A'r6qKs#Z

y+y%v5fYC{ ;;设定erc模式的一个滚动设置,保持输入在当前窗口的最后一行 @3Qk3f9_R2M I/s
(add-hook 'erc-mode-hook 'erc-add-scroll-to-bottom) 0L7s7l_K.SXl~hz
&hQ E^@}%p
;;erc中文的关键设置,这个一定需要,否则你只能看中文,而不能“说”中文 /Y$e8j_;D*UE.dj
(setq erc-encoding-default 'chinese-iso-8bit) 7l8v7L.Y? vB5}0`

%nw:V-B%{r y-k .KrC:Z?TbP
这贴讲一点emacs中的文件管理了。Emacs的文件管理默认有一个扩展包dired.el,这是一个同命令行式文件管理器相似但又功能非常强大的东东。我想对于emacs的爱好者,以及一些NO GNOME&NO KDE的用户,这是一个非常好的工具。
1v:Y.N q2O4] O fy8} j8^(@ A kV-W;O
PHP 代码:$G!EKWPt:A
;;设定显示文件的参数,具体不记得了,以后再加上 H/l5v5K k$l wzu
(setq dired-listing-switches "-vl") 'KR#Zd~ d8c [
;;允许复制和删除时将文件夹里所有内容一起带上 k^l/v Slu,E
(setq dired-recursive-copies t) *e!Em9RI8w+n!A f e
(setq dired-recursive-deletes t)
.lB/@/Tc _!s ;;cvs时的一个浏览设置
3W9Kr)M8r.~!g!Nv i (setq cvs-dired-use-hook 'always) To$[%q/Uv$w
;;主要可以详细设置的地方
lSk#H7S ;;对于特定的文件,用什么程序打开
2zL6SP8g8U ;;记住是用!,而不是enter键,enter键表示编辑,同v a:EuF[|4Dp2R#uk
;;记住在后面带上&,为后台运行,我们还要用Emacs做别的事情呢
DFME3jI_ ;;下面的文件用的是正则表达式,要表达清楚
Ye@_5?&vT (add-hook 'dired-load-hook
%L9v'pW6QN5Nv*MLo (function (lambda () T,vR$hP m`
;;记住这里要加载另一个有关文件管理器的包dired-x.el,这个是dired的扩展,非常强大
h"k~N+xw'oqL (load "dired-x") ` O yf"v*V I`L)A2V
(setq dired-guess-shell-alist-user @U B,M @8Z7q
(list @T$U"B%L
(list "\\.tar\\.bz2$" "tar jxvf * &")
5C }y2jw4y '("\\.ps$" "gv * &") Ap gT?O
'("\\.html?$" "rxvt -e w3m * &") @3a.Yw2|}c6s
'("\\.pdf$" "xpdf * &") lX Xf{)Z'X
'("\\.\\(jpe?g\\|gif\\|png\\|bmp\\|xbm\\|fig\\|eps\\)$" "display * &")
*CWm1Tt7My sO k '("\\.\\([Ww][Mm][Vv]\\|[Vv][Oo][Bb]\\|[Mm][Pp][Ee]?[Gg]\\|asf\\|[Rr][Aa]?[Mm]\\)$" "mplayer * &")
@/Gv?A POVff )) L*x.A p NL k%v
)))
_9E/PZp E6} ;;这个也忘了,好像是不允许忽略掉某些文件
KT#U'i7Y.srgB ;;到底是哪些文件,我想想 6E,MYIN5t\B
(add-hook 'dired-mode-hook G)W:z }'w$F$^7c^d
(function (lambda ()
mxw3B.oW }-c (setq dired-omit-files-p nil)
)xo,xqY2o:s\ ))) pU!UbMi*rG~

#p4Xx-\&QX7V
7M'OR9d%_&X/yo:J4EEc hvj的讨论和推广emacs贴15:-R R#Ss+z_&@

(aX*z%Q}$v%p 上面讲了不少别的地方有,emacs中也有的工具,如文件管理器dired,IRC客户端erc,邮件客户端mew,新闻组阅读器gnus,字典emacs-dictionary等等,那么是否也有虚拟终端呢?
6Y:dt9[ Md+E*N3W O+fxbE
大家常用的是xterm, rxvt, mlterm, 等等,主要希望的就是对中文支持够好。而在emacs中也有类似的工具,虽然有的只是调用外面的程序而已。{"e/ny3z4?9_m t Qgi
b | `.K)?,_
前不久在sir里面讨论时,就发现原来emacs中只是有四种虚拟终端:eshell, shell, term, termianl-emulator。而我一直孤陋寡闻,使用的是eshell,这是一个由elisp写的,老感觉只是凑合而已。不过现在不同了, term真的不错,感觉就跟rxvt一样,非常方便,当然因为在Emacs里,还支持粘贴/复制呢。鄙人一直没搞定在rxvt和外部程序的粘贴复制
j9x'JGt %q!y0o2svx"R
小知识:上面这些虚拟终端可以通过类似M-x term的命令来运行。@6_-a@ qG;u h
vQA] rj;G(g
因为刚开始用,目前这方面还没有单独的配置文件,都是默认的。但是有几点大家可以注意一下:
p9c{/c"TE@3d&p-`9n 1,eshell没有使用~/.bashrc配置文件的,所以你得单独写很多elisp来完成你在~/.bashrc里有的功能。不过eshell有个小功能不错,摁TAB键多几次,你会发现补全很有意思和效率。;era,VIga
2,term(shell, termianl-emulator?)是使用你得Bash配置文件的,这一点我非常喜欢。可能大家会觉得term里的提示符不大漂亮,可以在~/.bashrc里设置一下,大家可以通过命令~.w-o$zO ^9F
代码:)Fs@ AE?5u
echo $TERM*YLjQ`*n1cF
获得当前的TERM变量来设置。term的TERM变量为eterm。
\Xv'tL\} 3,目前我只会在一个emacsl里打开一个term。我在用eshell的时候见过有人这样写的,通过修改eshell的buffer名称,可以同时打开几个Eshell。以后有空我会在term这里试试,不知可行性如何?@B8t\a${ o2ny
A3G+@J@)~o
/n/QDQ Pkj
hvj的讨论和推广emacs贴16:
o'i O,p c M f5Bc
U)^BE E9fZx0V 用wiki 整理你的笔记和作小型网站。虽然html也不难,但是wiki更简单,做的网页也非常不错,管理站点也很好。目前Wiki有很多版本,我常用的就是 emacs-wiki,和大家分享一下。不过目前没有用他作网站,只是管理笔记,感觉非常的灵活。下面就是我的配置文件: Z q Q9n\,n\0V
xL {9|0Q[
hvj-wiki.elM+O k"op.g e
PHP 代码:jn*b i#Y q
;;加载emacs-wiki ko fK9|G&[
(require 'emacs-wiki) ?*uP+]a k
;;设置wiki所在文件夹
-z y NM2F| (setq emacs-wiki-directories '("~/hvj/wiki")) Px'MH|Zq
;;设置wiki转换为html后所在的文件夹 PX ij(T
(setq emacs-wiki-publishing-directory "publish")
u A^kv'L;i ;;设置wiki转为html用的解码 m5O ~)q8JQ
;;但好像仍然有些问题,用firefox打开时有时仍需手动调整解码
~R'|r{+t9T E (setq emacs-wiki-meta-charset "gb2312") x M |$V/K7q
;;设置wiki转为html的样式,不过目前我还没用 \E{']}1z2e7a
(setq emacs-wiki-style-sheet
u"?K9J.kR `D "") R+k J]]_}
;;设置Wiki内图片的路径
6Q6v!v6z6t)o)YQe&y (setq emacs-wiki-inline-relative-to 'default-directory) .x)oXQdxh`m1D
A T"|}i+WK6B6|8v }*j
;;现面两个函数,是由王垠编写的
2Vo_Fl(~ ;;预览生成网页的源码,即html源码
P1W/W2oQ ;;不过先将wiki生成html :F4g)n&YwO
(defun emacs-wiki-preview-source ()
}:vOs}"~&W*H (interactive) ]:N] F _a1Gw
(emacs-wiki-publish-this-page) X `([8FTY R t
(find-file (emacs-wiki-published-file))) (J `+B,b~6M.U
;;这个函数是预览在浏览器中所生成的网页
%s?Nq"e$i] ;;这里用的是emacs-w3m浏览器,你也可使用外部浏览器,如firefox,这可能稍复杂点
7Lk'IK9Vg9[b.@p (defun emacs-wiki-preview-html ()
#[ NW1D`ch Nf (interactive)
+Lg#bs `v (emacs-wiki-publish-this-page) "@8{b ciZ2h$[
(w3m-browse-url (emacs-wiki-published-file))) Fd&F[)Flv9A

wQ~c9W"US ;;设定你的Wiki项目,有时候你可能拥有几个,一个给个人整理笔记用,一个用来发表为网站形式
w1l,W_0[wwg2R (setq emacs-wiki-projects
Y S.J&ps;NZx g '(("default" . ((emacs-wiki-directories . ("~/hvj/wiki"))))
Y/r)o u@Rk ("work" . ((fill-column . 65) P6AG4H#Pn+Q9n
(emacs-wiki-directories . ("~/hvj/workwiki/"))))))
3AT,jD,rx7w
Lc5`:IO"] x+wL7O$H A0VD
hvj的讨论和推广emacs贴17: lv0y\#r7}"|
0[ N\:mIO8i%T
这里是我用的非emacs默认的扩展包,都是自己安装的,配置文件也不常,就集中在这里了。L lV!G7m)p'p
~9V}/DBl"H%U
hvj-other-elisp.el
l,V rF`P PHP 代码:
?_oIO"C:]CGQ8M ;;有关解压缩的,以前用过,好久没用了 ;j5tl)|T
(require 'jka-compr) od!uN:]H

@fw,ctB~S/X8` ;;desktop.el在.emacs文件中(贴1)讲过,需要放在Emacs配置文件的最后
TxO4Yb?EP\ BQ(lWs Dh
;;session.el,同desktop.el,保存上次关闭时编辑文件所在的位置,而不仅仅只是打开那些文件
U9|Py@b (require 'session)
y AK%s7^8C ;;将这个功能加到emacs初始化过程中
IX&h#\b.| x (add-hook 'after-init-hook 'session-initialize)
9nGs7sDd +Do&\a.vrX^
;;redo.el,与undo相反了,不过Emacs默认没有带这个功能 9G$F)d7c]
(require 'redo) 2bZ5V]VexN6S R
.B%tH)| y6^#fVR
;;thumbs.el,看图的好东西,方便看大量的图片
lmvt}8E*D ;;他将图片都建立缩略图,所以第一次看比较慢,以后就方便了
O eP @ ~9T.} ;;不过我最近不用了,我喜欢用display *
}@[Q$o ;;(require 'thumbs)
0t}2^7A|fjE]\
?~ EK;w ;;tabbar.el,用firefox,opera的人都用过tab,很方便和人性化的一个功能
+gB.J Wr4O&j ;;这里也有,并且按文件的模式分类
%|1Xc)s%DQ;rLqs ;;对于这个扩展包,我还用了一个绑定键,用来切换buffer,很方便 V^"}t|?r
;;不过在非X下功能不全 5o,y/D H5J
(require 'tabbar)
1W8DTP m;?rv (tabbar-mode)
s7YTE5a#t V
}"S*m2eD ]7Oa ;;table.el,图表功能,不错 A'gM Wa }(aW
;;还有一个适合双字节的一个类似的扩展包,大家可找找
wdu9z!G1s4? ;;好像是印度人写的
)VC[3u7\ (require 'table) pAE/\m h[9Gb#U
(autoload 'table-insert "table" "WYGIWYS table editor")
:_WKF bn|D { (add-hook 'text-mode-hook 'table-recognize)
"X_y.h%]&JT9_/^[ (W*Z.P%dpr`MGI
;;browse-kill-ring.el,emacs默认undo次数不多,用这个扩展包,可以极大的加强这个功能
u0t)mL6D8Om ;;有一次我在翻译一本书,翻译了一天,有好几万行了,朋友叫我去打排球,我就保存放在那里了
oG@)Ced(F0K ;;宿舍的一个朋友不懂emacs,在那用鼠标左键右键中键点了几次,却不知鼠标的键在emacs通过组合绑定了不少功能 3wz;L3rE/j"?
;;可惜我的翻译文档,我回来的时候,全没了!
,f x,{2zl:w7Wd ;;不过还好,有了这个包,我可以超强恢复,也不知道摁了多少次undo,所有的都恢复了 t9U | Bt\
(require 'browse-kill-ring)
J%h[\!@$s (browse-kill-ring-default-keybindings)
y1oj(F(U+t6c@n"e }
(\u:Wh2Z'H%u ;;sawfish.el,我的窗口管理器是sawfish,我在编辑Sawfish的配置文件时,用这个模式可以正确的语法显示
udaW)^jm @ (autoload 'sawfish-mode "sawfish" "sawfish-mode" t) x9Fy(F%kb/P R8~

S1I y0r+N,P-I-[F ;;maxima.el,我很喜欢的数值计算工具maxima在emacs中使用所需的扩展包
h3jH^*jbA1mr ;;maxima-mode只是普通的模式,同在终端上运行maxima类似 H(d|3G\e"vX"Gx
(autoload 'maxima "maxima" "Maxima interaction" t)
3v&Iut ^.\ (autoload 'maxima-mode "maxima" "Maxima mode" t) f P5h gd]G*f
;;emaxima-mode,这个是非常漂亮的,因为掉用了tex,那可是对数学天生支持就好的 -V3\N/mdf"I
(autoload 'emaxima-mode "emaxima" "Emaxima" t) 3no Aq{MJ4q;N9gYZ
(add-hook 'emaxmia-mode-hook 'emaxima-mark-file-as-emaxima) Bt \+VkU4J
(autoload 'imaxima "imaxima" "Image support for Maxima." t) +_2A/_A h o)Xg

${$ps a:y3Dh ;;htmlhelpmode.el,加强的html扩展包,对html等网页源码能更好的语法显亮 _AOF~'\
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t) {'UaG|4Oku%S h
;;css-mode.el,对css文件很配
4B dOt$Iqc|"] (autoload 'css-mode "css-mode" "Mode for editing CSS files" t) f4B;}L#r{
q} {#tYIc }/J
;;services.el,一个小巧的玩意,询问端口和对应服务的关系 ]4N:p9TY+N9q
(autoload 'services-lookup "services" "Perform a service lookup" t)
c4rN;S\*R^"n/YV'N (autoload 'services-clear-cache "services" "Clear the service cache" t)
XDxy Ak+Z)F
2@9AK$WFo j ;;igrep.el,emacs中的egrep
Hy^ `mj;@ (require 'igrep)
X'H:C4\GH |t N @J}1X2K mcI
(yje*RxV,?
hvj的讨论和推广emacs贴18:W?~4Muu+iy8@9X_

$D2cj3c z {9g emacs和vim的一大有点就是对大量的文件有语法高亮显示,这里看一点emacs中的语法高亮显示。当然这里我们可以看到emacs所支持的好像没有vim多一点,但是无关紧要,Emacs的爱好者可以自个写的,我等着大家%J x)pl%ru9h
y+@\#]l{_+w#Qk
hvj-mode.el
g)XlTF5lL~"S PHP 代码:
8X3LX ^;D"Q*~P ;;将默认模式从fundemental-mode改为text-mode
Y b_b0C]ld9hS@ (setq default-major-mode 'text-mode) 5G?3I!K|zA
;;启动语法高亮模式 A@;d(shf_KX
(global-font-lock-mode t) N6t,@sp5o-v Q
;;一些具体的设置,从别的地方拷过来的,目前编程较少,所以也没具体改了,感觉目前配置还是非常不错的 8o }au VI0m~
;;如果你是一个程序员,这块你可以仔细改改
0W&O2w+E5|{^AR2Y (setq font-lock-maximum-decoration t) d? g'B,t+j;h9W_n RO
(setq font-lock-global-modes '(not text-mode)) m^i#c S]Q AK
(setq font-lock-verbose t) !~1Dz J^*?R
(setq font-lock-maximum-size '((t . 1048576) (vm-mode . 5250000)))
4`%F}b4O`(O
Z9E;T4Bl0oh ;;对相应的文件设定相应的模式,以便正确的语法显亮 R0x T w"K]
;;文件名用正则表达式表示,注意不要后面覆盖了前面的而引起的误会 n7?]}!R)A({R0Y
;;修改这个之前先C-h v auto-mode-alist查查已有的设置
y@*AFX)A8c+g!V#k (mapcar
:i X;Ew4g1f OR2X7O (function (lambda (setting) -xB?M;fW
(setq auto-mode-alist +Vb`Z-[ h&z'[
(cons setting auto-mode-alist))))
1I;]7f4JXY@6c '(("\\.\\(xml\\|rdf\\)\\'" . sgml-mode)
-E1J~ | [ sOf7L ("\\.\\([ps]?html?\\|cfm\\|asp\\)\\'" . html-helper-mode)
`~$hvf*Iq7G ("\\.css\\'" . css-mode)
5C{u;~)F"k/q3p ("\\.\\(emacs\\|session\\|gnus\\)\\'" . emacs-lisp-mode)
U6Dbu J0D9w3|C ("\\.wiki\\'" . emacs-wiki-mode)
,] ?DT;ge&y6UY t!H ("\\.\\(jl\\|sawfishrc\\)\\'" . sawfish-mode) P4L;W9kA
("\\.scm\\'" . scheme-mode) D[:hRo u
("\\.py\\'" . python-mode)
)\j`5Vpy | ("\\.\\(ba\\)?sh\\'" . sh-mode)
;E4K XlW2h aN$\+G ("\\.l\\'" . c-mode) #@~,\r&k)Jg;RC3w
("\\.max\\'" . maxima-mode)))
z2EC:?)g:q[,y&o)S j {i"pQ1` FE,CjN
&M [0A0G(kK/Z
hvj的讨论和推广emacs贴19:
#JJv%s+\ K
7G&dwdH+e#iw5`@7| emacs中的键绑定吓跑了很多人,觉得太难记了,其实你完全可以自己来重新定义这些键。我的如下:
/RP1}6tj-^2aN8X
O3g}lu w PHP 代码:,tf0| gs5u8f
;;统一设置键帮定,并尽量放在配置文件的最后,以免被绑定的键不小心被后面的配置文件覆盖 @X*z-B]1X Xh/Y
;;常用习惯,F1打开帮助,常用帮助有info和woman(就是在emacs中看man) +f dX}-x4fh tH
(global-set-key [f1] 'info) YSV;C/v'~.@7@
;;恢复,常用键
)^W3drR{ap1UI1} (global-set-key [f2] 'undo)
F5C5}5AM S;tk*y)m ;;反恢复,不是很常用,但是绑定了还是方便些 `v ns`
(global-set-key [f3] 'redo)
'kOFp5CE"M o)u'k ;;F4,kill键,习惯设置,关闭当前buffer
3[)l'^o9` (global-set-key [f4] 'kill-this-buffer) \*jz+a\pf%FIT
;;打开一个终端,根据你的爱好可以绑定为:eshell,shell,terminal-emulator `Yr|]}&X-fC;d(x
(global-set-key [f5] 'term)
M#A'i7x Dj|J ;;文件管理器,常用
,~ {T"QuQ4V.J (global-set-key [f6] 'dired-jump) y:x"L[A"Pf9D P
;;同clear相识,具体功能在hvj-functions.el讲过 3^ N"t^SCJ)rn6Gg8Nr3p7q
(global-set-key [f7] 'hvj-line-to-top-of-window)
qz6{1o }}H| ;;本人正在学scheme,常用
D9l ?kU (global-set-key [f8] 'run-scheme) T?(T*H5C;w
;;看新闻组,常用的很,不过更多时间现在sir里 !g)Xk`5L*Nn
(global-set-key [f9] 'gnus)
$[ {0I}}/ur3H ;;习惯设置,打开/关闭菜单
9`d:c3L/e (global-set-key [f10] 'menu-bar-mode) {c'\tE/vB3i"fX
;;编译等,暂时还不常用
;_ Q/_#[ j9f (global-set-key [f11] 'compile)
7R Xc eV:}5`+N'C (global-set-key [f12] 'gdb)
Vtpvbv9Un yW}+jp1X W$U^7u
;;习惯设置,Home键设定光标到文件开头 1_` da'v"G@C K qV
(global-set-key [(home)] 'beginning-of-buffer)
p` E-g;`i*U ;;习惯设置,End键设定光标到文件结尾 L"o3r(M.o2PG0I.a
(global-set-key [(end)] 'end-of-buffer)
gF"d0_{l0@ uxC2l$n Ba
;;meta在常用PC键上就是Alt键
.E"L6M {/G i9du ;;这三个绑定主要是光标移动的
s#V9h J:~%QXwv (global-set-key [(meta down)] 'goto-line) wG4a9u.]"P'Y'}0O$c
(global-set-key [(meta left)] 'backward-sexp) o ^-w%M+vXWNvc
(global-set-key [(meta right)] 'forward-sexp) 9x N xJ QtzW'L'D

X7K0{3\(u*b O ;;用Emacs时常用多个窗口,窗口之间的移动很常见
t-J,c2yP;e(Nhm;P{ ;;默认的绑定感觉不对劲,换了 0Ll aYr;\^
(global-set-key [(control o)] 'other-window)
G{!k6]*JseuEF ;;这就是我的切换buffer的设置,同windows操作相识 ua!F.ID"P
;;没法,windows用了两年多,有些习惯还真不好改 sJsQqn E.kS
;;不过emacs的配置就是好配,随你配 YXW;eT(F
(global-set-key [(control tab)] 'tabbar-forward)
q)mU-jp6@7N ;;这个设置是改变outline的快捷键前缀 QJ@E~
;;outline主要用于编程等,目前用的不多
1a:e)Aj-ft (setq outline-minor-mode-prefix [(control o)]) *zQM(N7S6QK

L tl\%w/j ;;默认的Ctrl-z是什么来着,关闭emacs吧,好像还是强行关闭,不好,用C-x c就好了 $o%d!{7pC4YYK.Q
;;我就将Ctrl-z作为我的键的绑定 -D}!F\K0PSGZ
(define-prefix-command 'ctl-z-map)
#g)u5P&` a:kHMa (global-set-key (kbd "C-z") 'ctl-z-map) -rQI1g\-W^FV
;;编译当前emacs-lisp源码为elc kzr'L/D%O,n&ogl ?
(global-set-key (kbd "C-z b") 'emacs-lisp-byte-compile)
QuSq4@ b k ;;打开我得日历
[9tI1}vL/W2o (global-set-key (kbd "C-z c") 'calendar) ;mYl)A+O
;;字典功能,就是查单词
A0w!j%Z5hOq (global-set-key (kbd "C-z d d") 'dictionary-lookup-definition) "P] zC Je2{8d?;oE
;;与上面类似 ']ldt4a/Zvj9dM
(global-set-key (kbd "C-z d s") 'dictionary-search) !Rb!g v?#y4|g}E
;;查询当前单词的匹配的单词,用于补全单词
HOYg/O (global-set-key (kbd "C-z d m") 'dictionary-match-words) -l;N.rx$^gnh9Hz,w
;;字典提示模式,同字典的自动取词功能相似
t NE*SFjp (global-set-key (kbd "C-z d t") 'dictionary-tooltip-mode)
b L)b@&v;p'T8j ;;启动我的IRC客户端,到sir去 ,B/@U:?!i Z!}"tx2a
(global-set-key (kbd "C-z e s") 'erc-irc) 9dRw#O"ai @H1_
;;到fans聊天去 v&OA ^#Z}Q I9I4X
(global-set-key (kbd "C-z e f") 'erc-fans) e ot4u Jo]Hr
;;启动拼写检查模式,只检查打开后输入的单词
j6q;\:NZPQ[ (global-set-key (kbd "C-z f m") 'flyspell-mode) G p f tHb6`,A
;;对整个buffer进行拼写检查 'vK tW*?
(global-set-key (kbd "C-z f b") 'flyspell-buffer) x*JE,?V:} ]d
;;打开gnus
]+fJ{a @by (global-set-key (kbd "C-z g") 'gnus) !sV [U,TWC7A(gK n }
;;数数本文件有多少文字
+H{n,md/|%O*@H.R (global-set-key (kbd "C-z h c") 'hvj-count-words-region)
E&WMsF;My'm ;;同Clear键 %B4H[i/}|,^|R
(global-set-key (kbd "C-z h l") 'hvj-line-to-top-of-window) +a _ w*G KY"r+L
;;拼写检查 eV6]jP0k5Bw
(global-set-key (kbd "C-z i") 'ispell-minor-mode) U6V Y5@ dy
;;debug s!q `G^0E
(global-set-key (kbd "C-z j") 'jdb)
:nU1xfQ[ ;;查看前面删除的内容记录 \yx W.V
(global-set-key (kbd "C-z k") 'browse-kill-ring) LjjFZuex+T
;;打印当前buffer '@E(y1j p#J+g}
(global-set-key (kbd "C-z l") 'lpr-buffer)
B j@R(x5vO ;;启动我得maxima,漂亮模式
gwi9d/Y9c'`KE4Q (global-set-key (kbd "C-z m") 'imaxima)
zD M5I:z ;;绑定两个narrow功能
e8@C|:I$G"Yt (global-set-key (kbd "C-z n n") 'narrow-to-region)
qO2gjU8SbK(Z xx (global-set-key (kbd "C-z n w") 'widen)
3P+KciLtp (global-set-key (kbd "C-z o") 'occur)
qR$M @"Nc |qN ;;几个小游戏
B{ U(H1SdR9DvR (global-set-key (kbd "C-z p g") 'gomoku)
M|M!UzW (global-set-key (kbd "C-z p t") 'tetris)
&Q P?&~(d/Jw,t2| ;;由于在html-helper-mode模式中F4键失效,用这个绑定来关闭buffer _%j|-m'aO1D
(global-set-key (kbd "C-z q") 'kill-this-buffer)
1H-WPBM4~3Jgs'v ;;带正则表达式的搜索
1dp wS+EZ)xfX (global-set-key (kbd "C-z r") 'query-replace-regexp)
{;n4Z)U%B,C1f ;;我得scheme也是可以在emacs中运行的 l8U`vb UeK8A
(global-set-key (kbd "C-z s") 'run-scheme)
B"Noo{)x d0E a!l9{ ;;我的终端 c ^+Gl'V]
(global-set-key (kbd "C-z t") 'term) T g^:t X D.s
;;可以在emacs编辑文件使用vim习惯,常用的是vi-mode和viper-mode
i"[5m |}"UmN8|+K (global-set-key (kbd "C-z v") 'vi-mode) 5m#KPYY5B}u
;;我的文件管理器
N;xf5cd ?3I:[NFX (global-set-key (kbd "C-z u d") 'dired-jump) U7q&o,?g&mj vK$M
(global-set-key (kbd "C-z u f") 'folding-mode)
+\$X[r9d_ (global-set-key (kbd "C-z u o") 'outline-minor-mode) @F9c5WL
;;查询service,见hvj-other-elisp h*Fh(~(h/O%S$ko^
(global-set-key (kbd "C-z u s") 'services-look-up) -\Df5VA T
;;wiki中的绑定设置,还用的不多
(]w$h{R3iZY.h3v (global-set-key (kbd "C-z w c") 'emacs-wiki-change-project) U:Mel4u9s"w"U4A0x
(global-set-key (kbd "C-z w f") 'emacs-wiki-find-file)
9BA ~A#ZA*j.aZ (global-set-key (kbd "C-z w h") 'emacs-wiki-preview-html) NjQqm C
(global-set-key (kbd "C-z w i") 'emacs-wiki-index)
9Xk+C(}~0f (global-set-key (kbd "C-z w p") 'emacs-wiki-publish) h6g8D%D2K Y/H5H
(global-set-key (kbd "C-z w s") 'emacs-wiki-search)
+UX$x\1hX ;;我的浏览器
L2zU(WJd7x (global-set-key (kbd "C-z w w") 'w3m)
)o)g5tm5L!V ;;同C-z b有点不同,在编译后并加载
$Tm"B\Q;F)b(` (global-set-key (kbd "C-z x") 'emacs-lisp-byte-compile-and-load) !WiL O5Y sR5A
;;同yank有点不一样,但具体怎样忘了,感觉这个比yank好点 U8R f@?
(global-set-key (kbd "C-z y") 'clipboard-yank) /M#Y"h,`+a
;;修改后的设定mark的绑定,由于经常忘了放住control键,就给这个功能两个绑定了
*\4S@3U;zl(} (global-set-key (kbd "C-z z") 'set-mark-command)
Kht%~$U (global-set-key (kbd "C-z C-z") 'set-mark-command)
2`:n+|1Xmq3H9sH
-u"F Ntb @ i(I RF? ;;there are severl other key-map below in other files G$p5Y4[%_;l7j,H
;;ctrl-f-folding-mode-prefix
!Zb+n@*t\ ;;ido key-map H@i]8H&A9?
;;severl self define functions related key-bindings. Lp?C{o Y zg:U
8yW$H%vq9["n
这是我配置文件总结的最后一贴了,有空我会修复其中的一些不足和错误之处。希望这对大家使用Emacs能有所帮助。也欢迎大家多提意见,对这些配置文件多一些修改意见
  评论这张
 
阅读(1516)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017