懒惰的程序员

xiao qiang

2009-06-30T20:39:00.002+08:00

两天时间，很快地看了一遍《小强升职记》，感触很深。

每次看到此类好书，总是忍不住责问一句：“为什么学校不教这样的东西呢？！”还有就是感慨一番，只有在全民拥有出版权利的时代，才可能看到这样的书籍，那些专家教授是指望不上了。

看完此书，审视自己的工作习惯，仍然属于拿到活埋头就干的愣头青型。没有分析、没有分解、没有计划，就像一只没头苍蝇。

分析了一下自己不做分析、不做分解以及不做计划的深层次心理原因，是因为我认为做这些事根本就是浪费时间、毫无用处。我尝试过，没用！因为我不知道该怎么做，没人教，也无处学。同时，我进入编程这一行，正是瀑布式开发模型由神坛跌入人间的时候，对它的批评不绝于耳，造成我在心理上对分析计划一类的工作十分反感、厌恶。

最后分享一下书中提到的一个方法，叫时间日志，就是每天记录自己从几点几分到几点几分干了什么，一周之后拿出来看一下。小强的总结之一是：上网聊天以及和同事聊天是这五天的主要内容。:-)

这个和记账有点类似，不记的时候根本不知道钱都花到哪里去了，就知道自己是月光。记了一个月之后一看，被自己吓了一跳，我这都是在干什么呀？！

Michael Jackson

2009-06-29T20:56:00.002+08:00

最近发生的事情比较多，对我造成了很大的震动，于是打算改变blog的风格，不再局限于技术的乐趣，准备增加一些提问的乐趣。

开放性的问题，没有标准答案，甚至我自己也不会回答。

今天就从Michael Jackson开始。

我订阅的blog以技术类为主，所以看到的多是这样的标题：

甚至

Google thought Michael Jackson traffic was attack

突然，我很好奇，“上一次是谁？”

或者，还有谁，能够制造如此之大的轰动。

Michael Jackson仅仅是个rock star？！仅仅是个天皇巨星吗？！在一个满大街都是天皇巨星的年代，一定有很多人不喜欢这样的称呼。不信，你问问自己，在你所在的那个国家，有没有这样一个艺人，当他离开的时候，你会感到很失落，仿佛自己的灵魂也被带走了一部分；你会告诉自己，一个时代终结了。

Michael Jackson有不少负面新闻，“漂白”便是其中之一。所以，你可以无法避免地读到类似如下内容的文章

我很想知道，如果你心目中的那个重量级人物，也传出这样那样的负面新闻，你会有怎样一种情绪？以及，当事件的真实性得到证实或否定的时候，你又是如何面对自己当初的那份情绪的。

Ping Tunnel

2009-06-25T21:52:00.002+08:00

Ping Tunnel项目首页的副标题是For those times when everything else is blocked。至少还有ping，对吗？！

也许明天，连PING都是一种奢望！

Delayed incremental occur with anything

2009-06-22T20:12:00.002+08:00

occur与isearch-forward-regexp相比的优势是能够看到所有的匹配结果，不足是不能随着输入动态更新匹配结果。配合使用anything.el，就可以两全其美。

(defun wl-anything-delayed-occur-candidates ()
  (setq anything-occur-buf (get-buffer-create "*Anything Occur*"))
  (with-current-buffer anything-occur-buf
    (erase-buffer)
    (let ((count (occur-engine anything-pattern
                               (list anything-c-source-occur-current-buffer)
                               anything-occur-buf
                               list-matching-lines-default-context-lines
                               (if (and case-fold-search search-upper-case)
                                   (isearch-no-upper-case-p anything-pattern t)
                                 case-fold-search)
                               list-matching-lines-buffer-name-face
                               nil list-matching-lines-face
                               (not (eq occur-excluded-properties t)))))
      (when (> count 0)
        (let ((lines (split-string (buffer-string) "\n" t)))
          (cdr lines))))))

(defvar wl-anything-c-source-delayed-occur
  '((name . "Occur")
    (init . (lambda ()
              (setq anything-c-source-occur-current-buffer
                    (current-buffer))))
    (candidates . wl-anything-delayed-occur-candidates)
    (action . (("Goto line" .
                (lambda (candidate)
                  (goto-line (string-to-number candidate)
                             anything-c-source-occur-current-buffer)))))
    (requires-pattern . 3)
    (volatile)
    (delayed)))

