ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Compare commits

base: ryuslash:806901b70d57526e52a3a3cc715fc2361980ba6d
Branches Tags
ryuslash:master
..
compare: ryuslash:47306b85c70f2c01135d52f221471dbe55d0fe28
Branches Tags
ryuslash:master

No commits in common. "806901b70d57526e52a3a3cc715fc2361980ba6d" and "47306b85c70f2c01135d52f221471dbe55d0fe28" have entirely different histories.
806901b70d ... 47306b85c7

3 changed files with 5 additions and 33 deletions
Show stats Expand all files Collapse all files

2
git/.config/git/config
View file

@ -5,5 +5,3 @@
xfuncname = "^\\*+ +(.+)" xfuncname = "^\\*+ +(.+)"
[diff "lisp"] [diff "lisp"]
xfuncname = "^[[:space:]]*?\\(def\\w+? ((\\w|-|'|:|=|<|>)+)" xfuncname = "^[[:space:]]*?\\(def\\w+? ((\\w|-|'|:|=|<|>)+)"
[sendemail]
sendmailcmd = /usr/bin/msmtp -t

6
oni/home/config/rincewind.scm
View file

@ -83,8 +83,7 @@
#:select (emacs-inkplate)) #:select (emacs-inkplate))
#:use-module ((oni packages emacs-config) #:use-module ((oni packages emacs-config)
#:select (emacs-oni-org-roam #:select (emacs-oni-org-roam
emacs-oni-vterm emacs-oni-vterm))
emacs-oni-elisp))
#:use-module ((oni packages hlwm-run-or-raise) #:use-module ((oni packages hlwm-run-or-raise)
#:select (hlwm-run-or-raise)) #:select (hlwm-run-or-raise))
#:use-module ((oni packages inbox-size) #:use-module ((oni packages inbox-size)
@ -181,7 +180,6 @@
emacs-guix emacs-guix
emacs-oni-org-roam emacs-oni-org-roam
emacs-oni-vterm emacs-oni-vterm
emacs-oni-elisp
gforth gforth
;; Might be needed for certain icons? ;; Might be needed for certain icons?
hicolor-icon-theme hicolor-icon-theme
@ -212,7 +210,7 @@
(list (list
(channel (channel
(name 'oni) (name 'oni)
(url "https://code.ryuslash.org/ryuslash/guix-packages.git") (url "https://git.sr.ht/~ryuslash/guix-packages")
(introduction (introduction
(make-channel-introduction (make-channel-introduction
"646573578b7adfbff415645fed201269076cebf6" "646573578b7adfbff415645fed201269076cebf6"

30
oni/home/services/stumpwm/config
View file

@ -16,16 +16,13 @@
(when (eq (sb-ext:process-status process) :exited) (when (eq (sb-ext:process-status process) :exited)
(run-hook *screen-unlocked-hook*))) (run-hook *screen-unlocked-hook*)))
(defun vpn-connected-p ()
(probe-file "/sys/class/net/vpn"))
(defcommand lock-screen () () (defcommand lock-screen () ()
"Lock the screen using i3lock. "Lock the screen using i3lock.
Run `*screen-locking-hook*' before locking it and run `*screen-unlocked-hook*' Run `*screen-locking-hook*' before locking it and run `*screen-unlocked-hook*'
after it has been unlocked." after it has been unlocked."
(run-hook *screen-locking-hook*) (run-hook *screen-locking-hook*)
(sb-ext:run-program (sb-ext:run-program
*shell-program* '("-c" "i3lock --nofork --color=000000") *shell-program* '("-c" "i3lock" "--nofork" "--color=000000")
:wait nil :wait nil
:status-hook #'run-screen-unlocked-hook)) :status-hook #'run-screen-unlocked-hook))
@ -45,35 +42,14 @@ after it has been unlocked."
(define-key *top-map* (kbd "s-b") "raise-browser") (define-key *top-map* (kbd "s-b") "raise-browser")
(define-key *top-map* (kbd "s-e") "raise-emacs") (define-key *top-map* (kbd "s-e") "raise-emacs")
(define-key *top-map* (kbd "s-t") "raise-terminal") (define-key *top-map* (kbd "s-t") "raise-terminal")
(define-key *top-map* (kbd "s-!") "exec rofi -show drun")
(define-key *top-map* (kbd "s-w") "exec rofi -show window")
(define-remapped-keys (define-remapped-keys
'(("teams-for-linux" '(("teams-for-linux"
("C-M-Break" . "C-S-m")))) ("C-M-Break" . "C-S-m"))))
(set-bg-color "#222424")
(set-border-color "#3f4242")
(set-fg-color "#bfbfbf")
(set-float-focus-color "#5b6161")
(set-float-unfocus-color "#3f4242")
(set-focus-color "#ff9800")
(set-unfocus-color "#3f4242")
(setf *mode-line-background-color* "#5b6161" (setf *mode-line-background-color* "#5b6161"
*mode-line-foreground-color* "#bfbfbf") *mode-line-foreground-color* "#bfbfbf"
(setf *screen-mode-line-format* *screen-mode-line-format* "[^B%n^b] %W^>%d")
(list " [^B%n^b] "
"^[^(:bg \"#f17272\")^(:fg \"#222424\") "
'(:eval
(or (ignore-errors (window-title (current-window)))
"Unknown"))
" ^]^>"
'(:eval
(if (vpn-connected-p)
"^*5^B[VPN]^b^n "
""))
"%d "))
(mode-line) (mode-line)
(restore-from-file "default") (restore-from-file "default")