diff options
| -rw-r--r-- | .emacs.d/init.el | 52 |
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) |