简单的说， graphviz 是一个开源的自动图形绘制工具, 可以很方便的可视化结构信息，把抽象的图和网络用几何的方式表现出来。

Graphviz is open source graph visualization software. Graph visualization is a way of representing structural information as diagrams of abstract graphs and networks. It has important applications in networking, bioinformatics, software engineering, database and web design, machine learning, and in visual interfaces for other technical domains.

更多信息请参考其主页：http://www.graphviz.org/

Linux 下几乎所有的发行版都有这个工具，如果没有默认安装的话，也可以通过发行版自带的软件管理工具来或者去其下载页面上下载相应的二进制包或者源码包。同时该软件也提供了 windows 下的安装文件，参见： http://www.graphviz.org/Download..php

gentoo 下安装 graphviz ， 一如既往的简单：

emerge -av graphviz

这个话题比较大，离本文的目的有点偏，而且有网上也很多的教程，所以不多言了，可以参考这里：http://www.google.com/search?hl=en&source=hp&biw=1278&bih=898&q=graphviz+%E6%95%99%E7%A8%8B

用过 Emacs 的人一看就知道：这肯定是为 emacs 写的、编写 dot 文件（graphviz 的输入文件）的模式，提供了文件的编译、预览、快速注释等等的相应功能。gentoo 下有现成的 ebuild ， 只要 emerge 一下就可以了：

emerge -av graphivz-dot-mode

如果是其他发行版的话，从其 主页 上下载该文件，然后放到 emacs 的 load-path 下即可。下面是一个简单的设置：

(load "graphviz-dot-mode.el" nil t t)
 
(add-hook 'find-file-hook (lambda()
                            (if (string= "dot" (file-name-extension
                                                buffer-file-name))
                                (progn
                                  (message "Enabling Setings for dot-mode")
                                  (setq fill-column 1000)
                                  (base-auto-pair)
                                  (local-set-key (kbd "<C-f6>") 'compile)
                                  )
                              )))

graphviz-mode 为编辑 dot 文件提供了下面的快捷键：

• C-cc 快速编译
• C-cp 预览图像
• M-; 注释或者取消注释

主要思想是解析 buffer 中选中的文本，通过正则表达式来匹配，从中找到 struct name 以及其中的各个 fields， 最后根据 dot 语法将其组成一个 subgraph。其实应该有更好的方法（比如通过 CEDET 的 Semantic 解析结果来做），但对 CEDET 的代码实在不熟，所以现在就只能这样了。
代码如下：

;; Function used to add fields of struct into a dot file (for Graphviz).
(defconst yyc/dot-head "subgraph cluster_%s {
    node [shape=record fontsize=12 fontname=Courier style=filled];
    color = lightgray;
    style=filled;
    label = \"Struct %s\";
    edge[color=\"#2e3436\"];"
  "Header part of dot file.")
(defconst yyc/dot-tail "
}"
  "Tail part of dot")
