Compare commits

..

No commits in common. "47306b85c70f2c01135d52f221471dbe55d0fe28" and "8eb8bcacdf761e0ffe6e24a62f96e6e43a8fbfe1" have entirely different histories.

5 changed files with 11 additions and 39 deletions

View file

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

View file

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

View file

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

View file

@ -143,9 +143,6 @@
(blur-background-exclude (blur-background-exclude
(list '()) (list '())
"Exclude conditions for background blur") "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 (focus-exclude
(list '()) (list '())
"Specify a list of conditions of windows that should always be considered focused") "Specify a list of conditions of windows that should always be considered focused")

View file

@ -53,13 +53,4 @@ after it has been unlocked."
(mode-line) (mode-line)
(restore-from-file "default") (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) (swank:create-server :dont-close t)