(defun wl-search ()
  (interactive)
  (anything 'wl-anything-c-source-delayed-occur nil nil nil nil "*Anything Occur*"))

Query replace regexp from anything

2009-06-18T20:36:00.002+08:00

query-replace-regexp让人最尴尬的时刻便是输入了半天结果什么都没做，因为实际上正则表达式写的有点问题，什么都没有匹配上。anything-query-replace-regexp很好的解决了这个问题，它会随着你输入正则表达式而动态显示匹配结果。不如就用它取代query-replace-regexp吧。

(global-set-key (kbd "M-%") 'anything-query-replace-regexp)

Enhance yank with anything

2009-06-15T20:28:00.002+08:00

配合最近的anything-config.el和下面的配置，可以让yank变得更强大，只需一次M-y，就可以列出kill-ring里面的所有内容，并随意选择其中任何一个。

(global-set-key (kbd "M-y")
                '(lambda ()
                   (interactive)
                   (let ((anything-enable-digit-shortcuts nil))
                     (anything-show-kill-ring))))

Incremental bbdb search

2009-06-10T20:01:00.002+08:00

最近的anything-config.el包含多个新的anything source，其中一个就是anything-c-source-bbdb，通过使用如下函数，我们可以实现搜索结果随着输入动态变化。

(defun wl-bbdb ()
  (interactive)
  (if anything-c-source-bbdb
      (anything '(anything-c-source-bbdb))
    (bbdb)))

如果没有anything-c-source-bbdb，我们则使用原装搜索功能。

org-mode publishing

2009-06-04T20:53:00.002+08:00

在主观愿望与客观条件的双重压迫下，我开始尝试org-mode publishing作为内容发布的一种方式，目前仍处于探索中。源代码在http://www.wanglianghome.org/svn/org/，发布的内容参见http://www.wanglianghome.org/org/。不可否认，org有点多，但我没想到更好的。页面很丑，我又缺乏美化的专业知识，也只能慢慢来了。

由于org-mode的发布功能很强大，makefile就写得比较简单。没有选择直接发布到远程服务器是因为网络速度限制，对实现频繁发布、预览有困难，因此首先选择发布到本地，检查无误之后，再一并同步到远程服务器。由于使用了rsync，可以将网络流量进一步减少。

org-publish这个函数的说明和实现都很简单，试了好久才明白怎么用，具体参见http://www.wanglianghome.org/svn/org/trunk/publish.el。

另外就是同步到远程服务器每次都要输入密码很麻烦，我选择重用SSH连接的方式，避免了密码输入。

Stock quote

2009-05-13T19:53:00.002+08:00

上班时炒股吗？有没有觉得炒股软件都做得很花哨，离着几百米就能看出你在干什么？如果你不在乎15分钟的延时，那么可以在终端上显示股票价格。:-D

这招是从commandlinefu.com学来的，查询脚本链接为http://download.finance.yahoo.com/d/quotes.csv，它有两个参数：s (symbol)和f (format)。s的值为股票代码，f指定显示那些数据。如显示万科的最新股价（再次声明：此价格是15分钟前的价格）：

curl -s 'http://download.finance.yahoo.com/d/quotes.csv?s=000002.sz&f=l1'

使用加号连接多个股票代码可以显示多个股票的价格，如同时显示万科和中石油：

curl -s 'http://download.finance.yahoo.com/d/quotes.csv?s=000002.sz+601857.ss&f=l1'

可以看出，上海股票需要使用后缀.ss，深圳股票的后缀则为.sz。

显示其它数据可以使用如下参数：

s: 就是我们输入的股票代码
c1: 价格变化
v: 成交量
o: 开盘价
h: 最高价
g: 最低价

如显示股票代码和股价：

curl -s 'http://download.finance.yahoo.com/d/quotes.csv?s=000002.sz+601857.ss&f=sl1'

Sunday

2009-04-27T17:03:00.002+08:00

买了两个LED电子钟，一个红字版，一个绿字版，目的是为了晚上看看时间。昨天无意间一瞥，惊呼——怎么是星期八！今天是星期天啊？！老婆看了一眼，想了一下，说：“星期日吧！”

原来不是星期8，而是星期日！可是满眼的阿拉伯数字，偏偏那里不是8，而是日，还真是够敢设计的。我宁可它显示7。

Emacs as chm viewer

2009-04-20T16:48:00.002+08:00

CHM Reader自从Fedora 9以来就不能用了，其它的程序我又不喜欢，导致我在家里不能看chm电子书。最近发现了chm-view.el，使用Emacs + emacs-w3m + archmage组合看chm，感觉很爽。

这里还有个小插曲，在初次使用时发现不能使用类似~/book/a.chm这样的路径，而要使用/home/liang/book/a.chm，于是费了半天劲写了封英文邮件给作者，并提出了解决方案，没想到对方竟然用中文回复……:-)

gitweb

2009-04-15T14:58:00.002+08:00

gitweb为git repository提供了一个web界面，其中一个功能是提供RSS输入，用于跟踪项目的开发进展。我在dreamhost上创建了多个subversion repositories，可是目前的web访问只能看到最新版本，而且不能查看log。

我利用git-svn将代码从subversion转到git，然后使用gitweb.cgi显示在web上。目前git repositories没有开放，但是可以通过订阅单个项目的RSS（在每个项目首页的右下角）或者所有项目的OPML（在gitweb首页的右下角），跟踪项目的开发。当我长时间不更新blog时，也许正在紧张忙碌地写程序，你可以到这里解解闷。如果真的对其中某个项目感兴趣，可以使用subversion获取代码，列表参见http://www.wanglianghome.org/cgi-bin/wiki.cgi/SvnRepository

我的gitweb首页链接是：http://www.wanglianghome.org/cgi-bin/gitweb.cgi

Mount WebDav directory with davfs2

2009-03-30T15:23:00.004+08:00

使用davfs2，可以将WebDav目录mount到本地，然后就像操作本地目录一样操作WebDav目录。

sudo mount -t davfs http://example.com/webdev/dir local-dir

如果是自己编译安装的话，使用之前还要创建用户davfs2和相应的组。

Update auto-complete candidates dynamically

2009-03-26T13:17:00.002+08:00

前面对auto-complete的配置有问题，即使用F1开启自动补全功能后，候选列表不会随着输入自动更新，要连续按F1才行。使用如下配置，可以使候选列表在一次补全期间自动更新。

(setq ac-auto-start nil)
(defun wl-ac-start ()
  (interactive)
  (setq ac-auto-start 6)
  (ac-start))
(defadvice ac-cleanup (after wl-ac-cleanup ())
  (setq ac-auto-start nil))
(ad-activate 'ac-cleanup)
(define-key global-map (kbd "<f1>") 'wl-ac-start)

自动补全功能入口改为自定义的函数wl-ac-start，在这个函数里，ac-auto-start变量的值被设置为6，即当输入字符达到6个时显示候选列表。当本次自动补全完成后，ac-cleanup函数会清理现场，而自定义的advice wl-ac-cleanup会在它运行后将ac-auto-start设置nil，这样自动补全功能就被关闭了。

Revert buffer

2009-03-22T17:46:00.004+08:00

在Emacs缺省配置下，revert-buffer没有映射到任何快捷键，经过了几年痛苦地M-x revert-buffer RET yes RET，终于痛定思痛，弄了个快捷键出来。

(defun wl-revert-buffer (&optional arg)
  (interactive "P")
  (revert-buffer t t arg))

(global-set-key (kbd "<f5>") 'wl-revert-buffer)

通常情况下使用F5，如果不想改变major mode，那么使用C-u F5。比如打开文件a.c，缺省使用c-mode，在手工改为c++-mode后，使用C-u F5保持c++-mode不变，而F5则会恢复为c-mode。

Customize psvn

2009-03-18T12:42:00.003+08:00

psvn提供了在Emacs里面管理subversion repository的功能，我根据自己的喜好做了如下的配置：

(eval-after-load 'psvn
  '(progn
     (setq svn-status-hide-unknown t)
     (setq svn-status-hide-unmodified t)
     (add-hook 'svn-log-edit-done-hook
               (lambda ()
                 (kill-buffer svn-log-edit-buffer-name)
                 (with-current-buffer svn-status-buffer-name
                   (svn-status-update-cmd nil))))))

在*svn-status* buffer里隐藏没有放入版本控制的文件，以及放入版本控制但是没有修改过的文件。如果想查看这两类文件的话，可以使用快捷键?和_关闭隐藏功能。

Hook里面实现了两个功能，当提交成功后，先关掉编写log的buffer，然后更新（否则查询log时看不到最新提交的log）。

Auto complete on demand

2009-03-15T21:33:00.002+08:00

随着使用越来越多，觉得auto-complete自动弹出下拉菜单很不爽，于是改成按F1才弹出候选列表，配置如下：

(setq ac-auto-start nil)
(define-key global-map (kbd "<f1>") 'ac-start)

Exclude packages from yum update permanently

2009-03-10T22:38:00.002+08:00

在yum update的时候遇到kmod-fglrx冲突的问题，不知道为什么在我的fedora 9上一定要安装两个不同版本的ATI驱动程序，事实上我一直在使用akmod-fglrx。为了让yum update永远忽略各个版本的kmod-fglrx，只需在/etc/yum.conf文件里添加如下一行即可：

exclude=kmod-fglrx*

email

2009-03-06T15:10:00.002+08:00

工作上，公司使用MS Outlook，每天的邮件不多，十几封，凑合着也就用了。有一段日子感觉特别不爽，于是Setup your own IMAP to MS Exchange。在Linux上，我同时使用三种客户端——Thunderbird，mutt，以及Gnus。Thunderbird+slideshow扩展是看图片附件的利器；mutt是处理邮件的最佳选择；而Gnus+Org Mode则用于管理日程。三种工具各有优点。在家里是Firefox+Gmail，不过也配置了mutt和Gnus去访问Gmail。另外我还Backup gmail with offlineimap。

mutt的配置参见DotMuttrc；Gnus的配置参见wl-fedora-init.el中关于Gnus的部分。由于我基本不用这些客户端发邮件，所以可能没有smtp的设置，即使有，也没有测试完全。另外，我还没有找到用Gnus订阅Gmail中名字为中文的group（Gmail的术语是label）。

Subscribe git mailing list with gnus

2009-03-03T21:15:00.002+08:00

不想再用GMail订阅邮件列表了，便尝试了gnus。方法是，在*Group* buffer里

G m gmane.comp.version-control.git RET nntp RET news.gmane.org RET

Website backup task

2009-02-26T22:38:00.002+08:00

我会在每个月最后一天备份网站，如果最后一天是周五或者周末，那么就在这一周的周四备份。由于记性不大好，所以需要有个提醒。之前一直用RTM，可惜我这个规则有点复杂，没法在RTM里面描述，导致经常要修改任务日期，有点麻烦。有时候稍不留神就错过了。

今天终于无法忍受，改用Org Mode了。方法就是使用一个超眩的任务日期，如下：

** DONE 备份网站
   SCHEDULED: <%%(wl-diary-website-backup-day)>

wl-diary-website-backup-day的实现如下：

(defun wl-diary-website-backup-day (&optional mark)
  (let* ((day (calendar-extract-day date))
         (month (calendar-extract-month date))
         (year (calendar-extract-year date))
         (lastday (calendar-last-day-of-month month year))
         (lastdayname (calendar-day-of-week (list month lastday year))))
    (and (or (and (= day lastday)
                  (memq lastdayname '(1 2 3 4)))
             (and (< (- lastday day) 7)
                  (memq lastdayname '(0 5 6))
                  (= (calendar-day-of-week date) 4)))
         (cons mark ""))))

replace-regexp

2009-02-23T23:12:00.002+08:00

在GNU Emacs里面，如果replace-regexp的替换字符串部分出现\,，并且后面接一个Emacs Lisp表达式，那么这个表达式的计算结果将作为替换字符串的一部分。比如将oddmuse格式的标题（=== 标题 ===）转换为Org Mode的标题（** 标题），可以使用

M-x replace-regexp RET \(=+?\) \(.+?\) =+ RET \,(make-string (1- (length \1)) ?*) \2 RET

注意其中长度减1。

Who Uses Linux?

2009-02-20T21:32:00.002+08:00

学习Who Uses Linux?，贴一下截止今天本站2月份的访问统计（基于Advanced Web Statistics 6.8 (build 1.910)），其中的Unknown OS参见最后一个表格，即无法找到OS部分的User Agent。

Operating Systems (Top 10)

Operating Systems	Hits	Percent
Windows	11351	47.5 %
Unknown	10194	42.7 %
Linux	2163	9 %
Macintosh	126	0.5 %
Unknown Unix system	12	0 %
BSD	6	0 %
Symbian OS	1	0 %

Browsers (Top 10)

Browsers	Grabber	Hits	Percent
MS Internet Explorer	No	7570	31.7 %
Mozilla	No	6933	29 %
Firefox	No	4781	20 %
Unknown	?	2592	10.8 %
Subversion client	No	569	2.3 %
Opera	No	489	2 %
Safari	No	478	2 %
Netscape	No	388	1.6 %
Konqueror	No	20	0 %
GreatNews (RSS Reader)	No	17	0 %
Others		16	0 %

Unknown OS (useragent field)

User agent (52)	Last visit
Mozilla/3.0_(compatible;_Indy_Library)	20 Feb 2009 - 02:11
Snarfer/1.0.2_(http://www.snarfware.com/)	20 Feb 2009 - 01:44
freenews	20 Feb 2009 - 01:09
QQFeedFetcher;_(_http://service.mail.qq.com/cgi-bin/help?id=40;_1_subscribers;_feed-id=87727)	20 Feb 2009 - 01:02
RSS/1.0_(gzip)	20 Feb 2009 - 00:49
Sphere_Scout&v4.0_-_scout_at_sphere_dot_com	20 Feb 2009 - 00:27
dragonfly(ebingbong#playstarmusic.com)	19 Feb 2009 - 23:57
AideRSS/1.0_(aiderss.com);_1_subscribers	19 Feb 2009 - 23:42
QQFeedFetcher;_(_http://service.mail.qq.com/cgi-bin/help?id=40;_1_subscribers;_feed-id=2873998)	19 Feb 2009 - 23:36
Fastladder_FeedFetcher/0.01_(http://fastladder.com/;_1_subscriber)	19 Feb 2009 - 23:34
Mozilla/5.0_(compatible;__Page2RSS/0.5;__http://page2rss.com/)	19 Feb 2009 - 21:28
Mozilla/5.0_(en-US)	19 Feb 2009 - 21:02
Virtual_Reach_Newsclip_Collector	19 Feb 2009 - 19:12
Mozilla/5.0_(compatible;_ScoutJet;__http://www.scoutjet.com/)	19 Feb 2009 - 18:39
Mozilla/5.0_(compatible;_Charlotte/1.1;_http://www.searchme.com/support/)	19 Feb 2009 - 10:15
Activeweave/BlogRovR/2009-02-15_10:23:00.0;_version_0.4.357;_2_subscribers.	19 Feb 2009 - 09:50
SVN/1.5.4_(r33841)_neon/0.28.3	19 Feb 2009 - 05:59
Yanga_WorldSearch_Bot_v1.1/beta_(http://www.yanga.co.uk/)	19 Feb 2009 - 04:40
Mozilla/5.0_(compatible;_TopBlogsInfo/1.0;__topblogsinfo@gmail.com)	18 Feb 2009 - 17:51
GreatNews/1.0	17 Feb 2009 - 19:15
BlackBerry8320/4.5.0.42_Profile/MIDP-2.0_Configuration/CLDC-1.1_VendorID/142	17 Feb 2009 - 18:47
Mozilla/5.0_(compatible;_Charlotte/1.0t;_http://www.searchme.com/support/)	17 Feb 2009 - 17:42
Mugshot/Firehose_(http://developer.mugshot.org/wiki/FirehosePolling)	16 Feb 2009 - 16:58
Mozilla/4.0_(compatible;)	16 Feb 2009 - 07:30
LWP::Simple/5.812	16 Feb 2009 - 07:29
Mozilla	16 Feb 2009 - 06:57
MLBot_(www.metadatalabs.com/mlbot)	15 Feb 2009 - 17:49
Mozilla/5.0_(compatible)	15 Feb 2009 - 01:22
Activeweave/BlogRovR/2009-02-10_16:32:00.0;_version_0.4.355;_2_subscribers.	14 Feb 2009 - 19:38
Mozilla/5.0_Firefox/3.0.5	13 Feb 2009 - 23:00
Mozilla/5.0_(compatible;_woriobot_support_[at]_worio_[dot]_com__http://worio.com)	13 Feb 2009 - 11:40
Mozilla/5.0_(compatible;__Page2RSS/0.4;__http://page2rss.com/)	13 Feb 2009 - 11:40
Mozilla/3.0_(compatible)	13 Feb 2009 - 04:11
Internet_Explorer	12 Feb 2009 - 22:49
AideRSS/1.0_(aiderss.com)	12 Feb 2009 - 06:44
Mozilla/5.0_(compatible;_proximic;__http://www.proximic.com)	11 Feb 2009 - 09:41
Wget/1.11.4	11 Feb 2009 - 00:39
Rome_Client_(http://tinyurl.com/64t5n)_Ver:_0.9	10 Feb 2009 - 21:57
SkyGrid/1.0_(_http://skygrid.com/partners)	10 Feb 2009 - 21:39
Activeweave/BlogRovR/2009-02-09_11:12:00.0;_version_0.4.352;_2_subscribers.	10 Feb 2009 - 16:47
BPImageWalker/2.0_(www.bdbrandprotect.com)	10 Feb 2009 - 01:50
Mozilla/4.0	10 Feb 2009 - 00:17
FeedHub_MetaDataFetcher/1.0_(http://www.feedhub.com)	08 Feb 2009 - 18:26
Activeweave/BlogRovR/2008-09-22_17:17:00.0;_version_0.4.350;_2_subscribers.	07 Feb 2009 - 06:57
Mozilla/5.0_(compatible;_Twingly_Recon;_twingly.com)	07 Feb 2009 - 02:36
Mozilla/5.0_(compatible;_Konqueror/4.2)_KHTML/4.2.0_(like_Gecko)	05 Feb 2009 - 09:30
Mozilla/4.0_(compatible;_)	05 Feb 2009 - 02:00
OPWV-SDK_UP.Browser/7.0.2.3.119_(GUI)_MMP/2.0_Push/PO	04 Feb 2009 - 10:51
SVN/1.4.6_(r28521)_neon/0.28.3	03 Feb 2009 - 20:50
SVN/1.4.6_(r28521)_neon/0.27.2	03 Feb 2009 - 01:58
_DB_DB2_ODBC__support@runnk.com	01 Feb 2009 - 21:40
Mozilla/4.0_(compatible)	01 Feb 2009 - 00:25

ibus

2009-02-20T14:42:00.002+08:00

最近在fedora 10上使用scim输入法总是出现问题，按空格选字或词的时候居然只输入了一个空格，十分苦恼，想起曾经听过ibus这个输入法，号称是新一代产品，于是装上试用，感觉不错。安装方法如下：

sudo yum -y install ibus ibus-m17n ibus-pinyin \
  ibus-table ibus-table-additional ibus-table-chinese

使用前必须选择输入法引擎，我只会用汉语拼音，其它的一概没选。ibus还提供了许多特殊命令，以便输入特殊字符，如输入摄氏度符号℃的命令是issd，ibus的特殊命令都是以i开头的，具体参见http://github.com/phuang/ibus-pinyin/blob/master/engine/special_table。

Find tags in a included tags file

2009-02-11T13:32:00.002+08:00

etags-select首先列出所有候选的tag定义位置，然后由用户选择其中一个；而不像etags那样每次跳到其中一个定义，如果用户发现不是自己想要的结果，则继续往下跳。

etags-select有一个缺陷，不能处理included tags file，如Emacs Lisp的tags文件TAGS-LISP。不过，如果想弥补它也很容易，只需重定义其中一个函数即可。

(defun etags-select-get-tag-files ()
  "Get tag files."
  (if etags-select-use-xemacs-etags-p
      (buffer-tag-table-list)
    (mapcar 'tags-expand-table-name tags-table-list)
    (tags-table-check-computed-list)
    tags-table-computed-list))