org-mode 写 cnblogs 博客

1. 为什么用org-mode写博客

我最开始用Emacs, 是因为org-mode。这是一个专注于写，而让我忽略展示结果的一种写作方式。为什么这么说？因为所有内容的格式都是可定制的。按照自己喜欢的格式编写一些格式化配置, 就可以把org-mode写的内容输出到拥有特定格式的文件，比如html、pdf，这两种常用的文件类型。

除此外，org-mode还可以做计划(TODO list) 等等。这些对于日常的工作都是非常有帮助的。

我喜欢上了org-mode.

与此同时，我又写技术类博客，把自己总结的内容发布到网络上，以飨读者。而很多时候，为了在博客上格式化自己的文档，又是一件让我兴奋到五体投地的事情。

我尝试把导出成html文件的内容直接copy进博客，发现有些内容无法copy,或者原本的格式已经面目全非。然后就研究了下，怎么样能把org-mode的内容直接发布到博客，这样可以保持原有的简约格式。

说白了，最根本的原因就是： 我懒！我懒！我懒！重要的事情说三遍！我不想花太多的时间去对文字图片进行重复格式化

2 说明

org-mode 写博客园的方法，主要是copy 了huwenbiao GITHUB 的代码, 而他的代码是在GITHUB:hexmode 的基础上针对cnblogs进行了扩展开发,已经很久很久没有更新了，可能已经不再维护了吧。我按照自己的想法对Open_Source的代码做了一些简单的修改。

修改内容:

取消从网站下载博文原代码，在每次连接cnblogs前，在设置cnblogs的个人信息时，都会像苍蝇一样问我，是不是要把cnblogs里的博文下载下来，下载的博文是以博文ID命名的html内容文件。个人感觉没有太大的意义。而每次都得输入: no. 再次声明: 我懒! 所以我把下载博文的代码给删除了。
减少输入个人信息次数每次要发布博文之前，都要手动设置自己的博客信息(blog id/ 登录名/密码)。就像老婆让我睡觉前一定要洗澡一样烦(不会被老婆看到吧~哈哈), 所以我修改了原代码，将个人信息的相关变量单独配置, 以后每次写完org文件，直接 C-c c p 就可以直接发布，而不用每次都要先输入一次个人信息。而如果没有配置,修改以后的程序会提醒你输入。
更新xml-rpc 因为 "huwenbiao"已经很久没有更新代码,所以我从GITHUB:hexmode 上复制了最新的内容。

主要是这些修改，其他还有一些细节和修复一些BUG。

总体来说，已经能满足我的需求了。

下面提供我修改以后的cnblogs.el

;;;cnblogs.el --- Emacs :Configuration for writing cnblogs with org-mode.

;; Created: Tue Jun 11 00:18:39 2019

;;

;; Author: halberd.lee@gmail.com

;; URL:

;; Version: 20190610

;; Keywords: convenience

;; This file is not part of GNU Emacs.

;;; Commentary:

;; Some Linux specific stuff.

;;; License:

;; This program is free software; you can redistribute it and/or

;; modify it under the terms of the GNU General Public License

;; as published by the Free Software Foundation; either version 3

;; of the License, or (at your option) any later version.

;;

;; This program is distributed in the hope that it will be useful,

;; but WITHOUT ANY WARRANTY; without even the implied warranty of

;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

;; GNU General Public License for more details.

;;

;; You should have received a copy of the GNU General Public License

;; along with GNU Emacs; see the file COPYING. If not, write to the

;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,

;; Boston, MA 02110-1301, USA.

;;; Code:

;; On Linux Emacs doesn't use the shell PATH if it's not started from

;; the shell. Let's fix that:

;;todo检查所有的底层函数，正常运行返回t，否则返回nil

;;给所有的操作加上反馈信息

;;; entry type

;;

;; (id title postid categories src-file state)

;; (int string int(string) list string string)

