kylekrein/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Emacs fixes

Browse source
This commit is contained in:
Aleksandr Lebedev 2025-11-11 12:26:45 +01:00
parent fe10168d00
commit 7ce7fae7ea
2 changed files with 60 additions and 56 deletions
Download patch file Download diff file Expand all files Collapse all files

3
guix-config/home/emacs/config.el
View file

@ -85,7 +85,8 @@
((kylekrein/detect-wsl) 'toast) ((kylekrein/detect-wsl) 'toast)
(t 'libnotify))) (t 'libnotify)))
(make-directory "~/.cache/emacs/tildafiles") (unless (file-exists-p "~/.cache/emacs/tildafiles")
(make-directory "~/.cache/emacs/tildafiles"))
(setq backup-directory-alist '((".*" . "~/.cache/emacs/tildafiles"))) (setq backup-directory-alist '((".*" . "~/.cache/emacs/tildafiles")))
(use-package diminish :ensure t) (use-package diminish :ensure t)

113
guix-config/home/workstation.scm
View file

@ -35,59 +35,62 @@
#:use-module (gnu home services niri)) #:use-module (gnu home services niri))
(home-environment (home-environment
;; Below is the list of packages that will show up in your ;; Below is the list of packages that will show up in your
;; Home profile, under ~/.guix-home/profile. ;; Home profile, under ~/.guix-home/profile.
(packages (list font-iosevka (packages (list git
git kitty
kitty btop
btop fastfetch
fastfetch librewolf
librewolf icecat
icecat ;birdtray
nheko nextcloud-client
;birdtray nautilus
nextcloud-client xournalpp
nautilus quickshell
xournalpp cava
ripgrep wl-clipboard
quickshell cliphist
cava brightnessctl
wl-clipboard qtmultimedia
cliphist `(,glib "bin")
brightnessctl matugen
qtmultimedia wayland
`(,glib "bin") xwayland-satellite
matugen qtwayland))
wayland
xwayland-satellite
qtwayland))
;; Below is the list of Home services. To search for available ;; Below is the list of Home services. To search for available
;; services, run 'guix home search KEYWORD' in a terminal. ;; services, run 'guix home search KEYWORD' in a terminal.
(services (services
(append (list (service home-niri-service-type) (append (list (service home-niri-service-type)
(service home-pipewire-service-type) (service home-pipewire-service-type)
(service home-dbus-service-type) (service home-dbus-service-type)
(service home-bash-service-type (service home-bash-service-type
(home-bash-configuration (home-bash-configuration
(environment-variables '(("EDITOR" . "emacsclient -c"))) (environment-variables
(aliases '(("gs" . "git status") '(("EDITOR" . "emacsclient -c")))
("system-reconfigure" . "sudo -E guix time-machine -C ~/dotfiles/guix-config/channels-lock.scm -- system -L ~/dotfiles reconfigure ~/dotfiles/guix-config/system/$(hostname).scm") (aliases '(("gs" . "git status")
("home-reconfigure" . "guix time-machine -C ~/dotfiles/guix-config/channels-lock.scm -- home -L ~/dotfiles reconfigure ~/dotfiles/guix-config/home/workstation.scm") ("system-reconfigure"
("guix-pull" . "guix pull --channels=$HOME/dotfiles/guix-config/channels.scm; guix describe --format=channels > $HOME/dotfiles/guix-config/channels-lock.scm") . "sudo -E guix time-machine -C ~/dotfiles/guix-config/channels-lock.scm -- system -L ~/dotfiles reconfigure ~/dotfiles/guix-config/system/$(hostname).scm")
("reconfigure" . "system-reconfigure && home-reconfigure") ("home-reconfigure"
("guix-full-upgrade" . "guix-pull && reconfigure"))) . "guix time-machine -C ~/dotfiles/guix-config/channels-lock.scm -- home -L ~/dotfiles reconfigure ~/dotfiles/guix-config/home/workstation.scm")
(bashrc ("guix-pull"
(list (local-file "prompt.sh"))))) . "guix pull --channels=$HOME/dotfiles/guix-config/channels.scm; guix describe --format=channels > $HOME/dotfiles/guix-config/channels-lock.scm")
(service home-dotfiles-service-type ("reconfigure"
(home-dotfiles-configuration . "system-reconfigure && home-reconfigure")
(directories '("../../files")))) ("guix-full-upgrade"
(service home-secretsd-service-type) . "guix-pull && reconfigure")))
(service home-emacs-service-type (bashrc
(home-emacs-configuration (list (local-file "prompt.sh")))))
(emacs guixmacs) (service home-dotfiles-service-type
(config-file (home-dotfiles-configuration
(local-file "./emacs/config.el")) (directories '("../../files"))))
(early-config-file (service home-secretsd-service-type)
(local-file "./emacs/init.el"))))) (service home-emacs-service-type
%base-home-services))) (home-emacs-configuration
(emacs guixmacs)
(config-file
(local-file "./emacs/config.el"))
(early-config-file
(local-file "./emacs/init.el")))))
%base-home-services)))