dev.fron.io rc / 3649eff
miscellaneous updates Tony Olagbaiye 5 months ago
6 changed file(s) with 75 addition(s) and 51 deletion(s). Raw diff Collapse all Expand all
2424 "897c1a470da759236cc11798f4e0a5f7d4d59fbc"
2525 (openpgp-fingerprint
2626 "2A39 3FFF 68F4 EF7A 3D29 12AF 6F51 20A0 22FB B2D5"))))
27 (channel
28 (name rde)
29 (url "https://git.sr.ht/~abcdw/rde")
30 (introduction
31 (make-channel-introduction
32 "257cebd587b66e4d865b3537a9a88cccd7107c95"
33 (openpgp-fingerprint
34 "2841 9AC6 5038 7440 C7E9 2FFA 2208 D209 58C1 DEB0"))))
2735 ;(channel
2836 ; (name keys)
2937 ; (url "/gnu/secrets")
3038 ; (branch "inert"))
3139 (channel
32 (name rde)
33 (url "https://git.sr.ht/~abcdw/rde"))
34 (channel
3540 (name zaijab)
3641 (url "https://github.com/zaijab/guix-channel")))
3742 (url "https://github.com/bqv/rc.git"))
5757
5858 # Volume
5959 bindsym $mod+Shift+v exec termite -e pulsemixer
60
61 # Editor
62 unbindsym $mod+e
63 bindsym $mod+e exec emacsclient -c
6064
6165 # $mod+LMB for dragging
6266 floating_modifier $mod normal
146150 bindsym $mod+x layout stacking
147151 unbindsym $mod+w
148152 bindsym $mod+z layout tabbed
149 unbindsym $mod+e
150153 bindsym $mod+c layout toggle split
151154
152155 # Make the current focus fullscreen
1111
1212 (define (use-emacs-services services)
1313 (cons*
14 ;(simple-service 'emacs-profile-service home-profile-service-type
15 ; (map (let ()
16 ; (define (with-emacs pkg)
17 ; (package
18 ; (inherit pkg)
19 ; (native-inputs
20 ; (assoc-set!
21 ; (package-native-inputs pkg)
22 ; "emacs" (list (delayed 'emacs))))))
23 ; (package-mapping with-emacs
24 ; (lambda (p)
25 ; (not (string-prefix-ci? "emacs-" (package-name p))))
26 ; #:deep? #f))
27 ; (list)))
2814 (service home-emacs-service-type
2915 (home-emacs-configuration
3016 (package emacs-pgtk-native-comp)
119105 emacs-git-timemachine ; git-timemachine.nix
120106 ;emacs-gnus ; gnus.nix
121107 emacs-go-mode ; go-mode.nix
108 emacs-guix
122109 emacs-haskell-mode ; haskell-mode.nix
123110 ;emacs-hc-zenburn-theme ; hc-zenburn-theme.nix
124111 emacs-helm ; helm.nix
249236 (add-hook 'prog-mode-hook
250237 (lambda () (setq show-trailing-whitespace t)))
251238
252 (load-theme 'modus-vivendi t)))
239 (load-theme 'modus-vivendi t)
240
241 (defvar bootstrap-version)
242 (let ((bootstrap-file
243 (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
244 (bootstrap-version 5))
245 (unless (file-exists-p bootstrap-file)
246 (with-current-buffer
247 (url-retrieve-synchronously
248 "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
249 'silent 'inhibit-cookies)
250 (goto-char (point-max))
251 (eval-print-last-sexp)))
252 (load bootstrap-file nil 'nomessage))
253 (straight-use-package 'use-package)
254
255 (use-package modular-config
256 :straight t
257 :custom
258 (modular-config-list '(
259 ;(minimal (core appearance))
260 ;(mail (core vi mail appearance helm space emoji not-org mail gnus begin-mail))
261 ;(news (begin-news core vi helm space web appearance helm core-post not-org))
262 ;;; core web org emoji
263 ;(tracking (core vi space appearance org begin-tracking not-org))
264 ;(programming (core appearance ivy org programming vc))
265 ;(org (core vi space begin-org appearance completion files web finance helm vc programming custom server auto language-server shell help projects subtitles dashboard core-post org afterload wakatime music modeline))
266 ;(chat (core appearance space vi irc slack begin-chat))
267 ;(orgtest (org))
268 ;(wm (wm))
269 ;(doom (org doom))
270 ;(utilities (core))
271 ;(main (core appearance programming emoji ivy web org finance news mail documents server space workspace dashboard core-post))
272 (none ())))
273 (modular-config-default 'none)
274 (modular-config-path "~/.emacs.d/lisp")
275 :config
276 (modular-config-command-line-args-process))))
253277 ;(early-init-el
254278 ; `(,(slurp-file-gexp (local-file "~/.emacs.d/early-init.el"))))
255279 ;;; TODO: Rebuilding packages with emacs will be useful for
88 #:use-module (rc utils)
99 #:use-module (gnu system)
1010 #:use-module (gnu services)
11 #:use-module (gnu services base)
1112 #:use-module (gnu services shepherd)
1213 #:use-module (gnu home)
1314 #:use-module (rc home)
2829 #:use-module (gnu packages chromium)
2930 #:use-module (gnu packages dvtm)
3031 #:use-module (gnu packages emacs)
32 #:use-module (gnu packages fonts)
3133 #:use-module (gnu packages freedesktop)
3234 #:use-module (gnu packages irc)
3335 #:use-module (gnu packages linux)
3436 #:use-module (gnu packages messaging)
3537 #:use-module (gnu packages ncurses)
3638 #:use-module (gnu packages package-management)
39 #:use-module (gnu packages password-utils)
3740 #:use-module (gnu packages pulseaudio)
3841 #:use-module (gnu packages python)
3942 #:use-module (gnu packages qt)
4043 #:use-module (gnu packages shells)
4144 #:use-module (gnu packages shellutils)
45 #:use-module (gnu packages skarnet)
4246 #:use-module (gnu packages suckless)
4347 #:use-module (gnu packages task-management)
4448 #:use-module (gnu packages terminals)
5256 #:use-module (rc packages discord)
5357 #:use-module (rc packages minecraft)
5458 #:use-module (rc packages pipewire)
59 #:use-module (rc packages font-twitter-emoji)
5560 #:use-module ((rc packages zsh) #:prefix zsh-)
5661 #:export (env))
5762
114119 dino profanity poezio gajim-full gajim-omemo gajim-openpgp
115120 ncurses termite alacritty st dvtm-custom abduco-custom tmate
116121 alsa-utils pavucontrol pulsemixer
117 taskwarrior mako adb fastboot
122 taskwarrior mako adb fastboot password-store execline direnv
123 font-dejavu font-twitter-emoji font-google-noto font-awesome
118124 flatpak steam multimc))
119125 (services
120126 (cons*
225225 (nftables-configuration
226226 (ruleset
227227 (plain-file "ruleset"
228 (let ((unlines
229 (lambda* (#:rest l)
230 (string-join l "\n"))))
231 (unlines
232 "table inet filter {"
233 (unlines
234 "chain input {"
235 (unlines
236 "type filter hook input priority filter; policy drop;"
237 "ct state invalid drop"
238 "ct state { established, related } accept"
239 "iifname \"lo\" accept"
240 "ip protocol icmp accept"
241 "ip6 nexthdr ipv6-icmp accept"
242 "tcp dport 22 accept"
243 "udp dport 60000-65535 accept"
244 "accept");"reject")
245 "}")
246 (unlines
247 "chain forward {"
248 (unlines
249 "type filter hook forward priority filter; policy drop;")
250 "}")
251 (unlines
252 "chain output {"
253 (unlines
254 "type filter hook output priority filter; policy accept;")
255 "}")
256 "}"))))))
228 (@ (rc keys nftables) %ruleset)))))
257229 (simple-service 'weechat shepherd-root-service-type
258230 (list (shepherd-service
259231 (documentation "Run the weechat daemon.")
00 (define-module (rc system epsilon)
11 #:use-module ((gnu services) #:hide (delete))
22 #:use-module (gnu packages linux)
3 #:use-module (gnu system)
4 #:use-module (gnu system file-systems)
5 #:use-module (gnu system keyboard)
6 #:use-module (gnu system linux-initrd)
37 #:use-module (gnu system locale)
8 #:use-module (gnu system shadow)
9 #:use-module (gnu bootloader)
10 #:use-module (gnu bootloader grub)
411 #:use-module (nongnu packages linux)
512 #:use-module (nongnu system linux-initrd)
613 #:use-module (rc system factors guix)
14 #:use-module (guix gexp)
715 #:use-module (guix packages)
816 #:use-module (guix channels)
917 #:use-module (guix inferior)
1018 #:use-module (srfi srfi-1)
1119 #:use-module (gcrypt pk-crypto)
20 #:use-module (gnu services base)
21 #:use-module (gnu services avahi)
1222 #:use-module (gnu services networking)
1323 #:use-module (gnu services ssh)
1424 #:use-module (gnu services xorg)
1525 #:use-module (gnu services sddm)
1626 #:use-module (gnu services desktop)
27 #:use-module (gnu packages base)
1728 #:use-module (gnu packages admin)
1829 #:use-module (gnu packages networking)
1930 #:use-module (gnu packages certs)
3445 #:use-module (gnu packages tmux)
3546 #:use-module (gnu packages screen)
3647 #:use-module (gnu packages rsync)
48 #:use-module (gnu packages terminals)
3749 #:use-module (gnu packages suckless)
3850 #:use-module (gnu packages messaging)
3951 #:export (os))
123135 (packages (cons*
124136 emacs-next neovim vim neofetch
125137 nyxt xterm sshfs tree curl git netcat rsync
126 tmux screen htop tcpdump st
127 guile-wm stumpwm awesome wireguard nss-certs
138 tmux screen htop tcpdump st termite
139 guile-wm stumpwm awesome i3-wm wireguard nss-certs
128140 emacs-evil emacs-ivy emacs-vterm ;emacs-webkit
129141 gajim gajim-omemo gajim-openpgp dino
130142 %base-packages))
141153 (config-file "/etc/wpa_supplicant/wpa_supplicant.conf")))
142154 (service elogind-service-type
143155 (elogind-configuration))
156 (service avahi-service-type
157 (avahi-configuration))
144158 (service sddm-service-type
145159 (sddm-configuration
146160 (auto-login-user "aion")