From 700a7e67cd58e0321facaa61f3f88f007b13145a Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 26 Mar 2023 14:31:35 +0300 Subject: remove stumpwm and guix --- .config/guix/base.scm | 141 ------------------ .config/guix/channels.scm | 21 --- .config/guix/common.scm | 66 --------- .config/guix/fsociety.scm | 44 ------ .config/guix/guix-packages/.#personal.scm | 1 - .config/guix/guix-packages/.#testing.scm | 1 - .config/guix/guix-packages/testing.scm | 237 ------------------------------ .config/guix/personal-channel.scm | 146 ------------------ .config/guix/zeus.scm | 177 ---------------------- 9 files changed, 834 deletions(-) delete mode 100644 .config/guix/base.scm delete mode 100755 .config/guix/channels.scm delete mode 100755 .config/guix/common.scm delete mode 100755 .config/guix/fsociety.scm delete mode 120000 .config/guix/guix-packages/.#personal.scm delete mode 120000 .config/guix/guix-packages/.#testing.scm delete mode 100755 .config/guix/guix-packages/testing.scm delete mode 100755 .config/guix/personal-channel.scm delete mode 100755 .config/guix/zeus.scm (limited to '.config/guix') diff --git a/.config/guix/base.scm b/.config/guix/base.scm deleted file mode 100644 index 194f74a..0000000 --- a/.config/guix/base.scm +++ /dev/null @@ -1,141 +0,0 @@ -;; This is an operating system configuration generated -;; by the graphical installer. -;; -;; Once installation is complete, you can learn and modify -;; this file to tweak the system configuration, and pass it -;; to the 'guix system reconfigure' command to effect your -;; changes. - - -;; Indicate which modules to import to access the variables -;; used in this configuration. - -(define-module (base) - #:use-module (gnu) - #:use-module (nongnu packages linux) - #:export (base-operating-system)) - -(use-service-modules cups desktop networking ssh xorg) - -;;(define-public base-operating-system -(operating-system - (host-name "zeus") - - (kernel linux) - (firmware (list linux-firmware - amdgpu-firmware - radeon-firmware)) - - (locale "en_US.utf8") - (timezone "Europe/Athens") - (keyboard-layout (keyboard-layout "us" - #:options - '("ctrl:nocaps"))) - - ;; Guix doesn't like it when there isn't a file-systems - ;; entry, so add one that is meant to be overridden - - ;; (file-systems (cons* - ;; (file-system - ;; (mount-point "/tmp") - ;; (device "none") - ;; (type "tmpfs") - ;; (check? #f)) - ;; %base-file-systems)) - - ;; The list of user accounts ('root' is implicit). - (users (cons* (user-account - (name "apollo") - (comment "Apollo") - (group "users") - (home-directory "/home/apollo") - ;;(shell (file-append "/bin/zsh")) ; - (supplementary-groups '("wheel" - "netdev" - "audio" - "video"))) - (user-account - (name "elliot") - (comment "Elliot") - (group "users") - (home-directory "/home/elliot") - (supplementary-groups '("wheel" - "netdev" - "audio" - "video"))) - %base-user-accounts)) - - ;; Packages installed system-wide. Users can also install packages - ;; under their own account: use 'guix search KEYWORD' to search - ;; for packages and 'guix install PACKAGE' to install a package. - (packages (append (map specification->package - `("emacs-exwm" - "emacs-desktop-environment" - "emacs" - "bash" - "xrandr" - "picom" - "gnome" - "gnome-desktop" - "nss-certs" - "python" - "alacritty" - "emacs-vterm" - "emacs-multi-vterm" - "alsa-utils" - "bluez-alsa" - "gnome-bluetooth" - "blueman" - "qtile" - "git" - "font-jetbrains-mono")) - %base-packages)) - - ;; Below is the list of system services. To search for available - ;; services, run 'guix system search KEYWORD' in a terminal. - (services - (append (list (service gnome-desktop-service-type) - (service openssh-service-type) - (bluetooth-service #:auto-enable? - #t) - (service cups-service-type) - (set-xorg-configuration - (xorg-configuration (keyboard-layout keyboard-layout)))) - ;; This is the default list of services we - ;; are appending to. - %desktop-services)) - - (bootloader (bootloader-configuration - (bootloader grub-efi-bootloader) - (targets (list "/boot/efi")) - (keyboard-layout keyboard-layout))) - (mapped-devices (list (mapped-device - (source (uuid - "0594b592-ddcb-4a3c-958d-c773d7a85d93")) - (target "cryptroot") - (type luks-device-mapping)) - (mapped-device - (source (uuid - "a44f40ec-94c3-457a-a9ed-5db5396f3aea")) - (target "crypthome") - (type luks-device-mapping)))) - - ;; The list of file systems that get "mounted". The unique - ;; file system identifiers there ("UUIDs") can be obtained - ;; by running 'blkid' in a terminal. - (file-systems (cons* (file-system - (mount-point "/boot/efi") - (device (uuid "98B8-B93E" - 'fat32)) - (type "vfat")) - (file-system - (mount-point "/") - (device "/dev/mapper/cryptroot") - (type "ext4") - (dependencies mapped-devices)) - (file-system - (mount-point "/home") - (device "/dev/mapper/crypthome") - (type "ext4") - (dependencies mapped-devices)) %base-file-systems))) - diff --git a/.config/guix/channels.scm b/.config/guix/channels.scm deleted file mode 100755 index 3365914..0000000 --- a/.config/guix/channels.scm +++ /dev/null @@ -1,21 +0,0 @@ -(cons* - (channel - (name 'guix) - (url "https://git.savannah.gnu.org/git/guix.git") - (branch "master") - (introduction - (make-channel-introduction - "9edb3f66fd807b096b48283debdcddccfea34bad" - (openpgp-fingerprint - "BBB0 2DDF 2CEA F6A8 0D1D E643 A2A0 6DF2 A33A 54FA")))) - (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")))) - %default-channels) - diff --git a/.config/guix/common.scm b/.config/guix/common.scm deleted file mode 100755 index 64666d7..0000000 --- a/.config/guix/common.scm +++ /dev/null @@ -1,66 +0,0 @@ -(define-module (common) - #:use-module (gnu) - #:use-module (gnu services) - #:use-module (gnu home) - #:use-module (gnu home services) - #:use-module (gnu home services shells) - #:use-module (gnu home services mcron) - #:use-module (guix gexp)) - -(define-public common-home-services - (list - ;; Set up the shell environment - (service home-bash-service-type - (home-bash-configuration - (bash-profile - `(,(plain-file "bash-profile-extras" - (string-append - ;; Load the Nix profile - "if [ -f /run/current-system/profile/etc/profile.d/nix.sh ]; then\n" - " . /run/current-system/profile/etc/profile.d/nix.sh\n" - "fi\n" - - ;; Don't use the system-level PulseAudio configuration - "unset PULSE_CONFIG\n" - "unset PULSE_CLIENTCONFIG\n")))) - - (environment-variables - '( ;; Sort hidden (dot) files first in `ls` listings - ("LC_COLLATE" . "C") - - ;; Emacs is our editor - ("VISUAL" . "emacsclient") - ("EDITOR" . "emacsclient") - - ;; Add some things to $PATH (maybe integrate into other services?) - ("PATH" . "$HOME/.dotfiles/.bin:$HOME/.npm-global/bin:$PATH") - - ;; Make sure Flatpak apps are visible - ("XDG_DATA_DIRS" . "$XDG_DATA_DIRS:$HOME/.local/share/flatpak/exports/share") - - ;; Make sure JAVA_HOME is set - ;; TODO: Move this to a different service - ("JAVA_HOME" . "$(dirname $(dirname $(readlink $(which java))))") - - ;; Fix issues with Qutebrowser - ;; TODO: Move this to Qutebrowser service - ("QTWEBENGINE_CHROMIUM_FLAGS" . "--disable-seccomp-filter-sandbox") - - ;; Set the SSH authentication socket - ;; TODO: Move to a gpg service - ("SSH_AUTH_SOCK" . "$(gpgconf --list-dirs agent-ssh-socket)"))))) - - ;; Set up desktop environment - - - ;; Start background jobs - (service home-mcron-service-type - (home-mcron-configuration - (jobs - (list - #~(job - '(next-hour (range 0 24 4)) - "~/.dotfiles/.bin/sync-passwords"))))))) - - ;; Udiskie for auto-mounting devices - diff --git a/.config/guix/fsociety.scm b/.config/guix/fsociety.scm deleted file mode 100755 index 173d5fd..0000000 --- a/.config/guix/fsociety.scm +++ /dev/null @@ -1,44 +0,0 @@ -(define-module (helena) - #:use-module (gnu) - #:use-module (gnu home) - #:use-module (common) - #:use-module (base)) - -(define home - (home-environment - (services (append - (list - common-home-services))))) - -(define system - (operating-system - (inherit base-operating-system) - - (host-name "helena") - - (bootloader (bootloader-configuration - (bootloader grub-bootloader) - (targets (list "/dev/nvme0n1")) - (keyboard-layout keyboard-layout))) - (swap-devices (list (swap-space - (target (uuid - "a8d782da-f1ea-477e-9b47-cf5aa431e893"))))) - - ;; The list of file systems that get "mounted". The unique - ;; file system identifiers there ("UUIDs") can be obtained - ;; by running 'blkid' in a terminal. - (file-systems (cons* (file-system - (mount-point "/boot/efi") - (device (uuid "021E-83B3" - 'fat32)) - (type "vfat")) - (file-system - (mount-point "/") - (device (uuid - "2bb282ae-7b2d-45c3-92b1-b1524177defb" - 'ext4)) - (type "ext4")) %base-file-systems)))) -(if (getenv "RUNNING_GUIX_HOME") home system) - - - diff --git a/.config/guix/guix-packages/.#personal.scm b/.config/guix/guix-packages/.#personal.scm deleted file mode 120000 index 6e68dcc..0000000 --- a/.config/guix/guix-packages/.#personal.scm +++ /dev/null @@ -1 +0,0 @@ -apollo@evilgnu.1347:1673743482 \ No newline at end of file diff --git a/.config/guix/guix-packages/.#testing.scm b/.config/guix/guix-packages/.#testing.scm deleted file mode 120000 index 6e68dcc..0000000 --- a/.config/guix/guix-packages/.#testing.scm +++ /dev/null @@ -1 +0,0 @@ -apollo@evilgnu.1347:1673743482 \ No newline at end of file diff --git a/.config/guix/guix-packages/testing.scm b/.config/guix/guix-packages/testing.scm deleted file mode 100755 index 5fa374c..0000000 --- a/.config/guix/guix-packages/testing.scm +++ /dev/null @@ -1,237 +0,0 @@ -(define-module (my-hello) - #:use-module (guix licenses) - #:use-module (guix packages) - #:use-module (guix build-system gnu) - #:use-module (guix download) - #:use-module (nongnu packages mozilla) - #:use-module (ice-9 regex) - #:use-module (gnu packages) - #:use-module (gnu packages audio) - #:use-module (gnu packages base) - #:use-module (gnu packages bash) - #:use-module (gnu packages compression) - #:use-module (gnu packages curl) - #:use-module (gnu packages databases) - #:use-module (gnu packages django) - #:use-module (gnu packages flex) - #:use-module (gnu packages fonts) - #:use-module (gnu packages fontutils) - #:use-module (gnu packages freedesktop) - #:use-module (gnu packages game-development) - #:use-module (gnu packages gettext) - #:use-module (gnu packages glib) - #:use-module (gnu packages gnome) - #:use-module (gnu packages golang) - #:use-module (gnu packages gtk) - #:use-module (gnu packages gstreamer) - #:use-module (gnu packages image) - #:use-module (gnu packages javascript) - #:use-module (gnu packages kde) - #:use-module (gnu packages kde-frameworks) ; extra-cmake-modules - #:use-module (gnu packages linux) - #:use-module (gnu packages mp3) - #:use-module (gnu packages ncurses) - #:use-module (gnu packages pdf) - #:use-module (gnu packages perl) - #:use-module (gnu packages pkg-config) - #:use-module (gnu packages python) - #:use-module (gnu packages python-web) - #:use-module (gnu packages python-xyz) - #:use-module (gnu packages qt) - #:use-module (gnu packages readline) - #:use-module (gnu packages sdl) - #:use-module (gnu packages sqlite) - #:use-module (gnu packages texinfo) - #:use-module (gnu packages tls) - #:use-module (gnu packages video) - #:use-module (gnu packages xiph) - #:use-module (gnu packages xorg) - #:use-module (gnu packages xml) - #:use-module (guix gexp) - #:use-module ((guix licenses) #:prefix license:) - #:use-module (guix packages) - #:use-module (guix download) - #:use-module (guix git-download) - #:use-module (guix svn-download) - #:use-module (guix utils) - #:use-module (guix build-system cmake) - #:use-module (guix build-system gnu) - #:use-module (guix build-system go) - #:use-module (guix build-system python) - #:use-module (guix build-system qt) - #:use-module (guix build-system trivial) - #:use-module (srfi srfi-1)) - -;; (define-public my-hello -;; (package -;; (inherit firefox-esr) -;; (name "my-hello") -;; (version "2.10") -;; (source (origin -;; (method url-fetch) -;; (uri (string-append "mirror://gnu/hello/hello-" version -;; ".tar.gz")) -;; (sha256 -;; (base32 -;; "0ssi1wpaf7plaswqqjwigppsg5fyh99vdlb9kzl7c9lng89ndq1i")))) -;; (build-system gnu-build-system) -;; (synopsis "Hello, Guix world: An example custom Guix package") -;; (description -;; "GNU Hello prints the message \"Hello, world!\" and then exits. It -;; serves as an example of standard GNU coding practices. As such, it supports -;; command-line arguments, multiple languages, and so on.") -;; (home-page "https://www.gnu.org/software/hello/") -;; (license gpl3+))) -(define-public librewolf - (package - (inherit firefox) - (name "librewolf") - (version "108.0.2-1") - (source - (origin - (method url-fetch) - (uri "https://gitlab.com/api/v4/projects/32320088/packages/generic/librewolf-source/108.0.2-1/librewolf-108.0.2-1.source.tar.gz") - (sha256 - (base32 "0faa4fr2w24zvaa4fd4bj1ikqddnl3kkygf9hha2mxzypdcl233p")))) - (arguments - (substitute-keyword-arguments (package-arguments firefox-esr) - ((#:phases phases) - #~(modify-phases #$phases - (replace 'set-build-id - (lambda _ - (setenv "MOZ_BUILD_DATE"))))))) - (native-inputs - (modify-inputs (package-native-inputs firefox-esr) - (replace "rust" rust-firefox) - (replace "rust:cargo" `(,rust-firefox "cargo")) - ; (replace "node" node-lts) - (replace "rust-cbindgen" rust-cbindgen-0.24))) - (description - "Full-featured browser client built from Firefox source tree, without -the official icon and the name \"firefox\"."))) - -(define-public anki - (package - (name "anki") - ;; Later versions have dependencies on npm packages not yet in Guix. - (version "2.1.36") - (source - (origin - (method url-fetch) - (uri "https://github.com/ankitects/anki/archive/refs/tags/2.1.36.tar.gz") - (sha256 - (base32 "1krrnsp01nms6f2dyfm078imvx2b9synina63l41vbipcznnc1xs")) - (patches (search-patches "anki-mpv-args.patch")))) - (build-system gnu-build-system) - (arguments - `(#:make-flags (list (string-append "PREFIX=" %output)) - #:tests? #f ;no check target - #:modules ((guix build gnu-build-system) - (guix build utils) - (ice-9 match)) - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'disable-update-check - ;; Don't ‘phone home’ unasked to check for updates. - (lambda _ - (substitute* "aqt/update.py" - (("requests\\.post") - "throw.an.exception.instead")) - #t)) - (delete 'configure) ;no configure script - (add-after 'install 'wrap - (lambda* (#:key inputs outputs #:allow-other-keys) - (let ((bin (string-append (assoc-ref outputs "out") "/bin")) - ;; List of paths to the site-packages directories of Python - ;; library inputs. - (site-packages - (map (lambda (pyinput) - (string-append - (cdr pyinput) - "/lib/python" - ;; Calculate the python version to avoid breaking - ;; with future 3.X releases. - ,(version-major+minor - (package-version python-wrapper)) - "/site-packages")) - (filter (match-lambda - ((label . _) - (string-prefix? "python-" label))) - inputs))) - (qtwebengineprocess - (search-input-file inputs - "lib/qt5/libexec/QtWebEngineProcess"))) - ;; The program fails to find the QtWebEngineProcess program, so - ;; we set QTWEBENGINEPROCESS_PATH to help it. PYTHONPATH is - ;; wrapped to avoid declaring Python libraries as propagated - ;; inputs. - (for-each (lambda (program) - (wrap-program program - `("QTWEBENGINEPROCESS_PATH" = - (,qtwebengineprocess)) - `("PATH" prefix (,(string-append - (assoc-ref inputs "mpv") - "/bin"))) - `("GUIX_PYTHONPATH" = ,site-packages))) - (find-files bin "."))) - #t))))) - (native-inputs - (list xdg-utils)) - (inputs - `(("lame" ,lame) - ("mpv" ,mpv) - ("python" ,python-wrapper) - ("python-beautifulsoup4" ,python-beautifulsoup4) - ("python-decorator" ,python-decorator) - ("python-distro" ,python-distro) - ("python-jsonschema" ,python-jsonschema) - ("python-markdown" ,python-markdown) - ("python-pyaudio" ,python-pyaudio) - ;; `python-pyqtwebengine' must precede `python-pyqt' in PYTHONPATH. - ("python-pyqtwebengine" ,python-pyqtwebengine) - ("python-pyqt" ,python-pyqt-without-qtwebkit) - ("python-requests" ,python-requests) - ("python-send2trash" ,python-send2trash) - ("python-sip" ,python-sip) - ;; `qtwebengine-5' is included in `pyqtwebengine', included here for easy - ;; wrapping. - ("qtwebengine-5" ,qtwebengine-5))) - (home-page "https://apps.ankiweb.net/") - (synopsis "Powerful, intelligent flash cards") - (description "Anki is a program which makes remembering things -easy. Because it's a lot more efficient than traditional study -methods, you can either greatly decrease your time spent studying, or -greatly increase the amount you learn. - -Anyone who needs to remember things in their daily life can benefit -from Anki. Since it is content-agnostic and supports images, audio, -videos and scientific markup (via LaTeX), the possibilities are -endless. For example: -@itemize -@item Learning a language -@item Studying for medical and law exams -@item Memorizing people's names and faces -@item Brushing up on geography -@item Mastering long poems -@item Even practicing guitar chords! -@end itemize") - (license gpl3+))) - - -(define-public starship - (package - (inherit firefox) - (name "starship") - (version "1.12.0") - (source - (origin - (method url-fetch) - (uri "https://github.com/starship/starship/archive/refs/tags/v1.12.0.tar.gz") - (sha256 - (base32 "0faa4fr2w24zvaa4fd4bj1ikqddnl3kkygf9hha2mxzypdcl233p")))) - (description - "Full-featured browser client built from Firefox source tree, without -the official icon and the name \"firefox\"."))) - - -starship diff --git a/.config/guix/personal-channel.scm b/.config/guix/personal-channel.scm deleted file mode 100755 index e94bda9..0000000 --- a/.config/guix/personal-channel.scm +++ /dev/null @@ -1,146 +0,0 @@ -(define-module (personal-channel) - #:use-modules (guix) - #:use-modules (guix-packages)) - -(define-public anki - (package - (name "anki") - ;; Later versions have dependencies on npm packages not yet in Guix. - (version "2.1.16") - (source - (origin - (method url-fetch) - (uri (string-append "https://apps.ankiweb.net/downloads/archive/anki-" - version "-source.tgz")) - (sha256 - (base32 "1gfr51rnllkyzli73p4r51h5ypzfa3m7lic3m3rzpywmqwrxs07k")) - (patches (search-patches "anki-mpv-args.patch")))) - (build-system gnu-build-system) - (arguments - `(#:make-flags (list (string-append "PREFIX=" %output)) - #:tests? #f ;no check target - #:modules ((guix build gnu-build-system) - (guix build utils) - (ice-9 match)) - #:phases - (modify-phases %standard-phases - (add-after 'unpack 'disable-update-check - ;; Don't ‘phone home’ unasked to check for updates. - (lambda _ - (substitute* "aqt/update.py" - (("requests\\.post") - "throw.an.exception.instead")) - #t)) - (delete 'configure) ;no configure script - (add-after 'install 'wrap - (lambda* (#:key inputs outputs #:allow-other-keys) - (let ((bin (string-append (assoc-ref outputs "out") "/bin")) - ;; List of paths to the site-packages directories of Python - ;; library inputs. - (site-packages - (map (lambda (pyinput) - (string-append - (cdr pyinput) - "/lib/python" - ;; Calculate the python version to avoid breaking - ;; with future 3.X releases. - ,(version-major+minor - (package-version python-wrapper)) - "/site-packages")) - (filter (match-lambda - ((label . _) - (string-prefix? "python-" label))) - inputs))) - (qtwebengineprocess - (search-input-file inputs - "lib/qt5/libexec/QtWebEngineProcess"))) - ;; The program fails to find the QtWebEngineProcess program, so - ;; we set QTWEBENGINEPROCESS_PATH to help it. PYTHONPATH is - ;; wrapped to avoid declaring Python libraries as propagated - ;; inputs. - (for-each (lambda (program) - (wrap-program program - `("QTWEBENGINEPROCESS_PATH" = - (,qtwebengineprocess)) - `("PATH" prefix (,(string-append - (assoc-ref inputs "mpv") - "/bin"))) - `("GUIX_PYTHONPATH" = ,site-packages))) - (find-files bin "."))) - #t))))) - (native-inputs - (list xdg-utils)) - (inputs - `(("lame" ,lame) - ("mpv" ,mpv) - ("python" ,python-wrapper) - ("python-beautifulsoup4" ,python-beautifulsoup4) - ("python-decorator" ,python-decorator) - ("python-distro" ,python-distro) - ("python-jsonschema" ,python-jsonschema) - ("python-markdown" ,python-markdown) - ("python-pyaudio" ,python-pyaudio) - ;; `python-pyqtwebengine' must precede `python-pyqt' in PYTHONPATH. - ("python-pyqtwebengine" ,python-pyqtwebengine) - ("python-pyqt" ,python-pyqt-without-qtwebkit) - ("python-requests" ,python-requests) - ("python-send2trash" ,python-send2trash) - ("python-sip" ,python-sip) - ;; `qtwebengine-5' is included in `pyqtwebengine', included here for easy - ;; wrapping. - ("qtwebengine-5" ,qtwebengine-5))) - (home-page "https://apps.ankiweb.net/") - (synopsis "Powerful, intelligent flash cards") - (description "Anki is a program which makes remembering things -easy. Because it's a lot more efficient than traditional study -methods, you can either greatly decrease your time spent studying, or -greatly increase the amount you learn. - -Anyone who needs to remember things in their daily life can benefit -from Anki. Since it is content-agnostic and supports images, audio, -videos and scientific markup (via LaTeX), the possibilities are -endless. For example: -@itemize -@item Learning a language -@item Studying for medical and law exams -@item Memorizing people's names and faces -@item Brushing up on geography -@item Mastering long poems -@item Even practicing guitar chords! -@end itemize") - (license license:agpl3+))) - -(define-public roswell - (package - (name "roswell") - (version "19.08.10.101") - (home-page "https://github.com/roswell/roswell/") - (source - (origin - (method git-fetch) - (uri (git-reference - (url home-page) - (commit (string-append "v" version)))) - (sha256 - (base32 - "0i72vzzzjwi9lnzzl8y10pp3kq298vhzz3spvsmi8n1yalqwslbf")))) - (build-system gnu-build-system) - (native-inputs - `(("autoconf" ,autoconf) - ("automake" ,automake) - ("intltool" ,intltool))) - (inputs - `(("curl" ,curl))) - (synopsis "Common Lisp implementation manager, launcher, and more") - (description - "Roswell started out as a command-line tool with the aim to make -installing and managing Common Lisp implementations really simple and easy. -Roswell has now evolved into a full-stack environment for Common Lisp -development, and has many features that makes it easy to test, share, and -distribute your Lisp applications. - -Roswell is still in beta. Despite this, the basic interfaces are stable and -not likely to change.") - (license license:expat))) - -roswell diff --git a/.config/guix/zeus.scm b/.config/guix/zeus.scm deleted file mode 100755 index a6b6ae5..0000000 --- a/.config/guix/zeus.scm +++ /dev/null @@ -1,177 +0,0 @@ -;; This is an operating system configuration generated -;; by the graphical installer. -;; -;; Once installation is complete, you can learn and modify -;; this file to tweak the system configuration, and pass it -;; to the 'guix system reconfigure' command to effect your -;; changes. - - -;; Indicate which modules to import to access the variables -;; used in this configuration. - -(define-module (zeus) - #:use-module (gnu) - #:use-module (srfi srfi-1) - #:use-module (gnu system nss) - #:use-module (gnu services pm) - #:use-module (gnu services ssh) - #:use-module (gnu services cups) - #:use-module (gnu services guix) - #:use-module (gnu services desktop) - #:use-module (gnu services docker) - #:use-module (gnu services networking) - #:use-module (gnu services virtualization) - #:use-module (gnu packages wm) - #:use-module (gnu packages cups) - #:use-module (gnu packages vim) - #:use-module (gnu packages gtk) - #:use-module (gnu packages xorg) - #:use-module (gnu packages emacs) - #:use-module (gnu packages file-systems) - #:use-module (gnu packages gnome) - #:use-module (gnu packages mtools) - #:use-module (gnu packages linux) - #:use-module (gnu packages audio) - #:use-module (gnu packages gnuzilla) - #:use-module (gnu packages web-browsers) - #:use-module (gnu packages version-control) - #:use-module (gnu packages package-management) - #:use-module (gnu packages linux) - #:use-module (gnu packages admin) - #:use-module (nongnu packages linux) - #:use-module (nongnu system linux-initrd)) - - -(use-service-modules cups desktop networking ssh xorg) - -(operating-system - (host-name "zeus") - - (kernel linux) - (firmware (list linux-firmware)) - (initrd microcode-initrd) - - (kernel-loadable-modules (list v4l2loopback-linux-module)) - - (locale "en_US.utf8") - (timezone "Europe/Athens") - (keyboard-layout (keyboard-layout "us" - #:options - '("ctrl:nocaps"))) - - ;; The list of user accounts ('root' is implicit). - (users (cons (user-account - (name "apollo") - (comment "Thanos Apollo") - (group "users") - (home-directory "/home/apollo") - (supplementary-groups '("wheel" ;; sudo - "netdev" ;; network devices - "kvm" - "tty" - "input" - "realtime" ;; Enable realtime scheduling - "lp" ;; control bluetooth devices - "audio" ;; control audio devices - "video"))) ;; control video devices - %base-user-accounts)) - - ;; Add the 'realtime' group - (groups (cons (user-group (system? #t) (name "realtime")) - %base-groups)) - - ;; Packages installed system-wide. Users can also install packages - ;; under their own account: use 'guix search KEYWORD' to search - ;; for packages and 'guix install PACKAGE' to install a package. - (packages (append (map specification->package - `("emacs-exwm" - "emacs-desktop-environment" - "emacs" - "emacs-guix" - "emacs-vterm" - "emacs-dashboard" - "emacs-multi-vterm" - "emacs-pdf-tools" - "emacs-stumpwm-mode" - "stumpish" - "xrandr" - "picom" - "gnome" - "gnome-desktop" - "nss-certs" - "python" - "bind" - "alacritty" - "emacs-vterm" - "emacs-multi-vterm" - "alsa-utils" - "bluez-alsa" - "gnome-bluetooth" - "blueman" - "qtile" - "git" - "stumpwm" - "rofi" - "qemu" - "libvirt" - "virt-manager" - "font-jetbrains-mono")) - %base-packages)) - - ;; Below is the list of system services. To search for available - ;; services, run 'guix system search KEYWORD' in a terminal. - (services - (append (list (service gnome-desktop-service-type) - (service openssh-service-type) - (service bluetooth-service-type) - (service cups-service-type) - (set-xorg-configuration - (xorg-configuration (keyboard-layout keyboard-layout))) - ) - ;; This is the default list of services we - ;; are appending to. - %desktop-services)) - - - - (bootloader (bootloader-configuration - (bootloader grub-efi-bootloader) - (targets (list "/boot/efi")) - (keyboard-layout keyboard-layout))) - (mapped-devices (list (mapped-device - (source (uuid - "0594b592-ddcb-4a3c-958d-c773d7a85d93")) - (target "cryptroot") - (type luks-device-mapping)) - (mapped-device - (source (uuid - "a44f40ec-94c3-457a-a9ed-5db5396f3aea")) - (target "crypthome") - (type luks-device-mapping)))) - - ;; The list of file systems that get "mounted". The unique - ;; file system identifiers there ("UUIDs") can be obtained - ;; by running 'blkid' in a terminal. - (file-systems (cons* (file-system - (mount-point "/boot/efi") - (device (uuid "98B8-B93E" - 'fat32)) - (type "vfat")) - (file-system - (mount-point "/") - (device "/dev/mapper/cryptroot") - (type "ext4") - (dependencies mapped-devices)) - (file-system - (mount-point "/home") - (device "/dev/mapper/crypthome") - (type "ext4") - (dependencies mapped-devices)) - (file-system - (mount-point "/home/apollo/external") - (device "/dev/sda1") - (type "ext4") - (dependencies mapped-devices)) - %base-file-systems))) - -- cgit v1.2.3