v28 updates

config.org

@@ -1,3 +1,12 @@
+* Suppress certain warnings
+
+#+BEGIN_SRC emacs-lisp
+  (setq ad-redefinition-action 'accept)
+  (setq python-indent-guess-indent-offset-verbose nil)
+  (byte-compile-disable-warning 'docstrings)
+  (setq warning-suppress-types '((comp)))
+#+end_SRC
+
 * Systems and custom functions
 
 #+BEGIN_SRC emacs-lisp
@@ -6,14 +15,14 @@
     (setq fileroot "~/Documents/drive/"))
 #+END_SRC
 
-  Firstly, tell Emacs where to look for custom functions (via [[https://www.emacswiki.org/emacs/LoadingLispFiles][EmacsWiki]]).
+  Tell Emacs where to look for custom functions (via [[https://www.emacswiki.org/emacs/LoadingLispFiles][EmacsWiki]]).
 
   #+BEGIN_SRC emacs-lisp
     (defun load-directory (dir)
       "Add all files in a directory to load-path"
       (let ((load-it (lambda (f)
-                       (load-file (concat (file-name-as-directory dir) f)))))
-        (mapc load-it (directory-files dir nil "\\.el$"))))
+		       (load-file (concat (file-name-as-directory dir) f)))))
+	(mapc load-it (directory-files dir nil "\\.el$"))))
     (load-directory "~/.emacs.d/custom/")
     (load-directory (concat (file-name-as-directory fileroot) "admin/emacs/custom/"))
 #+END_SRC
@@ -30,14 +39,6 @@ Set name and location based on who I’m being right now.
       (load-file (concat (file-name-as-directory fileroot) "admin/emacs/identity-home.el"))))
 #+END_SRC
 
-* Suppress certain warnings
-
-#+BEGIN_SRC emacs-lisp
-  (setq ad-redefinition-action 'accept)
-  (setq python-indent-guess-indent-offset-verbose nil)
-  (setq byte-compile-warnings '(cl-functions))
-#+END_SRC
-
 * Miscellaneous changes to make to the basic config
 
 I don’t want finding files to be case-sensitive, same as in =zsh=:
@@ -357,8 +358,6 @@ Lists minor modes in a menu.
 
 ** =mu4e=
 
-Does this work in emacs28???
-
 #+BEGIN_SRC emacs-lisp
   (when (string-equal system-type "gnu/linux")
     (add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e")
@@ -816,12 +815,9 @@ Automatically use smart quotes. (Can’t be set to =text-mode-hook=, unfortunate
 
 #+BEGIN_SRC emacs-lisp
   (unless (string-equal system-type "android")
-    (use-package typo
-      :custom
-      (typo-global-mode 1)
-      :hook
-      (org-mode . typo-mode)
-      (markdown-mode . typo-mode))
+    (typo-global-mode 1)
+    (add-hook 'org-mode-hook 'typo-mode)
+    (add-hook 'markdown-mode-hook 'typo-mode)
     (defun unsmart-hook ()
       "Turn off smart quotes for source blocks within org mode"
       (add-hook 'typo-disable-electricity-functions 'org-in-src-block-p nil :local))
@@ -863,19 +859,6 @@ Per-mode text expansion.
 
 ** Packages
 
-*** =all-the-icons=
-
-Shows nice icons in the modeline and in =neotree=. Fonts need to be installed manually on Windows, possibly because of permissions issues or because of where the Emacs binary lives or maybe both those things.
-
-#+BEGIN_SRC emacs-lisp
-  (unless (string-equal system-type "android")
-    (use-package all-the-icons
-      :config
-      (unless (string-equal system-type "windows-nt")
-        (when (not (member "all-the-icons" (font-family-list)))
-          (all-the-icons-install-fonts t)))))
-#+END_SRC
-
 *** =emojify=
 
 Support for various types of emoge.
@@ -896,6 +879,15 @@ Highlights current line.
   (global-hl-line-mode 1)
 #+END_SRC
 
+*** =nerd-icons=
+
+Replaces =all-the-icons=. Need to run =M-x nerd-icons-install-fonts= to set it up.
+
+#+BEGIN_SRC emacs-lisp
+  (unless (string-equal system-type "android")
+    (use-package nerd-icons))
+#+END_SRC
+
 ** Theme/colours
 
 Set a theme from =modus-themes=. This is built in for version 28 and above.
@@ -908,7 +900,7 @@ Set a theme from =modus-themes=. This is built in for version 28 and above.
   (setq modus-themes-mixed-fonts t)
   (setq modus-themes-org-blocks 'gray-background)
   (load-theme 'modus-operandi-tinted t)
-  #+END_SRC
+ #+END_SRC
 
 ** Fonts