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

lisp/init-ui.el

@@ -56,17 +56,24 @@
   (load-theme 'my-base16-dark t))
 
 ;; 很多主题
-(use-package doom-themes)
-(use-package color-theme-modern)
+;; (use-package doom-themes)
+;; (use-package color-theme-modern)
 (use-package naysayer-theme)
 
 ;; 安装smart-mode-line
-(use-package smart-mode-line
-  :defer 0.5
+;; (use-package smart-mode-line
+;;   :config
+;;   (setq sml/no-confirm-load-theme t)
+;;         ;; sml/theme 'respectful)
+;;   (sml/setup))
+
+(use-package simple-modeline
+  :init (simple-modeline-mode)
   :config
-  (setq sml/no-confirm-load-theme t)
-        ;; sml/theme 'respectful)
-  (sml/setup))
+  ;; (defun simple-modeline-segment-buffer-name ()
+  ;;   "Displays the full path of current file in the mode-line."
+  ;;   (propertize " %f" 'face 'mode-line-buffer-id))
+  )
 
 ;; eshell高亮
 (use-package eshell-syntax-highlighting