Segregate xorg packages

1 files changed, 0 insertions, 203 deletions

diff --git a/.config/guix/modules/desktop.scm b/.config/guix/modules/desktop.scm
deleted file mode 100644
index de07aa2..0000000
--- a/.config/guix/modules/desktop.scm
+++ /dev/null
@@ -1,203 +0,0 @@
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Provides a set of my preferred    ;;
-;; program and services for desktops ;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-
-(define-module (modules desktop)
-  #:use-module (gnu)
-  #:use-module (gnu home services)
-  #:use-module (gnu home services desktop)
-  #:use-module (gnu home services shells)
-  #:use-module (guix gexp)
-  #:use-module (guix packages)
-  #:export (bd-desktop-system-packages
-            bd-desktop-system-services
-            bd-desktop-home-services))
-
-(use-service-modules admin audio avahi dbus
-                     desktop networking
-                     sound xorg)
-
-(use-package-modules compton fonts fontutils
-                     gimp gnome gnuzilla gtk
-                     image imagemagick
-                     image-viewers librewolf
-                     pdf pulseaudio suckless
-                     video xdisorg xorg)
-
-(define dwm-package
-  (package
-   (inherit dwm)
-   (name "bdunahu-dwm")
-   (inputs (modify-inputs (package-inputs dwm)))
-   (source (local-file "dwm" #:recursive? #t))))
-
-(define programs
-  (list
-   dmenu
-   flameshot
-   font-google-noto-emoji
-   fontconfig
-   gimp
-   icecat
-   imagemagick
-   libnotify
-   librewolf
-   mpv
-   pavucontrol
-   picom
-   pulseaudio
-   sxiv
-   xprop
-   zathura
-   zathura-pdf-mupdf
-   ))
-
-(define x-server
-  (list
-   dwm-package
-   feh
-   ffmpeg
-   gtk+
-   font-terminus
-   xdotool
-   xf86-input-libinput
-   xf86-video-fbdev
-   xinit
-   xmodmap
-   xorg-server
-   xrdb
-   xset
-   ))
-
-(define bd-desktop-system-packages
-  (append!
-   programs
-   x-server
-   ))
-
-(define bd-desktop-system-services
-  (list
-   (service screen-locker-service-type
-            (screen-locker-configuration
-             (name "slock")
-             (program (file-append slock "/bin/slock"))))
-
-   ;; so that non-root users in the wheel group can
-   ;; perform administrative tasks (similar to "sudo").
-   polkit-wheel-service
-   ;; The global fontconfig cache directory can sometimes contain
-   ;; stale entries, possibly referencing fonts that have been GC'd,
-   ;; so mount it read-only.
-   fontconfig-file-system-service
-
-   (service network-manager-service-type)
-   (service wpa-supplicant-service-type) ; needed by NetworkManager
-   (service modem-manager-service-type)
-   (service usb-modeswitch-service-type)
-
-   ;; The D-Bus clique.
-   (service avahi-service-type)
-   (service udisks-service-type)
-   (service upower-service-type)
-   (service accountsservice-service-type)
-   (service cups-pk-helper-service-type)
-   (service colord-service-type)
-   (service geoclue-service-type)
-   (service polkit-service-type)
-   (service elogind-service-type
-            (elogind-configuration
-             (handle-power-key 'hibernate)
-             ;;  (idle-action-seconds (* 5 60))
-             ;;  (idle-action 'suspend)
-             ))
-   (service dbus-root-service-type)
-
-   (service ntp-service-type)
-
-   (service x11-socket-directory-service-type)
-
-   (service pulseaudio-service-type)
-   (service alsa-service-type)))
-
-(define bd-desktop-home-services
-  (list
-   (simple-service 'dotfiles
-                   home-files-service-type
-                   `((".Xresources"
-                      ,(plain-file "Xresources" "
-Sxiv.background: #000000
-Sxiv.foreground: #00C0FF
-"))
-                     (".Xmodmap"
-                      ,(plain-file "Xmodmap" "
-clear      lock
-clear   control
-clear      mod1
-clear      mod2
-clear      mod3
-clear      mod4
-clear      mod5
-keycode      37 = Hyper_L
-keycode      66 = Control_L
-add     control = Control_L Control_R
-add        mod1 = Alt_L Alt_R Meta_L
-add        mod2 = Num_Lock
-add        mod3 = Hyper_L
-add        mod4 = Super_L Super_R
-add        mod5 = Mode_switch ISO_Level3_Shift
-"))
-                     (".xinitrc"
-                      ,(plain-file "xinitrc" "
-#!/bin/sh
-
-userresources=$HOME/.Xresources
-usermodmap=$HOME/.Xmodmap
-sysresources=/etc/X11/xinit/.Xresources
-sysmodmap=/etc/X11/xinit/.Xmodmap
-
-# merge in defaults and keymaps
-
-if [ -f $sysresources ]; then
-
-    xrdb -merge $sysresources
-
-fi
-
-if [ -f $sysmodmap ]; then
-    xmodmap $sysmodmap
-fi
-
-if [ -f \"$userresources\" ]; then
-
-    xrdb -merge \"$userresources\"
-
-fi
-
-if [ -f \"$usermodmap\" ]; then
-    xmodmap \"$usermodmap\"
-fi
-
-# start some programs
-if [ -d /etc/X11/xinit/xinitrc.d ] ; then
-    for f in /etc/X11/xinit/xinitrc.d/?*.sh ; do
-        [ -x \"$f\" ] && . \"$f\"
-    done
-    unset f
-fi
-
-picom &
-dwmstatus &
-emacs --daemon
-set-bg
-xset r rate 250 70
-exec dwm"))
-                     (".config/gtk-2.0/settings.ini"
-                      ,(plain-file "settings.ini" "
-[Settings]
-gtk-application-prefer-dark-theme=1\n"))
-                     (".config/gtk-3.0/settings.ini"
-                      ,(plain-file "settings.ini" "
-[Settings]
-gtk-application-prefer-dark-theme=1\n"))))))