懒惰的程序员

The end

noreply@blogger.com (netcasper) — Mon, 26 Apr 2010 04:06:00 +0000

blogger.com从5月1日起停止FTP发布支持，本blog也同时被终止。

http://feeds2.feedburner.com/casper继续使用，目前正在试用wordpress，决定之后这个feed将导向新的blog发布。

Use iswitchb for orgmode completion

noreply@blogger.com (netcasper) — Fri, 02 Apr 2010 07:22:00 +0000

很简单,就是(setq org-completion-use-iswitchb t)。也可以用ido，即（setq org-completion-use-ido t)。

即便如此，遇到中文仍然很麻烦，宁可用C-s和C-s遍历，也不想切换输入法。

Weave sync

noreply@blogger.com (netcasper) — Thu, 25 Feb 2010 05:35:00 +0000

最近又从chrome切换回firefox，只因Weave Sync。

Weave Sync可以同步五种东西：书签、密码、选项、历史和标签，我只选择了后面两个。没有同步书签，是因为我根本就不保存书签，全部保存到delicious.com；没有同步密码，是因为我还有点不放心，虽然号称所有东西都是加密之后才上传到mozilla的服务器上，但是对于版本号1.0.1的东西，我还是想谨慎点，万一有点bug就死定了；我没有什么特别的选项设置，所以也就没有同步。

值得称道的是，Firefox和Weave Sync在诺基亚的Internet tablet，如N800和N810，以及新一代智能手机N900上都可以使用，使用同步密码功能，可以省去在移动设备上输入密码的烦恼。同步历史和标签，可以让你迅速延续在另一台设备上的阅读。

Free but secure login mechanism

noreply@blogger.com (netcasper) — Fri, 05 Feb 2010 05:42:00 +0000

blogger.com即将停止支持FTP方式发布blog，而我就是那不幸的0.5%。安装一个blog平台不是特别难，问题是如果我不想自己的密码以明文方式在这个恐怖的网络空间里飞舞，那么就需要SSL，对于dreamhost来说，还要额外为unique IP付费。

不想付。

Google上搜索了一阵，终于找到一个不错的解决方案——使用openid登录。Google啊Yahoo啊都可以。

Download podcast with miro and privoxy

noreply@blogger.com (netcasper) — Wed, 03 Feb 2010 04:28:00 +0000

喜欢使用Miro下载、播放podcast，甚至video，然而尴尬的是，有些feed无法正常访问，虽然Miro支持http代理，然而走代理，尤其是通过tor下载会很慢，只好使用Google reader订阅。在线收听的缺点是不适合很长的内容，就像stackoverflow的podcast那样，动辄一个小时以上。

终于被我发现并学会了privoxy。

privoxy是一个http代理，它具有firefox插件foxyproxy类似的功能，即有能力为不同的网址选择使用不同的代理，包括不使用代理。privoxy在Ubuntu 9.10上的配置文件位于/etc/privoxy/config，只需添加一行代码，就可以使Miro在抓取feedburner的feed时走tor代理，而下载文件时不使用任何代理。

forward-socks5 feeds.feedburner.com 127.0.0.1:9050 .

注意最后有一个点。

Skip svn branch for git svn clone

noreply@blogger.com (netcasper) — Thu, 28 Jan 2010 02:54:00 +0000

通常情况下，git svn clone可以很好的完成任务。比如转换Google v8

git svn clone -s http://v8.googlecode.com/svn/ v8

但是最近experimental branch发生了变化，git svn fetch无法继续。其实我们完全可以忽略这个branch，方法是枚举所有想要fetch的branch，原来的配置如下：

