修改默认的library file为MAJOR-MODE.org

Author: lujun9972

code-library.el

@@ -53,12 +53,12 @@
   (let* ((code (if (region-active-p)
                    (buffer-substring-no-properties (region-beginning) (region-end))
                  (thing-at-point 'defun)))
+         (code-major-mode (replace-regexp-in-string "-mode$" "" (symbol-name major-mode)))
 		 (library-base-file (or (cdr (assoc major-mode code-library-mode-file-alist))
-								"temp.org"))
+								(concat code-major-mode ".org")))
 		 (library-file (concat code-library-path library-base-file))
 		 (export-file (file-name-nondirectory  (buffer-file-name)))
-		 (head (read-string "请输入这段代码的说明"))
-		 (code-major-mode (replace-regexp-in-string "-mode$" "" (format "%s" major-mode))))
+		 (head (read-string "请输入这段代码的说明")))
 	(save-excursion 
 	  (find-file library-file)
 	  (end-of-buffer)