feat(rincewind): Install some packages in my home from profile

These packages were installed in my default profile using ‘guix package -i’.
Since I'm using Guix home the setup of my default profile is a bit odd at the
moment, so since these seem to be here to stay for the moment I figured I should
install them in my home profile.

git/.config/git/config

@@ -2,6 +2,6 @@
     name = Tom Willemse
     email = tom@ryuslash.org
 [diff "org"]
-      xfuncname = "^\\*+ *(.*)"
+      xfuncname = "^\\*+ +(.+)"
 [diff "lisp"]
       xfuncname = "^[[:space:]]*?\\(def\\w+? ((\\w|-|'|:|=|<|>)+)"

oni/home/config/common.scm

@@ -125,7 +125,7 @@
   (service home-openssh-service-type
            (home-openssh-configuration
             (hosts (list (openssh-host
-                          (name "ryuslash")
+                          (name "ryuslash.org")
                           (host-name "ryuslash.org")
                           (user "slash")
                           (port 4511)

oni/home/config/rincewind.scm

@@ -3,16 +3,25 @@
                 #:select (home-channels-service-type))
   #:use-module ((gnu home)
                 #:select (home-environment))
+  #:use-module ((gnu packages certs)
+                #:select (nss-certs))
   #:use-module ((gnu packages emacs)
                 #:select (emacs-next))
   #:use-module ((gnu packages emacs-xyz)
-                #:select (emacs-litable
+                #:select (emacs-org-roam
-                          emacs-org-roam
+                          emacs-vterm
-                          emacs-vterm))
+                          emacs-guix))
   #:use-module ((gnu packages file-systems)
                 #:select (tmsu))
+  #:use-module ((gnu packages forth)
+                #:select (gforth))
+  #:use-module ((gnu packages gnome)
+                #:select (hicolor-icon-theme))
   #:use-module ((gnu packages linux)
                 #:select (fakeroot))
+  #:use-module ((gnu packages mail)
+                #:select (notmuch
+                          emacs-notmuch))
   #:use-module ((gnu packages music)
                 #:select (easytag))
   #:use-module ((gnu packages video)
@@ -117,7 +126,6 @@
              '("name = 'mowedline'"
                "class_g = 'trayer'"
                "bounding_shaped"
-               "class_g = 'xfreerdp'"
                "class_g = 'i3lock'"))
             (wintypes
              '((dnd (shadow . #f))
@@ -127,6 +135,9 @@
             (active-opacity 95)
             (frame-opacity 100)
             (inactive-opacity-override #t)
+            (opacity-rule
+             '("100:name *?= '(Meeting) | Microsoft Teams'"
+               "100:name *?= 'freerdp'"))
             (blur-background #t)
             (blur-background-frame #t)
             (blur
@@ -135,16 +146,13 @@
             (blur-background-fixed #t)
             (blur-background-exclude
              '("name *= 'rofi'"
-               "class_g = 'xfreerdp'"
                "class_g = 'i3lock'"))
             (focus-exclude
              '("name *= 'rofi'"
-               "class_g = 'xfreerdp'"
                "class_g = 'i3lock'"))
             (fading #t)
             (fade-exclude
-             `("class_g = 'xfreerdp'"
+             `("class_g = 'i3lock'"))
-               "class_g = 'i3lock'"))
             (fade-in-step 3)
             (fade-out-step 3))))
 
@@ -165,10 +173,18 @@
                  fakeroot               ; Needed for build arch packages
                  tmsu
                  mpd-random-albums
+                 notmuch
+                 emacs-notmuch
                  emacs-inkplate
                  emacs-outli
+                 emacs-guix
                  emacs-oni-org-roam
-                 emacs-oni-vterm))
+                 emacs-oni-vterm
+                 gforth
+                 ;; Might be needed for certain icons?
+                 hicolor-icon-theme
+                 ;; Might be needed for cetrificates
+                 nss-certs))
 
  (services
   (list

oni/home/services/picom.scm

@@ -143,6 +143,9 @@
   (blur-background-exclude
    (list '())
    "Exclude conditions for background blur")
+  (opacity-rule
+   (list '())
+   "Specify a list of opacity rules, in the format PERCENT:PATTERN, like 50:name *= \"Firefox\".")
   (focus-exclude
    (list '())
    "Specify a list of conditions of windows that should always be considered focused")

oni/home/services/stumpwm/config

@@ -53,4 +53,13 @@ after it has been unlocked."
 (mode-line)
 
 (restore-from-file "default")
+
+(define-frame-preference "Default"
+  (0 t nil :class "kitty")
+  (1 t nil :class "Emacs")
+  (3 t nil :class "firefox"))
+
+(define-frame-preference "teams"
+  (0 t t :class "teams-for-linux" :create t))
+
 (swank:create-server :dont-close t)