🌓

两个Emacs函数用于新建和发布Hexo网站

2015-01-26

先发出来 慢慢完善

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
(defun hexo-deploy (dir)
  "Deploy hexo site.
If called with a prefix argument, the user is asked for directory of
the site. Otherwise, the directory is guessed from
`default-directory'."
  (interactive (list (if current-prefix-arg
		   (file-name-as-directory
		    (read-directory-name "Hexo site directory: "
					 default-directory))
		 default-directory)))
  (let ((old-dir default-directory))
    (if (file-exists-p (concat dir "db.json"))
	(progn
	  (setq default-directory dir)
	  (start-process "hexo-deploy" "*Hexo Deploy Output*" "hexo" "d" "-g")
	  (setq default-directory old-dir))
      (progn
	(if (file-exists-p (expand-file-name
			    (concat old-dir "../../db.json")))
	    (progn
	      (setq default-directory (expand-file-name
			    (concat old-dir "../../")))
	      (start-process "hexo-deploy"
			     "*Hexo Deploy Output*" "hexo" "d" "-g")
	      (setq default-directory old-dir))
	  (error "Hexo deploy failed. Wrong directory?"))))))

(defun hexo-wait-and-visit (proc max)
  "Use timer to wait hexo process finish then visit the created file."
  (if (eq (process-status proc) 'exit)
      ;; Exit normally.
      (let ((hexo-buffer (process-buffer proc)))
	(set-buffer hexo-buffer)
	(goto-char (point-min))
	(if (search-forward "File created at " nil t 1)
	    (progn
	      (find-file (buffer-substring-no-properties (point) (line-end-position)))
	      (kill-buffer hexo-buffer))))
    (when (< max 5)
	(run-with-timer 1 nil `(lambda () (funcall 'hexo-wait-and-visit ,proc ,(1+ max)))))))

(defun hexo-new (dir type title)
  "Create an hexo draft/page/photo/post/.
If called with a prefix argument, the user is asked for type of the
created item. By default, `tpye' is post."
  (interactive
   (list (file-name-as-directory
	  (read-directory-name "Hexo site directory: "
			       default-directory))
   (if current-prefix-arg
       (read-string "Type to create: " "post" nil "post")
     "post")
   (read-string "title: ")))
  (let ((old-dir default-directory))
    (if (and (file-exists-p (concat dir "db.json"))
	     title)
	(progn
	  (setq default-directory dir)
	  (hexo-wait-and-visit (start-process "hexo-new" "*Hexo New Output*" "hexo" "n" type title) 0)
	  (setq default-directory old-dir)
	  )
      (error "Input directory is wrong."))))

阅读全文

理解Emacs lisp里的(interactive)

2015-01-26

以前对(interactive)理解不深，只知道给函数加这个表示它可以被交互调用，但今天为了实现在Emacs里操作Hexo，借鉴了一下Magit的代码，发现原来里面的道道真不少，简单写写。

1
2
3
4
5
6
7
8
(defun get-dir (dir)
  "This function can be called non-interactively and interactively."
  (interactive (list (if current-prefix-arg
		   (file-name-as-directory
		    (read-directory-name "A directory: "
					 default-directory))
		   default-directory)))
  (print dir))

上面的定义的函数有三种调用方式：

  • 在Lisp程序里调用，比如(get-dir "/tmp")。
  • 交互式调用，比如M-x get-dir。
  • 带参数交互式调用，比如C-u M-x get-dir。

这种方式灵活性更大，而且还可以用下面的方法判断多个前缀。

阅读全文

Firefox 35.0中使用新的直角主题

2015-01-25

开启方法

  • 进入about:config 找到browser.devedition.theme.enabled
  • 设置为true
  • 我这里开启后默认是暗色主题 如果不是或者不喜欢 设置devtools.theme dark是暗色 light是浅色

阅读全文

批量激活的Windows 8无法免费升级到Windows 10

2015-01-25

本来听到Windows 10可以从Win7/Win8系列免费升级的时候我还是有点期待的 但马上传出消息 批量授权版不在此优惠之列 也就是说我没法享受免费升级了(我所在的学校购买了版权 所以我用的Windows是正版) 立马使用Windows 10的心凉了半截

其实凉了也好 鲁迅先生说 「长歌当哭 是必须在痛定之后的」 Windows 10目前还处于消费者预览阶段 相当于公测 而Windows是专有的商业软件 试用它 就相当于给微软当义务的软件测试员 帮微软挣钱 虽说我能早享受新系统 但也要忍受系统不成熟带来的风险 总的来看 微软赚的多 我收获小 还是不用的好

阅读全文

Firefox中用Base64编码分享小秘密

2015-01-24

以前写过 但找不到了 现在记录一下

Base64 具体自行谷歌/百度罢 编码(Encode)和解码(Decode)在Firefox下可以这样

  • 打开ScratchPad(快捷键Shift+F4)或者开发者工具(快捷键F12)
  • 输入下面的代码 执行 输入你的内容

阅读全文

搬瓦工(Bandwagon)VPS介绍

2015-01-23

便宜又好用的搬瓦工

既然用了而且不错就应该介绍 能看到这个站的人也可能对这个VPS感兴趣 所以介绍是必须的

Bandwagon(注意：内有推广信息) 国内俗称 搬瓦工 从名字看就不高大上 确实也便宜好用 列几个供各位参考

Micro-64

HDD: 1.5 GB
RAM: 64 MB
CPU: 1x Intel Xeon
BW: 100 GB/mo
$3.99 每年

阅读全文

Guideline for building GNU Emacs with MSYS2/MinGW-w64

2015-01-23

The following guidelines described how to compile GNU Emacs with MSYS2/MinGW-w64 combination.

Set up the MSYS2/MinGW-w64 build environment

Download the x86_64 version of MSYS2 in here and install in your preferred directory, e.g. C:\msys64. Note that path containing spaces may causes problems. Run msys2_shell.bat in the C:\msys64 and you will see a BASH window opened. In the BASH prompt, use the following command to install the necessary packages:

1
2
3
4
pacman -S base-devel mingw-w64-x86_64-toolchain mingw-w64-x86_64-xpm-nox \
mingw-w64-x86_64-libtiff mingw-w64-x86_64-giflib mingw-w64-x86_64-libpng \
mingw-w64-x86_64-libjpeg-turbo mingw-w64-x86_64-librsvg mingw-w64-x86_64-libxml2 \
mingw-w64-x86_64-gnutls

阅读全文

乔布斯的卖糖水与改变世界

2015-01-23

Do you want to spend the rest of your life selling sugared water, or do you want a chance to change the world?

Steve Jobs

阅读全文

搬瓦工(Bandwagon)上搭建Nginx用来放Hexo做的Blog站

2015-01-21

楔子

前几天买了一个搬瓦工(Bandwagon)的VPS，主要用于Shadowsocks代理，但用了几天发现我根本用不完，好在当时买的是内存相对大一点的，有128 MB，再跑一个静态服务器应该没有问题，于是手痒痒，想用来搞个新的Blog。神往Hexo很久了，想折腾一个。不出意外，您现在看的这个页面就托管在搬瓦工上面的Hexo站，这篇文章讲的是我搭建服务器的过程和Hexo的配置，也是第一篇用Hexo发布的Blog。

2015-03-04 Update:

因为有人留言说搞不出来，我自己看了下，确实写的不清楚。当时是第一次弄，自己也不是很懂，今天我修改一下。

安装

因为我用的是Debian系统，安装是非常容易的，一条命令搞定：

1
apt-get install nginx

注意：如不注明，命令都是在服务器上运行的，你可以用搬瓦工的管理界面运行它们，如下图。

阅读全文

Hello World

2014-12-26

Welcome to Hexo! This is your very first post. Check documentation for more info. If you get any problems when using Hexo, you can find the answer in troubleshooting or you can ask me on GitHub.

阅读全文