fix typos

early-init.el

@@ -26,7 +26,7 @@
   (scroll-bar-mode -1))
 
 
-(defun creature/welcom-message ()
+(defun creature/welcome-message ()
   (let (init-time startup-time)
     (setq startup-time (time-since before-init-time))
     (setq init-time
@@ -43,7 +43,7 @@
     (insert initial-scratch-message)
     (set-buffer-modified-p nil)))
 
-(add-hook 'emacs-startup-hook #'creature/welcom-message 1999)
+(add-hook 'emacs-startup-hook #'creature/welcome-message 1999)
 
 
 (setq warning-minimum-level :error)

lisp/init-built-in.el

@@ -17,7 +17,7 @@
 (fset 'yes-or-no-p 'y-or-n-p)
 (put 'erase-buffer 'disabled nil)
 (put 'narrow-to-page 'disabled nil)
-(put 'narrow-to-defun 'disable nil)
+(put 'narrow-to-defun 'disabled nil)
 (put 'narrow-to-region 'disabled nil)
 
 ;; Always use space for indentation

lisp/init-gptel.el

@@ -35,7 +35,7 @@
 
     (setq gptel-default-mode #'org-mode
           gptel-backend bigmodel-code
-          gptel-model 'gml-5.1
+          gptel-model 'glm-5.1
           )))
 
 (provide 'init-gptel)

lisp/init-plantuml.el

@@ -19,7 +19,7 @@ Copy from https://github.com/skuro/plantuml-mode/issues/98."
             (cdr bounds)
             keywords
             :exclusive 'no
-            :company-docsig #'indentity))))
+            :company-docsig #'identity))))
 
 (with-eval-after-load 'plantuml-mode
   (setq plantuml-exec-mode 'executable

lisp/init-theme.el

@@ -67,7 +67,7 @@ Each font conf looks like (FAMILY . SIZE).")
 if FRAME is nil, setup for current frame."
   ;; single-byte code
   (setq inhibit-compacting-font-caches
-        (if (eq system-type 'window-nt) t nil))
+        (if (eq system-type 'windows-nt) t nil))
 
   (let ((single (car creature/font-config))
         (multi  (cdr creature/font-config)))