一、需求

    一个代码片段管理工具所需要的基本功能大概包括:

  1. 支持多语言的高亮

  2. 能够保存对代码的说明

  3. 支持TAG标签

  4. 有方便的查询功能


    而Emacs的Org-mode恰好能够完美的支持上面这些需求.

二、实现

    

(defvar mode-file-map '((c++-mode . "cpp.org")
                        (emacs-lisp-mode . "elisp.org")
                        (python-mode . "python.org")
                        (perl-mode . "perl.org")
                        (dos-mode . "bat.org")
                        (sh-mode . "bash.org"))
  "映射major-mode与保存代码片段文件的对应关系"
  )

(defvar code-library-path "d:/CodeLibrary/"
  "代码库文件存储的目录"
  )
(defun save-code-to-library()
  (interactive)
  (let (
        (code (get-region-or-thing 'defun))
        (library-file (concat code-library-path (cdr (assoc major-mode mode-file-map))))
        (head (read-string "请输入这段代码的说明"))
        (code-major-mode (replace-regexp-in-string "-mode$" "" (format "%s" major-mode))))
    (when (string= library-file code-library-path)
      (setq library-file (concat code-library-path "temp.org")))
    (find-file library-file)
    (end-of-buffer)
    (newline)
    (insert (concat "* " head))
    (newline-and-indent)
    (insert (concat "#+BEGIN_SRC " code-major-mode))
    (newline-and-indent)
    (newline-and-indent)
    (insert "#+END_SRC")
    (forward-line -1)                   ;上一行
    (org-edit-src-code)
    (insert code)
    (org-edit-src-exit)
    (org-set-tags-command)              ;设置代码tags
    (save-buffer)
    ;; (kill-buffer)
  ))

三、使用

    在Emacs中看到中意的代码要保存下来,只需要选中要保存的代码,然后执行M-x save-code-to-library. Emacs会自动根据代码所处与的major-mode来挑选合适的org文件保存,并提示输入代码说明和tag.

    下面是一个代码保存的截图

    wKioL1QHM6_wsHIIAADkrAYpJ_s627.jpg    org-mode本身也提供了大量的搜索命令,可以通过tag或者内容作查询.