Fix rincewind configuration

.dir-locals.el

@@ -12,6 +12,7 @@
   (outline-heading-end-regexp . ":\n")
   (outline-regexp . "##+"))
  (scheme-mode
+  (geiser-guile-binary . ("guix" "repl"))
   (projectile-project-compilation-cmd . "guix home build config.scm")
   (eval . (put 'eval-when 'scheme-indent-function 1))
   (eval . (put 'call-with-prompt 'scheme-indent-function 1))

GNUmakefile

@@ -163,6 +163,8 @@ endif
 check:
 	$(SCHEME_IMPLEMENTATION) --no-auto-compile test.scm
 
+new-dotfiles:
+
 # Local Variables:
 # outline-regexp: "##+"
 # End:

config.scm

@@ -1,3 +1,6 @@
 (add-to-load-path (dirname (current-filename)))
 
+(system* "make" "new-dotfiles")
+
+(load-from-path "secrets.scm")
 (load-from-path (string-append "oni/home/config/" (gethostname) ".scm"))

oni/home/config/common.scm

@@ -155,7 +155,8 @@
                           (user "slash")
                           (port 4511)
                           (extra-content "LocalForward 8090 localhost:8090
-LocalForward 2812 localhost:2812"))
+LocalForward 2812 localhost:2812
+LocalForward 19999 localhost:19999"))
                          (openssh-host
                           (name "rincewind")
                           (host-name "192.168.1.135")

oni/home/config/rincewind.scm

@@ -6,8 +6,6 @@
                           home-msmtp-configuration
                           msmtp-configuration
                           msmtp-account))
-  #:use-module ((gnu home services guix)
-                #:select (home-channels-service-type))
   #:use-module ((gnu home services gnupg)
                 #:select (home-gpg-agent-service-type
                           home-gpg-agent-configuration))
@@ -33,6 +31,8 @@
                 #:select (gforth))
   #:use-module ((gnu packages gnome)
                 #:select (hicolor-icon-theme))
+  #:use-module ((gnu packages librewolf)
+                #:select (librewolf))
   #:use-module ((gnu packages linux)
                 #:select (fakeroot))
   #:use-module ((gnu packages mail)
@@ -48,7 +48,8 @@
                           tree-sitter-json
                           tree-sitter-css))
   #:use-module ((gnu packages)
-                #:select (specification->package+output))
+                #:select (specification->package+output
+                          specification->package))
   #:use-module ((gnu services)
                 #:select (service
                           simple-service))
@@ -73,7 +74,8 @@
                           home-guile-service
                           home-xmodmap-service
                           home-openssh-service
-                          home-kitty-service))
+                          home-kitty-service
+                          home-channels-service))
   #:use-module ((oni home services autokey)
                 #:select (home-autokey-service-type))
   #:use-module ((oni home services copyq)
@@ -202,7 +204,8 @@
                           emacs-oni-yaml
                           emacs-oni-python
                           emacs-oni-git-commit
-                          emacs-oni-php))
+                          emacs-oni-php
+                          emacs-oni-web-mode))
   #:use-module ((oni packages inbox-size)
                 #:select (inbox-size))
   #:use-module ((oni packages mpd)
@@ -215,6 +218,9 @@
                 #:select (pick-random-wallpaper))
   #:use-module ((oni packages shutdown-rofi)
                 #:select (shutdown-rofi))
+  #:use-module ((oni packages snes-games)
+                #:select (snes-blackthorne
+                          snes-blackthorne-icons))
   #:use-module ((oni packages stumpwm)
                 #:select (stumpwm+swank))
   #:use-module ((oni packages terminals)
