一天到晚游泳的鱼～ 咕噜咕噜～

19 号刚开业，今天下午特意去瞅了一眼。没有什么特别好玩的，地儿还特不好找！ 我坐地铁 10 号线过去的，农展錧站下车，结果走了半天才找到那个 “village”。 回车的时候发现还是团结湖站离得近点，虽然出站后还是得走约两站公交车站（顺 着工体北路走）。

店面格局基本和我在东京涉谷店看到的差不多：一楼主产品 + 透明楼梯 + 二楼配 件，所以也没有什么好玩的。最关注的 iphone 3G 还是没有踪影，不知何时登陆中 国…

另外，顺便问了下 airport express 和 airport extreme 的区别。一直不是很明 白它们有什么区别。店员说，express 只支持 10 台电脑；extreme 支持 50 台， 并且还多了几个以太网接口。价钱分别是 700 和 1400 多块左右。真不便宜啊。

ps. 10 号线还蛮先进的，站台与铁轨间使用用透明玻璃门隔开！

针对 scheme 标准之外的宏与特殊式？(special forms) 的缩进与高亮支持。 尤其 如when, unless, if 等，让它们像在 elisp 里一样漂漂亮亮地缩进、高亮。

马上下载！

推荐阅读最后一部分“吾道悠悠”，即从许秋汉部分开始。最精彩的还是钱理群的部 分，有许多有玩的故事。我最爱听人讲故事了，不禁让我想念起大学时代的应明生 教授了…他竟能让《数理逻辑》课变得生动、有趣。

引用两段钱理群演讲部分：

  曾经有那样一个时代，曾经有那样一批人物。他们那样地想着，那样地活着。他们离我们今
  天并不遥远，但他们守护、在意、体现的精神、传统、风骨，已与我们相距甚远。读着他们，
  我们感到恍若隔世；抚摸历史，我们常常浩叹不已。
  
  又是刘文典先生在西南联大的故事：一日，日本飞机空袭昆明，教授与学生都四处躲避。刘
  文典跑到中途，突然想起他“十二万分”佩服的陈寅恪目力衰竭行走不便，就连忙率几个学
  生折回来搀扶着陈先生往城外跑去，一边高喊：“保存国粹要紧，保存国粹要紧！”
  这时只见他平素最瞧不起的新文学作家沈从文也在人流中，便转身怒斥：“你跑什么跑？我
  刘某人是在替庄子跑，我要死了，就没人讲庄子了！你替谁跑？”

方便 emacs 用戶在 irc channel 中粘貼東東：

;; ,----
;; | wgetpaste
;; `----
(setq xwl-wgetpaste-username "xwl")

(defun xwl-wgetpaste-ubuntu-cn (beg end)
  (interactive "r")
  (let ((ret (concat
              "http://paste.ubuntu.org.cn/"
              (replace-regexp-in-string
               ".*Saving to: `\\([0-9]+\\)'.*"
               "\\1"
               (replace-regexp-in-string
                "\n"
                " "
                (shell-command-to-string
                 (format "wget --post-data=\"poster=%s&class=lisp&paste=1&code2=%s\" http://paste.ubuntu.org.cn"
                         xwl-wgetpaste-username (xwl-wgetpaste-escape (buffer-substring-no-properties beg end)))))))))
    (when mark-active
      (deactivate-mark))
    (kill-new ret)
    (message "%s" ret)))

(defun xwl-wgetpaste-escape (string)
  "Escape special characters used in wget."
  (let ((ret (replace-regexp-in-string "%" "%25" string)))
    (mapc (lambda (i)
            (setq ret (replace-regexp-in-string (car i) (cdr i) ret)))
          '(("\\\\" . "%5c")
            ("\`" . "%60")
            ("\"" . "%22")
            ("\\+" . "%2b")
            ("&" . "%26")))
    (setq ret (replace-regexp-in-string " " "+" ret))))

在 elisp 层提供一个通用的用户界面，以应付各种包管理工具，比如 fink, apt-get, emerge, yum, packman, pkg-get 等等。目前支持 fink, apt-get 两种 后端，添加新的后端是很容易的。

下图中，左 apt-get (通过 ssh 连接的 debian)，右 fink (Mac OS X)：

下载在这里。