init: no exwm in init, update comments, better format dashboard

1 files changed, 26 insertions, 26 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 8eeb0ee..a986e24 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -1,4 +1,4 @@
- ;; init.el
+;; init.el
 
 ;;; Code:
 
@@ -32,7 +32,7 @@
 (unless package-archive-contents
   (package-refresh-contents))
 
-;; Request some packages:
+;; Request packages:
 (defconst my-package-list '(org-snooze
 			    all-the-icons
 			    general
@@ -78,8 +78,8 @@
 			    mastodon))
 
 (defvar my-missing-packages '()
-  "List populated at each startup that contains the list of packages that need
-to be installed.")
+  "List populated at each startup.
+Contains the list of packages that need to be installed.")
 
 (dolist (p my-package-list)
   (when (not (package-installed-p p))
@@ -105,20 +105,17 @@ to be installed.")
 (load "all-the-icons-dired.el")
 ;;(load "secret")
 (load "org-config")
-;(load "email-module")
 (load-file custom-file) ;; Load custom.el
 
 ;; if you are using guix, emacs-exwm will look for ~/.exwm.el
-;; here we check if system is GNU/Linux, if not we won't load
-;; EXWM settings and configuration
-(when (equal system-type 'gnu/linux)
-    (progn
-      (load ".exwm")
-      (load "exwm-holyK-firefox")
-      (start-polybar)))
 
 (setq inhibit-startup-message nil)
 
+;; Transparency
+(set-frame-parameter (selected-frame) 'alpha '(90 90))
+(add-to-list 'default-frame-alist '(alpha 90 90))
+
+;; UI settings
 (defvar apollo/default-font-size 140)
 
 (set-face-attribute 'default nil :font "JetBrains Mono" :height 130)
@@ -140,6 +137,8 @@ to be installed.")
 (use-package vterm
   :ensure nil
   :config
+  ;; Check if it's one of my guix systems to load from
+  ;; ~/.guix-profile. Otherwise we use /bin/zsh.
   (if
       (or (string= (system-name) "fsociety")
 	  (string= (system-name) "heisenberg"))
@@ -176,6 +175,8 @@ to be installed.")
 
 ;; Dashboard settings
 (require 'dashboard)
+(require 'all-the-icons)
+
 (dashboard-setup-startup-hook)
 (setq dashboard-items '((recents  . 5)
                         (bookmarks . 5)))
@@ -188,26 +189,25 @@ to be installed.")
 (setq dashboard-banner-logo-title "Is that a flying flower?")
 ;; (setq dashboard-init-info "Bring me your sick and wounded!")
 
-;; Content is not centered by default. To center, set
-(setq dashboard-set-init-info t)
-(setq dashboard-center-content t)
-(setq dashboard-set-navigator t)
-(setq dashboard-set-heading-icons t)
-(setq dashboard-set-file-icons t)
-(setq dashboard-show-shortcuts nil)
-(setq dashboard-set-footer t)
-(setq dashboard-footer-messages '("Welcome to the Church Of Emacs"))
-;; (setq dashboard-footer-icon (all-the-icons-octicon "broadcast"
-;;                                                    :height 1.15
-;;                                                    :v-adjust -0.05
-;;                                                    :face 'font-lock-keyword-face))
+(setq dashboard-set-init-info t
+      dashboard-center-content t
+      dashboard-set-navigator t
+      dashboard-set-heading-icons t
+      dashboard-set-file-icons t
+      dashboard-show-shortcuts nil
+      dashboard-set-footer t
+      dashboard-footer-messages '("Welcome to the Church Of Emacs")
+      dashboard-footer-icon (all-the-icons-octicon "broadcast"
+                                                   :height 1.15
+                                                   :v-adjust -0.05
+                                                   :face 'font-lock-keyword-face))
 (dashboard-refresh-buffer)
 
 
 
 (defvar eshell-path-env (getenv "~/.local/bin"))
 
-(load-theme 'doom-ayu-dark t)
+(load-theme 'doom-old-hope t)
 (doom-modeline-mode 1)
 
 (setq doom-modeline-height 35)