Gih's Blog

cl-common-blog博客功能基本完善

划了个 0.2 版本, 个人测试, 已经相当稳定了, 而且比现在的博客方便, 再过不久我就完全使用cl-common-blog. 博客地址改为 http://blog.gihnius.net/.
写一个博客太简单了, 很多lisp的特性/功能都没有用到, 可能还不如写一个emacs插件折腾人. 当然, 这么说也是基于自己对博客应用的定义, 如果想的复杂, 就可以做得非常复杂, 可是没用. 接下来, 我计划使用common lisp开发一些应用. Planing...

用guile重写emacs?

在solidot 看到这个新闻, 关于前段的:GNU黑客大会2011 , 里面提到用 Guile 实现 Emacs .

Guile ? Scheme ? 写个 emacs ?我记得之前有新闻说 emacs 25 这个版本要用 common lisp 重写. 后来也发现一些 common lisp 做的非完整版本的 emacs 实现, 例如: climacs Hemlock 另外一些描述可以从这里看到:http://www.cliki.net/CL-Emacs现在怎么弄个 scheme 版本的? 我不是怀疑 scheme 不能写一个emacs, 我是觉得, 那些聪明人写了emacs之后, 会把scheme弄大吗? 会再来一个 浏览器, 播放器, 还有什么商业应用之类吗? 我希望他们会做, 然后再弄一个庞大的标准库, 然后: A Common Scheme Was Born!.Lisp社区有很多不稳定的因素, 严重分化阻碍了社区的健康发展. 看看 Paul Graham, common lisp玩得好好的, 却去弄个 Arc .

腾出桌面空间,把系统监视器之类的程序停掉.

像很多人一样,平时喜欢把一个系统监视器显示在桌面, 我使用的是 conky. 

桌面除了它之外, 就剩下编辑器,浏览器之类的主要程序了.
现在我把conky 卸载了. 我觉得桌面上太多的东西容易分散注意力. 现在别说 conky, 连任务栏都省了. 

写了一个简单的监控脚本, 通过espeak有问题时再语音通知我. 避免一直显示没用途的信息.espeak 是一个轻量级的 text-to-speech 引擎. 它使用特别的 语音波 保存声音, 通过 波-声音的转换发声, 而不是打开一个个大大的音频文件播放. 

因此, 使用它做一个系统通知绰绰有余, 不用占用太多的系统资源.首先把 notify-send 替换掉, 取而代之的这个脚本: (notify-say)

#!/bin/sh

## pass by env ESPEAK_ARGS or define here
espeak_args=${ESPEAK_ARGS:-"-a 150 -g 0.3 -p 55 -s 160 -b 1"}

## read from a fifo pipe
ttsf="/tmp/.${USER}.tts.fifo"

ps -aux | grep -q "[Tt]ail -f $ttsf" || (test -p $ttsf || mkfifo $ttsf)
ps -aux | grep -q '[Ee]speak' || (nohup tail -f $ttsf | espeak $espeak_args >/dev/null &)

[ $# -eq 1 ] && [ "$1" = '-stop' ] && {
     ps -aux | grep "[Tt]ail -f $ttsf" | awk '{print $2}' | xargs kill
     #killall espeak
     rm -f $ttsf
     exit
}

echo $* > $ttsf 

$ notify-say "Network connection lost"
## 改变参数 朗读中文

$ESPEAK_ARGS="${ESPEAK_ARGS} -v zh" notify-say "请注意, 主文件系统满了." 

用Common Lisp写的博客程序可用了!

发布了源代码, 并部署到 dev.gihnius.net .

功能很普通, 只能算一个可运行的程序. 毕竟是第一次试手 lisp 的 web 应用.