Config: replace smart-mode-line by simple-modeline, optimize org-ql config, add basic guile support

lisp/init-segmentation.el

@@ -4,8 +4,9 @@
 
 ;;; Code:
 
-;; emacs-chinese-word-segmentation 配置
-(when *is-windows*
+;; emacs-chinese-word-segmentation
+(cond
+ (*is-windows*
   (add-to-list 'load-path "h:/emacs/emacs-chinese-word-segmentation/")
   ;; 设置为进程调用方式
   (setq cns-process-type 'shell)
@@ -15,22 +16,22 @@
   (setq cns-dict-directory "h:/emacs/emacs-chinese-word-segmentation/cppjieba/dict")
   ;; 直接设置进程命令，绕过 Windows shell 检测
   (setq cns-process-shell-command
-	(format "%s %s %s %s %s %s"
-		cns-prog
-		(concat (file-name-as-directory cns-dict-directory) "jieba.dict.utf8")
-		(concat (file-name-as-directory cns-dict-directory) "hmm_model.utf8")
-		(concat (file-name-as-directory cns-dict-directory) "user.dict.utf8")
-		(concat (file-name-as-directory cns-dict-directory) "idf.utf8")
-		(concat (file-name-as-directory cns-dict-directory) "stop_words.utf8"))))
+	    (format "%s %s %s %s %s %s"
+		        cns-prog
+		        (concat (file-name-as-directory cns-dict-directory) "jieba.dict.utf8")
+		        (concat (file-name-as-directory cns-dict-directory) "hmm_model.utf8")
+		        (concat (file-name-as-directory cns-dict-directory) "user.dict.utf8")
+		        (concat (file-name-as-directory cns-dict-directory) "idf.utf8")
+		        (concat (file-name-as-directory cns-dict-directory) "stop_words.utf8"))))
 
-(when *is-mac*
+ (t
   (add-to-list 'load-path "~/emacs-stuff/emacs-chinese-word-segmentation/")
   ;; 设置为进程调用方式
   (setq cns-process-type 'shell)
   ;; 设置可执行文件路径
   (setq cns-prog "~/emacs-stuff/emacs-chinese-word-segmentation/cnws")
   ;; 设置字典目录
-  (setq cns-dict-directory "~/emacs-stuff/emacs-chinese-word-segmentation/cppjieba/dict/"))
+  (setq cns-dict-directory "~/emacs-stuff/emacs-chinese-word-segmentation/cppjieba/dict/")))
 
   ;; 其他配置
   (setq cns-recent-segmentation-limit 40)