dotfiles

dotfiles copied to clipboard

;; SPDX-License-Identifier: GPL-3.0-or-later ;; Copyright © 2021-2024 Nicolas Graves [email protected]

;; I embraced system crafting for long-term resilience and efficiency reasons. ;; This repository is a resource for cherry-picking code snippets and holds all ;; my configs, made clean and compact by RDE and GNU Guix.

;; To develop Guix/RDE rapidly, I use local repositories and tooling in ./make. ;; The commands are ./make pull/home/system/all, with guix's flags (e.g. -K).

;;; Channels (https://guix.gnu.org/manual/en/html_node/Channels.html#Channels)

;; Pin with the following commit field (TODO repare). ;; This allows to keep some previously working commits so that you can downgrade easily. ;; Tip: to sign commits when broken: `git --no-gpg-sign'

;;; Hardware/Host file systems ;; BTRFS + LUKS, see ./make. (define %host-features (list (feature-host-info #:host-name "guix" #:timezone "Europe/Paris" #:locale "fr_FR.utf8") (feature-hidpi)))

;; Privacy without GNUPG: currently using age with ssh and git commit signing. ;; TODO more details later. ;; Tip: sign outside git with ssh: `ssh-keygen -Y sign -n "file" -f /.ssh/id_ed25519_sk < "${file_to_sign}" > "${file_to_sign}.asc"'

(define %user-features (list (feature-age #:age-ssh-key (find-home "~/.local/share/ssh/id_encrypt")) ((@(rde features security-token) feature-security-token)) (feature-password-store #:remote-password-store-url "[email protected]:~ngraves/pass" #:default-pass-prompt? #t) (feature-user-info #:user-name "graves" #:full-name "Nicolas Graves" #:email "[email protected]" #:user-initial-password-hash "$6$zds6yx8zRvS3Oo7L$yM0SRwidUNhq3bsaqpvbizCQKhpJWqr5eWtzOQJYzH5jshGygfGn/apoZL6zVXYc5Yr9/TguaCRu9Sk5lEyKE0" #:emacs-advanced-user? #t) (feature-keyboard #:keyboard-layout (keyboard-layout "fr" "," #:options '("caps:escape")))))

;;; Window management (define sound-message-in (origin (method url-fetch) (uri "https://raw.githubusercontent.com/KDE/oxygen-sounds/master/sounds/Oxygen-Im-Message-In.ogg") (sha256 (base32 "1w16z9wddhv4qq68xqwlikhqq2nnfzq31cn07k3wmdynnvzvy3ah"))))

(define sound-message-out (origin (method url-fetch) (uri "https://raw.githubusercontent.com/KDE/oxygen-sounds/master/sounds/Oxygen-Im-Message-Out.ogg") (sha256 (base32 "1cdqazyflx5vfnaz1n1sfilrmhg2796spzaszjgjbcbrdwrhgx6c"))))

(define background (origin (method url-fetch) (uri "https://pour-un-reveil-ecologique.org/media/images/fond_pre.original.jpg") (file-name "fond_pre.jpg") (sha256 (base32 "03rn4fw9j31s7hl635q872hzxj4bj5m9hkjd4iqzl8z4lk0n9iiy"))))

(define %wm-features (list (feature-sway #:xwayland? #t #:extra-config `((bindsym --to-code (;; ($mod+w exec chromium --remote-debugging-port=9222) ;; ($mod+Shift+w exec chromium --incognito --remote-debugging-port=9222) ($mod+Shift+m exec killall mpv)))

  (exec wlsunset -l 48.86 -L 2.35 -T 6500 -t 3000)

  (workspace_auto_back_and_forth yes)
  (focus_follows_mouse no)
  (smart_borders on)
  (title_align center)

  (output * bg ,background fill)

#; (bindsym --to-code --no-repeat $mod+twosuperior exec ,(file-append (@ (gnu packages linux) pipewire) "/bin/pw-cat -p ") ,sound-message-in & ";" exec nerd-dictation begin --vosk-model-dir ,(file-append (package (name "vosk-model-fr") (version "0.22") (source (origin (method url-fetch/zipbomb) (uri (string-append "https://alphacephei.com/vosk/models/" name "-" version ".zip")) (sha256 (base32 "0ihy93n6m5v9q22ky2hs1yvavsck3l592ppgdkp9v7qvxbjk8v5j")))) (build-system (@(guix build-system copy) copy-build-system)) (arguments '(#:substitutable? #f)) (home-page "https://alphacephei.com/vosk/models") (synopsis "French model for vosk") (description "French model for vosk") (license (@(guix licenses) asl2.0))) "/vosk-model-fr-0.22/") --timeout 3 --delay-exit 2 --punctuate-from-previous-timeout 10 --full-sentence)

#; (bindsym --to-code --release $mod+twosuperior exec ,(file-append (@ (gnu packages linux) pipewire) "/bin/pw-cat -p ") ,sound-message-out && nerd-dictation end)

  (for_window "[app_id=\"^.*\"]" inhibit_idle fullscreen)
  (for_window
   "[title=\"^(?:Open|Save) (?:File|Folder|As).*\"]"
   floating enable, resize set width 70 ppt height 70 ppt)

  ;; (bindswitch --reload --locked lid:on exec /run/setuid-programs/swaylock)
  ;; (bindsym $mod+Shift+o ,#~"[floating]" kill)
  (input type:touchpad
         ;; TODO: Move it to feature-sway or feature-mouse?
         ( ;; (natural_scroll enabled)
          (tap enabled)))))

(feature-sway-run-on-tty #:sway-tty-number 1) (feature-sway-screenshot #:screenshot-key 'F10) (feature-waybar #:waybar-modules (list ;; (waybar-sway-workspaces) ;; (waybar-sway-window) (waybar-tray) (waybar-idle-inhibitor) (waybar-microphone) (waybar-volume) (waybar-temperature) (waybar-sway-language) (waybar-battery #:intense? #f) (waybar-clock)) #:base16-css (let* ((commit "d2f943b1abb9c9f295e4c6760b7bdfc2125171d2") (name "base16-default-dark.css")) (origin (method url-fetch) (uri (string-append "https://raw.githubusercontent.com/mnussbaum/base16-waybar/" commit "/colors/" name)) (sha256 (base32 "1dncxqgf7zsk39bbvrlnh89lsgr2fnvq5l50xvmpnibk764bz0jb"))))) (feature-swayidle) (feature-swaylock #:swaylock (@ (gnu packages wm) swaylock-effects) #:extra-config `((clock) ,#~(string-append "image=" #$(origin (method url-fetch) (uri "https://pour-un-reveil-ecologique.org/media/images/fond_lock_pre.original.jpg") (file-name "fond_lock_pre.jpg") (sha256 (base32 "1cyvaj0yvy6zvzy9yf1z6i629rwjcq3dni01phb599sp4n2cpa8g")))))) (feature-swaynotificationcenter)))

;;; Mail (define %mail-list (let ((passdir (find-home "~/.local/var/lib/password-store"))) (cons* "[email protected]" ; ensuring primary_email (delete "[email protected]" (map (lambda file (string-drop (string-drop-right (car file) (string-length ".age")) (+ 1 (string-length passdir)))) (find-files passdir "@[-a-z\.]+\.[a-z]{2,3}\.age$"))))))

(define (id->type id) (cond ((string=? id "neleves") 'enpc) ((string=? id "ngmx") 'gmx-fr) ((string=? id "ngmail") 'gmail) ((string=? id "epour-un-reveil-ecologique") 'ovh-pro2-fr) (#t 'ovh)))

(define (user->id user) (string-append (string-take user 1) (car (string-split (car (cdr (string-split user #@))) #.))))

(define* (single-mail-acc user) "Make a simple mail-account with ovh type by default." (let* ((id_ (user->id user))) (list (mail-account (id (string->symbol id_)) (fqda user) (type (id->type id_)) (pass-cmd (string-append "passage show " user " | head -1"))))))

(define %msmtp-provider-settings (acons 'enpc '((host . "boyer2.enpc.fr") (port . 465) (tls_starttls . off)) %default-msmtp-provider-settings))

(define* (mail-lst id fqda urls) "Make a simple mailing-list." (mailing-list (id id) (fqda fqda) (config (l2md-repo (name (symbol->string id)) (urls urls)))))

(define enpc-isync-settings (generate-isync-serializer "messagerie.enpc.fr" (@@ (rde features mail) generic-folder-mapping) #:cipher-string 'DEFAULT@SECLEVEL=1 #:pipeline-depth 1))

(define %isync-serializers (acons 'enpc enpc-isync-settings %default-isync-serializers))

(define %isync-global-settings `((Create Near) (Expunge Both) (SyncState *) (MaxMessages 0) (ExpireUnread no) ,#~""))

(define %mail-features (list (feature-mail-settings #:mail-accounts (append-map single-mail-acc %mail-list) #:mail-directory-fn (const (string-append (getenv "XDG_STATE_HOME") "/mail")) #:mailing-lists (list (mail-lst 'guix-devel "[email protected]" '("https://yhetil.org/guix-devel/0")) (mail-lst 'guix-bugs "[email protected]" '("https://yhetil.org/guix-bugs/0")) (mail-lst 'guix-patches "[email protected]" '("https://yhetil.org/guix-patches/1")))) (feature-msmtp #:msmtp-provider-settings %msmtp-provider-settings) (feature-isync #:mail-account-ids (append-map (lambda (x) (list (string->symbol (user->id x)))) %mail-list) #:isync-global-settings %isync-global-settings #:isync-serializers %isync-serializers #:isync-verbose #t) (feature-notmuch) (feature-l2md)))

;;; SSH (define-public (ssh-config id) (let* ((port (open-input-pipe (string-append "passage show ssh/ssh_" id " 2>/dev/null"))) (key (read-line-recutils port)) (ssh-user (read-line-recutils port "Username")) (uri (read-line-recutils port "URI")) (ssh-port (string->number (read-line-recutils port "Port"))) (hostkey (read-line-recutils port "HostKey"))) (close-pipe port) (openssh-host (name id) (host-name uri) (identity-file (string-append "~/.local/share/ssh/" key)) (port ssh-port) (user ssh-user))))

(define %ssh-feature (feature-ssh #:ssh-agent? #t #:ssh-configuration (home-openssh-configuration (add-keys-to-agent "yes") (known-hosts (list (local-file (find-home "~/.cache/ssh/known_hosts")))) (hosts (list (ssh-config "inari") (ssh-config "pre_site")))) #:ssh-add-keys '("~/.local/share/ssh/id_sign")))

;;; Emacs ;; TODO Find a way to clarify current organization with much less text, more code. ;; PARA method (https://fortelabs.com/blog/para/) with directories spheres/resources/projects/archives. ;; with resources managed with: see ./hooks/git-biblio-prepare-commit-msg

;; This requires https://lists.sr.ht/~abcdw/rde-devel/patches/44893 (define %org-agenda-custom-commands ''(("ca" "Custom: Agenda TODO [#A] items" ((org-ql-block '(and (todo "TODO") (priority "A")) ((org-ql-block-header "TODO : High-priority"))))) ("ct" "Custom: Agenda TODO items" ((org-ql-block '(todo "TODO") ((org-ql-block-header "TODO : All items")))))))

(define %extra-init-el `(;; .dir-locals.el management. ;; use rde style (buggy with eval). (dir-locals-read-from-dir "/home/graves/spheres/info/rde") (dir-locals-set-directory-class "/home/graves/spheres/info/dots" '/home/graves/spheres/info/rde) (dir-locals-set-class-variables '/home/graves/spheres/info/dots '((nil . ((eval . (progn (unless (boundp 'geiser-guile-load-path) (defvar geiser-guile-load-path '())) (make-local-variable 'geiser-guile-load-path) (add-to-list 'geiser-guile-load-path "/home/graves/spheres/info/nonguix") (add-to-list 'geiser-guile-load-path "/home/graves/spheres/info/rde/src") (add-to-list 'geiser-guile-load-path "/home/graves/spheres/info/guix"))))))) (dir-locals-set-directory-class "/home/graves/spheres/info/dots" '/home/graves/spheres/info/dots)

(defun format-xml ()
  "Format XML files using libxml2."
  (interactive)
  (shell-command-on-region
   1 (point-max)
   ,(file-append (@(gnu packages xml) libxml2) "/bin/xmllint --format -")
   (current-buffer) t))
;; pomodoro
(eval-when-compile (require 'org-pomodoro))
;; clocking
(setq org-clock-persist 'history)
(org-clock-persistence-insinuate)
(setq
 org-clock-persist-file
 (concat (or (getenv "XDG_CACHE_HOME") "~/.cache")
         "/emacs/org-clock-save.el"))
;; clocking in the task when setting a timer on a task
(add-hook 'org-timer-set-hook 'org-clock-in)

;; origami
(eval-when-compile (require 'origami))

;; html email and elfeed
(setq shr-current-font "Iosevka")

;; help in learning keybindings
(global-set-key (kbd "s-?") (lambda () (interactive) (embark-bindings t)))

;; fast smartparens toggle
(global-set-key (kbd "s-)") 'smartparens-strict-mode)

;; don't save command-history, can be very big and not that useful
(add-to-list 'savehist-ignored-variables 'command-history)

;; bibliography
(setq citar-library-file-extensions '("pdf.lz" "pdf" "docx.lz"))
(require 'f)
(setq biblio-bibtex-use-autokey t)
(setq bibtex-autokey-year-title-separator "_")
(setq bibtex-autokey-year-length 4)
(defun refresh-gen-biblio ()
  "Regenerates the generated gen.bib file based on the list in dois.txt."
  (interactive)
  (with-temp-file "/tmp/retrieved_dois.txt"
                  (maphash
                   (lambda (k v)
                     (insert
                      (concat (cdr (car v)) "\n")))
                   (parsebib-parse "~/resources/gen.bib"
                                   :fields '("doi"))))
  (with-temp-buffer
   (let ((biblio-synchronous t))
     (mapcar (lambda (x) (biblio-doi-insert-bibtex x))
             (cl-set-exclusive-or
              (s-split "\n" (f-read "~/resources/dois.txt") t)
              (s-split "\n" (f-read "/tmp/retrieved_dois.txt") t)
              :test 'string-equal-ignore-case)))
   (append-to-file nil nil "~/resources/gen.bib")))))

(define %additional-elisp-packages (cons* ;; (@(rde packages emacs-xyz) emacs-git-email-latest) (package (inherit emacs-biblio) (arguments (list #:phases #~(modify-phases %standard-phases (add-after 'unpack 'configure-const (lambda _ (substitute* "biblio-doi.el" (("text\/bibliography;style=bibtex, application\/x-bibtex") "application/x-bibtex")))))))) ;; (let ((commit "24164db7c323488fabd72d5f725254721f309573") ;; (revision "0")) ;; (package ;; (inherit (@(nongnu packages emacs) emacs-org-roam-ui)) ;; (name "emacs-org-roam-ui") ;; (version (git-version "0" revision commit)) ;; (source ;; (origin ;; (method git-fetch) ;; (uri (git-reference ;; (url "https://github.com/org-roam/org-roam-ui") ;; (commit commit))) ;; (file-name (string-append name "-" version "-checkout")) ;; (sha256 ;; (base32 ;; "1jfplgmx6gxgyzlc358q94l252970kvxnig12zrim2fa27lzmpyj")))))) (hidden-package (@ (gnu packages guile) guile-next)) (hidden-package (@ (gnu packages guile-xyz) guile-ares-rs)) (strings->packages "emacs-hl-todo" "emacs-consult-dir" "emacs-arei" "emacs-consult-org-roam" "emacs-restart-emacs" "emacs-csv-mode" "emacs-org-glossary" ;; "emacs-macrostep" ;; "emacs-ibrowse" "emacs-link-hint" ;; "emacs-forge" "emacs-origami-el" "emacs-emojify" "emacs-wgrep" ;; "emacs-flycheck-package" ;; "python-lsp-server" "emacs-shackle" "emacs-combobulate" "emacs-org-pomodoro")))

(define %emacs-features (list ((@(rde features emacs) feature-emacs) #:default-application-launcher? #t) (feature (name 'emacs-custom) (home-services-getter (const (list (simple-service 'emacs-extensions home-emacs-service-type (home-emacs-extension (init-el %extra-init-el) (elisp-packages %additional-elisp-packages))))))) (feature-emacs-message) (feature-emacs-appearance) (feature-emacs-modus-themes #:deuteranopia? #f) (feature-emacs-completion) (feature-emacs-corfu) (feature-emacs-vertico) (feature-emacs-project) (feature-emacs-pdf-tools) (feature-emacs-nov-el) (feature-emacs-comint) (feature-emacs-webpaste) (feature-emacs-help) (feature-emacs-all-the-icons) (feature-emacs-debbugs) (feature-emacs-flymake) (feature-emacs-xref) (feature-emacs-info) (feature-emacs-spelling #:spelling-program (@ (gnu packages hunspell) hunspell) #:spelling-dictionaries (strings->packages "hunspell-dict-en" "hunspell-dict-fr"))

(feature-emacs-tramp) (feature-emacs-dirvish #:attributes '(file-size)) (feature-emacs-eshell) (feature-emacs-monocle #:olivetti-body-width 120)

(feature-emacs-telega) (feature-emacs-git) (feature-emacs-org #:org-directory "~" #:org-todo-keywords '((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d!)") (sequence "|" "HOLD(h)")) ; waiting for someone to be ationable again #:org-tag-alist '((:startgroup) ;; Put mutually exclusive tags here (:endgroup) ("@home" . ?H) ("@work" . ?W) ("batch" . ?b) ; batchable task ("manage" . ?m) ; I'm responsible for the rythm of others ("organize" . ?o) ; better organization ("followup" . ?f))) ; someone is waiting on me to follow up

(feature-emacs-org-agenda #:org-agenda-appt? #t #:org-agenda-custom-commands %org-agenda-custom-commands #:org-agenda-files "/home/graves/.cache/emacs/org-agenda-files") (feature-emacs-smartparens #:show-smartparens? #t) (feature-emacs-eglot) (feature-emacs-geiser) (feature-emacs-graphviz) (feature-emacs-guix #:guix-directory "/home/graves/spheres/info/guix") (feature-emacs-tempel #:default-templates? #t)

(feature-emacs-meow) (feature-emacs-undo-fu-session) (feature-emacs-elfeed #:elfeed-org-files '("~/resources/feeds.org")) (feature-emacs-org-protocol) ;; This requires https://lists.sr.ht/~abcdw/rde-devel/patches/49336 (feature-emacs-org-ql) (feature-emacs-org-agenda-files-track) (feature-emacs-org-dailies #:org-dailies-directory "~/spheres/life/journal/" #:org-roam-dailies? #f) (feature-emacs-org-roam #:org-roam-directory "~/resources/roam/" #:org-roam-capture-templates ;resource template is provided by citar '(("m" "main" plain "%?" :if-new (file+head "main/${slug}.org" "#+title: ${title}\n") :immediate-finish t :unnarrowed t)))

(feature-emacs-citation #:citar-library-paths (list "~/resources/files/library") #:citar-notes-paths (list "~/resources/roam/references") #:global-bibliography (list "~/resources/biblio.bib" "~/resources/gen.bib"))

(feature-emacs-treebundel #:treebundel-workspace-root "~/spheres/info/")

(feature-go) ((@ (rde features guile) feature-guile)) (feature-python #:black? #t)

(feature-emacs-elisp) (feature-emacs-power-menu) (feature-emacs-shell)))

;;; Main features

(define %main-features (append (list (feature-custom-services #:feature-name-prefix 'channels #:system-services (list (service (@ (gnu services cups) cups-service-type))) #:home-services (list (simple-service 'shell-authorized-directories home-xdg-configuration-files-service-type `(("guix/shell-authorized-directories" ,(local-file (find-home "~/.local/share/guix/shell-authorized-directories")))))))

(feature-postgresql
 #:postgresql-roles
 (list (postgresql-role (name "manifesto") (create-database? #t))))

(feature-desktop-services)
(feature-backlight #:step 5)
(feature-pipewire)
(feature-networking)

(feature-fonts
 #:default-font-size 14
 #:extra-font-packages
 (list font-gnu-unifont font-liberation
       (@ (odf-dsfr packages fonts) font-marianne)))

(feature-foot
 #:default-terminal? #f
 #:backup-terminal? #t)
(feature-vterm)
(feature-zsh #:enable-zsh-autosuggestions? #t)
(feature-bash)
;; ((@(rde features bittorrent) feature-transmission))

(feature-compile)
(feature-direnv)

((@(rde features version-control) feature-git)
 #:sign-commits? #t
 #:git-sign-key
 "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAINd9BmbuU3HS6pbCzCe1IZGxaHHDJERXpQRZZiRkfL3a"
 #:git-send-email? #t)

(feature-ledger)
(feature-markdown)
(feature-tex)
;; (feature-mpv)
(feature-yt-dlp)
(feature-imv)
((@(rde features libreoffice) feature-libreoffice))

((@(rde features tmux) feature-tmux))
;; (feature-ungoogled-chromium #:default-browser? #t)
(feature-librewolf
 #:browser (hidden-package (@ (nongnu packages mozilla) firefox)))
(feature-nyxt)
(feature-emacs-nyxt)
((@(rde features lisp) feature-lisp))
((@(rde features nyxt-xyz) feature-nyxt-blocker))

(feature-xdg
 #:xdg-user-directories-configuration
 (home-xdg-user-directories-configuration
  (download "~/.local/share/downloads")
  (videos "~/archives/videos")
  (music "~/archives/music")
  (pictures "~/archives/img")
  (documents "~/resources")
  (desktop "~")
  (publicshare "~")
  (templates "~")))

(feature-base-packages
 #:home-packages
 (cons*

#; (package (inherit (@ (gnu packages machine-learning) llama-cpp)) (name "llama") (native-inputs '()) (inputs (list (@ (gnu packages bash) bash) (@ (gnu packages machine-learning) llama-cpp))) (build-system (@ (guix build-system trivial) trivial-build-system)) (arguments (list #:modules '((guix build utils)) #:builder #~(begin (use-modules (guix build utils)) (let* ((exe (string-append #$output "/bin/interactive-llama")))

            (mkdir-p (dirname exe))

            (call-with-output-file exe
              (lambda (port)
                (format port "#!~a

~a -m ~a
--color
--ctx_size 2048
-n -1
-ins -b 256
--top_k 10000
--temp 0.2
--repeat_penalty 1.1
-t 8" #$(file-append (this-package-input "bash") "/bin/bash") #$(file-append (this-package-input "llama-cpp") "/bin/llama") #$(let ((model "llama-2-13b-chat.ggmlv3.q5_1.bin")) (origin (method url-fetch) (uri (string-append "https://huggingface.co/TheBloke/Llama-2-13B-chat-GGML/resolve/main/" model)) (sha256 (base32 "0xpy7mz52pp48jw20cv24p02dsyn0rsjxj4wjp3j6hrnbb6vxncp"))))))) (chmod exe #o555)))))) (@ (gnu packages tree-sitter) tree-sitter-python) (hidden-package (@ (gnu packages python-xyz) python-lsp-server)) (hidden-package (@ (gnu packages version-control) git-lfs)) (strings->packages "hicolor-icon-theme" "adwaita-icon-theme" ; themes "alsa-utils" ; sound "bluez" ; bluetooth "ffmpeg" ; video "rsync" "zip" "thunar" ; documents "wev" "wlsunset" "cage" ; wayland "recutils" "curl" "jq" "htop" ; utils "btrbk" ; snapshot btrfs subvolumes "atool" "unzip" ; provides generic extract tool aunpack ;; "nerd-dictation-sox-wtype" )))) %wm-features %emacs-features %mail-features (list %ssh-feature)))

;;; rde-config and helpers for generating home-environment and ;;; operating-system records.

(rde-config (features (append (list %nonguix-feature) ;; defined in make. %user-features %main-features %host-features (get-hardware-features)))) ;; defined in make.

;;; Installation

;; More info : https://guix.gnu.org/manual/en/html_node/System-Installation.html ;; https://wiki.systemcrafters.cc/guix/nonguix-installation-guide

;; Building the installation image: `guix system image make'

;; Sending to USB stick: `sudo dd if=/gnu/store/{sha256}-disk-image of=/dev/sdX bs=1M status=progress'

;; Boot --> shell process --> Wifi: `rfkill unblock all && nmtui'

;; Setup partitions : `fdisk /dev/sda' (see https://guix.gnu.org/manual/en/guix.html#Disk-Partitioning)

;; Setup encryption : ;; mkfs.vfat -F32 /dev/<EFI partition> ;; cryptsetup luksFormat /dev/ ;; cryptsetup open --type luks /dev/ enc ;; mkfs.btrfs /dev/mapper/enc ;; mount LABEL=enc /mnt # or mount -t btrfs /dev/mapper/enc /mnt ;; btrfs subvolume create /mnt/root ;; btrfs subvolume create /mnt/boot ;; btrfs subvolume create /mnt/home ;; btrfs subvolume create /mnt/store ;; btrfs subvolume create /mnt/data ;; btrfs subvolume create /mnt/log ;; btrfs subvolume create /mnt/lib ;; btrfs subvolume create /mnt/guix ;; btrfs subvolume create /mnt/NetworkManager ;; btrfs subvolume create /mnt/btrbk_snapshots ;; btrfs subvolume create /mnt/spheres ;; btrfs subvolume create /mnt/projects ;; btrfs subvolume create /mnt/resources ;; btrfs subvolume create /mnt/archives ;; btrfs subvolume create /mnt/zoom ;; btrfs subvolume create /mnt/local ;; btrfs subvolume create /mnt/cache ;; btrfs subvolume create /mnt/mozilla ;; btrfs subvolume create /mnt/swap ;; umount /mnt ;; mount -o subvol=root /dev/mapper/enc /mnt ;; mkdir -p /mnt/home ;; mkdir -p /mnt/gnu/store ;; mkdir -p /mnt/data ;; mkdir -p /mnt/var/log ;; mkdir -p /mnt/var/lib ;; mkdir -p /mnt/var/guix ;; mkdir -p /mnt/etc/NetworkManager ;; mkdir -p /mnt/btrbk_snapshots ;; mkdir -p /mnt/boot ;; mount -o compress=zstd,discard,subvol=home /dev/mapper/enc /mnt/home ;; mount -o compress=zstd,discard,subvol=store /dev/mapper/enc /mnt/gnu/store ;; mount -o compress=zstd,discard,subvol=data /dev/mapper/enc /mnt/data ;; mount -o compress=zstd,discard,subvol=log /dev/mapper/enc /mnt/var/log ;; mount -o compress=zstd,discard,subvol=lib /dev/mapper/enc /mnt/var/lib ;; mount -o compress=zstd,discard,subvol=guix /dev/mapper/enc /mnt/var/guix ;; mount -o compress=zstd,discard,subvol=etc/NetworkManager /dev/mapper/enc /mnt/etc/NetworkManager ;; mount -o compress=zstd,discard,subvol=btrbk_snapshots /dev/mapper/enc /mnt/btrbk_snapshots ;; mount -o compress=zstd,discard,subvol=boot /dev/mapper/enc /mnt/boot ;; mkdir -p /mnt/boot/efi ;; mount /dev/<EFI partition> /mnt/boot/efi ;; btrfs filesystem mkswapfile --size 4g --uuid clear /mnt/swap/swapfile ;; mount -o nodatacow,nodatasum,subvol=swap /dev/mapper/enc /mnt/swap ;; swapon /mnt/swap/swapfile

;; Setup installation environment : `herd start cow-store /mnt'

;; Pull: `guix pull -C /etc/channels && hash guix' ; TODO Update

;; Find encrypted partition UUIDs for configuration: `cryptsetup luksUUID /dev/'

;; Init installation: `guix system -L ~/.dotfiles/.config/guix/systems init path/to/config /mnt' ; TODO Update

;; Reboot --> passwd' --> passwd '

;; Adapt configuration until you reach what you want.

;;; Future ideas ;; - learning panel with org-roam/org-drill ;; - proper clocking / pomodoro ;; - email workflow integration ;; - larbs: replicate dmenumount / dmenuumount functionality ;; - larbs: replicate linkhandler / menuhandler functionality ;; embark does a lot. tweak ffap-menu, link-hint and embark-open-externally. ;; - larbs: mail notification / inbox ;; - larbs: sb-nettraf / or vnstat? ;; - age integration or sequoia. ;; - OVH email aliases. ;; - maybe switch to programmer-beop: `https://github.com/luxcem/programmer-beop' ;; - vterm evil-mode integration. see in commit 0981704751f201eaf4e852421ae8fd7d1ffa7dd9

;;; Currently abandonned: ;; - system-connection services. see commit log.

;; Local Variables: ;; mode: scheme ;; fill-column: 80 ;; compilation-arguments: ("./make all -K" t nil nil) ;; End: