diff options
| -rw-r--r-- | home.scm~ | 307 |
1 files changed, 0 insertions, 307 deletions
diff --git a/home.scm~ b/home.scm~ deleted file mode 100644 index 1738090..0000000 --- a/home.scm~ +++ /dev/null @@ -1,307 +0,0 @@ -;; This is a sample Guix Home configuration which can help setup your -;; home directory in the same declarative manner as Guix System. -;; For more information, see the Home Configuration section of the manual. -(define-module (guix-home-config) - #:use-module (gnu home) - #:use-module (gnu home services) - #:use-module (gnu home services shells) - #:use-module (gnu services) - #:use-module (gnu system shadow) - #:use-module (gnu packages) - #:use-module (gnu home services gnupg) - #:use-module (gnu packages gnupg) - #:use-module (guix gexp) - #:use-module (guix sets) - #:use-module (gnu home services sway) - #:use-module (gnu packages wm) - #:use-module (gnu home services sound) - #:use-module (gnu services dbus) - #:use-module (gnu system keyboard) - #:use-module (gnu home services guix) - #:use-module (guix channels) - #:use-module (gnu packages glib) - #:use-module (gnu packages terminals) - #:use-module (gnu packages xdisorg) - #:use-module (gnu home services desktop) - #:use-module (gnu home services ssh)) - -(define home-config - (home-environment - (packages - (append - (map specification->package - '("xorg-server-xwayland" - - "font-google-noto" - "font-google-noto-emoji" - "font-sarasa-gothic" - - "flatpak" - "xdg-desktop-portal" - "xdg-desktop-portal-gtk" - "xdg-desktop-portal-wlr" - "xdg-utils" ;; For "xdg-open, etc - "xdg-dbus-proxy" - "shared-mime-info" - - "adwaita-icon-theme" - "hicolor-icon-theme" - - "icecat" - "fuzzel" - "wl-clipboard" - "mako" - "foot" - "network-manager-applet" - - "password-store" - "pass-otp" - "passff-host" - - "mpv" - "mpv-mpris" - "yt-dlp" - "playerctl" - "gstreamer" - "gst-plugins-base" - "gst-plugins-good" - "gst-plugins-bad" - "gst-plugins-ugly" - "gst-libav" - "alsa-utils" - "pavucontrol" - - "gimp" - - "zathura" - "zathura-pdf-mupdf" - "ghostscript" - - "syncthing-gtk" - "stow" - - "emacs-pgtk" - "emacs-guix" - "emacs-rainbow-delimiters" - "emacs-pinentry" - "emacs-pass" - "emacs-bluetooth" - "emacs-enwc" - "emacs-emms" - "emacs-compile-angel" - - "pinentry-fuzzel" - )))) - - (services - (append - (list - ;; Uncomment the shell you wish to use for your user: - ;(service home-fish-service-type) - (service home-bash-service-type) - - (simple-service 'custom-bash-service - home-bash-service-type - (home-bash-extension - (variables - '(("PS1" . "\\u \\wλ "))) - (aliases - '(("dbus-sway" . "exec dbus-run-session -- sway"))) - (bash-profile - `(,(local-file "/home/mitch/.guix-home/profile/etc/profile.d/flatpak.sh"))))) - - (service home-dotfiles-configuration - (layout 'stow) - (directories ("./files"))) - - (service home-gpg-agent-service-type - (home-gpg-agent-configuration - (pinentry-program - (file-append pinentry-fuzzel "/bin/pinentry-fuzzel")))) - - (service home-ssh-agent-service-type) - - (service home-openssh-service-type - (home-openssh-configuration - (add-keys-to-agent "yes"))) - - (service home-files-service-type - `((".guile" ,%default-dotguile) - (".Xdefaults" ,%default-xdefaults))) - - (service home-dbus-service-type) - (service home-pipewire-service-type) - - (service home-xdg-configuration-files-service-type - `(("gdb/gdbinit" ,%default-gdbinit) - ("nano/nanorc" ,%default-nanorc))) - - (simple-service 'extra-packages-service - home-channels-service-type - (list - (channel - (name 'nonguix) - (url "https://gitlab.com/nonguix/nonguix") - (branch "master") - (introduction - (make-channel-introduction - "897c1a470da759236cc11798f4e0a5f7d4d59fbc" - (openpgp-fingerprint - "2A39 3FFF 68F4 EF7A 3D29 12AF 6F51 20A0 22FB B2D5")))) - (channel - (name 'mitch) - (url - "git://git.omnifarious.net/channel.git")))) - - (service home-redshift-service-type - (home-redshift-configuration - (location-provider 'manual) - (latitude 45.27) ;northern hemisphere - (longitude -66.06))) ;west of Greenwich - - (service home-unclutter-service-type) - - (service home-sway-service-type - (sway-configuration - (inputs - (list (sway-input - (identifier "type:keyboard") - (layout (keyboard-layout "us" "dvorak" - #:options '("ctrl:nocaps")))) - (sway-input - (identifier "type:touchpad") - (tap #t) - (disable-while-typing #t) - (extra-content '("middle_emulation enabled" - "tap enabled" - "dwt enabled" - "natural_scroll enabled"))))) - - (variables `((mod . "Mod4") ; string - (term ; file-append - . ,(file-append foot "/bin/foot")) - (menu - . ,(file-append fuzzel "/bin/fuzzel")) - (up . "p") - (down . "n") - (left . "b") - (right . "f"))) - (gestures - '((swipe:3:left . "workspace prev") - (swipe:3:right . "workspace next"))) - (startup-programs - `("emacs" - "flatpak run com.github.wwmm.easyeffects --service-mode" - "dbus-update-activation-environment --systemd DISPLAY WAYLAND_DISPLAY XDG_CURRENT_DESKTOP=sway" - ,#~(string-append - #$swayidle "/bin/swayidle -w \\\n " - ;; 300: lock screen. - "timeout 300 '" #$swaylock "/bin/swaylock " - "--indicator-radius 75 \\\n " - "-i /home/mitch/Pictures/Backgrounds/lain-dining-room.jpg \\\n " - "-f -c 000000' \\\n " - ;; 600: lock + screen off. - "timeout 600 '" #$sway "/bin/swaymsg \"output * power off\"' \\\n " - ;; Resume + sleep. - "resume '" #$sway "/bin/swaymsg \"output * power on\"' \\\n " - "before-sleep '" #$swaylock "/bin/swaylock -f -c 000000'"))) - (keybindings - `(($mod+return . "exec $term") - ($mod+grave . "exec $menu") - - (XF86AudioMute . "exec pactl set-sink-mute @DEFAULT_SINK@ toggle") - (XF86AudioLowerVolume . "exec pactl set-sink-volume @DEFAULT_SINK@ -5%") - (XF86AudioRaiseVolume . "exec pactl set-sink-volume @DEFAULT_SINK@ +5%") - (XF86AudioPlay . "exec playerctl play-pause") - (XF86AudioNext . "exec playerctl next") - (XF86AudioPrev . "exec playerctl previous") - (XF86MonBrightnessDown . "exec brightnessctl set 10%-") - (XF86MonBrightnessUp . "exec brightnessctl set 10%+") - - ($mod+apostrophe . "kill") - ($mod+Shift+e . "exit") - ($mod+Shift+c . "reload") - - ($mod+$left . "focus left") - ($mod+$down . "focus down") - ($mod+$up . "focus up") - ($mod+$right . "focus right") - ($mod+Left . "focus left") - ($mod+Down . "focus down") - ($mod+Up . "focus up") - ($mod+Right . "focus right") - - ($mod+Shift+$left . "move left") - ($mod+Shift+$down . "move down") - ($mod+Shift+$up . "move up") - ($mod+Shift+$right . "move right") - ($mod+Shift+Left . "move left") - ($mod+Shift+Down . "move down") - ($mod+Shift+Up . "move up") - ($mod+Shift+Right . "move right") - - ($mod+1 . "workspace number 1") - ($mod+2 . "workspace number 2") - ($mod+3 . "workspace number 3") - ($mod+4 . "workspace number 4") - ($mod+5 . "workspace number 5") - ($mod+6 . "workspace number 6") - ($mod+7 . "workspace number 7") - ($mod+8 . "workspace number 8") - ($mod+9 . "workspace number 9") - ($mod+0 . "workspace number 10") - - ($mod+Shift+1 . "move container to workspace number 1") - ($mod+Shift+2 . "move container to workspace number 2") - ($mod+Shift+3 . "move container to workspace number 3") - ($mod+Shift+4 . "move container to workspace number 4") - ($mod+Shift+5 . "move container to workspace number 5") - ($mod+Shift+6 . "move container to workspace number 6") - ($mod+Shift+7 . "move container to workspace number 7") - ($mod+Shift+8 . "move container to workspace number 8") - ($mod+Shift+9 . "move container to workspace number 9") - ($mod+Shift+0 . "move container to workspace number 10") - - ($mod+w . "layout tabbed") - ($mod+e . "layout toggle split") - - ($mod+F11 . "fullscreen") - - ($mod+Shift+space . "floating toggle"))) - (bar - (sway-bar - (position 'top) - (hidden-state 'hide) - (status-command - (program-file - "sway-bar-status" - #~(begin - (use-modules (ice-9 format) - (srfi srfi-19)) - (let loop () - (let* ((date (date->string - (current-date) - "~d/~m/~Y (~a) • ~H:~M:~S")) - (percent (read (open-input-file "/sys/class/power_supply/BAT1/capacity")))) - (close-port (open-input-file "/sys/class/power_supply/BAT1/capacity")) - (format #t "~a~%~!" - (string-concatenate - (list date - " | " - (number->string percent) - "%"))) - (sleep 1) - (loop)))))))) - (outputs - (list (sway-output - (identifier '*) - (background "/home/mitch/Pictures/Backgrounds/lain-dining-room.jpg")))) - (extra-content - '("for_window [title=\"Icecat — Sharing Indicator\"] kill" - "for_window [title=\".* - mpv$\"] floating enable, sticky enable" - "for_window [app_id=\"Icecat\"] inhibit_idle fullscreen" - "floating_modifier $mod"))))) - - %base-home-services)))) - -home-config |