不同编码(GB2312, UTF-8, UTF-16)下中文内容的占用大小的区别

2015-02-13

楔子

有一次一个人问有什么编码能使用一个字节存储中文当然结果是否定的中文没法做到一个字节存储

可是如果是压缩呢于是有此测试

结果

直接放结果数据单位是字节

文章 (中文/全部字数)/编码	GB2312	UTF-16^注1	UTF-8^注2	GZIPed UTF-16	GZIPed UTF-8
Wiki的【量子力学】词条的源码 (13135/32873)	43,782^注3	66,436	59,111	27,491	27,282
《共产党宣言》 (30352/35993)	62,594	64,634	92,670	32,554	38,593

^注1 UTF-16-LE-DOS 这也就是Windows记事本的Unicode保存出来的编码
^注2 UTF-8-UNIX
^注3 此编码缺一些繁体字，用相应的简化字代替。

阅读全文

生成指定格式的数字序列

2015-02-11

问题描述

写论文的时候需要插入引用文献如果手写的话如何快速生成类似下面样子是序列？

1
2
3

[1] 
[2] 
[3]

Emacs Lisp

1	(loop for i from 1 to 10 do (insert (format "[%d] \n" i)))

一行解决问题这是我以前经常用的

阅读全文

谁还是火狐(Firefox)用户一个知乎用户的搞笑回答

2015-02-04

出处

我就明确的告诉你。

你们啊，我感觉你们这些Chrome的用户还要学习，你们非常熟悉西方的那几个浏览器。

你们毕竟图样，你明白我的意思吗？

阅读全文

多语言(Batch, BASH, Octave, Emacs Lisp, ..)批量处理文件

2015-02-04

楔子

有人提了一个问题如何用C语言编程实现批量处理一个目录里面的所有文件想起我自己也做过类似的事就把自己的解决方案分享出来写完觉得不过瘾总结一下我的实现方案

以下的方案牵扯可执行文件的时候都假设这个文件名字是a 读取一个参数进行处理后面有些只是实现了列举简单总结一下而已

Batch

1	for /f "delims=" %%i in ('"dir /b *.txt"') do a.exe %%i

我很不喜欢Batch 觉得语法好恶心但百度一下还是能写出来要点是 dir 的/b参数实现只输出文件名完美解决

阅读全文

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

2015-01-26

先发出来慢慢完善

(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的代码，发现原来里面的道道真不少，简单写写。

(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))