更新于2019.04

1. blog-mode 更新为 maple-note

2. 新建 Git 仓库 emacs-maple-note

emacs-maple-note blog-mode, 一个基于tabulated-list的emacs笔记管理插件

前言

很早之前我一直在使用blog-admin作为博客笔记的管理工具, 虽然没有用社区维护的 CodeFalling/blog-admin, 而是用我自己修改的honmaple/blog-admin, 毕竟我使用的pelican, 是一个很小众的静态博客生成工具, 为了适应pelican, 也为了适应自己平时的使用, 所以自己修改了一个版本

但最近一是闲来没事，二是blog-admin使用的是ctable，中英文对齐上有些问题(虽然早就解决了), 三是觉得blog-admin有很多我不需要的代码, 而且看到那一长串的配置。。。

 1(setq blog-admin-backend-type 'pelican
 2      blog-admin-backend-new-post-in-drafts t ;; create new post in drafts by default
 3      blog-admin-backend-new-post-with-same-name-dir nil ;; create same-name directory with new post
 4      blog-admin-backend-path "~/git/pelican"
 5      blog-admin-backend-pelican-config-file "pelicanconf.py"
 6      blog-admin-backend-pelican-posts-dir "content/org"
 7      blog-admin-backend-pelican-org-mode-dir "content/org"
 8      blog-admin-backend-pelican-markdown-dir "content/markdown"
 9      blog-admin-backend-pelican-drafts-dir "content/draft")
10(add-hook 'blog-admin-backend-after-new-post-hook 'find-file)
11
12(maple/add-hook 'blog-admin-mode-hook
13  :if (display-graphic-p)
14  ;; (set-face-attribute 'variable-pitch nil :font "-Sony-Sony Fixed-normal-normal-normal-*-16-*-*-*-c-80-iso10646-1")
15  (set-face-attribute 'variable-pitch nil :font "Inconsolata 12")
16  (buffer-face-mode))

查找资料后锁定了tabulated-list, 毕竟默认的emacs包管理器使用的就是tabulated-list, 最终参考package.el.gz, 自己写了一个 maple-note blog-mode

配置

 1(use-package maple-note
 2  :ensure nil
 3  :commands maple-note
 4  :config
 5  (setq maple-note-root-path "~/git/pelican"
 6        maple-note-draft-path "content/draft")
 7
 8  (setq maple-note-alist
 9        '(("markdown"
10           :path "content/markdown"
11           :read maple-note--read-md
12           :template "Title: %s
13                      Author: honmaple
14                      Date: %s
15                      Modified: %s
16                      Category:
17                      Tags:
18                      Slug: %s
19                      Summary: ")
20          ("org-mode"
21           :path "content/org"
22           :read maple-note--read-org
23           :template "#+TITLE: %s
24                      #+AUTHOR: honmaple
25                      #+DATE: %s
26                      #+CATEGORY:
27                      #+PROPERTY: MODIFIED %s
28                      #+PROPERTY: TAGS
29                      #+PROPERTY: SLUG %s
30                      #+PROPERTY: SUMMARY "))))
31
32;; 弃用
33(use-package blog-mode
34  :load-path "site-lisp/blog-mode"
35  :commands blog-start
36  :config
37  (setq blog-root-path "~/git/pelican"   ;; 文章根目录
38        blog-org-path "content/org"      ;; org文件保存目录
39        blog-md-path "content/markdown"  ;; markdown文件保存目录
40        blog-draft-path "content/draft"));; 草稿文件保存目录

快捷键

• w 新建文章 新建文章以.org或.md结尾, 默认会保存在maple-note-draft-path blog-draft-path目录下

• r 刷新列表

• s 发布与未发布切换 这个其实是目录的切换, 未发布的放到maple-note-draft-path blog-draft-path目录下, 已发布的org文件放到blog-org-path目录, markdown文件放到blog-md-path目录 ,已发布的org文件放到 maple-note-alist 中预定义的 path 路径里, markdown文件同理

• D 删除当前文章

• f 筛选文章 筛选title和category

• RET (鼠标左键)

  • 点击title: 打开文件

  • 点击publish: 发布与未发布切换

  • 点击category: 筛选当前分类