(defconst yyc/dot-node-head
  "
        node_%s[shape=record label=\"<f0>*** STRUCT %s ***|\\"
  "Format of node.")
(defconst yyc/dot-node-tail "
\"];"
  "Format of node.")
 
(defconst r_attr_str "[ \t]+\\(.*+\\)[ \t]+\\(.*\\)?;"
  "Regular expression for matching struct fields.")
 
(defconst r_name "\\_<\\(typedef[ \t]+\\)?struct[ \t]+\\(.*\\)?[ \t]*{"
  "Regular expression for mating struct name")
 
(defconst attr_str "
<f%d>%s %s\\l|\\" "nil")
 
(defun yyc/datastruct-to-dot (start end)
  "generate c++ function definition and insert it into `buffer'"
  (interactive "rp")
  (setq var-defination (buffer-substring-no-properties start end))
  (let* ((tmp_str "")
         (var-name "")
         (var-type "")
         (counter 0)
         (struct-name "")
         (header-str "")
         )
    (defun iter (pos)
      (setq counter (+ counter 1))
      (message (format "Counter: %d, pos: %d"
                       counter pos))
      (if (string-match r_name var-defination pos)
          (progn
            (message "A")
            (setq struct-name
                  (match-string 2 var-defination))
            (setq header-str
                  (format yyc/dot-head struct-name struct-name))
            (setq tmp_str
                  (format yyc/dot-node-head struct-name struct-name))
            (iter (match-end 0)))
        (if (string-match r_attr_str var-defination pos)
            (progn
              (message "B")
              (setq var-type
                    (match-string 1 var-defination))
              (setq var-name
                    (match-string 2 var-defination))
              (setq tmp_str
                    (concat tmp_str
                            (format attr_str counter var-type var-name)))
              (iter (match-end 0)))
          nil)))
    (save-excursion
      (iter 0)
      (set-buffer (get-buffer-create "tmp.dot"))
      (graphviz-dot-mode)
      (setq pos (point-max))
      (insert  header-str tmp_str )
      (goto-char (point-max))
      (delete-char -1)
      (insert "<f999>\\"yyc/dot-node-tail yyc/dot-tail)
      )
    (if (one-window-p)
        (split-window-vertically))
    (switch-to-buffer-other-window "tmp.dot")
    (goto-char (point-min))
    )
  (message "Finished, please see *tmp.dot* buffer.")
  )

用起来很简单：找到一个 C 代码，标记整个 struct 定义，然后M-x 输入： yyc/datastruct-to-dot 即可。命令执行完毕后，会打开一个新的 tmp.dot buffer，其中包含了用于绘制该 struct 的代码。前面也提到了，这生成的仅仅是个 subgraph，需要将这个 subgraph 添加到真正的 graph 下，才能生成图像。我通过 autoinsert 来自动创建用于放置 subgraph 的 graph 。

Evernote 是一套用来记笔记和查询笔记的软件和服务.Evernote 中的笔记可以是一段文字,一个网页或网页片断,一幅图片,声音,或者手绘墨迹,而且笔记可以有PDF之类的附件. 已有笔记可以支持以下搜索方式:文件夹,标签,是否有附件,是否有图片,是否email发送,是否是todo,据说,搜索还可以支持搜索图片内的文字. 可谓,功能强大,同时,方便易用,实乃是居家旅行,看书学习必备之工具.

Evernote 有免费版和专业版.Evernote 免费版每个月提供60M上传流量(即上传的笔记总大小不能超过60M),如果需要更多上传流量可以考虑付费版.不过就我个人经验,对于普通用户来说,60M的流量,内容大都为纯文字和图片的话,足足够用.此外,我认为笔记的内容最好只有文字和图片,不要使用doc和pdf之类的附件:第一,Evernote 比较强大的搜索功能对此类附件无效,使用附件的话既浪费了Evernote 最强大的搜索功能,又占据了大部分的上传流量,所以如果这些文档比较多,我建议此类附件还是放到Dropbox或者Sugarsync;第二个,也是更重要的不要使用附件的原因就是云存储,具体见下节.

因为我使用的是Window XP,所以手头只有evernote windows版的尊容,欢迎其它平台的用户截图发给我:)

为什么Evernote 是优秀的?首先,我们先看一组数据².下表是笔记相关的软件们特性的对比.

下面根据数据来说明为什么应该选用Evernote ：

第一,Evernote 有免费版本,免费,功能受限,但是是足够用. 附合it just works原则.

第二,跨平台绝对给力,秒杀所有同类软件.大部份同类软件能够支持到linux,mac,windows三个已经能够给人惊喜了,Evernote 呢,支持的平台包括：Android, Mac OS X, iPhone OS, Windows XP, Windows Vista, Windows 7, Windows Mobile, Palm Pre, IMAP (read-only), WWW,这意味着什么：首先,Evernote 的笔记才是真正的 write once,run everwhere,身为一个程序猿,对这种特性简直爱到死;其次,Evernote 彻底重新定义了记笔记这个活动：纸笔,电脑,几乎所有智能手机：iphone,windows mobile, palm, android,都有客户端,feature phone只要支持imap的mail客户端,或者拥有一个浏览器,就都可以完成记笔记这个行为.移动设备,可以让记笔记无处不在.

第三,支持的笔记类型：键盘输入,语音输入,照片,手写的电子墨迹,等等,从此笔记不再是冷电脑前,书前冷冰冰的文字知识,而可以是任意的领悟,待办事项,绝妙主意,路过的一个美女(是的,支持照片),帐本,钱的花销,记录时间花销,等等.Evernote 让记笔记成为了艺术.

第四,强大的搜索功能³：Evernote 的搜索按照关键字搜索文本,标题,图片中文字内容,等等,关键字支持正则表达式.但是,这并不是Evernote 搜索的全部,Evernote 的搜索强大还在于其支持以下搜索标准：tag,创建日期,修改日期,是否有附件,是否发自email,notebook,作者,经度,纬度,todo.笔记不但找得到,而且找的准.

简要说明了Evernote 的强大,下面来介绍什么时候应该使用Evernote 和如何使用Evernote 来记笔记.

对于传统的读书笔记,一般是发生在看书时,而现在更多的发生在电脑旁,下面我们介绍下读书笔记和Evernote 结合的方法.

• 看书时

  对于传统纸书,一般还是记在纸上,然后输入电脑,或者就在笔记本上.可惜,这种纸质方法记下的笔记有两个很严重的问题：书和笔记本的存放,书籍,纸质笔记本的丢失是经常发生的事情;二,笔记的搜索：好像读过某本书,记过什么想法,但是需要的时候,翻遍所有笔记本偏偏找不到更是经常遇到的情况.

  所以,读书我推荐Kindle ⁴,Kindle 可以完美克服这两个缺点：便携,Kindle 6寸屏幕,可以放到一般衣服的兜里:易搜索,将Kindle 和Evernote 进行绑定,将Kindle 记录下的读书笔记交给Evernote 来保存,得以充分利用Evernote 的强大搜索功能,LOL～～～～.绑定方法是Kindle 绑定Twitter,Twitter绑定Evernote : (kindle+twit)+(twit+evernote)=kindle -> evernote,具体方法见 http://blog.evernote.com/2009/04/14/evernote\_twitter/.

  绑定后,在Kindle 上记笔记时,使用以下语法,即可将笔记传送到Evernote 数据库中,下面是我建议的一种记笔记的方式：

  @myen 110122 my kindle example notes for Evernote #aat.

  @myen是evernote的Twitter帐号,在绑定Twitter和Evernote 后,所有@myen的内容都会记录到你的Evernote 数据库,100122是记笔记的日期,供日后查询用,my kindle example notes for Evernote 是笔记内容,#notes是标签,标记了是看哪本书,也是为了查询时能够单独查询出看某一本书时的笔记,比如我现在看的一本书是<American Accent Trainning>⁵,我给所有这本书的笔记用的标签#aat,这个标签起名全在个人品味,只要保持前后一致,并且好记即可.

• 电脑旁

  电脑旁看书的话,Windows和Mac有相应的Evernote版本,Linux有一个移植Nevernote⁶,客户端功能强大,使用方法可以参考¹中各种介绍.

浏览网页时,难免会有些雄文,看过一遍不爽,于是会想保存下来日后阅读.一般可以选择保存为google bookmark, google reader中共享, google reader中标记星号.

那么Evernote 提供一种新的,我认为更好的方法,将雄文保存为自己的笔记.毕竟内容再好,网上的内容属于网上的,即使在google reader中标记为了星号,google reader上从来没有下1000的未阅读也会让阅读星号文章成为一种美好的愿望.但是,保存为笔记,闲暇时分,自然而然的打开evernote,看一下tag为todo,同时tag为algortithm的文章,那是多么的惬意.笔记,随着时时温习让知识纳入自己的知识网络那才是王道.

Evernote 提供Firefox和Chromer两个浏览器的插件⁷,如果是安装了Windows的客户端,默认的会在IE上安装Evernote 插件.插件的作用是抓取网页内容,简单易用,功能强大,谁用谁知道.

记得当时听李敖讲当年刚上大学军训的时候,用塑料布将笔和笔记本绑到腰上,有什么想法赶紧用纸笔记下来,塑料布绑着也不怕笔记本被汗水浸湿.

二十一世纪的我们,如果再有如此强大的求知欲,需要记笔记时当然不再用如此虐待自己了.手机,社会人的标配,在借助了Evernote 的东风后,也能够在加强沟通以外的领域开花结果.

Evernote 提供以下平台的客户端,iPhone / iPod Touch,iPad, Android, BlackBerry, Palm Pre / Palm Pixi, Windows Mobile, 下载地址： http://www.evernote.com/about/download/?btn=grey.

如果手机不是以上几种,不是智能手机,也没有问题,只要支持email,通过email记笔记也很是方便,方法见： http://blog.evernote.com/2010/03/16/emailing-into-evernote-just-got-better/.

好吧,如果手机连email都不支持,最后的办法就是web.现在的feture phone全部都支持java,安装一个opera,用opera访问Evernote 的主页,在其主页上进行记笔记的操作即可.只是,如果记笔记需要如此繁琐的步骤：1.打开浏览器,2.登陆Evernote 主页,3.新建,4.写内容,5.提交,6,记笔记完成.这繁琐的步骤让手机失去了记笔记的方便快捷性,那么失去了快捷性的手机记笔记也就没有必要了.这种情况下,使用纸笔也许是更好的方法.

如果你是一位潮人,果粉,那么恭喜,苹果的所有产品都有相应的app,而且据说是最好用的Evernote app,羡慕妒嫉啊.

• download代码到本地

  svn checkout http://emacs-evernote-mode.googlecode.com/svn/trunk/ emacs-evernote-mode-read-only

• 安装ruby脚本

cd evernote-mode/ruby
ruby setup.rb

• 将evernote-mode.el加入到load path
• 为evernote-enml-formatter-command 安装w3m（可选） 如果你的linux/Unix用户,从这里取w3m 或者使用你发行版的包管理工具安装;如果你是Windows用户,安装cygwin并在安装过程中选中w3m包.
• 将evernote-mode的配置文件加入.emacs

(setq evernote-enml-formatter-command '("w3m" "-dump" "-I" "UTF8" "-O" "UTF8")) ; option
(add-to-list 'load-path "<your load path>")
(require 'evernote-mode)
(global-set-key "\C-cec" 'evernote-create-note)
(global-set-key "\C-ceo" 'evernote-open-note)
(global-set-key "\C-ces" 'evernote-search-notes)
(global-set-key "\C-ceS" 'evernote-do-saved-search)
(global-set-key "\C-cew" 'evernote-write-note)
(global-set-key "\C-cep" 'evernote-post-region)
(global-set-key "\C-ceb" 'evernote-browser)

如果使用cygwin来安装的ruby的话,需要cygwin-mount.el(http://www.emacswiki.org/cgi-bin/wiki/cygwin-mount.el).

将cygwin-mount.el放至load path中,并在.emacs中加入以下代码

(require 'cygwin-mount)
(cygwin-mount-activate)

安装完毕.

简要介绍evernote-mode提供的命令和功能.

• everntoe-broswer

  Evernote Browser可以打开以下四种页面：标签列表页面,已保存搜索列表页面,笔记列表页面,笔记本列表页面.

  标签列表页面以层次图的形式列出Evernote服务中的标签列表,在标签名字上\C-m会打开符合此tag的笔记列表页.

  

  已保存搜索是在Evernote中已创建的一系列搜索条件,在某个搜索上按键\C-m会打开符合相应的搜索结果的笔记.

  

  笔记列表页面,符合某个搜索条件的笔记.

  

  笔记本列表页面是Evernote上创建的所有笔记本的列表.

  下表是所有在Evernote Browser上可用的其它键命令.

  按键	动作
  b	移动到前一页
  f	移动到后一页
  t	创建一个标签列表页面并显示.如果已存在标签页面,直接将其打开.
  S	创建一个搜索列表页面并显示.如果已存在,将其打开.
  s	输入搜索条件,并显示符合搜索结果的笔记列表.
  N	创建一个笔记本列表页面.如果笔记本列表已经存在,将其打开.
  o	等同\C-m,但是光标并不移动到打开的笔记buffer.
  n	如果在笔记列表,打开当前笔记,并移动到下一行.
  p	如果在笔记列表,打开当前笔记,并移动到前一行
  d	从Evernote Browser删除当前页面.

1
2
3
4
5
6
7
8
9

(define-skeleton 1exp 
  "Input #+BEGIN_EXAMPLE #+END_EXAMPLE in org-mode"
""
"#+BEGIN_EXAMPLE\n"
 _ "\n" 
"#+END_EXAMPLE"
)
 
(define-abbrev org-mode-abbrev-table "iexp" "" '1exp)

这个 Skeleton 解决的是 #+BEGIN_EXAMPLE #+END_EXAMPLE 标签的问题。通过上面这个 Skeleton，只要在 org-mode 的 buffer 里面输入 iexp，就会自动扩展成 org-mode 的样例片段，就像下面这样，同时把光标自动定位在两行内容的中间，等待你的进一步输入。

#+BEGIN_EXAMPLE

#+END_EXAMPLE

1
2
3
4
5
6
7
8
9

(define-skeleton 1src 
  "Input #+begin_src #+end_src in org-mode"
""
"#+begin_src lisp \n"
 _ "\n" 
"#+end_src"
)
 
(define-abbrev org-mode-abbrev-table "isrc" "" '1src)

上面这个 skeleton和 iexp 非常类似， 只是扩展出来的是 org-mode 的代码片段，使用方式是输入 isrc， 同样会把光标定位在两行的中间，等待用户输入代码。

1
2
3

#+begin_src lisp 
 
#+end_src

1
2
3
4
5
6
7
8
9

(define-skeleton 1prop 
  "Input :PROPERTIES: :END: in org-mode"
""
>":PROPERTIES:\n"
> _ "\n" 
>":END:"
)
 
(define-abbrev org-mode-abbrev-table "iprop" "" '1prop)

ROPERTIES: 属性在 GTD 的时候经常会用到。虽然 org-mode 提供了各种按键组合来输入各种 ROPERTIES: ，但是很多时候，直接输入 ROPERTIES: 内容显然要比记忆那些复杂的按键组合要容易的多。

在这里要注意的是，由于 ROPERTIES: 经常与 org-mode 的 heading 一起使用，所以需要考虑到缩进的问题。在这个 Skeleton 定义里面加入的 > 字符，就是为了根据当前使用环境，在扩展的时候进行正确的缩进。使用的时候输入 iprop，可以得到下面的内容

    ROPERTIES:

   :END:

(define-skeleton insert-emacser-code
  ""
  ""
  "#+BEGIN_HTML\n"
"<pre lang=\"lisp\" line=\"1\">\n"
_"\n"
"</pre>\n"
"#+END_HTML\n"
)

(define-abbrev org-mode-abbrev-table "ihtml"  "" 'insert-emacser-code)

最后这个 Skeleton 看起来有点复杂了，因为这个不是 org-mode 的默认格式。这个是给 Emacser.com 写稿的时候引用代码片段所需的外框。在写作的时候只要输入 ihtml，就可以扩展成下面的内容 note 。

#+BEGIN_HTML
<pre lang="lisp" line="1">

</pre>
#+END_HTML

上次发稿的时候由于忘记了这个 Skeleton，所有的代码、样例全都写成了 org-mode 默认的标签，完成之后才想起来，然后又手工删除并补写了 Emacser.com 需要的标签，再然后，相信我不说你们也猜的出来了，惨痛的的教训啊！！！ 以后一定要记得用 Skeleton 啊。

1
2
3
4
5
6

(defun iexp (St Ed)
  "Enclose example for org-mode"
  (interactive "r")
  (let ((beg St) (end Ed))
    (message "%s %s" beg end)
    (i-babel-quote beg end "#+BEGIN_EXAMPLE" "#+END_EXAMPLE")))

这个函数对应于上面的 iexp Skeleton。使用的时候，选中要处理的样例片段，然后输入 M-x iexp ，即可在选中的样例两端加入相应的内容。

例如下面这样的内容

1
2
3
4
5
6
7
8

(require-extensions 'require
 (list 
  'tabbar 
  'switch-window
  'thing-edit
  'second-sel
  'browse-kill-ring+
))

通过 M-x iexp 命令，就会变成这样的内容

#+BEGIN_EXAMPLE
(require-extensions 'require
 (list
  'tabbar
  'switch-window
  'thing-edit
  'second-sel
  'browse-kill-ring+
))
#+END_EXAMPLE

同样的道理应用在 isrc 函数上面。 这个函数对应上面的 isrc skeleton。同样也是选中要处理的样例片段，然后输入 M-x isrc ，即可在选中的样例两端加入相应的内容。在这个里面有一个小小的设计，就是处理完成之后光标会被定位在 #+begin_src 的后面，方便输入编程语言的名称。

1
2
3
4
5
6

(defun isrc (St Ed)
  "Enclose code for org-mode"
  (interactive "r")
  (let ((beg St) (end Ed))
    (message "%s %s" beg end)
    (i-babel-quote beg end "#+begin_src " "#+end_src")))

这个 ihtml 函数就是上次给 Emacser.com 写稿的时候用“鲜血”换来的啊。我要是早点儿把这个东西写出来该有多好啊。每次想到这里总会想到胖兔子粥粥说到的 和拖拉死磕到底 。其实我真正想说的潜台词还是——要是早一点儿能够元旦放假该有多好啊，那样的话我肯定就把这个函数写了么。汗啊。

使用方法同样是选中要用的代码，然后输入 M-x ihtml 命令。由于 Emacser.com 的标签行数比较多，这里用了 concat 函数做了处理。

(defun ihtml (St Ed)
  "Enclose code for Emacser.cn"
  (interactive "r")
  (let ((beg St) (end Ed))
    (message "%s %s" beg end)
    (i-babel-quote beg end
         (concat "#+BEGIN_HTML\n " "<pre lang=\"lisp\" line=\"1\">\n")

         (concat "</pre>\n" "#+END_HTML\n")
         )))

最后还是依照以前的惯例，在介绍完出镜的美女以后，让我们来认识一下踏实干活、默默奉献的基础函数吧。所有上面的函数都是通过这个基础函数完成补全的工作的。让我们为这个函数鼓掌。

1
2
3
4
5
6
7
8
9
10

(defun i-babel-quote (beg end str1 str2)
  (goto-char end)
  (forward-line 1)
  (insert str2)
  (newline)
  (goto-char beg)
  (forward-line -1)
  (newline)
  (insert str1)
)

最后的最后，再饶一个小小的函数。这个函数是处理行内(inline)代码的。说白了就是在所选文字的首尾加上一组等于号。就这么简单个事情，如果处理的数量多的时候也是一个不小的负担。尤其是当文章已经写好，或者是处理拷贝过来的的内容的时候。

使用方法和上面的函数一样，选中所需的内容，然后输入 M-x i= 就一切就都处理完毕了。

1
2
3
4
5
6
7
8
9
10

(defun i= (St Ed)
  ""
  (interactive "r")
  (let ((beg St) (end Ed))
    (goto-char end)
    (insert "=")
    (goto-char beg)
    (insert "=")
    (goto-char (+ end 2)))
)

1
2
3
4
5
6

     (defun copy-word (&optional arg)
      "Copy words at point into kill-ring"
       (interactive "P")
       (copy-thing 'backward-word 'forward-word arg)
       (paste-to-mark arg)
     )

Key binding

(global-set-key (kbd "C-c w")         (quote copy-word))

1
2
3
4
5
6

     (defun copy-line (&optional arg)
      "Save current line into Kill-Ring without mark the line "
       (interactive "P")
       (copy-thing 'beginning-of-line 'end-of-line arg)
       (paste-to-mark arg)
     )

Key binding

(global-set-key (kbd "C-c l")         (quote copy-line))

1
2
3
4
5
6

     (defun copy-paragraph (&optional arg)
      "Copy paragraphes at point"
       (interactive "P")
       (copy-thing 'backward-paragraph 'forward-paragraph arg)
       (paste-to-mark arg)
     )

Key binding

(global-set-key (kbd "C-c p")         (quote copy-paragraph))

弄完这三个最简单的部分之后，接下来的事情就比较复杂一些了。下面的函数一个是拷贝字符串的，另外一个是拷贝括号当中的内容的。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

     (defun beginning-of-string(&optional arg)
       "  "
       (re-search-backward "[ \t]" (line-beginning-position) 3 1)
             (if (looking-at "[\t ]")  (goto-char (+ (point) 1)) )
     )
     (defun end-of-string(&optional arg)
       " "
       (re-search-forward "[ \t]" (line-end-position) 3 arg)
             (if (looking-back "[\t ]") (goto-char (- (point) 1)) )
     )
 
     (defun thing-copy-string-to-mark(&optional arg)
       " Try to copy a string and paste it to the mark
     When used in shell-mode, it will paste string on shell prompt by default "
       (interactive "P")
       (copy-thing 'beginning-of-string 'end-of-string arg)
       (paste-to-mark arg)
     )

Key binding

(global-set-key (kbd "C-c s")         (quote thing-copy-string-to-mark))

Similar with new copy string to mark

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

     (defun beginning-of-parenthesis(&optional arg)
       "  "
       (re-search-backward "[[<(?\"]" (line-beginning-position) 3 1)
             (if (looking-at "[[<(?\"]")  (goto-char (+ (point) 1)) )
     )
     (defun end-of-parenthesis(&optional arg)
       " "
       (re-search-forward "[]>)?\"]" (line-end-position) 3 arg)
             (if (looking-back "[]>)?\"]") (goto-char (- (point) 1)) )
     )
 
     (defun thing-copy-parenthesis-to-mark(&optional arg)
       " Try to copy a parenthesis and paste it to the mark
     When used in shell-mode, it will paste parenthesis on shell prompt by default "
       (interactive "P")
       (copy-thing 'beginning-of-parenthesis 'end-of-parenthesis arg)
       (paste-to-mark arg)
     )

Key binding

(global-set-key (kbd "C-c a")         (quote thing-copy-parenthesis-to-mark))

这个地方当初还有个故事呢。当我刚把代码贴上去的时候，那个时候还写的比较初级，EmacsWiki 上的 AndyStewart 老大居然还跑过来问我，为什么不去看一下 Thing At Point ? 其实这个原因不能再简单了——因为我不知道么。我前面说过，很多时候我都是靠自力更生的，哪里知道这么多老大啊？

当然，既然老大发话了，过去看一眼吧。我不仅去看了 Thing At Point，还把 Emacs 的 thing-edit.el 也翻出来看了一遍，然后把偶的代码用 thing-edit.el 的方法全部都重写了一遍，最后偶还是觉得对付字符串这种事情还是用我最初的办法解决起来比较舒坦。就又麻烦了一回又给改回来了。不幸就是在一些函数名字上不慎留下了一些 thing-copy 或者 copy-thing 这样的痕迹了。

所有以上几个函数，都依赖于下面这三个基础函数，由他们三个负责完成实际的工作。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

     (defun get-point (symbol &optional arg)
      "get the point"
      (funcall symbol arg)
      (point)
     )
 
     (defun copy-thing (begin-of-thing end-of-thing &optional arg)
       "copy thing between beg & end into kill ring"
        (let ((beg (get-point begin-of-thing 1))
         (end (get-point end-of-thing arg)))
          (copy-region-as-kill beg end))
     )
 
     (defun paste-to-mark(&optional arg)
       "Paste things to mark, or to the prompt in shell-mode"
       (let ((pasteMe 
         (lambda()
           (if (string= "shell-mode" major-mode)
             (progn (comint-next-prompt 25535) (yank))
           (progn (goto-char (mark)) (yank) )))))
        (if arg
            (if (= arg 1)
            nil
              (funcall pasteMe))
          (funcall pasteMe))
        ))

实际上最终写成现在这个结构也是很多次重复之后才学会的。所以编写自己的扩展函数的时候也是很好的学习 Emacs，学习 eLisp 的时候。俗话说，生活就是一个星期日，接着另一个星期日…… Emacs 就是一个改变，接着另一个改变…… 基本上，每一个星期日，我的 Emacs 都在改变。

下载：http://cx4a.org/software/auto-complete/
配置.emacs，我的auto-complete在/mydoc/lib/emacs-plugins/下

; auto complete
(add-to-list 'load-path "/mydoc/lib/emacs-plugins/auto-complete")  
(require 'auto-complete-config)  
(add-to-list 'ac-dictionary-directories "/mydoc/lib/emacs-plugins/auto-complete/ac-dict")  
(ac-config-default)

gcc-code-assist就是在gcc代码基础上改的，主要用来从代码中提取补全信息

1. 下载：http://cx4a.org/software/gccsense/#Downloads
   编译安装之前，准备好环境，debian系统如下：
   ^?View Code BASH

   sudo apt-get install build-essential libgmp3-dev libmpfr-dev flex ruby rubygems libsqlite3-ruby

   其它系统，如freebsd、macos请自行参考用户手册。

2. 配置安装：
   ^?View Code BASH

   $ tar xvjf gcc-code-assist-*.tar.bz2 $ cd gcc-code-assist-* $ ./configure --program-suffix=-code-assist --enable-languages=c,c++ --disable-bootstrap --disable-multilib $ make # -j2 $ sudo make install

   安装成功之后执行下，如果有正常输出，就说明安装成功：

   ^?View Code BASH

   $ gcc-code-assist --version $ g++-code-assist --version

gccsense这个包包含一些辅助函数，以及编辑器的插件

1. 解压缩之后，执行：
   ^?View Code BASH

   $ cd gccsense-* $ sudo cp bin/* /usr/local/bin/

2. 执行一下命令，确保安装成功：
   ^?View Code BASH

   $ gccrec --version $ autopch --version

3. emacs的插件文件为etc/gccsense.el，放到插件目录然后，在.emacs里面加入
   ^?View Code LISP

   (require 'gccsense)

   即可。
   由于我的gccsense.el放到了。/mydoc/lib/emacs-plugins/c下，并且把auto-complete的补全命令绑定到了M+/上，所以这部分配置如下：

   ^?View Code LISP

   (add-to-list 'load-path "/mydoc/lib/emacs-plugins/c") (require 'gccsense) (global-set-key "\257" (quote ac-complete-gccsense))

   ok，搞定。

要写C++程序，当然要用到cc-mode插件。CC-Mode原本是支持C语言的，但现在也能支持很多语言，比如 C++，Java，Objective-C，CORBA，AWK，Pike等等。CC-Mode是gnu-emacs的标准插件。如果您要求不高，那么默认的配置或许就能满足。CC-Mode的各种行为都可以自由地定制，您可以参考这里的文档：CC-Mode参考文档

这里是我的.emacs文件中关于CC-Mode配置的部分，仅供参考：

1
2
3
4
5

;;;; CC-mode配置  http://cc-mode.sourceforge.net/
(require 'cc-mode)
(c-set-offset 'inline-open 0)
(c-set-offset 'friend '-)
(c-set-offset 'substatement-open 0)

1
2
3
4
5
6
7
8
9
10
11
12
13
14

;;;;我的C/C++语言编辑策略
 
(defun my-c-mode-common-hook()
  (setq tab-width 4 indent-tabs-mode nil)
  ;;; hungry-delete and auto-newline
  (c-toggle-auto-hungry-state 1)
  ;;按键定义
  (define-key c-mode-base-map [(control \`)] 'hs-toggle-hiding)
  (define-key c-mode-base-map [(return)] 'newline-and-indent)
  (define-key c-mode-base-map [(f7)] 'compile)
  (define-key c-mode-base-map [(meta \`)] 'c-indent-command)
  ;;  (define-key c-mode-base-map [(tab)] 'hippie-expand)
  (define-key c-mode-base-map [(tab)] 'my-indent-or-complete)
  (define-key c-mode-base-map [(meta ?/)] 'semantic-ia-complete-symbol-menu)

注意一下，上面最后两行是代码自动补齐的快捷键。后面我会提到代码自动补齐。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

;;预处理设置
(setq c-macro-shrink-window-flag t)
(setq c-macro-preprocessor "cpp")
(setq c-macro-cppflags " ")
(setq c-macro-prompt-flag t)
(setq hs-minor-mode t)
(setq abbrev-mode t)
)
(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)
 
;;;;我的C++语言编辑策略
(defun my-c++-mode-hook()
(setq tab-width 4 indent-tabs-mode nil)
(c-set-style "stroustrup")
;;  (define-key c++-mode-map [f3] 'replace-regexp)
)

自动补齐通常用的都是hippie-expand，我也用了很长时间。不过有时候会觉得这个自动补齐“傻”了一点，常会补齐出一些毫不相干的东西，因为hippie-expand是根据你敲过的词和kill-ring等进行判断的，并不对程序语法进行分析。

所以你还需要安装一个代码分析工具，然后把它加进hippie-expand的扩展策略里去。我们可以用semantic。实际上，hippie-expand＋semantic是我所发现的最好的选择了，如果您有更好的，请您也告诉我一声:)

Semantic是CEDET 中的一个工具，CEDET是Collection of Emacs Development Environment Tools的缩写，它包含了好几个工具，都挺不错的。可惜我只会用其中两个。

您可以在.emacs中对Semantic进行配置，下面是我的.emacs相关的配置，仅供参考：

导入cedet：

(load-file "~/lib/emacs-lisp/cedet-1.0pre3/common/cedet.el")

配置Semantic的检索范围:

1
2
3

(setq semanticdb-project-roots 
(list
(expand-file-name "/")))

自定义自动补齐命令，这部分是抄hhuu的，如果在单词中间就补齐，否则就是tab。

1
2
3
4
5
6
7
8

(defun my-indent-or-complete ()
  (interactive)
  (if (looking-at "\\>")
      (hippie-expand nil)
    (indent-for-tab-command))
  )
 
(global-set-key [(control tab)] 'my-indent-or-complete)

hippie的自动补齐策略，优先调用了senator的分析结果：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

(autoload 'senator-try-expand-semantic "senator")
 
(setq hippie-expand-try-functions-list
      '(
        senator-try-expand-semantic
        try-expand-dabbrev
        try-expand-dabbrev-visible
        try-expand-dabbrev-all-buffers
        try-expand-dabbrev-from-kill
        try-expand-list
        try-expand-list-all-buffers
        try-expand-line
        try-expand-line-all-buffers
        try-complete-file-name-partially
        try-complete-file-name
        try-expand-whole-kill
        )
      )

注意一下我前面CC-Mode配置中有这么两行：

1
2

(define-key c-mode-base-map [(tab)] 'my-indent-or-complete)
(define-key c-mode-base-map [(meta ?/)] 'semantic-ia-complete-symbol-menu)

这样，我们在CC-Mode中就可以调用自定义的hippie补全了，快捷键是Tab。

另外，我还把快捷键“Alt + / ”绑定到了semantic-ia-complete-symbol-menu命令上，这是semantic的命令，它会根据分析结果弹出补齐的菜单，效果如图显示：

自动补齐效果图

CEDET中还有一个不错的工具是speedbar，你可以用它在多个文件中快速切换。在我的.emacs配置文件里，我把speedbar关联到了F5上：

(global-set-key [(f5)] 'speedbar)

这样用F5就可以调出speedbar，效果如下：

speedbar

不过说实话，我自己很少用到speedbar，我通常都是用dired配合bookmark使用:)

以前一直都用Emacs Wiki Mode记笔记，但wiki mode总有些奇奇怪怪的bug，并且已经不更新了，最近org mode 非常火爆，禁不住想试一下。

对于记笔记，我的打算很简单，一个目录用来装所有的笔记，一个目录用来存放publish成HTML格式的笔记。并且能够自动生成索引文件。这样就可以在索引文件里直接查找并跳转到所有的笔记里。

Emacs ORG mode的基本配置如下：

1
2
3
4
5
6
7
8
9
10
11
12
13

(setq load-path (cons "~/lib/emacs-lisp/org-7.01h/lisp" load-path))
(setq load-path (cons "~/lib/emacs-lisp/org-7.01h/contrib/lisp" load-path))
 
(require 'org-install)
(require 'org-publish)
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(add-hook 'org-mode-hook 'turn-on-font-lock)
(add-hook 'org-mode-hook 
(lambda () (setq truncate-lines nil)))
 
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cb" 'org-iswitchb)

上面基本上是从ORG-mode的文档里抄来的,其中包含setq truncate-lines nil的两行代码是为了解决org-mode在编辑中文的时候不会自动折行的问题。

接下来的配置基本照抄了meteor1113@newsmth的用org代替muse记日记 ， 修改的部分就是我不想让它自动生成index文件，我比较喜欢自己组织。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

(setq org-publish-project-alist
      '(("note-org"
         :base-directory "C:/Documents and Settings/caole/My Documents/My Dropbox/emacs/org/org"
         :publishing-directory "C:/Documents and Settings/caole/My Documents/My Dropbox/emacs/org/publish"
         :base-extension "org"
         :recursive t
         :publishing-function org-publish-org-to-html
         :auto-index nil
         :index-filename "index.org"
         :index-title "index"
         :link-home "index.html"
         :section-numbers nil
         :style "<link rel=\"stylesheet\"
    href=\"./style/emacs.css\"
    type=\"text/css\"/>")
        ("note-static"
         :base-directory "C:/Documents and Settings/caole/My Documents/My Dropbox/emacs/org/org"
         :publishing-directory "C:/Documents and Settings/caole/My Documents/My Dropbox/emacs/org/publish"
         :recursive t
         :base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|swf\\|zip\\|gz\\|txt\\|el"
         :publishing-function org-publish-attachment)
        ("note" 
         :components ("note-org" "note-static")
         :author "caole82@gmail.com"
         )))

值得注意的一个地方是，我把org和publish的目录都扔在了我的Dropbox中，这样可以方便的在不同的系统中同步笔记。有些人喜欢用SVN/GIT/CVS等版本管理工具，也是个不错的办法。但我没有地方搭这些东西的服务器:-(
这样写完了笔记就可以用M-x org-publish 发布了，我把它绑定到了F8-p上。

(global-set-key (kbd "<f8> p") 'org-publish)

为了在org mode中使用auto-complete，我在auto-complete中增加了这样的配置：

1
2
3
4
5

(setq ac-modes
      (append ac-modes '(org-mode objc-mode jde-mode sql-mode
                                  change-log-mode text-mode
                                  makefile-gmake-mode makefile-bsdmake-mo
                                  autoconf-mode makefile-automake-mode)))

• 结构化编辑
  
  • 标题
    
    一级标题是一个*，两级标题是两个*，三级标题…… 最多可以建10级标题。注意，这里的*必须在行首。Publish之后会自动生成目录链接。在Emacs中S-Tab可以收起所有的目录树，在标题上按Tab可以展开/收起该标题下的所有内容。在标题上按Alt+左右方向键可以减少/增加该标题的级别。
  • 枚举和列表
    
    在org mode中还支持枚举(unordered list)，有序的列表(ordered list)和带描述的列表。

    枚举可以用’-',’+',或者非行首的’*’ 作为bullets.同时，可以用开头的空格来区分枚举的层次结构。

    • 枚举1
    • 枚举2
    • 枚举3
    • 枚举4

    有序的列表可以由’1.’或’1)’来组织。这里可以方便的使用Alt+左右方向键调整列表项的级别。M-Ret可以在当前位置插入一个列表项；C-Ret可以在文档尾部插入一个列表项或者标题。

    1. 第一级
    2. 第二级
       1. 第二级第一点
    3. 第三级

       带描述的列表效果是这样的：

       Elijah Wood

       He plays Frodo

       Sean Austin

       He plays Sam, Frodo’s friend. I still remember
       在文档中是这样的：

    - Elijah Wood :: He plays Frodo
    - Sean Austin :: He plays Sam, Frodo’s friend. I still remember
    

    5个或以上的“-”是一个水平分割符。

    ---

  • 脚注
    
    org mode可以为文章添加脚注，脚注有如下两种方式：

    blabla[1]
    blablabla[fn:bla]
    

    效果是这样的：
    blabla¹
    blablabla²

    接下来必须顶格写这些脚注的内容了，这样在文档的末尾会自动生成脚注。C-c C-c可以在脚注的标记与内容之间切换。C-c C-x f可以在当前位置添加一个脚注。

    [1] 12345
    [fn:bla] 67890
    

  • 结构化编辑的常用快捷方式
    
    这里是Structure Editing的默认快捷方式：

    next/previous heading	C-c C-n/p
    next/previous heading, same level	C-c C-f/b
    backward to higher level heading	C-c C-u
    jump to another place in document	C-c C-j
    previous/next plain list item	S-UP/DOWN
    insert new heading/item at current level	M-RET
    insert new heading after subtree	C-RET
    insert new TODO entry/checkbox item	M-S-RET
    insert TODO entry/ckbx after subtree	C-S-RET
    turn (head)line into item, cycle item type	C-c -
    turn item/line into headline	C-c *
    promote/demote heading	M-LEFT/RIGHT
    promote/demote current subtree	M-S-LEFT/RIGHT
    move subtree/list item up/down	M-S-UP/DOWN
    sort subtree/region/plain-list	C-c ^
    clone a subtree	C-c C-x c
    refile subtree	C-c C-w
    kill/copy subtree	C-c C-x C-w/M-w
    yank subtree	C-c C-x C-y or C-y
    narrow buffer to subtree / widen	C-x n s/w

• 富文本编辑
  
  • 表格
    

    最基本的表格是这样的：

    | A | B |
    | C | D |
    

    效果是这样的：

    A	B
    C	D

    还可以：

    #+CAPTION: 表格的标题
    #+LABEL: tbl:table_label1
    | A | B |
    |---+---|
    | C | D |
    

    在这里，CAPTION指定的是表格的标题，LABEL后的tbl用来指定在文档内部引用该表格的标签。
    效果是：

    ABCD

    A	B
    C	D

    C-c RET可以在光标所在表格内插入一行

    这里是表格相关的常用快捷键：

    convert region to table	C-c
    re-align the table without moving the cursor	C-c C-c
    re-align the table, move to next field	TAB
    move to previous field	S-TAB
    re-align the table, move to next row	RET
    move to beginning/end of field	M-a/e
    move the current column left	M-LEFT/RIGHT
    kill the current column	M-S-LEFT
    insert new column to left of cursor position	M-S-RIGHT
    move the current row up/down	M-UP/DOWN
    kill the current row or horizontal line	M-S-UP
    insert new row above the current row	M-S-DOWN
    insert hline below (C-u : above) current row	C-c -
    insert hline and move to line below it	C-c RET
    sort lines in region	C-c ^

  • 引用文字或代码
    

    我常用到的引用文字的标签是#+BEGIN_EXAMPLE / #+END_EXAMPLE ，在这之间的文字会保留原有的格式。
    
    对于代码而言，可以用#+BEGIN_SRC SRC_TYPE / #+END_SRC，其中SRC_TYPE用来指定代码的类型，
    如lisp, java, c, c++等。结合HTMLIZE可以让导出的HTML页面里的代码被按照语法着色。
    
    为了保留引文的格式，还可以使用#+BEGIN_VERSE / #+END_VERSE 和#+BEGIN_QUOTE/ #+END_QUOTE. 
    
    将引文居中排版可以使用#+BEGIN_CENTER / #+END_CENTER.
    

  • 引用图片
    
    用如下方法可以直接在文档内显示图片:

    #+CAPTION: title for the image
    #+LABEL: fig:tag_for_img
          [[path/to/image.jpg]]
    

    CAPTION用来指定图片的标题，LABEL用来在文档内部引用这张图片。和表格一样，这两部分都不是必须的。

  • 插入链接或附件
    

    给文档添加附件非常简单，C-c C-a 然后就着菜单选好了，其中C-c C-a a是添加文件系统中的文件作为附件。

    Org mode提供多种链接方式，包括链接到一个文件内部，链接到外部文件，电子邮件等等。

    • 链接的格式：
      

      链接主要是两种格式：

      [[link][description]] 或者 [[link]]
      

      例如 SINA

    • 如何访问链接：
      
      在一个链接上按C-c C-o即可访问，至于调用什么程序访问，取决于链接的内容，emacs和org mode的配置了。

    • 链接的类型
      

      如下都是可以支持的常用link类型：

      http://www.sina.com         Web
      file:paper/lastdoc.pdf      本地文档，用相对路径表示
      file:/path/to/filename      本地文档，用绝对路径表示
      news:comp.emacs             新闻组
      caole82@gmail.com    邮件地址
      

    • 内部链接 Internal Link
      

      内部链接就类似于HTML的锚点（实际上export成HTML文件后就变成了锚点），可以实现在一个文档内部的跳转。

      如下命令定义了一个名为target的跳转目标：

      #<<target>>
      

      如下方式可以设置到target的链接：

      [[target]] 或 [[target][description]]
      

    • 其他常用链接命令
      

      C-c l 可以在光标所在处创建一个跳转目标点，在需要跳转至该目标的位置输入命令C-c C-l可以建立到目标的链接

      当输入C-c C-l命令，光标若处在已经存在的一个链接上的时候，可以编辑改链接。

      命令C-c %可以记录当前光标所在位置，当光标移到其他地方后，可以用C-c &跳转回来。这里的位置记录类似一个kill-ring，重复输入C-c %可以记录多个位置，重复输入C-c &可以连续跳转到之前记录的对应位置上。

• 设置TODO项目
  
  所有标题只要以TODO开头，就会变成TODO 项目。例如：

  *** TODO 付手机费
  *** TODO 开会
  

• 更改TODO项目的状态
  

  C-c C-t Rotate the TODO state of the current item among
  ,-> (unmarked) -> TODO -> DONE --.
  '--------------------------------'
  

  C-c C-t是在定义的状态中循环，而C-u C-c C-t可以指定一个状态。

  S-Right 和 S-Left也可以在定义的状态中循环。

  C-c a t可以显示所有的TODO项目，能从所有agenda file里非DONE状态的TODO项目都显示出来

  S-M RET可以在当前项目下插入一个新的TODO 项目（与当前项目同一级别）

• 更改TODO项目的优先级
  
  以下方式可以设置TODO ITEM的优先级：

  *** TODO [#A] 付手机费
  

  C-c , 可以设置一个TODO项目的优先级
  S-Up/Down 可以增减一个TODO项目的优先级

• 增加TODO Item的状态
  

  默认情况下，TODO Item只有两种状态，TODO和DONE。我们可以在.emacs中配置Org，以设置更多的中间状态，例如：
  用下面的方法，我们可以增加一个TODO Item的中间状态，这些状态是顺序的，通常是工作流中的不同状态。

  ^?View Code LISP

  1 2	(setq org-todo-keywords '((sequence "TODO" "FEEDBACK" "VERIFY" "|" "DONE" "DELEGATED")))

  另一种可能性是，每个TODO Item可能有不同的类型，例如，公司的TODO Item，家里的TODO Item。或者，我们可能把TODO Item分配给不同的人，因此我们可以自定义TODO keywords以表示一个TODO Item的不同类型。

  ^?View Code LISP

  (setq org-todo-keywords '((type "Fred" "Sara" "Lucy" "|" "DONE")))

  有的时候我们可能对不同的TODO Item有不同的状态，例如，交手机费这类简单的事情只有TODO和DONE两种状态，但是对于解决一个程序的bug可能有REPORT, BUG, KNOWNCAUSE, FIXED等状态。这样我们需要定义不同的状态子集(subset)：

  ^?View Code LISP

  1 2 3 4

  (setq org-todo-keywords '((sequence "TODO" "|" "DONE") (sequence "REPORT" "BUG" "KNOWNCAUSE" "|" "FIXED") (sequence "|" "CANCELED")))

  C-S-Right/Left可以从一个子集跳转到另一个子集，而S-RIGHT/LEFT会在所有状态之间遍历。

  我们还可以用快捷键来迅速切换一个TODO Item的状态。

  ^?View Code LISP

  1 2 3 4

  (setq org-todo-keywords '((sequence "TODO(t)" "|" "DONE(d)") (sequence "REPORT(r)" "BUG(b)" "KNOWNCAUSE(k)" "|" "FIXED(f)") (sequence "|" "CANCELED(c)")))

  上面说的都是全局的设置，我们也可以针对一个文件进行设置，如：

  #+TODO: TODO FEEDBACK VERIFY | DONE CANCELED
       (这里也可以用 #+SEQ_TODO，和#+TODO效果是一样的）
       对于类型的设置：
  #+TYP_TODO: Fred Sara Lucy Mike | DONE
       对于多个子集的设置：
  #+TODO: TODO | DONE
  #+TODO: REPORT BUG KNOWNCAUSE | FIXED
  #+TODO: | CANCELED
  

• 进度记录
  

  最基本的就是记录当一个Item被标记为DONE时的时间戳了，另外，在一个Item完成后，可能会想要写点心得或者备注什么的，可以用如下配置实现：

  ^?View Code LISP

  1 2	(setq org-log-done 'time) (setq org-log-done 'note)

  Org Mode还能记录每个状态改变的时间，但恐怕不是所有人都需要这么精细的控制了。

• 把项目拆分成子项目
  

  很简单，高一级的TODO下所有的低级TODO就是它的子项目，在各级TODO的标题的任意位置插入[/] 或者[%]即会根据其子项目的完成情况自动更新进度。

  如果想要当所有子项目都标记为Done的时候，父项目也被标记为Done，可以在配置中添加如下设置：

  ^?View Code LISP

  1 2 3 4

  (defun org-summary-todo (n-done n-not-done) "Swith entry to DONE when all subentries are done, to TODO otherwise." (let (org-log-done org-log-states) ; turn off logging. (org-todo (if (= n-not-done 0) "DONE" "TODO"))))

  另一种办法是，如果有大量的字项目，则可以使用check box来标记。

  每一个item前只要加上一个[ ] 就变成了check box item, 这在TODO List Item里也是一样的。在TODO List里，C-c C-c可以切换check box item的选中与未选中的状态。

  ** TODO Test [1/3]
  - [X] Only a test
  - [ ] It's another test
  - [ ] Third test
  

  和Check Box Item相关的快捷键：
  C-c C-c 切换Check Box的状态
  M-S-Ret 插入新的check box item.

• 标签的基本知识
  
  其实标签并不仅限于TODO Item，而是可以用在任何标题上。标签可以由所有字母，数字，_和@构成，标签必须有一个前导的:并且还必须有一个后继的:，比如，看起来是这样的，‘:work:’，多个标签可以用:分开，例如：‘:work:urgent:’。

  需要用到的标签可以预先在配置文件里定义，和增加TODO Item的状态的方法一样，唯一的区别是这里用到的变量是org-tag-faces.

  Tag是有继承性的，也就是说，假如一级标题的tag有work，则该级标题以下的所有子标题无论是否显式注明，都自动具有work的标签。例如：

  * Meeting with sb.               :work:
  ** Summary with sb1.              :boss:notes:
  *** TODO Prepare slides for him  :action:
  

  这里，Summary with sb1的标签就是work, boss, notes，最后一项的标签就是work, boss, notes, action.

• 设置标签
  

  首先当然可以手动在标题后设置标签，键入:后，M-Tab自动提供标签的补齐。

  也可以用命令插入标签：

  C-c C-q 为当前标题插入标签
  C-c C-c 当光标在某标题栏时，为该标题插入标签（此时和C-c C-q功能一样）

  默认情况下，org会动态维护一个Tag列表，即当前输入的标签若不在列表中，则自动加入列表以供下次补齐使用。

  另一种方式是在配置文件中配置变量org-tag-alist全局性地预设一些tag，然后在org文件中设置：

  #+TAGS: @work @home @tennisclub
  #+TAGS: laptop car pc sailboat
  

  这样，在该文件中只能使用个以上定义的7个标签。

  如果想既使用预设的标签，又动态增加，则必须在文件中增加一个空的TAGS option.

  #+TAGS:
  

  在org中我们还可以给tag定义快捷键。对于全局的定义可以写在配置文件中：

  ^?View Code LISP

  1	(setq org-tag-alist '(("@work" . ?w) ("@home" . ?h) ("laptop" . ?l)))

  这样要标记@work，@home，laptop就只需要按w, h, l键即可。如果不是全局的定义，即指针对一个文件有效，我们可以在文件中定义，其中，\n表示换行，等效于分开写在两个TAGS里。

  #+TAGS: @work(w) @home(h) @tennisclub(t) \n laptop(l) pc(p)
  

  假如我们要让@work, @home, @tennisclub变成互斥的，则可以定义：

  #+TAGS: { @work(w) @home(h) @tennisclub(t) } laptop(l) pc(p)
  

  这也可以在配置文件中定义，但需要用dummy tag :startgroup和:endgroup包围起来。

  ^?View Code LISP

  1 2 3 4 5

  (setq org-tag-alist '((:startgroup . nil) ("@work" . ?w) ("@home" . ?h) ("@tennisclub" . ?t) (:endgroup . nil) ("laptop" . ?l) ("pc" . ?p)))

  C-c \ 可以用来查找某个tag下的所有项目
  C-c / m 建立符合某tag的sparse tree
  C-c a m 从所有agenda file里建立符合某tag的全局性列表
  C-c a M 同上，但只检查TODO item或org-tags-match-list-sublevels里指定要检查的项目。

在TODO Item上我们通常还需要标记时间和日期，这里就包含了：

• 普通的时间和日期，比如该TODO ITEM的开始时间，例如下午三点开会等。

  <2010-09-18 Sat 15:00>
  

• 每天，每周，每月，每年都重复的时间和日期，比如每周去一次健身房之类的。

  * pick up Sam at school <2007-05-16 Wed 12:30 +1w>
  

• 表示一段时间

  * 在上海开会 <2004-08-23 Mon>--<2004-08-26 Thu>
  

• 仅仅表示一段时间而已，不需要在其他模式中引用。（Inactive Timestamp）

  * 今天吃饭吃到苍蝇了 [2010-09-28 Tue]
  

C-c > 打开Emacs Calendar
C-c < 把Emacs Calendar光标所在的日期插入到org mode光标所在处。
C-c C-y 当光标放在time range上时，计算两个timestamp之间的天数。
C-c ! 用来添加一个inactive 的timestamp.

在我的配置文件中，我把C-c t 定义给了“插入一个timestamp”。

对于TODO item，我们常常需要指定什么时候开始这项工作，什么时候是截止日期，在org中分别是SCHEDULED 和DEADLINE.

*** TODO write article about the Earth for the Guide
The editor in charge is [[bbdb:Ford Prefect]]
DEADLINE: <2004-02-29 Sun>

*** TODO Call Trillian for a date on New Years Eve.
SCHEDULED: <2004-12-25 Sat>

C-c C-d 插入一个Deadline
C-c C-s 插入一个Schedule
C-c / d 建立一个包含所有deadline的TODO项目的sparse tree
C-c / b 建立一个包含deadline在指定日期前的TODO项目的sparse tree
C-c / a 建立一个包含deadline在指定日期后的TODO项目的sparse tree

我的TODO List方案基本上是在常规的待办事项上加上一些的GTD思想。

作为一个IT民工，我的生活比较简单，我不在家就在公司，两者都不在就基本在路上。因此我的TODO 项目的地点基本就是这三项。另外，有些项目需要用到电脑，有些不需要，有些都可以（比如看某本既有电子版又有纸版的书）。

下面列出了我用到的标签，TODO Item的中间状态很简单，就是TODO：未开始；INPROGRESS：进行中；和DONE：已完成。根据GTD的思想，有些TODO Item是2分钟内即可完成的，我把它们标记为immediately，立刻完成。wait是需要等待其他人或其他资源的；action是随时可以开始做的项目。

#+TODO: TODO INPROGRESS | DONE
#+TAGS: @office(o) @home(h) @traffic(t)
#+TAGS: computer(c) nocomputer(n) either(e)
#+TAGS: immediately(i) wait(w) action(a)

根据简化的GTD思想，TODO的项目分为Idea List; Task List; Project List; Someday/Maybe List; Reminder这五项。Reminder这一项和前四个关系不大，我用来记录一些备忘录，诸如下周末前要还房贷，某月某日是结婚纪念日之类的。这类提醒很多人喜欢记在Agenda里头，或者日历里。我更愿意直接写成条目放在Reminder里，每天看一下，这主要是因为我需要记住的事情不算太多，不需要用到Agenda。

每天抽两个时间做一下所谓的Mind Sweep，把所有想到可能要做的事情都扔进Idea List里头。每天抽一个时间整理一下Idea List，把不可能实现的直接删掉，把将来可能会做的，但现在肯定不做的扔到Someday/Maybe List中。Task List用于放一步即可完成的项目，Project List用于放比较复杂的项目，可能需要细分为许多个TODO Item，或者可能需要合作才能完成。

* Idea List:
* Task List:
* Project List:
* Someday/Maybe List:
* Reminder:

这样，举个例子，每天到公司或者到家开始工作的时候，首先要做的是三步：

• 按照GTD的说法是清空大脑，把脑子里的所有想法都列出来，然后放到Idea List。
• 用C-c \ 查询标签为@office或者@home 的未完成项目
• 浏览一下Reminder 里有没有和今天相关的事情。

然后，在每天结束工作的时候清理一下 Idea List。

ORG Mode我主要的用处就是拿来记笔记和做Todo List，似乎它还有很多其他功能，等我需要的时候再去研究吧。