From 11016ec0188ddcee6400e1dd488d99689418d7a2 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Thu, 23 Mar 2023 08:01:02 +0200 Subject: emacs: Add variables for each one of my machines Add var to check for zeus and hephaestus devices with (system-name) --- .emacs.d/init.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to '.emacs.d') diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 32b46c1..38a9597 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -1,6 +1,9 @@ +(defvar is-zeus (equal (system-name) "zeus")) +(defvar is-hephaestus (equal (system-name) "hephaestus")) + ;; When guix t, load emacs packages -(when (or (equal (system-name) "hephaestus") - (equal (system-name) "zeus")) +(when (or is-zeus + is-hephaestus (add-to-list 'load-path "~/.guix-profile/share/emacs/site-lisp") (guix-emacs-autoload-packages)) @@ -101,8 +104,8 @@ Contains the list of packages that need to be installed.") (add-to-list 'default-frame-alist '(alpha 100 100)) (add-hook 'dired-mode-hook 'all-the-icons-dired-mode) -(when (equal (system-name) "hephaestus") - (display-battery-mode 1)) +(when is-hephaestus + (display-battery-mode 0)) (scroll-bar-mode -1) (tool-bar-mode -1) @@ -651,7 +654,6 @@ you have the correctly set the OPENAI_API_KEY variable" (general-define-key "C-d" 'kill-region "C-k" 'copy-region-as-kill - "C-c v" 'multi-vterm-next "C-x 9" 'make-mini-buffer "C-c l e" 'apollo/emacs-keys ;;Change keyboard layouts/language -- cgit v1.2.3