Unify common laptop and CERN desktop home config

1 files changed, 18 insertions, 235 deletions

diff --git a/tw/home/lap.scm b/tw/home/lap.scm
index d46c9c6e..48dc1499 100644
--- a/tw/home/lap.scm
+++ b/tw/home/lap.scm
@@ -8,101 +8,30 @@
 ;; https://github.com/alezost/shepherd-config/blob/master/init.scm
 
 (define-module (tw home lap)
-  #:use-module ((gnu)
-                #:select (use-package-modules))
   #:use-module (gnu home)
   #:use-module (gnu home services)
   #:use-module (gnu home services desktop)
   #:use-module (gnu home services guix)
-  #:use-module (gnu home services mcron)
   #:use-module (gnu home services pm)
   #:use-module (gnu home services shepherd)
   #:use-module (gnu packages)
+  #:use-module (gnu packages android)
+  #:use-module (gnu packages bittorrent)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages messaging)
+  #:use-module (gnu packages music)
+  #:use-module (gnu packages networking)
+  #:use-module (gnu packages xorg)
+  #:use-module (gnu packages xdisorg)
   #:use-module (gnu services)
   #:use-module (gnu services shepherd)
   #:use-module (guix channels)
   #:use-module (guix gexp)
   #:use-module ((nongnu packages messaging)
-                #:select (signal-desktop zoom))
+                #:select (signal-desktop))
   #:use-module ((nongnu packages steam-client)
                 #:select (steam))
-  #:use-module (tw home)
-  #:use-module (tw home emacs)
-  #:use-module (tw packages alice)
-  #:use-module (tw packages catppuccin)
-  #:use-module (tw packages ci)
-  #:use-module (tw packages games)
-  #:use-module (tw packages xorg)
-  #:use-module (tw gexp)
-  #:use-module (tw theme))
-
-(use-package-modules android bittorrent calendar compton dav dunst fonts
-                     freedesktop games gimp gnome gnome-xyz gnuzilla graphviz
-                     image-viewers inkscape kde libreoffice linux mail
-                     messaging music networking pdf pulseaudio python-xyz
-                     syndication tcl terminals tex version-control video
-                     web-browsers wm xdisorg xorg)
-
-(define pim-packages
-  (list newsboat vdirsyncer khal khard aerc neomutt mailcap lynx))   ; lynx for HTML mail
-
-(define pim-services
-  (list
-   (simple-service 'pim-config home-xdg-configuration-files-service-type
-     `(("khal/config" ,(local-file "files/khal.conf"))
-       ("khard/khard.conf" ,(local-file "files/khard.conf"))
-       ("aerc" ,(local-file "files/aerc" #:recursive? #t))
-       ("mutt/muttrc" ,(local-file "files/muttrc"))
-       ("mutt/catppuccin.muttrc" ,catppuccin-muttrc)
-       ("newsboat/config" ,(local-file "files/newsboat.conf"))
-       ("newsboat/config.catppuccin" ,catppuccin-newsboat)
-       ("vdirsyncer/config" ,(local-file "files/vdirsyncer.conf"))))
-
-   ;; These cron jobs are annoying because they pop up a password prompt every time they run.
-   ;; (simple-service 'pim-cronjobs home-mcron-service-type
-   ;;   (list #~(job "15 */4 * * *"   ; every four hours at HH:15
-   ;;                (string-append #$(file-append vdirsyncer "/bin/vdirsyncer") " metasync"))
-   ;;         #~(job "0,30 * * * *"   ; every half hour
-   ;;                (string-append #$(file-append vdirsyncer "/bin/vdirsyncer") " sync"))))
-
-   (simple-service 'mail-files home-files-service-type
-     `((".mailcap" ,(local-file "files/mailcap"))
-       ;; The file from git main is newer than the one bundled with the
-       ;; packaged neomutt version and contains a few fixes.
-       (".local/bin/mutt_oauth2.py"
-        ,(local-file "files/neomutt/contrib/oauth2/mutt_oauth2.py" #:recursive? #t))))))
-
-(define polybar-wrapper
-  (program-file
-   "polybar-wrapper"
-   #~(begin
-       ;; This wrapper program checks that the monitor we want to start
-       ;; polybar on is actually connected.
-       (use-modules (ice-9 popen)
-                    (ice-9 rdelim))
-       (let* ((connected-str (string-append (getenv "POLYBAR_MONITOR") " connected"))
-              (xrandr (open-pipe* OPEN_READ #$(file-append xrandr "/bin/xrandr") "-q"))
-              (monitor-connected?
-               (let loop ((line (read-line xrandr)))
-                 (cond
-                  ((eof-object? line) #f)                   ; we didn't find our monitor connected
-                  ((string-prefix? connected-str line) #t)  ; the monitor we want is connected
-                  (else (loop (read-line xrandr)))))))      ; keep looking
-         (close-pipe xrandr)
-         (when monitor-connected?
-           (execl #$(file-append polybar "/bin/polybar")))))))
-
-(define (polybar-service monitor)
-  (shepherd-service
-   (documentation (string-append "Polybar desktop bar for monitor " monitor "."))
-   (provision (list (symbol-append 'polybar- (string->symbol monitor))))
-   (requirement '(xorg-setup))
-   (start #~(make-forkexec-constructor
-             (list #$polybar-wrapper)
-             #:environment-variables
-             (cons #$(string-append "POLYBAR_MONITOR=" monitor)
-                   (default-environment-variables))))
-   (stop #~(make-kill-destructor))))
+  #:use-module (tw home))
 
 (define-public %lap-home
   (home-environment
@@ -110,48 +39,22 @@
     ;; These packages will show up in the home profile, under ~/.guix-home/profile.
     (cons*
      ;; CLI tools
-     adb fastboot beets bsd-games texlive powertop (list git "send-email")
+     adb fastboot beets
+
+     ;; Graphical applications
+     blueman nheko signal-desktop simple-scan transmission-remote-gtk
 
      ;; Games
      steam   ; see also: steam-nvidia
-
-     ;; Work
-     s3cmd python-alibuild python-alidistlint
-     hashicorp-levant-bin hashicorp-nomad-bin
-     hashicorp-consul-bin hashicorp-vault-bin hashicorp-packer-bin
-
-     ;; i3 and Xorg. i3 itself must be installed system-wide for gdm to pick it up.
-     ;; acpilight is a drop-in xbacklight replacement, as xbacklight doesn't work on my system.
-     acpilight arandr blueman dunst gimp hsetroot inkscape icecat imv
-     kitty libreoffice mpv nheko polybar pulsemixer rofi rofi-calc
-     signal-desktop simple-scan tk transmission-remote-gtk xdg-utils xdot xclip
-     xcwd xdotool xdpyinfo xev xfd xfontsel xinput xkill xprop xrandr xrdb xsel
-     xset xwininfo zoom zathura zathura-ps zathura-pdf-poppler
-     dconf dconf-editor  ; required for config by blueman, cozy, ...
-     ;; gnome-keyring  ; installed system-wide; see system-configuration.scm
-     ;; geoclue  ; for redshift -- installed system-wide
      ;; Games are installed in ~/.guix-profile instead, to make updates of the
      ;; home environment faster.
      ;; 0ad flightgear freeciv simutrans/pak128 warzone2100 widelands pioneer
-     ;; Fonts
-     font-hermit font-inconsolata font-fira-code font-fira-sans font-libertinus
-     font-google-noto font-google-noto-emoji font-openmoji  ; for polybar
-     ;; Theming
-     papirus-icon-theme catppuccin-gtk-theme catppuccin-mocha-dark-cursors
 
-     (append common-packages emacs-packages pim-packages)))
+     (append %interactive-packages %pim-packages %common-packages)))
 
    ;; To search for available home services, run 'guix home search KEYWORD'.
    (services
     (cons*
-     ;; Configuration files for terminal-only programs in $XDG_CONFIG_HOME.
-     (simple-service 'laptop-config home-xdg-configuration-files-service-type
-       `(;; All alibuild needs is an empty file.
-         ("alibuild/disable-analytics"
-          ,(plain-file "alibuild-disable-analytics" ""))
-         ("X11/XCompose" ,(local-file "files/XCompose"))   ; see also: $XCOMPOSEFILE variable
-         ("X11/Xresources" ,(local-file "files/Xresources"))))
-
      ;; This can't be a `service' as that would remove the 'guix channel.
      (simple-service 'nonfree-channels home-channels-service-type
        (list
@@ -195,20 +98,9 @@
         (nighttime-brightness 0.7)
         (extra-content "fade=0")))  ; with fade=1, restarting redshift causes flickering for a few secs
 
-     ;; The dbus service doesn't seem to be added automatically.
-     (service home-dbus-service-type
-       (home-dbus-configuration))
-
-     (simple-service 'gui-services home-shepherd-service-type
+     (simple-service 'laptop-gui-services home-shepherd-service-type
        (list
         (shepherd-service
-         (documentation "NetworkManager applet; provides a GUI for network connections.")
-         (provision '(nm-applet))
-         (start #~(make-forkexec-constructor
-                   (list #$(file-append network-manager-applet "/bin/nm-applet"))))
-         (stop #~(make-kill-destructor)))
-
-        (shepherd-service
          (documentation "Blueman applet; provides a GUI for connection to bluetooth devices.")
          (provision '(blueman-applet))
          (start #~(make-forkexec-constructor
@@ -219,49 +111,6 @@
         (polybar-service "HDMI-1-1")
 
         (shepherd-service
-         (documentation "Dunst notification daemon; displays desktop notifications.")
-         (provision '(dunst))
-         (start #~(make-forkexec-constructor
-                   (list #$(file-append dunst "/bin/dunst"))))
-         (stop #~(make-kill-destructor)))
-
-        (shepherd-service
-         (documentation "Picom compositor; enables transparent windows in X.")
-         (provision '(picom))
-         (start #~(make-forkexec-constructor
-                   (list #$(file-append picom "/bin/picom")
-                         "--config" #$(local-file "files/picom.conf"))))
-         (stop #~(make-kill-destructor)))
-
-        (shepherd-service
-         (documentation "Source Xresources on login.")
-         (provision '(xrdb))
-         (one-shot? #t)
-         (start #~(lambda _
-                    (invoke #$(file-append xrdb "/bin/xrdb") "-merge"
-                            (string-append (getenv "XDG_CONFIG_HOME") "/X11/Xresources")))))
-
-        ;; By default, xdotool gets most of "#@\|~()<>[]{} wrong.  Make
-        ;; it use the correct keymap by re-setting the same one again.
-        (shepherd-service
-         (documentation "Fix X keyboard map on login; passmenu needs this.")
-         (provision '(fix-xdotool))
-         (one-shot? #t)
-         (start #~(lambda _
-                    (use-modules (ice-9 rdelim)
-                                 (ice-9 regex)
-                                 (ice-9 popen))
-                    (let ((port (open-pipe* OPEN_READ #$(file-append setxkbmap "/bin/setxkbmap")
-                                            "-query")))
-                      (let loop ((line (read-line port)))
-                        (unless (eof-object? line)
-                          (let ((mtch (string-match "^layout:[[:space:]]*" line)))
-                            (if mtch
-                                (system* #$(file-append setxkbmap "/bin/setxkbmap")
-                                         (match:suffix mtch))
-                                (loop (read-line port))))))))))
-
-        (shepherd-service
          (documentation "Set up X displays on login.")
          (provision '(xorg-setup))
          (one-shot? #t)
@@ -282,74 +131,8 @@
                              (string-append (getenv "HOME")
                                             "/pictures/Backgrounds/greece/IMG_20181201_104748_DRO.jpg")))))))
 
-     ;; Configuration files for GUI programs in $XDG_CONFIG_HOME.
-     (simple-service 'gui-config home-xdg-configuration-files-service-type
-       `(("dunst/dunstrc" ,(local-file "files/dunstrc"))
-         ("dunst/dunstrc.d/50-catppuccin.conf" ,catppuccin-dunstrc)
-         ("gtk-2.0/gtkrc" ,(local-file "files/gtk2.ini"))
-         ("gtk-3.0/settings.ini" ,(local-file "files/gtk3.ini"))
-         ("i3/config" ,(local-file "files/i3.conf"))
-         ;; TODO: "kdeglobals" works for some programs (e.g. kdeconnect-app),
-         ;; but not for others (e.g. nheko, kdeconnect-settings)...
-         ("kdeglobals" ,catppuccin-kdeglobals)
-         ("kitty/diff.conf"
-          ,(combined-text-file "kitty-diff.conf"
-             (plain-file "kitty-diff-custom.conf"
-                         "pygments_style bw\n")
-             catppuccin-kitty-diff))
-         ("kitty/kitty.conf"
-          ,(combined-text-file "kitty.conf"
-             (local-file "files/kitty.conf")
-             catppuccin-kitty))
-         ("mimeapps.list" ,(local-file "files/mimeapps.list"))
-         ("polybar/config.ini" ,(local-file "files/polybar.ini"))
-         ("polybar/catppuccin.ini" ,catppuccin-polybar)
-         ("rofi/config.rasi" ,(local-file "files/rofi.rasi"))
-         ("rofi/themes/catppuccin.rasi" ,catppuccin-rofi)
-         ("zathura/zathurarc" ,(local-file "files/zathurarc"))
-         ("zathura/catppuccin" ,catppuccin-zathura)))
-
-     (simple-service 'cursor-theme home-files-service-type
-       `((".icons/default/index.theme" ,(local-file "files/cursors.ini"))))
-
-     (simple-service 'gui-environment home-environment-variables-service-type
-       `(("TERMINAL" . "kitty")
-         ("_JAVA_OPTIONS" .
-          ,(string-append
-            "$_JAVA_OPTIONS${_JAVA_OPTIONS:+ }-Dawt.useSystemAAFontSettings=on -Dswing.aatext=true "
-            "-Dswing.defaultlaf=com.sun.java.swing.plaf.gtk.GTKLookAndFeel "
-            "-Dswing.crossplatformlaf=com.sun.java.swing.plaf.gtk.GTKLookAndFeel"))
-         ;; Smooth trackpad scrolling in Firefox/Icecat.
-         ;; https://wiki.archlinux.org/index.php/Firefox/Tweaks#Pixel-perfect_trackpad_scrolling
-         ("MOZ_USE_XINPUT2" . "1")))
-
-     (simple-service 'gui-scripts home-files-service-type
-       `(;; https://sw.kovidgoyal.net/kitty/kittens/diff/
-         (".local/bin/kdiff"  ; show a diff
-          ,(program-file "kdiff" #~(apply execl #$(file-append kitty "/bin/kitty") "kitty"
-                                          "+kitten" "diff" (cdr (command-line)))))
-         (".local/bin/icat"   ; kitty's "catimg" equivalent
-          ,(program-file "icat" #~(apply execl #$(file-append kitty "/bin/kitty") "kitty"
-                                         "+kitten" "icat" (cdr (command-line)))))
-         (".local/bin/screenlock"
-          ,(program-file
-            "screenlock"
-            #~(begin  ; Wrapper around i3lock to turn off the screen and pause notifications.
-                (system* #$(file-append dunst "/bin/dunstctl") "set-paused" "true")
-                (system* #$(file-append xset "/bin/xset") "dpms" "0" "0" "5")
-                ;; We mustn't use `file-append' here, as we have to pick up the
-                ;; setuid binary for i3lock installed by the system config.
-                (system* "i3lock" "-nc" #$catppuccin-background-color)
-                (system* #$(file-append xset "/bin/xset") "dpms" "600" "600" "600")
-                (system* #$(file-append dunst "/bin/dunstctl") "set-paused" "false"))))
-         ;; With #:recursive? #t, Guix keeps the files' permission bits, i.e. makes them executable.
-         (".local/bin/sessionmenu" ,(local-file "files/sessionmenu" #:recursive? #t))
-         (".local/bin/passmenu" ,(local-file "files/passmenu" #:recursive? #t))
-         (".local/bin/volume" ,(local-file "files/volume" #:recursive? #t))
-         (".local/share/applications/emacsclient.desktop"
-          ,(local-file "files/emacsclient.desktop"))))
+     (openssh-service #t)
 
-     (append (gnupg-services #:gui-pinentry? #t)
-             common-services emacs-services pim-services)))))
+     (append %pim-services %interactive-services %common-services)))))
 
 %lap-home