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

lisp/init-package.el

@@ -191,7 +191,7 @@ targets."
 
 ;; 启用savehist，保存命令顺序
 (use-package savehist
-  :hook (after-init . savehist-mode)
+  ;; :hook (after-init . savehist-mode)
   :init (setq enable-recursive-minibuffers t
 	      history-length 50
 	      savehist-additional-variables '(mark-ring
@@ -199,11 +199,12 @@ targets."
 					      search-ring
 					      regexp-search-ring
 					      extended-command-history)
-	      savehist-autosave-interval 300))
+	      savehist-autosave-interval 300)
+  (savehist-mode))
 
 ;; saveplace，保存光标位置
 (use-package saveplace
-  :hook (after-init . save-place-mode))
+  :init (save-place-mode))
 
 ;; undo增强
 (use-package undo-fu)
@@ -253,7 +254,7 @@ targets."
          ("M-Z" . avy-zap-up-to-char-dwim)))
 
 ;; jinx，拼写检查
-(unless *is-windows*
+(if *is-mac*
   (use-package jinx
     :hook (org-mode-hook . jinx-mode)
     :bind ([remap ispell-word] . jinx-correct)
@@ -276,6 +277,10 @@ targets."
   :init
   (add-hook 'after-init-hook #'global-flycheck-mode))
 
+(use-package flycheck-guile
+  :hook (scheme-mode . (lambda ()
+                     (require 'flycheck-guile))))
+
 ;; consult-flycheck
 (use-package consult-flycheck)