@@ -228,6 +234,11 @@
     `((with-branch . ,(string-append (package-name package) "=master"))))
    package))
 
+(define (with-source package source)
+  ((options->transformation
+    `((with-source . ,(format #f "~a=~a" (package-name package) source))))
+   package))
+
 (define rincewind-picom-service
   (service home-picom-service-type
            (home-picom-configuration
@@ -261,6 +272,10 @@
                  (specification->package+output "glibc-locales")
                  (specification->package+output "font-fantasque-sans")
                  (specification->package+output "font-comic-neue")
+                 (specification->package+output "font-dosis")
+                 (specification->package "zathura")
+                 (specification->package "zathura-ps")
+                 (specification->package "zathura-pdf-mupdf")
                  pick-random-wallpaper
                  notmuch-collect-tasks
                  notmuch-tag-mailinglists
@@ -331,6 +346,7 @@
                  emacs-nginx-mode
                  emacs-oni-git-commit
                  emacs-oni-php
+                 emacs-oni-web-mode
 
                  tree-sitter-bash
                  tree-sitter-scheme
@@ -346,7 +362,12 @@
                  ;; Might be needed for cetrificates
                  nss-certs
 
-                 tym))
+                 tym
+
+                 (with-source snes-blackthorne-icons
+                              (format #f "~a/pictures/icons/Blackthorne/blackthorne_icons.tar.gz" (getenv "HOME")))
+                 (with-source snes-blackthorne
+                              (format #f "~a/downloads/Blackthorne.7z" (getenv "HOME")))))
 
  (services
   (list
@@ -374,7 +395,7 @@
    ;;          (home-polybar-configuration
    ;;           (bar "rincewind")))
 
-   ;; (service home-kdeconnect-service-type)
+   (service home-kdeconnect-service-type)
    (service home-syncthing-service-type)
 
    (service home-emacs-service-type
@@ -516,18 +537,30 @@
 
    (service home-icecat-service-type
             (home-icecat-configuration
+             (package librewolf)
              (settings
               '(("extensions.pocket.enabled" #f)
                 ("view_source.editor.args" "--no-wait")
                 ("view_source.editor.external" #t)
                 ("view_source.editor.path" "/home/chelys/.guix-home/profile/bin/emacsclient")
+                ;; Visual modifications. Don't let websites pick the colors or
+                ;; the fonts, use mine instead.
+                ("browser.display.document_color_use" 2)
+                ("browser.display.use_document_fonts" 0)
                 ("browser.display.background_color" "#222424")
                 ("browser.display.foreground_color" "#bfbfbf")
-                ("browser.display.document_color_use" 2)
                 ("browser.anchor_color" "#ff9800")
                 ("browser.visited_color" "#0babab")
-                ("browser.display.use_document_fonts" 0)
                 ("browser.newtabpage.activity-stream.showWeather" #f)
+                ("font.default.x-western" "sans-serif")
+                ("font.minimum-size.x-western" 18)
+                ("font.name.monospace.x-western" "Fantasque Sans Mono")
+                ("font.name.sans-serif.x-western" "Dosis")
+                ;; Sadly, with this option on it won't accept my color
+                ;; modifications, so I turn it off, even though I would prefer
+                ;; being able to leave everything (except the forced light
+                ;; theme) on.
+                ("privacy.resistFingerprinting" #f)
                 ;; Change the accelerator key (modifier key for most keyboard
                 ;; shortcuts) to the super key (from control).
                 ("ui.key.accelKey" 91))))))))

oni/home/services/gnuzilla.scm

@@ -12,7 +12,8 @@
                           home-profile-service-type
                           home-files-service-type))
   #:use-module ((guix packages)
-                #:select (package?))
+                #:select (package?
+                          package-name))
   #:use-module ((guix gexp)
                 #:select (gexp
                           mixed-text-file))
@@ -49,7 +50,8 @@
   (list (home-icecat-configuration-package config)))
 
 (define (home-icecat-configuration-files config)
-  `((".mozilla/icecat/profiles.ini"
+  `((;; ,(string-append ".mozilla/" (package-name (home-icecat-configuration-package config)) "/profiles.ini")
+     ".librewolf/profiles.ini"
      ,(mixed-text-file
        "profiles.ini"
        "[Install4F96D1932A9F858E]\n"
@@ -65,7 +67,8 @@
        "[General]\n"
        "StartWithLastProfile=1\n"
        "Version=2\n"))
-    (".mozilla/icecat/default/user.js"
+    (;; ,(string-append ".mozilla/" (package-name (home-icecat-configuration-package config)) "/default/user.js")
+     ".librewolf/default/user.js"
      ,(mixed-text-file
        "user.js"
        (serialize-alist config (home-icecat-configuration-settings config))))))

oni/home/services/kdeconnect.scm

@@ -20,10 +20,20 @@
 
 (define (home-kdeconnect-shepherd-service config)
   (list
+   (shepherd-service
+    (documentation "Start kdeconnectd")
+    (provision '(kdeconnectd))
+    (auto-start? #t)
+    (start
+     #~(make-forkexec-constructor
+        (list #$(file-append (home-kdeconnect-configuration-package config) "/bin/kdeconnectd"))
+        #:log-file (format #f "~a/.local/var/log/kdeconnectd.log" (getenv "HOME"))))
+    (stop #~(make-kill-destructor)))
    (shepherd-service
     (documentation "Start kdeconnect")
     (provision '(kdeconnect))
-    (requirement '(statusbar))
+    (requirement '(kdeconnectd))
+    ;; (requirement '(statusbar))
     (auto-start? #t)
     (start
      #~(make-forkexec-constructor

oni/home/services/stumpwm.scm

@@ -19,6 +19,9 @@
                           home-profile-service-type
                           home-xdg-configuration-files-service-type
                           home-run-on-change-service-type))
+  #:use-module ((gnu home services shepherd)
+                #:select (home-shepherd-service-type
+                          shepherd-service))
   #:use-module ((guix gexp)
                 #:select (local-file
                           gexp
@@ -37,6 +40,9 @@
             home-stumpwm-stumptray-service-type
             home-stumpwm-stumptray-configuration))
 
+(define (serialize-integer field value)
+  "")
+
 (define-configuration/no-serialization home-stumpwm-extension
   (configurations
    (text-config '())
@@ -49,6 +55,9 @@
   (configurations
    (text-config '())
    "The configuration to apply.")
+  (startup-delay
+   (integer 10)
+   "The number of seconds to wait for stumpwm to start up.")
   (stumpish-package
    (package stumpish)
    "Package to use for setting Stumpish"))
@@ -75,6 +84,36 @@
   `(("files/.config/stumpwm/config"
      ,#~(system* #$(file-append stumpish "/bin/stumpish") "reload"))))
 
+;; (define (stumpwm-mode-line-service config)
+;;   (list (shepherd-service
+;;          (documentation "Try and find out if the stumpwm mode line is enabled.")
+;;          (provision '(stumpwm-mode-line statusbar))
+;;          (modules '((ice-9 textual-ports)
+;;                     (srfi srfi-1)))
+;;          (start
+;;           #~(lambda ()
+;;               (let loop ((attempts #$(home-stumpwm-configuration-startup-delay config)))
+;;                 (let* ((input+output (pipe))
+;;                        ;; Use the timeout command here to stop it.
+;;                        (pid (spawn "timeout" '("timeout" "1" "stumpish" "eval" "(print (let ((ml (stumpwm::head-mode-line (current-head)))) (and ml (not (eq (stumpwm::mode-line-mode ml) :hidden)))))")
+;;                                    #:output (cdr input+output))))
+;;                   (let ((result (string= "T" (string-trim-right (get-string-all (car input+output))))))
+;;                     (close-port (car input+output))
+;;                     (close-port (cdr input+output))
+;;                     (waitpid pid)
+;;                     (if result
+;;                         result
+;;                         (if (zero? attempts)
+;;                             (begin
+;;                               (format (current-error-port)
+;;                                       "Stumpwm mode line did not show up; giving up.\n")
+;;                               #f)
+;;                             (begin
+;;                               (sleep 1)
+;;                               (loop (- attemps 1))))))))))
+;;          (stop #~(lambda (_) #f))
+;;          (respawn? #f))))
+
 (define home-stumpwm-service-type
   (service-type
    (name 'home-stumpwm)
@@ -87,7 +126,11 @@
            home-stumpwm-config-files)
           (service-extension
            home-run-on-change-service-type
-           reload-stumpwm-config-gexp)))
+           reload-stumpwm-config-gexp)
+          ;; (service-extension
+          ;;  home-shepherd-service-type
+          ;;  stumpwm-mode-line-service)
+          ))
    (compose identity)
    (extend home-stumpwm-extensions)
    (default-value (home-stumpwm-configuration))

oni/packages/emacs-config.scm

@@ -932,3 +932,16 @@ Emacs")))
            emacs-xcscope))
     (synopsis "My configuration for php-mode.")
     (description "This package provides my configuration for editing PHP files.")))
+
+(define-public emacs-oni-web-mode
+  (package
+    (inherit emacs-oni-config)
+    (name "emacs-oni-web-mode")
+    (arguments
+     '(#:include '("oni-web\\.el$")))
+    (propagated-inputs
+     (list
+      emacs-web-mode
+      emacs-oni-flycheck))
+    (synopsis "My configuration for web-mode.")
+    (description "This package provides my configuration for editing Web template files.")))