[svn-remote "svn"]
        url = http://v8.googlecode.com/svn
        fetch = trunk:refs/remotes/trunk
        branches = branches/*:refs/remotes/*
        tags = tags/*:refs/remotes/tags/*

修改后如下：

[svn-remote "svn"]
        url = http://v8.googlecode.com/svn
        fetch = trunk:refs/remotes/trunk
        fetch = branches/bleeding_edge:refs/remotes/bleeding_edge
        tags = tags/*:refs/remotes/tags/*

Dropbox

noreply@blogger.com (netcasper) — Thu, 14 Jan 2010 07:24:00 +0000

开始使用dropbox，目前主要用来同步我的装修进度照片和水电验收照片。

我的邀请链接是https://www.dropbox.com/referrals/NTQwMTc3NjI5

Ignore whitespace

noreply@blogger.com (netcasper) — Tue, 29 Dec 2009 08:39:00 +0000

第一次收到patch，看了一遍，感觉没问题，于是

patch -p1 -i fix-test-in-nested-expression.patch

打第一段补丁很顺利，打第二段时却失败了。百思不得其解，看了半天，忽然觉得可能是缩进的问题，于是增加了忽略空格不同的选项，如下

patch -p1 -l -i fix-test-in-nested-expression.patch

完美解决！

Git mirror of all GCC SVN branches and tags

noreply@blogger.com (netcasper) — Mon, 16 Nov 2009 04:54:00 +0000

终于找到使用http方式做git clone GCC源代码的方法了。GCC gitweb的链接是

http://gcc.gnu.org/git/?p=gcc.git;a=summary

上面有三种clone方式的链接。

orgmode for mail

noreply@blogger.com (netcasper) — Mon, 02 Nov 2009 08:42:00 +0000

使用orgmode越来越顺手，于是用它替换markdown作为写HTML邮件的首选。配置如下：

(defun wl-message-goto-body-end ()
  "Go to the end of message body.  Before attachment part."
  (or (save-excursion
        (when (re-search-forward
               "^<#part .+ filename=.+ disposition=attachment>$"
               nil
               t)
          (forward-line -1)
          (end-of-line)
          (point)))
      (point-max)))

(defun wl-org-export-region-as-html-string (beg end)
  (interactive "r")
  (save-excursion
    (org-export-region-as-html beg end t 'string)))

(defun wl-mail-org2html-region (beg end)
  (interactive "r")
  (save-excursion
    (let ((html-txt (wl-org-export-region-as-html-string beg end)))
      (goto-char end)
      (message "%s" end)
      (insert "<#part type=text/html>\n<html>\n<head>\n<title>HTML version of email</title>\n</head>\n<body>")
      (insert html-txt)
      (insert "\n</body>\n</html>\n<#/multipart>\n")
      (goto-char beg)
      (insert "<#multipart type=alternative>\n"))))

(defun wl-mail-org2html-message-body ()
  (interactive)
  (save-excursion
    (message-goto-body)
    (wl-mail-org2html-region (point) (wl-message-goto-body-end))))

(add-hook 'message-send-hook 'wl-mail-org2html-message-body)

org-protocol

noreply@blogger.com (netcasper) — Fri, 23 Oct 2009 07:45:00 +0000

org-protocol是一个外部程序调用emacsclient的协议，目前提供的三个应用全部为浏览器设计，实现了与正在浏览的网页的URL相关的一些功能。其中的org-protocol-remember实现了部分Evernote Web Clipper的功能，只不过只能保存文字，无法保存图片。

Mirror GCC repository friendly

noreply@blogger.com (netcasper) — Tue, 20 Oct 2009 05:14:00 +0000

GCC使用Subversion管理源代码，如果想做一个镜像的话，git svn是一个方法。然而GCC这么古老的项目，svn版本号已经是15万级别，做一次完整的镜像可能对服务器的负载造成一定影响，友善一点的方法就是一次只拿一小部分版本信息，然后等待一段时间，再继续下去。还有就是只取trunk的代码，忽略branch和tag。下面的bash脚本每次取5000个版本，然后休息50分钟。克隆完成之后别忘了再rebase一下，因为workspace里面的内容只是第一次fetch的结果。

#!/bin/bash

set -o verbose

SVN_HEAD_REV=$1
if [ $SVN_HEAD_REV -le 5000 ]
then
    echo "svn revision number must be at lease 5001."
    exit 1
fi

git svn init http://gcc.gnu.org/svn/gcc -T trunk

for ((i=5000; i < $SVN_HEAD_REV; i+=5000))
do
    echo "git svn fetch -r $(( $i-4999 )):$i"
    git svn fetch -r $(( $i-4999 )):$i || exit 2
    sleep 50m
done

if [ $(( $i-4999 )) -lt $SVN_HEAD_REV ]
then
    echo "git svn fetch -r $(( $i-4999 )):$SVN_HEAD_REV"
    git svn fetch -r $(( $i-4999 )):$SVN_HEAD_REV
fi

Read source code effectively

noreply@blogger.com (netcasper) — Fri, 16 Oct 2009 08:12:00 +0000

第一次阅读v8的代码，由于文档缺乏，读起来很累，快速浏览了几个文件，仍然没有什么概念。后来更改了阅读习惯，很快就对垃圾收集一块有了初步的了解。

首先学习了相应的理论，庆幸自己多年前买了《垃圾收集》一书，并一直压箱底，这回终于派上用场，认真学习了mark compacting和Cheney's algorithm（切尼算法——经典节点复制算法），没有这一块的学习，想光凭阅读代码来理解实现对我来说几乎是不可能的。

然后就是改变阅读代码习惯。以前就是逐行扫描过来；现在则记录下不懂的地方，然后在告一段落之后再去学习。在Emacs的帮助下，这一行为容易到极点，只需创建一个orgmode任务并链接到相应代码行即可，整个过程只需要几秒钟。在解决了三四个这样的任务之后，开始对v8的垃圾收集实现有了一点概念。

Think about backup again

noreply@blogger.com (netcasper) — Wed, 30 Sep 2009 12:26:00 +0000

最近发生的两件事情让我再次思考如何备份自己的数据，一个是同事的IBM T42相继报废，另外就是访问国外网站越来越困难了。目前我的备份方式很原始，手工备份，外加几个使用rsync的脚本，自动化程度较低。公司里的数据肯定不能备份到外网，自己也有电子书、片子和音乐什么的，不方便放出来，所以需要一个可以自己搭建的备份方案。

我的私人网络数据备份做得不错，基本都有备份，除了Google Docs里的文档。

Git remote pushurl

noreply@blogger.com (netcasper) — Mon, 21 Sep 2009 02:59:00 +0000

从git 1.6.4起，有了一个新的控制选项——remote.$name.pushurl，官方解释如下：

"git push $name" honors remote.$name.pushurl if present before using remote.$name.url. In other words, the URL used for fetching and pushing can be different.

也就是说，你可以有一个url用来取，一个url用来提交，下面是一个配置的例子

[remote "gitweb"]
        pushurl = ssh://me@example.com/gitrepo/mypj.git
        url = git://example.com/mypj.git
        fetch = +refs/heads/*:refs/remotes/gitweb/*

Photo helps remember

noreply@blogger.com (netcasper) — Mon, 14 Sep 2009 05:17:00 +0000

曾经读过一个人讲述自己使用evernote的方式，他在停好车之后拍一张照片，然后上传到evernote上，以免忘记自己停车的位置。当时觉得有点小题大做，这种临时的事情就不用上传了吧。

最近突然想不起自己的房租转账收据放到哪里去了，顿时一头汗啊。决定以后对于重要的物品或者长时间不用的物品，把存放位置拍下来，存到evernote，分门别类。

Wrap git log output

noreply@blogger.com (netcasper) — Fri, 11 Sep 2009 07:31:00 +0000

缺省情况下，git log的输出并不会把长字符串换行，如果有人写提交信息的时候没有换行，那么超出终端宽度的部分就无法看到，解决方法是把core.pager设置为

less -+$LESS -FRX

详细解释参见git config手册中关于core.pager的部分。

这也是我在identi.ca上发的第一个消息

Turn on c++-mode for h files

noreply@blogger.com (netcasper) — Mon, 07 Sep 2009 05:06:00 +0000

C/C++都使用h作为头文件后缀名，使得无法简单地在Emacs里面指定major-mode。使用magic-mode-alist可以减轻一点烦恼。以v8项目为例：

(add-to-list 'magic-mode-alist
             '("// .* the v8 project" . c++-mode))

Emacs在打开文件时如果匹配到相应的正则表达式，就会使用c++-mode。

Send org status change to identica

noreply@blogger.com (netcasper) — Wed, 02 Sep 2009 04:40:00 +0000

microblog的一个功能算告诉世界What are you doing?以下一段代码把正在计时的任务和刚刚完成的任务记录在identi.ca或者任何自己建立的laconi.ca上。

(defun wl-org-clock-in-update ()
  (let ((current-heading (org-get-heading t))
        (tags (org-get-tags-at)))
    (when (member "@office" tags)
      (with-current-buffer identica-buffer
        (identica-update-status-if-not-blank "statuses" "update"
                                             current-heading)))))

(add-hook 'org-clock-in-hook 'wl-org-clock-in-update)

(defun wl-org-todo-state-change-update ()
  (let ((current-heading (org-get-heading t))
        (tags (org-get-tags-at)))
    (when (and (member "@office" tags)
               (string-match "^\(DONE\|CANCELED\|GOT\) " current-heading))
      (with-current-buffer identica-buffer
        (identica-update-status-if-not-blank "statuses" "update"
                                             (concat "#" current-heading))))))

(add-hook 'org-after-todo-state-change-hook 'wl-org-todo-state-change-update)

我在公司的机器上装了laconica，所以只在上面记录跟工作相关的内容，其中(member "@office" tags)保证只发送含有@office标签的任务。

microblogging

noreply@blogger.com (netcasper) — Thu, 20 Aug 2009 04:18:00 +0000

在公司机器上装了laconi.ca，可惜只有我自己在用，很是无聊，于是考虑是否在identi.ca上创建帐号。然而，最终还是在自由与潮流之间选择了后者，于是便有了如下的twittering-mode的配置。

(add-to-list 'load-path "~/elisp/3rd-party-lib/twittering-mode/")
(require 'twittering-mode)
(setq twittering-username "wlcasper")
(setq twittering-timer-interval 900)
(setq twittering-proxy-use t)
(setq twittering-proxy-server "127.0.0.1")
(setq twittering-proxy-port "8118")

netcasper不知道被谁注册了，只好使用备用id。代理使用的是privoxy+tor的方式，privoxy的设置参见Setup Tor & Privoxy for anonymous searching。其实很简单，就是在/etc/privoxy/config文件里添加一行：

forward-socks4a / localhost:9050 .

注意最后有一个点，千万不要漏掉。

Changing life style

noreply@blogger.com (netcasper) — Thu, 13 Aug 2009 04:51:00 +0000

自从把儿子接到上海，生活习惯彻底改变了。

晚上9点一过就上床睡觉，儿子一般在7点到8点之间睡。为什么睡这么早呢？因为
刚来的时候，儿子早上3点就醒了。通过十几天的努力，现在基本在5点半醒；而且
后半夜一点多，还要起来喂奶。宝宝睡着的时候居然也能够吃奶。
其实夜里起来的次数不止一次，通常会有一段时间，儿子睡不踏实，翻来覆去的，有时还哭两声。这时候需要抱起来哄一哄。
家里的电脑很少开。
早饭吃得特别多，比如今天早上，一杯豆浆、一根油条、一碗小米粥、一个菜包，外加一个煮鸡蛋。

刚开始的时候，白天那叫一个困啊，上班时坐在椅子上，一下子就能睡着，现在锻炼出来了，不会感到困，最多在精力无法集中的时候小睡一下。

Advantage of clocking

noreply@blogger.com (netcasper) — Tue, 11 Aug 2009 04:22:00 +0000

org-mode提供了计时（clocking）功能，使用方法是：

为某项任务开始计时，使用C-c C-x C-i，或者在*Org Agenda*下使用I。
结束计时使用C-c C-x C-o，或者在*Org Agenda*下使用O。

对一项任务可以多次计时。

计时工作本身比较枯燥，然而利用计时的结果，我们可以做很多深入的分析，org-mode提供两种方式展示分析结果。

在*Org Agenda*下使用R，会在buffer底部生成一个表格，统计出当前*Org Agenda*周期内的任务消耗时间。
在*Org Agenda*下使用l，会显示出在某个时间段内的工作内容。

有了这两个数据，我们可以分析出到底每天花了多少时间用在真真正正做事情上，有多少时间片段没有任何实际内容。

《奇特的一生》里介绍柳比歇夫一生都在严格地计时，然后手工做总结、统计。有了org-mode的自动化功能，我们可以让这一过程更有趣。

Big Chinese Small ASCII

noreply@blogger.com (netcasper) — Wed, 05 Aug 2009 04:15:00 +0000

GNU Emacs有一个假设，即一个汉字字符的宽度是一个ASCII的两倍。如果这个假设不满足，就会有些功能看起来不正常，比如auto-fill-mode、org-mode table。很遗憾，缺省情况下，这个假设并不成立。

查看字体使用C-u C-x =，注意其中xft的值，通常来说，ASCII和中文的字体大小是一样的。以下是我的缺省字体设置：

(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(default ((t (:inherit nil :stipple nil :background "#ffffff"
                :foreground "#000000" :inverse-video nil :box nil 
                :strike-through nil :overline nil :underline nil 
                :slant normal :weight normal :height 170 
                :width normal :foundry "Ascender Corp." 
                :family "Liberation Mono")))))

使用如下方法可以将汉字宽度设置为ASCII的两倍，具体数值需要参考相应的缺省配置。

(set-fontset-font "fontset-default" 'chinese-gbk "AR PL UKai CN 20")

如果是Emacs daemon，则需要写成：

(if (and (fboundp 'daemonp) (daemonp))
    (add-hook 'after-make-frame-functions
              (lambda (frame)
                (with-selected-frame frame
                  (set-fontset-font "fontset-default"
                                    'chinese-gbk "AR PL UKai CN 20"))))
  (set-fontset-font "fontset-default" 'chinese-gbk "AR PL UKai CN 20"))

这种方法的缺点是汉字很大、英文较小。

Emacs 23.1 released

noreply@blogger.com (netcasper) — Fri, 31 Jul 2009 05:09:00 +0000

Emacs 23.1已经发布，并提供下载。其中最吸引我的是字体和daemon，这也是我此前一直使用CVS Emacs的原因。

然而使用daemon可能会有一点点小麻烦，如果你觉得自己的daemon不正常，可以尝试执行

emacs -Q --daemon

-Q阻止emacs在启动的时候读取用户的定制文件——.emacs。如果这时一切正常了，那么说明你的配置和daemon有些冲突。不幸的是究竟怎样配置才能正常启动daemon目前还不是很清楚，我的两个帖子可以用来参考。

Customization tips for emacs daemon
Emacs定制与扩展的3.1节。注：此文较长，部分内容有些过时，请阅读时仔细甄别。

Export org table as HTML

noreply@blogger.com (netcasper) — Tue, 28 Jul 2009 04:58:00 +0000

使用如下函数，可以将光标所在位置的org table转换为HTML table。

(defun wl-org-export-table-as-html ()
  (interactive)
  (unless (org-at-table-p)
    (error "No table at point"))
  (let* ((beg (org-table-begin))
         (end (org-table-end))
         (buffer
          (org-export-region-as-html beg end t "*Org Table HTML Export*")))
    (switch-to-buffer-other-window buffer)))

在org-mode里面创建table实在太容易、太方便了，而markdown又没有table支持，只能用HTML，上面这个函数，可以帮我完成快速格式转换。