etc/guix/home.scm: Shrink installed package set

1 files changed, 4 insertions, 594 deletions

diff --git a/etc/guix/home.scm b/etc/guix/home.scm
index cdbfedf..cf390a6 100644
--- a/etc/guix/home.scm
+++ b/etc/guix/home.scm
@@ -21,330 +21,14 @@
   (guix packages)
   (guix utils))
 (use-package-modules
-  avr
-  bison
-  busybox
-  compression
-  curl
-  image
-  file
-  flex
   freedesktop
-  gperf
-  gtk
-  hunspell
-  javascript
-  less
-  man
   messaging
-  perl
-  perl-check
-  pkg-config
-  python
   python-build
-  python-crypto
-  python-web
-  python-xyz
-  tls
-  vim
-  web
   wm
-  xdisorg
-  xml)
+  xdisorg)
 (heredoc:enable-syntax)
 
 
-(define-public perl-critic
-  (package
-    (name "perl-critic")
-    (version "1.140")
-    (source
-      (origin
-        (method url-fetch)
-        (uri (string-append
-              "mirror://cpan/authors/id/P/PE/PETDANCE/Perl-Critic-"
-              version
-              ".tar.gz"))
-        (sha256
-          (base32 "1nzxpn71mrpp85yxrxlraj52q2skvf9ja887ls11d57h6smg1vmz"))))
-    (build-system perl-build-system)
-    (native-inputs
-      (list
-       perl-module-build
-       perl-test-deep))
-    (propagated-inputs
-      (list
-       perltidy
-       perl-exception-class
-       perl-io-string
-       perl-ppi
-       perl-ppix-regexp
-       perl-b-keywords
-       perl-config-tiny
-       perl-padwalker
-       perl-test-memory-cycle
-       perl-file-which
-       perl-list-moreutils
-       perl-module-pluggable
-       perl-pod-parser
-       perl-pod-spell
-       perl-ppix-quotelike
-       perl-ppix-utilities
-       perl-readonly
-       perl-string-format
-       perl-task-weaken))
-    (home-page "https://metacpan.org/release/Perl-Critic")
-    (synopsis "Critique Perl source code for best-practices")
-    (description #"-
-      @code{perlcritic} is a Perl source code analyzer.  It is the executable
-      front-end to the @code{Perl::Critic} engine, which attempts to identify
-      awkward, hard to read, error-prone, or unconventional constructs in your
-      code.  Most of the rules are based on Damian Conway's book "Perl Best
-      Practices".  However, @code{perlcritic} is not limited to enforcing PBP,
-      and it will even support rules that contradict Conway.  All rules can
-      easily be configured or disabled to your liking."#)
-    (license licenses:perl-license)))
-
-(define-public abuild
-  (package
-    (name "abuild")
-    (version "3.10.0")
-    (source
-      (origin
-        (method url-fetch)
-        (uri
-          (string-append
-           "https://gitlab.alpinelinux.org/alpine/abuild/-/archive/"
-           version
-           "/abuild-"
-           version
-           ".tar.gz"))
-        (sha256
-          (base32 "0c272fvca2l18vm441db9s6hs70b5w1wcxk0l5aj3h1zvycwgbap"))))
-    (build-system gnu-build-system)
-    (arguments
-      (list
-       #:tests? #f ;; depends on Kyua, which depends on ATF...
-       #:make-flags
-       #~(list
-          "CC=gcc"
-          (string-append "prefix=" #$output)
-          (string-append "sysconfdir=" #$output "/etc"))
-       #:phases
-       #~(modify-phases %standard-phases
-           (delete 'configure))))
-    (inputs
-      (list
-       busybox
-       openssl
-       zlib))
-    (native-inputs
-      (list
-       pkg-config
-       scdoc))
-    (synopsis "Alpine Linux build tools")
-    (description
-     "abuild is the main tool used in Alpine Linux to build, update and maintain
-\".apk\" packages.")
-    (home-page "https://gitlab.alpinelinux.org/alpine/abuild")
-    (license licenses:gpl2+)))
-
-
-(define-public apk-tools
-  (package
-    (name "apk-tools")
-    (version "2.12.11")
-    (source
-      (origin
-        (method url-fetch)
-        (uri
-          (string-append
-           "https://gitlab.alpinelinux.org/alpine/apk-tools/-/archive/v"
-           version
-           "/apk-tools-v"
-           version
-           ".tar.gz"))
-        (sha256
-          (base32 "1iani00slrv3lpva8p1k7aivrd8pfgf8xw36j1h2k9qmsn6wvhic"))))
-    (build-system gnu-build-system)
-    (arguments
-      (list
-       #:make-flags
-       #~(list
-          "LUA=no"
-          (string-append "LDFLAGS=-g -Wl,-rpath=" #$output "/lib")
-          (string-append "DOCDIR="       #$output "/share/doc/apk")
-          (string-append "INCLUDEDIR="   #$output "/include")
-          (string-append "LIBDIR="       #$output "/lib")
-          (string-append "MANDIR="       #$output "/share/man")
-          (string-append "PKGCONFIGDIR=" #$output "/lib/pkgconfig")
-          (string-append "SBINDIR="      #$output "/sbin"))
-       #:phases
-       #~(modify-phases %standard-phases
-           (delete 'configure))))
-    (inputs
-      (list
-       openssl
-       zlib))
-    (native-inputs
-      (list
-       pkg-config
-       scdoc))
-    (synopsis "Alpine package manager")
-    (description
-     "Alpine Package Keeper (apk) is a package manager originally built for
-Alpine Linux, but now used by several other distributions as well.")
-    (home-page "https://gitlab.alpinelinux.org/alpine/apk-tools")
-    (license licenses:gpl2)))
-
-
-(define-public neosurf
-  (package
-    (name "neosurf")
-    (version "aa1a1e60bc56bf58c389647c7db8cad7cdc1528d")
-    (source
-      (origin
-        (method git-fetch)
-        (uri
-          (git-reference
-            (url "https://github.com/CobaltBSD/neosurf")
-            (commit version)))
-        (sha256
-          (base32 "0yyna9mnvsa7n83ngxh7czww3ih8rhj2b52ik25nah2w3gjiqmw9"))))
-    (build-system cmake-build-system)
-#;
-    (arguments
-     (list
-      #:make-flags
-      #~(list
-         (string-append "NSSHARED="
-                        ;;()
-                        ""))))
-    (native-inputs
-      (list
-       bison
-       flex
-       gperf
-       nsgenbind
-       pkg-config
-       python
-       xxd))
-    (inputs
-      (list
-       cairo
-       curl
-       duktape
-       gtk+
-       libcss
-       libxml2
-       libjpeg-turbo
-       libpng
-       libpsl
-       libwebp
-       libxkbcommon
-       openssl
-       pango
-       wayland))
-    (synopsis "A fork of Netsurf with improvements and additions")
-    (description
-     "NeoSurf has a different development vision from NetSurf.
-
-Current focus is on general improvements to the codebase, as well as fixing a
-number of issues and bugs that were present in the most recent versions of
-NetSurf.
-
-Biggest differences from NetSurf:
-@itemize
-@item @url{https://sr.ht/~sircmpwn/visurf/, Visurf support}, with
-various upstream improvements and fixes
-@item Various upstream improvements and UI enhancements to Gtk frontend
-@item Removed compatibility for super old and/or obscure
-libraries/software/operating systems
-@item Dedicated LibreSSL support
-@item Various privacy improvements
-@item Rewritten build system
-@item Simplified frontend development
-@end itemize")
-    (home-page "https://github.com/CobaltBSD/neosurf")
-    (license licenses:gpl2)))
-
-
-(define-public hunspell-iconv
-  (package
-    (inherit hunspell)
-    (name "hunspell-iconv")
-    (inputs
-      `(("libiconv" ,libiconv)
-        ,@(package-inputs hunspell)))))
-
-(define (hunspell-dictionary-utf8 dict-name)
-  (package
-    (name (string-append "hunspell-dict-" dict-name "-utf8"))
-    (version "630b34e6f8f3cbe7aa7b27b6d8ab118e27252fd1")
-    (source
-      (origin
-        (method git-fetch)
-        (uri
-          (git-reference
-            (url "https://github.com/wooorm/dictionaries")
-            (commit version)))
-        (file-name
-          (git-file-name "hunspell-dictionary-utf8" version))
-        (sha256
-          (base32 "1iknwzh5h04m067ddw9hlzc1qqj4mr9mdkcfapsnay304laaiyn5"))))
-    (build-system trivial-build-system)
-    (arguments
-      `(#:modules ((guix build utils))
-        #:builder
-        (begin
-          (use-modules (guix build utils))
-          (let ((source-prefix (string-append (assoc-ref %build-inputs "source")
-                                              "/dictionaries/"
-                                              ,dict-name
-                                              "/index"))
-                (install-prefix (string-append %output "/share/hunspell/")))
-            (mkdir-p install-prefix)
-            (copy-file (string-append source-prefix ".aff")
-                       (string-append install-prefix ,dict-name ".aff"))
-            (copy-file (string-append source-prefix ".dic")
-                       (string-append install-prefix ,dict-name ".dic"))))))
-    (synopsis    (string-append "Hunspell " dict-name " dictionary in UTF-8"))
-    (description (string-append "Hunspell " dict-name " dictionary in UTF-8"))
-    (license licenses:expat)
-    (home-page "https://github.com/wooorm/dictionaries")))
-
-(define cmucl
-  (package
-    (name "cmucl-binary")
-    (version "21b")
-    (source
-      (origin
-        (method url-fetch)
-        (uri (string-append "https://common-lisp.net/project/cmucl/downloads/release/"
-                            version
-                            "/cmucl-"
-                            version
-                            "-x86-linux.tar.bz2"))
-        (sha256
-          (base32 "13k3b5ygnbsq6n2i3r5i4ljw3r1qlskn2p5f4x9hrx6vfvbb3k7a"))))
-    (build-system trivial-build-system)
-    (arguments
-      `(#:modules ((guix build utils))
-        #:builder
-        (begin
-          (use-modules (guix build utils))
-          (let ((source (assoc-ref %build-inputs "source"))
-                (bin (string-append %output "/bin")))
-            (mkdir-p bin)
-            (copy-file (string-append source "/bin/lisp")
-                       (string-append bin "/lisp"))))))
-    (home-page "https://www.cons.org/cmucl/")
-    (synopsis "The CMU implementation of Common Lisp")
-    (description #"-
-      CMUCL is a free implementation of the Common Lisp programming language
-      which runs on most major Unix platforms.  It mainly conforms to the
-      ANSI Common Lisp standard."#)
-    (license licenses:public-domain)))
 
 ;; See:
 ;; https://github.com/NixOS/nixpkgs/issues/256704#issuecomment-1731626031
@@ -449,56 +133,6 @@ libraries/software/operating systems
     (description "TUI client for Telegram with vi-like bindings.")
     (license licenses:unlicense)))
 
-(define-public offpunk
-  (package
-    (name "offpunk")
-    (version "1.10")
-    (source
-      (origin
-        (method git-fetch)
-        (uri
-          (git-reference
-            (url "https://git.sr.ht/~lioploum/offpunk")
-            (commit
-              (string-append "v" version))))
-        (sha256
-          (base32 "0r8j01s3hdn3iq4ld6pj3v0h4hpakvkc4h55jzz7jr6az4y8lcgs"))))
-    (build-system pyproject-build-system)
-    (arguments
-      (list
-       #:tests? #f ; no tests
-       #:phases
-       #~(modify-phases %standard-phases
-           (add-before 'wrap 'wrap-path
-             (lambda* (#:key inputs outputs #:allow-other-keys)
-               (wrap-program (string-append #$output "/bin/offpunk")
-                 `("PATH" ":" prefix
-                   (,(string-append #$(this-package-input "less")      "/bin")
-                    ,(string-append #$(this-package-input "file")      "/bin")
-                    ,(string-append #$(this-package-input "xdg-utils") "/bin"))))))
-           (add-after 'install 'install-manpages
-             (lambda _
-               (install-file "man/offpunk.1"
-                             (string-append #$output "/share/man/man1")))))))
-    (inputs
-      (list
-       python-cryptography
-       python-requests
-       python-feedparser
-       python-beautifulsoup4
-       python-readability-lxml
-       python-flit
-       xdg-utils
-       file
-       less))
-    (synopsis
-     "Command-line browser/feed reader for Gemini, Gopher, Spartan and Web")
-    (description #"-
-      The goal of Offpunk is to be able to synchronise your content once
-      (a day, a week, a month) and then browse/organise it while staying
-      disconnected"#)
-    (home-page "https://git.sr.ht/~lioploum/offpunk")
-    (license licenses:bsd-2)))
 
 (define (slurp name)
   (string-trim-both
@@ -585,7 +219,6 @@ libraries/software/operating systems
             gawk
             bc
             nvi
-            patchelf
             universal-ctags
 
             man-pages
@@ -598,7 +231,6 @@ libraries/software/operating systems
             git:gui
             git-open
             git-remote-gcrypt
-            git-lfs
             mercurial
             fossil
             darcs
@@ -616,21 +248,16 @@ libraries/software/operating systems
             texinfo
             gnupg
             rsync
-            cryfs
             sshfs
             tree
             mailutils-sendmail
-            smartmontools
             pulseaudio
             password-store
             playerctl
             pinentry-gtk2
             diffoscope
-            disorderfs
-            reprotest
             bmake
             make
-            tup
             autoconf
             automake
             libtool
@@ -643,36 +270,17 @@ libraries/software/operating systems
             libgcrypt
             qbe
             cproc
-            doxygen
-            gperf
             blktrace
             readline
-            gmp
-            help2man
-            libtomcrypt
-            libtommath
-            lz4
             lokke
-            meson
-            ninja
-            sparse
-            ant
-            mpc
-            maven
             pkg-config
-            pkgconf
             fzf
             blueman
             pavucontrol
             ledger
             gnuplot
             bind:utils
-            arp-scan
-            tcpdump
-            nmap
-            stunnel
             netcat
-            siege
             curl
             curl:doc
             xclip
@@ -683,99 +291,41 @@ libraries/software/operating systems
             rlwrap
             direnv
             borg
-            khal
-            khard
-            libfaketime
-            qrencode
             feh
-            chafa
             sox
             xset
             graphviz
             moreutils
             shellcheck
-            gettext
             lilypond
             groff
             groff:doc
-            mandoc
             grap
             apl
             dyalog-apl
             ghostscript
             enscript
-            texlive-scheme-full
-            texlive-bin
             jq
-            xmlstarlet
-            recutils
             units
-            ncurses
             trash-cli
             lsof
             autojump
-            unzip
-            powertop
-            md4c
-            timidity++
-            cmark
-            cmake
-            makefile2graph
-            po4a
-            mdpo
-            gron
-            reptyr
-            qpdf
-            xpdf
             qpdf
             perf-tools
-            scdoc
-            rpm
-            pax-utils
-            dpkg
-            fakeroot
-            cpio
-            pv
-            httpd ;; for htpasswd
             acl
             attr
 
-            ;; for compiling ECL
-            libatomic-ops
-            libgc
-            libffi
-            ;; for compiling CLISP
-            libffcall
-            libsigsegv
-
             cryptsetup
             btrfs-progs
-            sysstat
-            rrdtool
-
-            flatpak
-            xdg-desktop-portal
 
-            sqlite
             clojure
             clojure-tools
             leiningen
-            openjdk@11
-            rename
-            mb2md
-            sharutils
             perl
-            perl-dbi
-            perl-dbd-sqlite
-            ;; perl-critic ; broken
             perl-json
-            perl-mojolicious
-            perl-regexp-grammars
             perl-commonmark
             perl-aliased
             perl-uri-escape
-            ruby
-            jupyter
             clinfo
             pocl
             opencl-icd-loader
@@ -785,53 +335,25 @@ libraries/software/operating systems
             python-pandas
             python-scikit-learn
             python
-            python-sphinx
-            python-sphinx-rtd-theme
             python-slixmpp
             python-unidecode
-            ;; python-yubikey-manager ; broken: bad dependency
             python-pytest-cov
             python-pytest-xdist
             python-requests
             python-beautifulsoup4
             python-docx
             python-telegram-bot
-            python-docutils
-            python-mkdocs
             valgrind
-            flex
-            bison
-            byacc
-            minicom
             gcc-toolchain
-            gdb
             cppcheck
-            clang-toolchain@14
+            clang
             tcc
-            fuse
             node
-            quickjs
-            m4
-            go
             xrandr
             arandr
-            fswatch
-            rust
-            rust:cargo
-            rust:tools
-            rust:rust-src
-            vala
-            tcl
-            expect
-            zig
-            openjdk:jdk
-            adb
-            sdkmanager
-
-            openssl
-            libsodium
 
             ;; Arduino
+            minicom
             python-pyserial
 
             sbcl
@@ -840,38 +362,6 @@ libraries/software/operating systems
             clisp
             ccl
             abcl
-            janet
-            kawa
-            chez-scheme
-            racket
-            chibi-scheme
-            ; chicken ; broken: conflicts with gcc-toolchain
-            gambit-c
-            gauche
-
-            dash
-            fish
-            rc
-            es
-            tcsh
-            zsh
-            oksh
-            loksh
-            mksh
-            oil
-            gash
-            nushell
-
-            gtk
-            gtk:bin
-            gtk:doc
-            glade
-            ; libglade ; broken: conflicts with zathura
-            cambalache
-            tk
-            qtbase
-            qtbase:debug
-            qtdeclarative
 
             tabbed
             st
@@ -883,121 +373,41 @@ libraries/software/operating systems
             brightnessctl
             xss-lock
 
-            libevent
-            weechat
-            qtox
-            telescope
-            imagemagick
-            ffmpeg
-            pandoc
-            mktorrent
-            jekyll
-            flac
-            mediainfo
             libnotify
             espeak-ng
             procps
             htop
-            btop
-            zenity
             util-linux
-            lightning
-            lmdb
-            bdb
-            guile
-            guile-colorized
-            guile-gcrypt
-            guile-git
-            guile-gnutls
-            guile-json
-            guile-lib
-            guile-lzlib
-            guile-ssh
-            guile-readline
-            guile-sqlite3
-            guile-zlib
             guile-heredoc
             gzip
             xz
-            bzip2
-            lzip
-            lzop
-            which
-            libxml2
             psmisc
             less
             nano
             patch
             youtube-dl
-
-            ;; for compiling netsurf
-            glib:bin
-            libcss
-            libdom
-            libnsutils
-            utf8proc
-
-            ;; for compiling neosurf
-            libpsl
-            libwebp
-
-            ;; ArchiveBox and some of its optional dependencies
-            ; archivebox ; broken
             ripgrep
 
-            ;; poezio ; broken
-            freetalk
-            mcabber
-            profanity
-            newsboat
-            mpv
             vlc
-            hicolor-icon-theme
-
-
             font-openmoji
-
             syncthing-gtk
-            kiwix-desktop
-            electrum
             keepassxc
-            ;; frescobaldi ; broken
             cheese      ; webcam
-            ;; zbar ; version conflict with qtbase ; scan QR code from webcam
             gpodder
-            gnome-disk-utility
             mate-calc
             telegram-desktop
             zathura
             zathura-djvu
             zathura-pdf-poppler
             zathura-ps
-            dino
-            poedit
             transmission
             transmission:gui
             audacity
-            inkscape
-            libreoffice
             quodlibet
-            filezilla
             icedove
             netsurf
             firefox))
-     (list ;; cmucl
-           ;; perl-critic
-           abuild
-           apk-tools
-           ;; neosurf
-           hunspell-iconv
-           tg
-           offpunk
-           (make-avr-toolchain)
-           (hunspell-dictionary-utf8 "en")
-           (hunspell-dictionary-utf8 "pt")
-           (hunspell-dictionary-utf8 "fr")
-           (hunspell-dictionary-utf8 "eo")
-           (hunspell-dictionary-utf8 "es")
+     (list tg
            (script "cronjob" (slurp (string-append (getenv "XDG_CONFIG_HOME")
                                                    "/sh/cronjob.sh"))))))
   (services