Unify common laptop and CERN desktop home config

4 files changed, 111 insertions, 343 deletions

diff --git a/tw/home/cern.scm b/tw/home/cern.scm
new file mode 100644
index 00000000..837098d5
--- /dev/null
+++ b/tw/home/cern.scm
@@ -0,0 +1,88 @@
+;; This "home-environment" file can be passed to 'guix home reconfigure'
+;; to reproduce the content of your profile.  This is "symbolic": it only
+;; specifies package names.  To reproduce the exact same profile, you also
+;; need to capture the channels being used, as returned by "guix describe".
+;; See the "Replicating Guix" section in the manual.
+
+;; See also, for some tips:
+;; https://github.com/alezost/shepherd-config/blob/master/init.scm
+
+(define-module (tw home cern)
+  #:use-module (gnu home)
+  #:use-module (gnu home services desktop)
+  #:use-module (gnu home services guix)
+  #:use-module (gnu home services shepherd)
+  #:use-module (gnu packages xdisorg)
+  #:use-module (gnu packages xorg)
+  #:use-module (gnu services)
+  #:use-module (gnu services shepherd)
+  #:use-module (guix channels)
+  #:use-module (guix gexp)
+  #:use-module (tw home))
+
+(define-public %cern-home
+  (home-environment
+   (packages
+    ;; These packages will show up in the home profile, under ~/.guix-home/profile.
+    (append %interactive-packages %pim-packages %common-packages))
+
+   ;; To search for available home services, run 'guix home search KEYWORD'.
+   (services
+    (cons*
+     ;; This can't be a `service' as that would remove the 'guix channel.
+     (simple-service 'nonfree-channels home-channels-service-type
+       (list
+        (channel
+         (name 'nonguix)
+         (url "https://gitlab.com/nonguix/nonguix")
+         ;; Enable signature verification:
+         (introduction
+          (make-channel-introduction
+           "897c1a470da759236cc11798f4e0a5f7d4d59fbc"
+           (openpgp-fingerprint
+            "2A39 3FFF 68F4 EF7A 3D29  12AF 6F51 20A0 22FB B2D5"))))))
+
+     ;; Redshift: make the screen turn redder at night.
+     (service home-redshift-service-type
+       (home-redshift-configuration
+        ;; See info '(guix)Desktop Home Services'.
+        (location-provider 'manual)
+        ;; Approximate location
+        (latitude 46.0)
+        (longitude 6.0)
+        ;; (location-provider 'geoclue2)  ; TODO: currently waits forever for a location -- not sure why geoclue doesn't work
+        ;; (daytime-temperature 6500)     ; default 6500
+        ;; (nighttime-temperature 4500)   ; default 4500
+        (daytime-brightness 1.0)
+        (nighttime-brightness 0.7)
+        (extra-content "fade=0")))  ; with fade=1, restarting redshift causes flickering for a few secs
+
+     (simple-service 'cern-desktop-gui-services home-shepherd-service-type
+       (list
+        (polybar-service "DP-2")
+        (polybar-service "DP-1-8")
+        (shepherd-service
+         (documentation "Set up X displays on login.")
+         (provision '(xorg-setup))
+         (one-shot? #t)
+         (start #~(lambda _
+                    (system* #$(file-append numlockx "/bin/numlockx") "on")
+                    ;; Turn off the monitors if there is no input for 10 minutes.
+                    (system* #$(file-append xset "/bin/xset") "dpms" "600" "600" "600")
+                    (system* #$(file-append xrandr "/bin/xrandr")
+                             "--output" "DP-2" "--primary" "--auto")
+                    (system* #$(file-append xrandr "/bin/xrandr")
+                             ;; This can do 4K but HiDPI is a pain.
+                             "--output" "DP-1-8" "--mode" "1920x1080" "--rate" "60.00"
+                             "--left-of" "DP-2")
+                    ;; Set the desktop background picture. Hopefully doing this just after
+                    ;; xrandr works and sets it for both screens.
+                    (system* #$(file-append hsetroot "/bin/hsetroot") "-cover"
+                             (string-append (getenv "XDG_CONFIG_HOME")
+                                            "/X11/ridge-view.jpg")))))))
+
+     (openssh-service #f)
+
+     (append %interactive-services %pim-services %common-services)))))
+
+%cern-home
diff --git a/tw/home/emacs.scm b/tw/home/emacs.scm
deleted file mode 100644
index f75a8527..00000000
--- a/tw/home/emacs.scm
+++ /dev/null
@@ -1,103 +0,0 @@
-(define-module (tw home emacs)
-  #:use-module (gnu)
-  #:use-module (gnu home services)
-  #:use-module (gnu home services shepherd)
-  #:use-module (tw theme))
-
-(use-package-modules base cmake emacs emacs-xyz databases elf finance gcc
-                     haskell-apps llvm python-xyz sqlite)
-
-(define-public emacs-services
-  (list
-   (simple-service 'emacs-config home-xdg-configuration-files-service-type
-     `(("emacs/include" ,(local-file "files/emacs-packages" #:recursive? #t))
-       ("emacs/init.el" ,(local-file "files/emacs-init.el"))
-       (,(string-append "emacs/" (local-file-name catppuccin-emacs-theme))
-        ,catppuccin-emacs-theme)))
-
-   (simple-service 'emacsclient-is-editor home-environment-variables-service-type
-     `(("EDITOR" . "emacsclient -qc")
-       ;; Tell emacsclient to return immediately after opening the file.  I
-       ;; can't put this in $EDITOR as many programs expect $EDITOR to exit
-       ;; only when the user is done editing.
-       ("ASYNC_EDITOR" . "emacsclient -qcn")))
-
-   (simple-service 'emacs-server home-shepherd-service-type
-     (list
-      (shepherd-service
-       (documentation "Emacs server; connect using emacsclient.")
-       (provision '(emacs))
-       (start #~(make-forkexec-constructor
-                 (list #$(file-append emacs "/bin/emacs") "--fg-daemon")))
-       (stop #~(make-kill-destructor)))))))
-
-(define-public emacs-packages
-  (list
-   ;; Development & language servers
-   gnu-make
-   python-yamllint
-   shellcheck
-   clang  ; for clangd
-   glibc  ; for ldd
-   gcc binutils patchelf elfutils
-   python-lsp-server
-   ;; Supported OotB by eglot, but not packaged by guix:
-   ;; https://github.com/mads-hartmann/bash-language-server
-   ;; https://github.com/regen100/cmake-language-server
-   ;; https://github.com/hrsh7th/vscode-langservers-extracted   ; {html,css,json}-languageserver
-   ;; https://github.com/golang/tools/tree/master/gopls         ; maybe?
-   ;; https://github.com/artempyanykh/marksman                  ; Markdown
-   ;; https://github.com/astoff/digestif                        ; (La)TeX
-   ;; https://github.com/redhat-developer/yaml-language-server
-   ;; Needs eglot config + not packaged (from lsp-mode):
-   ;; https://github.com/graphql/graphiql/tree/main/packages/graphql-language-service-cli#readme
-   ;; https://github.com/haskell/haskell-language-server / https://github.com/haskell/ghcide
-   ;; https://github.com/eclipse/lemminx
-
-   ;; Emacs general
-   emacs
-   emacs-use-package
-   emacs-eglot
-   emacs-counsel
-   emacs-counsel-dash sqlite  ; emacs-counsel-dash requires the sqlite3 binary
-   emacs-ivy
-   ;; emacs-company emacs-company-quickhelp emacs-company-posframe
-   emacs-corfu emacs-corfu-doc
-   emacs-autothemer  ; for catppuccin/emacs
-   emacs-undo-tree
-   emacs-aggressive-indent
-   emacs-which-key
-   emacs-smart-mode-line
-   emacs-diminish
-   emacs-rainbow-mode
-   emacs-form-feed
-   emacs-guix
-   ;; TODO: emacs-editorconfig emacs-sly emacs-sly-macrostep
-   emacs-org   ; emacs-org-modern theme?
-
-   ;; Emacs Evil
-   emacs-evil
-   emacs-evil-collection
-   emacs-evil-expat  ; for :reverse, :remove, :rename, :colo, :g*, ... ex commands
-   emacs-evil-surround
-   ;; emacs-evil-owl  ; tests failing
-   emacs-evil-args
-   emacs-evil-numbers
-   emacs-evil-multiedit
-   emacs-evil-goggles
-   emacs-evil-traces
-   emacs-evil-commentary
-   emacs-evil-replace-with-register
-   emacs-evil-org
-   emacs-evil-markdown
-   emacs-evil-tex
-   emacs-evil-text-object-python
-
-   ;; Emacs language modes
-   emacs-geiser emacs-geiser-guile
-   ;; emacs-macrostep-geiser
-   emacs-flymake-collection  ; emacs-flymake-flycheck  ; if needed
-   emacs-cmake-mode emacs-gnuplot emacs-graphviz-dot-mode
-   emacs-hcl-mode emacs-ledger-mode emacs-mmm-mode
-   emacs-puppet-mode emacs-rec-mode emacs-web-mode
-   emacs-yaml-mode))
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
diff --git a/tw/home/server.scm b/tw/home/server.scm
index c4c62cc9..694c84c8 100644
--- a/tw/home/server.scm
+++ b/tw/home/server.scm
@@ -1,17 +1,17 @@
 (define-module (tw home server)
-  #:use-module (gnu)
   #:use-module (gnu home)
   #:use-module (gnu home services)
+  #:use-module (gnu packages vim)
+  #:use-module (gnu services)
+  #:use-module (guix gexp)
   #:use-module (tw home)
   #:use-module (tw theme))
 
-(use-package-modules vim)
-
 (define-public %server-home
   (home-environment
    ;; These packages will show up in the home profile, under ~/.guix-home/profile.
    (packages
-    (cons* vim vim-surround common-packages))
+    (cons* vim vim-surround %common-packages))
    ;; To search for available home services, run 'guix home search KEYWORD'.
    (services
     (cons*
@@ -22,6 +22,6 @@
      (simple-service 'vim-is-editor home-environment-variables-service-type
        `(("EDITOR" . "vim")))   ; we define no ASYNC_EDITOR
 
-     common-services))))
+     %common-services))))
 
 %server-home