October 18th, 2008emacs muse mode – issues

muse是emacs中emacs-wiki mode的继任者, 兼容原来wiki的所有操作, 当然也有不少改进, 照wiki里讲它的优点, 大致有以下几点(直接从原文翻译过来的):

    • 可以处理不同的输出格式
    • 相对于EmacsWikiMode来讲hack它更容易, 代码的组织结构更加nice
    • 更加容易的从一个已有的样式派生出自己特定的发布样式
    • Muse中有一个大副改进的日志模式(支持输出Rss1.0(Rdf)/Rss2.0)

讲了这么多废话, 其实是因为这两天比较枯燥无聊的时候, 自己在瞎折腾Emacs, 所以找到了这么个东西准备用了当记事本用, 不过配置的时候发现了几个问题, 现在解决了, 写下来, 估计一定会有人和我遇到相同的问题!

问题一: 在Muse的QuickStart Tutorial中的源代码那一小节讲到插入源代码然后再发布出的文件里的代码就是高亮的, 可是我在刚开始试的时候是没有成功的: 发布出的代码是没有任何处理的. 经过调查后发现这个功能是需要htmlize.el 扩展的支持的, htmlize.el是被包含在XEmacs发布的, 所以使用XEmacs的兄弟们不会遇到这个问题, 估计写这个QuckStart的哥们用的就是XEmacs, 而htmlize.el默认是不在Emacs中的, 所以就需要自己手动下载这个文件并放到你的加载路径里喽.

问题二: 如何直接在edit模式就可以看到高亮的代码, 刚才讲到Muse发布时是支持高亮其中的代码的, 但是默认情况下是不支持在编辑状态就高亮代码的, 效果应该和下面的差不多

syntax-hilighting

