diff options
Diffstat (limited to 'org')
| -rwxr-xr-x | org/emacs.org | 39 |
1 files changed, 12 insertions, 27 deletions
diff --git a/org/emacs.org b/org/emacs.org index 8b79e4c..18ddd86 100755 --- a/org/emacs.org +++ b/org/emacs.org @@ -2,12 +2,11 @@ #+PROPERTY: header-args :tangle ../.emacs.d/init.el #+auto_tangle: t #+STARTUP: overview - * System information Check the ~$HOSTNAME~, if it's one of my devices running GuixSD. #+begin_src emacs-lisp (defvar is-zeus (equal (system-name) "zeus")) - (defvar is-hephaestus (equal (system-name) "hephaestus")) + (defvar is-hermes (equal (system-name) "hermes")) #+end_src Setup default browser as ~mullvad-browser~ #+begin_src emacs-lisp @@ -15,26 +14,8 @@ Setup default browser as ~mullvad-browser~ browse-url-generic-program "mullvad-browser") #+end_src * Setting up Packages -** Setup for GuixSD machines -#+begin_src emacs-lisp - ;; When guix t, load emacs packages - (when (or is-zeus - is-hephaestus - (add-to-list 'load-path "~/.guix-profile/share/emacs/site-lisp") - (guix-emacs-autoload-packages))) - - (with-eval-after-load 'geiser-guile - (add-to-list 'geiser-guile-load-path "~/dotfiles/.config/guix")) - - ;; Personal Information - (setq user-full-name "Thanos Apollo" - user-mail-address "[email protected]") - - (setq copyright-names-regexp - (format "%s <%s>" user-full-name user-mail-address)) -#+end_src ** Define and install packages -*** List of required packages +** List of required packages Request the following packages: #+begin_src emacs-lisp (defconst my-package-list '(org-snooze @@ -46,6 +27,7 @@ Request the following packages: emojify general doom-themes + gruvbox-theme doom-modeline counsel which-key @@ -88,7 +70,7 @@ Request the following packages: dashboard org-auto-tangle)) #+end_src -*** Installation & activation +** Installation & activation Set our ~package-archives~, and install our packages #+begin_src emacs-lisp (setq package-archives '(("melpa" . "https://melpa.org/packages/") @@ -134,7 +116,10 @@ Fonts and basic appearance settings (add-to-list 'default-frame-alist '(alpha 90 90)) (add-hook 'dired-mode-hook 'all-the-icons-dired-mode) - (when is-hephaestus + + + (if is-zeus + (display-battery-mode 0) (display-battery-mode 1)) (scroll-bar-mode -1) @@ -167,7 +152,7 @@ Fonts and basic appearance settings (add-hook mode (lambda () (display-line-numbers-mode 0)))) (defvar apollo/default-font-size 140) - (when (equal (system-name) "hermes") + (when is-hermes (setq apollo/default-font-size 110)) (set-face-attribute 'default nil @@ -217,10 +202,10 @@ Fonts and basic appearance settings #+end_src ** Theme & modeline #+begin_src emacs-lisp -(load-theme 'doom-ayu-dark t) -(doom-modeline-mode 1) + (load-theme 'gruvbox-dark-hard t) + (doom-modeline-mode 1) -(setq doom-modeline-height 35) + (setq doom-modeline-height 35) #+end_src ** Ivy #+begin_src emacs-lisp |