(require 'metaweblog)

(defgroup cnblogs nil

"博客园客户端分组"

:group 'emacs)

;;(defun cnblogs-define-variables ()

"定义及初始化各变量"

(defcustom blog-base-url "https://www.cnblogs.com/"

"blog 域名."

:group 'cnblogs

:type 'string)

(defcustom cnblogs-server-url nil

"MetaWeblog访问地址"

:group 'cnblogs

:type 'string)

(defcustom cnblogs-blog-id "halberd-lee"

"博客ID"

:group 'cnblogs

:type 'string)

(defcustom cnblogs-user-name "halberd.lee"

"登录用户名"

:group 'cnblogs

:type 'string)

(defcustom cnblogs-user-passwd "12345678"

"用户密码."

:group 'cnblogs

:type 'string)

(defcustom cnblogs-media-object-suffix-list '("jpg" "jpeg" "png" "gif" "mp4")

"希望处理的媒体文件类型"

:group 'cnblogs

:type 'list)

(defcustom cnblogs-src-file-extension-list '("org" "html")

"希望处理的媒体文件类型"

:group 'cnblogs

:type 'list)

(defcustom cnblogs-template-head

"#TITLE: \n#KEYWORDS: \n#DATE: \n"

"博客头模板."

:group 'cnblogs

:type 'list)

(defcustom cnblogs-file-root-path "~/wiki/cnblogs/"

"数据文件的根目录."

:group 'cnblogs

:type 'string)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defvar cnblogs-posts-in-category nil

"分类之后的博文，这是显示在Cnblogs-Manager缓冲区里的主要内容.")

(defvar cnblogs-entry-list-file

"博文项列表文件."

(concat cnblogs-file-root-path "entry-list-file"))

(defvar cnblogs-file-post-path

"博文内容文件根目录，其中的博文内容文件以博文id命名."

(expand-file-name "post/" cnblogs-file-root-path ))

(defvar cnblogs-category-list nil

"博文分类列表.")

(defvar cnblogs-category-list-file

"博文分类列表."

(expand-file-name "category-list-file" cnblogs-file-root-path ))

(defvar cnblogs-blog-info nil

"博客信息.")

(defvar cnblogs-entry-list nil

"本地博客列表.")

(defvar cnblogs-category-list nil

"分类列表.")

(defvar cnblogs-post-list-window nil

"博文列表窗口.")

(setq test-post `(("title" . "博文题目")

("dateCreated" :datetime (20423 52590))

("categories" "categories" "[随笔分类]Emacs" "[随笔分类]Linux应用")

("description" . "博文正文。")))

;;;;;;;;;;;;;;;;;;;;;;;;;;Menu;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;"cnblogs博客客户端菜单")

(defvar cnblogs-mode-map

(make-sparse-keymap "Cnblogs"))

;;(define-key cnblogs-mode-map [tags-getUsersBlogs]

;; '(menu-item "User information" cnblogs-get-users-blogs

;; :help "获取用户的博客信息"))

;;

;;(define-key cnblogs-mode-map [tags-getRecentPosts]

;; '(menu-item "Get recent posts" cnblogs-get-recent-posts

;; :help "获取最近发布的N篇博客"))

;;

;;(define-key cnblogs-mode-map [tags-getCategories]

;; '(menu-item "Get(Update) categories" cnblogs-get-categories

;; :help "获取并更新本地博客分类"))

;;

;;(define-key cnblogs-mode-map [tags-getPost]

;; '(menu-item "Get post" cnblogs-get-post

;; :help "获取并更新本地指定的博客"))

;;(define-key cnblogs-mode-map [separator-cnblogs-tags]

;; '(menu-item "--"))

;;

;;(define-key cnblogs-mode-map [tags-editPost]

;; '(menu-item "Update post" cnblogs-edit-post

;; :help "更新已发布的博客"))

;;

;;(define-key cnblogs-mode-map [tags-deletePost]

;; '(menu-item "Delete post" cnblogs-delete-post

;; :help "将当前缓冲区对应的博客删除"))

;;

;;(define-key cnblogs-mode-map [tags-saveDraft]

;; '(menu-item "Save draft" cnblogs-save-draft

;; :help "将草稿保存到服务器，但状态为“未发布”"))

;;

;;(define-key cnblogs-mode-map [tags-newPost]

;; '(menu-item "Publish post" cnblogs-new-post

;; :help "发布当前缓冲区"))

;;

;;(define-key cnblogs-mode-map [C-S-mouse-1]

;; cnblogs-mode-map)

;; )

;(cnblogs-define-variables)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;LoadData;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;(cnblogs-load-entry-list) ;; todo: 放在初始化中

(defun cnblogs-load-entry-list ()

(setq cnblogs-entry-list

(condition-case ()

(with-temp-buffer

(insert-file-contents cnblogs-entry-list-file)

(car (read-from-string (buffer-string))))

(error nil))))

(defun cnblogs-save-entry-list ()

"保存cnblogs-entry-list，成功返回t，否则返回nil"

(condition-case ()

(with-temp-file cnblogs-entry-list-file

(print cnblogs-entry-list

(current-buffer)))

(error nil)))

(defun cnblogs-load-category-list ()

(setq cnblogs-category-list

(condition-case ()

(with-temp-buffer

(insert-file-contents cnblogs-category-list-file)

(car (read-from-string (buffer-string))))

(error nil))))

(defun cnblogs-save-category-list ()

;先将分类格式简化，只留取名字

(setq cnblogs-category-list

(mapcar (lambda (category)

(cdr (assoc "description" category))

)

cnblogs-category-list))

(with-temp-file cnblogs-category-list-file

(print cnblogs-category-list

(current-buffer))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;底层函数;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun cnblogs-check-legal-for-publish (src-file)

"检查文件是否可以发布"

(and

(if (member (file-name-extension src-file)

cnblogs-src-file-extension-list)

t

(progn

(message "Failed: UNSUPPORTED file!")

nil))

(if (equal (cnblogs-check-src-file-state (buffer-file-name))

"PUBLISHED")

(progn

(message "This post has been published, you can update it, using M-x cnblogs-edit-post")

nil)

t)))

(defun cnblogs-check-legal-for-delete (src-file)

"检查文件是否可以删除相应的博文"

(and

(if (member (file-name-extension src-file)

cnblogs-src-file-extension-list)

t

(progn

(message "Failed: UNSUPPORTED file!")

nil))

(if (equal (cnblogs-check-src-file-state (buffer-file-name))

"PUBLISHED")

t

(progn

(message "This post has not been published, so you cann't delete it!")

nil))))

(defun cnblogs-check-legal-for-edit (src-file)

"检查文件是否可以更新"

(and

(if (member (file-name-extension src-file)

cnblogs-src-file-extension-list)

t

(progn

(message "Failed: UNSUPPORTED file!")

nil))

(if (equal (cnblogs-check-src-file-state (buffer-file-name))

"PUBLISHED")

t

(progn

(message "This post has not been published, you can't update it. You can publish it using M-x cnblogs-new-post")

nil))))

(defun cnblogs-check-src-file-state (src-file)

(let ((state nil))

(mapc (lambda (entry)

(if (equal src-file (nth 4 entry))

(setq state (nth 5 entry))))

cnblogs-entry-list)

state))

(defun cnblogs-gen-id ()

"给entry产生一个id，从１开始"

(let ((id 0)

(flag t))

(while flag

(progn

(setq flag nil id (1+ id))

(mapc (lambda (entry)

(and (equal id

(car entry))

(setq flag t)))

cnblogs-entry-list)))

id))

(defun cnblogs-push-post-to-entry-list (post)

"将博文保存到cnblogs-entry-list变量中。但并不立即保存到文件中"

(let ((title (cdr (assoc "title" post)))

(postid (cdr (assoc "postid" post)))

(categories (cdr (assoc "categories" post)))

(done nil)

(index 0))

(progn

(if (integerp postid)

(setq postid (int-to-string postid)))

;;保存博文

(with-temp-file (concat cnblogs-file-post-path postid)

(print post (current-buffer)))

;;如果有相同标题的博文项，则提示是否合并到同一项中去，如果有已经存在多个相同的项，对每个都询问，直到回答是或者完

(mapc (lambda (entry)

(progn

(or done

(not (equal title (nth 1 entry)))

(not (y-or-n-p (format "merge the post %s with entry %S" postid entry)))

;下面是将该博文合并到该项中

(progn

(setq done t)

(setcar (nthcdr index cnblogs-entry-list)

;id

(list (nth 0 entry)

;title

title

;postid

postid

;categories

3 配置方法及修改内容说明

下载文件打开github:huwenbiao, 下载cnblogs.el和metaweblog.el 两个文件，至于另外一个文件xml-rpc.el 请到 GITHUB:hexmode 下载。
如何加载这些是针对小白的。大牛忽略。

将这三个文件放到你的.emacs.d/cnblogs 中. 然后在init.el中添加如下代码：

;; for cnblogs.
(add-to-list 'load-path "~/.emacs.d/cnblogs/")
(require 'cnblogs)

这样，以后打开org文件时就会自动加载相关的配置。其中的cnblogs-minor-mode 就是用于发布博客的一个mode.

配置个人信息

打开cnblogs.el 文件，找到通过defcustom定义的以下三个变量:

cnblogs-blog-id –> cnblogs 的blog id 比如网址：https://www.cnblogs.com/halberd-lee 的blog id 就是 halberd-lee

cnblogs-user-name –> 登录cnblogs的用户名

cnblogs-user-passwd –> 登录 cnblogs的密码三个变量后面的值都是Nil , 修改为自己的信息。

4. 使用说明

做好以上配置后，编辑好org-mode buffer后，不需要保存，C-c c p 即可正常发布，如果要本地保留源文件，最好还是保存。

C-c c d 根据发布记录的（post-id)删除博客中的博文。这是两个最常用的功能。

halberd's blog

1. 为什么用org-mode写博客

2 说明

3 配置方法及修改内容说明

4. 使用说明

公告