找了半天总算从这里(作者: 叶文彬)找到了一个比较好看的实现(没办法, 谁让咱是不会写lisp的菜鸟呢!~~~~~), 作者的配置文件里有支持代码高亮的一些自定义函数, 就是从(defun muse-colors-src-tag (beg end) 到(add-to-list ‘muse-colors-tags ‘("src" t nil nil muse-colors-src-tag)) 这一段, 有了这些就可以让你的Muse支持高亮了. 另外建议也把htmlize-region-for-paste这个函数放到你的配置文件里, 有了这个函数, 就会把生成的代码的样式使用css样式而不是直接使用html的颜色标记指定, 当然你需要有一个css文件里包含了所需要的样式, 你要是不知道的话也参考这位作者定义的! 他的CSS样式文件在这里可以找到.

基本上为了支持代码高亮我从作者那抄了如下代码, 版权归原作者所有, 我只是引用一下下:

(defun htmlize-region-for-paste (beg end)
  "Htmlize the region and return just the HTML as a string.
This forces the `inline-css’ style and only returns the HTML body,
but without the BODY tag.  This should make it useful for inserting
the text to another HTML buffer."
  (let ((htmlbuf (htmlize-region beg end)))
    (unwind-protect
        (with-current-buffer htmlbuf
          (buffer-substring (plist-get htmlize-buffer-places ‘content-start)
                            (plist-get htmlize-buffer-places ‘content-end)))
      (kill-buffer htmlbuf))))
;;}}}

;(defvar muse-colors-overlays nil)
(defun muse-colors-src-tag (beg end)
  "Strip properties and mark as literal."
  (let (face)
    (muse-unhighlight-region beg end)
    (save-excursion
      (goto-char beg)
      (let ((fs 1) content face-list fe mode attrs number ov ovs
            (font-lock-verbose nil))
        (when (re-search-forward "<src\\(.*\\)>" nil t)
          (setq beg (match-end 0)
                attrs (mapcar
                       (lambda (pair)
                         (setq pair (split-string pair "="))
                         (setcdr pair (substring (cadr pair) 1 -1))
                         pair)
                       (split-string (match-string 1)))
                mode (and (assoc "lang" attrs)
                          (intern-soft (concat (cdr (assoc "lang" attrs))
                                               "-mode"))))
          (when (and mode (fboundp mode))
            (goto-char end)
            (setq end
                  (if (re-search-backward "</src>" nil t)
                      (match-beginning 0)
                    (point-max))
                  content (buffer-substring-no-properties beg end))
            (with-current-buffer (get-buffer-create "*muse-temp*")
              (funcall mode)
              (insert content)
              (font-lock-fontify-buffer)
              (htmlize-ensure-fontified)
              (or (get-text-property fs ‘face)
                  (setq fs (next-single-property-change fs ‘face)))
              (while (and fs (< fs (point-max)))
                (setq fe (or (next-single-property-change fs ‘face)
                             (point-max))
                      face (get-text-property fs ‘face))
                (and face fe (setq face-list (cons (list (1- fs) (1- fe) face) face-list)))
                (setq fs fe))
              (kill-buffer (current-buffer)))
            (when face-list
              ;; (message "%S" face-list)
              (dolist (f (nreverse face-list))
                (put-text-property (+ beg (car f)) (+ beg (cadr f))
                                   ‘face (nth 2 f)))))
          (when (and (assoc "number" attrs)
                     (setq number (string-to-number (cdr (assoc "number" attrs)))))
            (mapc (lambda (o)
                    (let ((pos (overlay-start o)))
                      (if (or (null pos)
                              (and (> pos beg) (< pos end)))
                          (delete-overlay o)
                        (push o ovs))))
                  muse-colors-overlays)
            (setq muse-colors-overlays ovs)
            (goto-char beg)
            (forward-line 1)
            (while (and (not (eobp)) (< (point) end))
              (when (not (looking-at "</src>"))
                (setq ov (make-overlay (point) (point)))
                (push ov muse-colors-overlays)
                (overlay-put ov ‘before-string (format "%4d " number))
                (setq number (1+ number)))
              (forward-line 1))))))))
(add-to-list ‘muse-colors-tags ‘("src" t nil nil muse-colors-src-tag))

基本在搞Muse的时候就遇到这两个比较麻烦的问题, Over:)

October 17th, 2008爱如少年 — 许巍

s3289013

曲目   · · · · · ·                     

01爱
02彩云之颠
03故事
04我们
05家
06美丽的女人
07幸福
08天使
09道路
10难忘的一天
11四季
12少年
13风行{李宁广告曲}乐队版

期待许久, 四年后总算又出了这一张专辑.

风格相对前几张, 变化很大, 但无论如何, 他要唱的就是他自己, 表达的是他自己的现在状态, 很高兴许巍同学现在能有如此好的心态. 满怀感恩的歌, 听着这音乐, 心中不时感动.

想起以前看到的一集王小丫做的许巍的节目, 讲到他从走上音乐道路, 轶学, 学吉他, 参军(文艺兵), 然后组建乐团, 创伤”执著”, 北漂的生活等等, 他也从一个愤青慢慢走向成熟, 从在别处 到那一年, 再到时光·漫步, 再到每一刻都是崭新的然后再到这最新的一张爱如少年, 他从摇滚变为温情, 从愤怒,绝望逐渐走向淡然, 而现在则更是满心的感恩. 虽然音乐风格在不停的改变, 他但有一点没有变: 我歌表我心, 他的歌总是表达心中最真实的想法, 所以看到他的改变也心中感到欢喜, 不是因为音乐的好坏 — 他终于从黑暗中走了出来, 感受到这明亮的阳光.

参考资料:

http://www.douban.com/subject/3223853/

http://baike.baidu.com/view/15480.htm

这会儿听这个歌挺high, 呵呵.

另外发现live writer挺智能的, 直接复制youtube的链接到里面居然就直接识别成flash的视频了:)

附上歌词:

Early one morning the sun was shining
I was laying in bed
Wond’ring if she’d changed it all
If her hair was still red
Her folks they said our lives together
Sure was gonna be rough
They never did like Mama’s homemade dress
Papa’s bankbook wasn’t big enough
And I was standing on the side of the road
Rain falling on my shoes
Heading out for the East Coast
Lord knows I’ve paid some dues getting through
Tangled up in blue.

She was married when we first meet
Soon to be divorced
I helped her out of a jam I guess
But I used a little too much force
We drove that car as far as we could
Abandoned it out West
Split it up on a dark sad night
Both agreeing it was best
She turned around to look at me
As I was walking away
I heard her say over my shoulder
"We’ll meet again someday on the avenue"
Tangled up in blue.

I had a job in the great north woods
Working as a cook for a spell
But I never did like it all that much
And one day the ax just fell
So I drifted down to New Orleans
Where I happened to be employed
Working for a while on a fishing boat
Right outside of Delacroix
But all the while I was alone
The past was close behind
I seen a lot of women
But she never escaped my mind and I just grew
Tangled up in blue.

She was working in a topless place
And I stopped in for a beer
I just kept looking at her side of her face
In the spotlight so clear
And later on as the crowd thinned out
I’s just about to do the same
She was standing there in back of my chair
Said to me "Don’t I know your name ?"
I muttered something underneath my breath
She studied the lines on my face
I must admit I felt a little uneasy
When she bent down to tie the laces of my shoe
Tangled up in blue.

She lit a burner on the stove and offered me a pipe
"I thought you’d never say hello" she said
"You look like the silent type"
Then she opened up a book of poems
And handed it to me
Written by an Italian poet
From the thirteenth century
And every one of them words rang true
And glowed like burning coal
Pouring off of every page
Like it was written in my soul from me to you
Tangled up in blue

I lived with them on Montague Street
In a basement down the stairs
There was music in the caf,s at night
And revolution in the air
Then he started into dealing with slaves
And something inside of him died
She had to sell everything she owned
And froze up inside
And when finally the bottom fell out
I became withdrawn
The only thing I knew how to do
Was to keep on keeping on like a bird that flew
Tangled up in blue.

So now I’m going back again
I got to get her somehow
All the people we used to know
They’re an illusion to me now
Some are mathematicians
Some are carpenter’s wives
Don’t know how it all got started
I don’t what they’re doing with their lives
But me I’m still on the road
Heading for another joint
We always did feel the same
We just saw it from a different point of view
Tangled up in Blue.

October 9th, 2008思维的乐趣

最早看到到”思维的乐趣”一词, 好像是从王二的书里看到的, 意思很易懂, 思维即思考所带来的乐趣, 当时确实也从他的文章中感受到了思维的论辩所带来的以前没有体会到的巨大的快乐, 只是现在又产生了疑问.

在这次的十一旅行的去程, 读完了《当下的力量》一书. 有些东西还是想不明白 — 于是在这里便知道自己已经错了: 书中反复强调人们都被自己的大脑/思维控制了, 其实大脑/思维并不是你的全部. 事实上是有一个超脱了思维而又永恒的存在, 但是我们很少有人能感受到这个存在, 而大多数情况下我们都在被无意识的思维所控制着, 我们所感受的欢乐/痛苦都源于无意识的思维, 当无意识的思维控制了我们的情绪, 于是便产生了喜怒哀乐.

书中又提到当你感受到了这种超脱于思维而又永恒的存在后, 你会体会到一种前所未有的超脱了思维所能理解的欢乐. 而我们要达到这种境界, 就要首先学会控制自己的思维, 并能有意识的减少无必要的思维活动(每个人都会有无思维的状态, 只是大家没有意识到而已), 当控制了思维之后, 你便会观察到思维是如何产生的, 是如何进行的, 以及它是如何控制你的情绪的. 到了这个时候你的情绪便不会再受到思维的控制.

只是这样会不会让我们也失去思维带来的乐趣呢? 正如与朋友相聚, 我们能感受到在一起的愉悦, 有很多这种愉悦是因为我们会想到过去经历的美妙的时光, 如果要把控制思维, 那这样是不是我们连这种愉悦都体会不到? 当然这里也会有一个好处—-我们会有意识的控制思维, 从而消除一些分离时的负面情绪. 但是, 当控制了思维之后, 是不是这样我们就享受不到之前相聚的愉悦了呢? 心中有些舍不得放弃这种愉悦, 舍不得, 想到这里—很明显这时自己又走上了岔路, 这只不过是思维在做垂死挣扎, 让我产生不能放弃它(即思维)的想法.

另外那种超脱了思维的愉悦是什么样的? 这是个用思维无法理解的东西, 所以暂时还理解不了. 正如一个没有真正思考过的人不会体会到思维的乐趣一样, 体会不到这超脱了思维而又永恒的存在的人也不会体会到这更高层次的快乐.

最后, 记忆力很差, 书刚看完没几天, 里面的内容基本全都忘了.

October 8th, 2008null

就是这么个状态 — 没有任何思想在流动

思维的静止不代表生活的空虚, 相反, 俺们还过了一个相当精彩的假期.

很土的一个人去了荣鹏烀饼,在服务员的建议下只点了一个菜,另啤酒一瓶…
回复 pangwa2008-09-30 周二 20:09:57 通过 WAP

首先火车直接到了锦州, 晚上找了家小旅店休息, 然后打车直奔荣鹏烀饼, 网上讲这是锦州的特色, 进去后, 问服务员点几个菜够啊, 那服务员mm鄙视的看着我讲你一个菜就够啦, 于是点了一个烀饼外加一瓶啤酒, 等菜上来, 发现服务员果真圣明, 岗岗的一大盘, 眼泪哗哗的赞叹还是辽宁人民厚道. 胃口一般, 菜只吃了几口就吃不下了, 比较没有战斗力, 于是只有在服务员略带鄙夷的目光下买单走人….

第二天便按照原来找好的攻略, 去了义县, 据说那儿有传说中的大佛寺, 车很容易在车站就坐上了, 三十块门票钱, 进去参观, 寺不算大, 据说挺古老的, 到处拜了一下, 心情没有像以往那种朝圣般的虔诚, 很虚无的拜了一遍, 另外在烧香的时候自己的香有点燃的不够旺, 于是在参观其他庙堂的时候便总是在惦记那香不会熄了吧, 虽然意识到应该放下这无谓的执著 — 熄了又如何, 不熄又如何. 可心中还是放不下它, 于是绕了一圈后还是不忘回到最初的地方看了一眼, 嗯, 没灭 😀 . 另外抱怨一下寺内的老年干部表演团, 在那里表演二人转之类的东西, 让本该安安静静的地方太嘈杂. 最后居然冒出在寺内留张照片的念头, 于是花钱拍照一张.

懋楼酒店午饭,现在去万佛堂…
回复 pangwa2008-10-01 周三 12:37:00 通过 手机

中午便去找了在网上看到的一个叫”懋楼酒店”, 清真餐馆, 看着店内其他客人点的菜, 照着点了一个杂碎汤, 两个包子, 一盘凉菜, 共花费7.4元钱, 很饱, 很好吃.

取消去万佛堂的行程,因为等了很久那个公交车还不开
回复 pangwa2008-10-01 周三 12:54:47 通过 手机

最后由于去某万佛堂的公交间隔时间太长, 很没耐心的等了一小会便决定取消行程, 于是直接回到锦州.

一号下午接到某楠的电话, 再之后就被某楠专车接到了传说中的葫芦岛. 震撼, 相当震撼, 被大大的震撼了.

二号大部队人马到齐, 吃饭时候大家都表现出了极大的震撼, 每个人都在刚进饭店包间门的时候”哇”了一声, 当然光哇是不够的, 包间里有地球仪, 有花, 桌子对面的人沟通都得靠喊, 土鳖们吃了大鱼大肉大螃蟹后还见到了很大很大的虾……估计刘姥姥当年也没见过这排场啊.

另外二号晚上发生了一场恶战, 某于博就是在这个晚上吼出了”我不是鸡肋”的神圣宣言, 三号参观, 游玩, 总之大开眼界, 另外由于前晚的恶战, 部分人马比较萎靡, 战斗力稍弱.

四号盛大的婚礼仪式, 相当煽情, 众女生全哭的有声有色的, 煽情到无法用有限的可以用思维理解的文字来描述了……

五号各自回家. “一聚一别离”, 初相聚便想起与这句相关的一串话来, 使我意兴索然.

六号到上海, 办理最后的离职手续, 最后离开公司居然忘了留张照片纪念 — 这还是在某友人问到时才想到是应该留照的 – “我走了/正如我轻轻的来”

七号第一天上班.

八号第二天上班.

心理静默期 — 静默到似乎有些思绪, 可是却讲不出来

晚了, 睡觉先.


© 2007 pangwa's Blog | iKon Wordpress Theme by Windows Vista Administration | Powered by Wordpress