Meine Dotfiles

 1: (packages (append (list
 2:                     ;; bare necessities
 3:                     bash bash-completion gnupg man-db coreutils findutils sed grep gawk guix direnv   
 4:                     aspell aspell-dict-en aspell-dict-de curl wget nmap
 5:                     xf86-input-libinput xf86-video-fbdev xf86-input-mouse
 6:                     glibc-locales coreutils xinit xf86-input-synaptics xinput
 7:                     emacs-ox-pandoc emacs-pdf-tools emacs-minibuffer-line emacs
 8:                     emacs-dired-du emacs-exwm graphviz emacs-async emacs-ob-async emacs-request emacs-dired-hacks
 9:                     gimp inkscape xorg-server pavucontrol pamixer imagemagick adwaita-icon-theme gnome-themes-extra
10:                     dconf libreoffice texlive xf86-input-keyboard xf86-video-amdgpu git nss-certs
11:                     flatpak font-sarasa-gothic fontconfig ffmpeg librewolf yt-dlp mpv
12:                     bluez bluez-alsa alsa-plugins alsa-utils gpm xdg-utils xrdb xdg-desktop-portal
13:                     dbus htop nano lf gnome) %base-packages))

 1: (services (append (list
 2:                    (service gpm-service-type)
 3:                    (service wpa-supplicant-service-type (wpa-supplicant-configuration
 4:                                                          (config-file "/guix-imac/wpa_supplicant.conf")
 5:                                                          (interface "wlp4s0")))
 6:                    (service dhcp-client-service-type)
 7:                     (service dbus-root-service-type)
 8:                     (service nftables-service-type)
 9:                     (service block-facebook-hosts-service-type)
10:                     (service openssh-service-type
11:                              (openssh-configuration
12:                               (openssh openssh-sans-x)
13:                               (x11-forwarding? #f)
14:                               (permit-root-login 'prohibit-password)
15:                               (password-authentication? #f)
16:                               (generate-host-keys? #t)
17:                               (public-key-authentication? #t)
18:                               (authorized-keys
19:                                `(("root" ,(local-file "./ssh/macfag.pub") ,(local-file "./ssh/rock64.pub") ,(local-file "./ssh/termux_id_ed_25519.pub"))
20:                                  ("macfag" ,(local-file "./ssh/macfag.pub") ,(local-file "./ssh/rock64.pub") ,(local-file "./ssh/termux_id_ed_25519.pub"))
21:                                  ("tantalus" ,(local-file "./ssh/id_ed25519.pub")))))) ;; maybe change this to something like tantalus_id_ed25519.pub instead of the default
22: 
23:                     (service bluetooth-service-type)
24:                    (service sane-service-type sane-backends)
25:                    (service usb-modeswitch-service-type)
26:                    (service cups-service-type (cups-configuration
27:                                                (web-interface? #t)
28:                                                (default-paper-size "A4")
29:                                                (extensions (list cups-filters epson-inkjet-printer-escpr hplip-minimal)))))
30: 
31:                    (modify-services %base-services (guix-service-type config => (guix-configuration (inherit config)
32:                                                                                                     (substitute-urls
33:                                                                                                      (append (list "https://substitutes.nonguix.org"
34:                                                                                                                    "192.168.178.188") %default-substitute-urls))
35:                                                                                                     (authorized-keys
36:                                                                                                      (append (list (local-file "./ssh/nonguix-signing-key.pub"))
37:                                                                                                              %default-authorized-guix-keys)))))))
38: (name-service-switch %mdns-host-lookup-nss))

 1: (define %motd
 2:   (plain-file "motd"
 3:               "\
 4:    ░░░                                     ░░░
 5:     ░░▒▒░░░░░░░░░               ░░░░░░░░░▒▒░░
 6:      ░░▒▒▒▒▒░░░░░░░           ░░░░░░░▒▒▒▒▒░
 7:          ░▒▒▒░░▒▒▒▒▒         ░░░░░░░▒▒░
 8:                ░▒▒▒▒░       ░░░░░░
 9:                 ▒▒▒▒▒      ░░░░░░
10:                  ▒▒▒▒▒     ░░░░░
11:                  ░▒▒▒▒▒   ░░░░░    Wilkommen im Proletariat!
12:                   ▒▒▒▒▒   ░░░░░
13:                    ▒▒▒▒▒ ░░░░░
14:                    ░▒▒▒▒▒░░░░░
15:                     ▒▒▒▒▒▒░░░
16:                      ▒▒▒▒▒▒░
17: 
18: *FAILURE TO READ THESE RULES DOES NOT EXEMPT YOU:*
19: 1. Respect the other users.
20: 
21: 2. Follow subserver rules.
22:    Most, if not every, subserver has rules laid out for its users.
23: 
24: 3. Theft is obviously forbidden (and will get you kicked).
25:    Exploting any available opportunity to steal permissions,
26:    credentials or general data from another member of this server is prohibited.
27: 
28: 4. Friendly bots only are allowed.
29:    If you cannot control your bot do not bring it on the Server.
30: 
31: 5. Do not flood users or subservers.
32:    If you spot any flooding, Report it ASAP.
33: 
34: 6. No spamming is allowed.
35:    This inludes mass-advertising, pointlessly pinging multiple users at once
36:    as well as spamming a single endpoint with countless messages.
37: 
38: 7. Pirating is not allowed.
39:    This inludes hosting filesharing software and any other form of
40:    pirate media distribution.
41: 
42: 8. Subserver Wars are not tolerated.
43:    We are a peaceful server, and we intend to stay that way.
44:    If your group has a problem with another group, report it.
45:    If your subserver is the victim of a subserver war, report it.
46:    Every report is dealt with seriously.
47: 
48: 9. Installing Software
49:    The users of this server can (given they have the required permissions)
50:    install software and services in their respective user profiles 
51:    using the guix package manger and the channels configued for it.
52:    Just remeber that the resources aviable to you (netquota, diskspace, compute-time...) may be limited.
53:    For any other software, be it a script from the net or the code you have written on the fly,
54:    you must obtain permission to use it in advance and the code must be audited. 
55:    (Yea, f*** your proprietary closed soure code!)
56: 
57: 10. Dont ask for Privileges (e.g. Admin)
58:     We are not looking for admins at this time.
59:     If you ask to become one, you will never be one.
60:     Working as an admin on this server is a thankless and unpaid job.
61:     Our admins did not want admin, nor should you.
62: 
63: Allthought there are admins present most of the time this is considered an
64: unmoderated environment and you connect here at your own risk.
65: This server is largely unmoderated but, for security reasons, logs are maintained.
66: Be advised that in case of server malconduct, these logs may be consulted.
67: This is a privately owned and operated Server. As such, we reserve the right
68: to remove any person or bot from any or all servers for any reason at any time.
69: Each founder of a Subserver is responsible for policing their own subservers(s)
70: by the correct laws and guidelines.
71: We accept no responsibility for the actions of subserver users or their founders.
72: 
73: Anyone who behaves inappropriately or violates the server rules will lose their account
74: and can find their IP address in the host file of shame.
75: 
76: ​*Permanently, No Exceptions. You have been warned!*
77: 
78:  Happy hacking!\n"))

 1: (use-modules (guix packages)
 2:              (guix download)
 3:              (guix licenses)
 4:              (guix gexp)
 5:              (guix git-download)
 6:              (guix build-system trivial)
 7:              (guix channels)
 8: 
 9:              (gnu)
10:              (gnu bootloader u-boot)
11:              (gnu system nss)
12:              (gnu system locale)
13:              (gnu packages)
14:              (gnu packages admin)
15:              (gnu packages aidc)
16:              (gnu packages aspell)
17:              (gnu packages certs)
18:              (gnu packages cdrom)
19:              (gnu packages chemistry)
20:              (gnu packages compression)
21:              (gnu packages databases)
22:              (gnu packages dictionaries)
23:              (gnu packages digest)
24:              (gnu packages emacs)
25:              (gnu packages emacs-xyz)
26:              (gnu packages fonts)
27:              (gnu packages finance)
28:              (gnu packages games)
29:              (gnu packages gawk)
30:              (gnu packages gimp)
31:              (gnu packages gnunet)
32:              (gnu packages graphviz)
33:              (gnu packages imagemagick)
34:              (gnu packages imagemagick)
35:              (gnu packages inkscape)
36:              (gnu packages libreoffice)
37:              (gnu packages machine-learning)
38:              (gnu packages maths)
39:              (gnu packages messaging)
40:              (gnu packages minetest)
41:              (gnu packages networking)
42:              (gnu packages package-management)
43:              (gnu packages pulseaudio)
44:              (gnu packages telephony)
45:              (gnu packages tex)
46:              (gnu packages texlive)
47:              (gnu packages texlive)
48:              (gnu packages tree-sitter)
49:              (gnu packages version-control)
50:              (gnu packages video)
51:              (gnu packages web)
52:              (gnu packages wget)
53:              (gnu packages xorg)
54: 
55:              (gnu services admin)
56:              (gnu services cuirass)
57:              (gnu services databases)
58:              (gnu services dns)
59:              (gnu services web)
60:              (gnu services certbot)
61:              (gnu services mcron)
62:              (gnu services games)
63:              (gnu services messaging)
64:              (gnu services shepherd)
65:              (gnu services security)
66:              (gnu services linux)
67:              (gnu services avahi)
68: 
69:              (nongnu packages linux)
70:              (nongnu system linux-initrd)
71:              (nongnu packages mozilla)
72:              (srfi srfi-1))
73: 
74: (use-service-modules dbus networking ssh)
75: (use-package-modules aspell admin audio bash bootloaders certs curl package-management web shells text-editors disk linux glib wget pulseaudio emacs emacs-xyz graphviz imagemagick ssh security-token video fonts)

 1: (define %cuirass-specs
 2:   #~(list (specification
 3:            (name "großpackungen")
 4:            (build '(packages (list "minetest"
 5:                                    "librewolf"
 6:                                    "texlivetexmf"
 7:                                    "emacs"
 8:                                    "emacs-pgtk-xwidgets"
 9:                                    "webkitgtk-with-libsoup2"
10:                                    ))))
11: 
12:           (specification
13:            (name "rechenkrebspakete")
14:            (systems (list aarch64-linux armhf-linux riscv64-linux i686-linux))
15:            (build '(packages (list "binutils"
16:                                    "curl"
17:                                    "ecl"
18:                                    "gcc-toolchain"
19:                                    "git:send-email"
20:                                    "make"
21:                                    "wakelan"
22:                                    "aspell"
23:                                    "aspell-dict-de"
24:                                    "aspell-dict-en"
25:                                    "emacs-tramp-auto-auth"
26:                                    "emacs-auth-source-pass"
27:                                    "emacs-password-store"
28:                                    "emacs-password-store-otp"
29:                                    "emacs-pass"
30:                                    "password-store"
31:                                    "gnupg"
32:                                    "pinentry-emacs"
33:                                    "emacs-pinentry"  
34:                                    "bash"  
35:                                    "coreutils"
36:                                    "cpupower"
37:                                    "direnv"
38:                                    "emacs-no-x-toolkit"
39:                                    "emacs-async"
40:                                    "emacs-dired-du"
41:                                    "emacs-dired-hacks"
42:                                    "emacs-eat"
43:                                    "emacs-geiser"
44:                                    "emacs-geiser-guile"
45:                                    "emacs-marginalia"
46:                                    "emacs-ob-async"
47:                                    "emacs-org-contrib"
48:                                    "emacs-org-node"
49:                                    "emacs-request"
50:                                    "emacs-with-editor"
51:                                    "ethtool"
52:                                    "fd"
53:                                    "findutils"
54:                                    "flatpak"
55:                                    "gawk"
56:                                    "git"
57:                                    "glibc-locales"
58:                                    "gnunet"
59:                                    "gpm"
60:                                    "grep"
61:                                    "imagemagick"
62:                                    "make"
63:                                    "netcat-openbsd"
64:                                    "nftables"
65:                                    "nmap"
66:                                    "nss-certs"
67:                                    "openssh"
68:                                    "password-store"
69:                                    "pavucontrol"
70:                                    "pinentry-emacs"
71:                                    "sed"
72:                                    "tree-sitter-bash"
73:                                    "tree-sitter-c"
74:                                    "tree-sitter-cmake"
75:                                    "tree-sitter-css"
76:                                    "tree-sitter-devicetree"
77:                                    "tree-sitter-dockerfile"
78:                                    "tree-sitter-html"
79:                                    "tree-sitter-latex"
80:                                    "tree-sitter-org"
81:                                    "tree-sitter-python"
82:                                    "tree-sitter-r"
83:                                    "tree-sitter-scheme"
84:                                    "unzip"
85:                                    "usbutils"
86:                                    "wget"
87:                                    "whois"
88:                                    "xxhash"
89:                                    "zip"
90:                                    "singularity"))))))
91: 

 1: (define guix-gc-job
 2:   ;; run every week
 3:   #~(job (lambda (current-time) (+ current-time (* 7 24 60 60))) "guix gc --verify=contents,repair && guix gc --vacuum-database && guix system delete-generations 2w"))
 4: 
 5: (define ddns-update-job
 6:   ;; Check the IPv6 Adress and if changed update the ddns to the new one given by the ISP every ten minutes.
 7:   ;; Das geht sicher auch ohne bashscript:
 8:   ;; https://guix.gnu.org/cookbook/en/html_node/Dynamic-DNS-mcron-job.html
 9:   ;; get_ip6_function? storage in nem file? ramfile?
10:   #~(job '(next-minute (iota 6 0 10))  ". /ddns.bash"))
11: 
12: (define minetest-respawn-job
13:   ;; Restart every 5 minutes minetest-server in case it is crashed 
14:   #~(job '(next-minute (iota 12 0 5))  ". /minetest-server.bash"
15:          #:user "minetest"))
16: 
17: (define openttd-respawn-job
18:   ;; Restart every 30 minutes openttd-server in case it is crashed 
19:   #~(job '(next-minute '(0 30))  "openttd -fD &> /dev/null"
20:          #:user "openttd"))
21: 
22: (define coinheater-respawn-job
23:   ;; Restart every hour in case coinheater is crashed 
24:   #~(job '(next-hour)  ". /dots/coinheater.bash"
25:          #:user "steve"))
26: 

  1: (define %monerod-accounts
  2:   (list (user-account
  3:          (name "monerod")
  4:          (group "monerod")
  5:          (system? #t)
  6:          (comment "monero daemon user")
  7:          (home-directory "/var/empty")
  8:          (shell (file-append shadow "/sbin/nologin")))
  9:         (user-group
 10:          (name "monerod")
 11:          (system? #t))))
 12: 
 13: 
 14: (define monerod-shepherd-service
 15:   (shepherd-service
 16:    (documentation "Run the monero daemon (monerod).")
 17:    (provision '(monerod))
 18:    (requirement '(networking file-system-/data user-file-systems user-processes))
 19:    (start #~(make-forkexec-constructor '("monerod --rpc-use-ipv6 --rpc-restricted-bind-ip=0.0.0.0 --rpc-restricted-bind-ipv6-address=::1 --rpc-restricted-bind-port=18089 --rpc-ignore-ipv4 --no-igd --zmq-pub tcp://127.0.0.1:18084 --out-peers 64 --in-peers 64 --disable-dns-checkpoints --enable-dns-blocklist  --data-dir /data/monero/.bitmonero")
 20:                                        #:user "monerod"
 21:                                        #:group "monerod"
 22:                                        #:directory "/var/monerod"
 23:                                        #:log-file "/var/log/monerod.log"
 24:                                        #:pid-file "/var/run/monerod.pid"
 25:                                        ))
 26: 
 27:    (stop #~(make-kill-destructor))))
 28: 
 29: 
 30: (define monerod-service-type
 31:   (service-type
 32:    (name "monerod")
 33:    (description "Runs the Monero Daemon")
 34:    (extensions
 35:     (list (service-extension account-service-type
 36:                              (const %monerod-accounts))
 37:           (service-extension shepherd-root-service-type
 38:                              (compose list monerod-shepherd-service))))))
 39: 
 40: 
 41: 
 42: 
 43: 
 44: (define udev-rules (udev-rules-service 'light light))
 45: ;;  (service nftables-service-type)
 46: ;;         (nftables-configuration (ruleset (list %default-nftables-ruleset))))
 47: ;; portfreigaben für Imap (993), SMTP (465), minetest (30000)
 48: ;;  37889 (P2Pool port) or 37888 (P2Pool mini port)
 49: ;; port 18080 (Monero p2p port) 
 50: ;; OpenTTD (3979)
 51: 
 52: (define fail2ban (service fail2ban-service-type
 53:                           (fail2ban-configuration
 54:                            (extra-jails
 55:                             (list
 56:                              (fail2ban-jail-configuration
 57:                               (name "sshd")
 58:                               (enabled? #t)))))))
 59: 
 60: 
 61: (define openssh (service openssh-service-type
 62:                          (openssh-configuration
 63:                           (openssh openssh-sans-x)
 64:                           (x11-forwarding? #f)
 65:                           (allow-agent-forwarding? #f)
 66:                           (allow-tcp-forwarding? #f)
 67:                           (permit-root-login 'prohibit-password)
 68:                           (password-authentication? #f)
 69:                           (generate-host-keys? #t)
 70:                           (public-key-authentication? #t)
 71:                           (authorized-keys
 72:                            `(("root" ,(local-file "ssh/macfag.pub") ,(local-file "ssh/jakob_id_ed_25519.pub") ,(local-file "ssh/macfag_termux_id_ed25519.pub"))
 73:                              ("prolet" ,(local-file "ssh/macfag.pub") ,(local-file "ssh/jakob_id_ed_25519.pub") ,(local-file "ssh/macfag_termux_id_ed25519.pub"))
 74:                              ("tantalus" ,(local-file "ssh/tantalus_id_ed25519.pub")))))))
 75: 
 76: 
 77: (define avahi (service avahi-service-type
 78:                        (avahi-configuration
 79:                         (wide-area? #t))))                                   
 80: 
 81: (define postgresql (service postgresql-service-type
 82:                             (postgresql-configuration
 83:                              (postgresql postgresql-15)
 84:                              (data-directory "/data/postgres")
 85:                              (config-file (postgresql-config-file 
 86:                                            (extra-config '(("shared_buffers" "16 GB")
 87:                                                            ("max_wal_size" "8 GB"))))))))
 88: 
 89: 
 90: (define postgresql-role (service postgresql-role-service-type
 91:                                  (postgresql-role-configuration
 92:                                   (roles
 93:                                    (list (postgresql-role
 94:                                           (name "cuirass")
 95:                                           (create-database? #t))
 96:                                          (postgresql-role
 97:                                           (name "minetest")
 98:                                           (create-database? #t)))))))
 99: 
100: 
101: 
102: 
103: 
104: (define cuirass (service cuirass-service-type
105:                          (cuirass-configuration
106:                           (interval 120)
107:                           ;; (one-shot? #t) ;; Einmal reicht erstmal
108:                           (fallback? #t) ;; Unsere einzige Chance doch noch ein Paket zu bekommen                                           
109:                           (specifications %cuirass-specs))))
110: 
111: (define guix-publish (service guix-publish-service-type
112:                               (guix-publish-configuration
113:                                (host "0.0.0.0")
114:                                (port 3000)
115:                                (compression '(("zstd" 9)))
116:                                (advertise? #t)
117:                                (cache "/var/cache/guix/publish")
118:                                (cache-bypass-threshold (expt 2 29)) ;; Die nutzer müssen nicht auf substitute im cache warten wenn die Pakete kleiner 500MiB sind  
119:                                )))
120: 
121: 
122: ;; ------------------------------------ Kurznachrichtendienste ------------------------------------
123: 
124: (define prosody (service prosody-service-type
125:                          (prosody-configuration
126:                           (modules-enabled (cons* "groups" "mam" %default-modules-enabled))
127:                           (int-components
128:                            (list
129:                             (int-component-configuration
130:                              (hostname  "192.168.178.188") ;; "chat.prolet.dynv6.net")
131:                              (plugin "muc")
132:                              (mod-muc (mod-muc-configuration)))))
133:                           (virtualhosts
134:                            (list
135:                             (virtualhost-configuration
136:                              (domain "192.168.178.188"))))))
137:   ;;  (domain "prolet.dynv6.net"))))))
138: 
139:   ;; Coturn
140:   ;; opencart ?
141: 
142:   ;; MDA
143:   ;;
144:   (define dovecot (service dovecot-service-type
145:                            (dovecot-configuration
146:                             (mail-location "maildir:~/.mail")
147:                             (protocol-configuration-list (list "imaps"))
148: 
149:                             )))
150: 
151:   ;; MTA
152: 
153:   (define opensmtpd (service opensmtpd-service-type
154:                              (opensmtpd-configuration
155:                               (shepherd-requirement 'networking)
156:                               (config-file (local-file "./smtpd.conf")))))
157: 
158:   ;; DKIM
159:   ;; opensmtp-filter-dkimsign
160: 
161:   (define rspamd (service rspamd-service-type))
162: 
163: 
164: 
165:   ;;  CalDAV and CardDAV Server, not mail but kind of related:
166:   (define radicale (service radicale-service-type))
167: 
168:   ;; last but not least request unlisting of the ip from blocklists
169: 
170: 
171: 
172:   ;; ------------------------------------------ Games ---------------------------------------------
173:   (define wesnothd (service wesnothd-service-type
174:                             (wesnothd-configuration
175:                              (port 15000))))
176: 
177:   ;; ------------------------------------------ Webfront ------------------------------------------
178: 
179:   (define nginx1 (service nginx-service-type
180:                           (nginx-configuration
181:                            (server-blocks
182:                             (list (nginx-server-configuration
183:                                    (server-name '("www.prolet.dynv6.net"))
184:                                    (root "/srv/http/www.prolet.dynv6.net")
185:                                    ;; proxy-pass some.sample.url:port
186:                                    (index (list "index.html" "index.org"))
187:                                    ;; ssl-certificate ssl-certificate-key 
188:                                    ))))))
189: 
190:   ;; minimal do the lets-encrypt shake:
191:   (define nginx2 (service nginx-service-type (nginx-configuration
192:                                               (server-blocks
193:                                                (list
194:                                                 ;; TLS is required for authentication; serve the site via
195:                                                 ;; HTTPS only.
196:                                                 (nginx-server-configuration
197:                                                  (listen '("80"))
198:                                                  (raw-content
199:                                                   (list "return 308 https://suschem.ist;")))
200:                                                 )))))
201: 
202:   ;; ;;  git
203:   (define nginx3 (service nginx-service-type
204:                           (nginx-configuration
205:                            (server-blocks
206:                             (list
207:                              (nginx-server-configuration
208:                               (listen '("443 ssl"))
209:                               (server-name "git.my-host.org")
210:                               (ssl-certificate
211:                                "/etc/letsencrypt/live/git.my-host.org/fullchain.pem")
212:                               (ssl-;; certificate-key
213:                                "/etc/letsencrypt/live/git.my-host.org/privkey.pem")
214:                               (locations
215:                                (list
216:                                 (git-http-nginx-location-configuration
217:                                  (git-http-configuration (uri-path "/")))))))))))
218: 
219: 
220: 
221: 
222: 
223:   ;; ;; minimal do the lets-encrypt shake:
224:   (define  certbot (service certbot-service-type
225:                             (certbot-configuration
226:                              (email "admin@mail.prolet.dynv6.net")
227:                              (certificates
228:                               (list
229:                                (certificate-configuration
230:                                 (domains '("prolet.dynv6.net")))
231:                                )))))
232: 
233: 
234:   (define certbot (service certbot-service-type
235:                            (certbot-configuration
236:                             (certificates
237:                              (list
238:                               (certificate-configuration ;; html home
239:                                (domains '("suschem.ist" "www.prolet.dynv6.net"))) 
240:                               (certificate-configuration ;; Prosody
241:                                (domains '("chat.prolet.dynv6.net"))) 
242:                               (certificate-configuration ;; xmpp upload
243:                                (domains '("upload.chat.prolet.dynv6.net"))) 
244:                               (certificate-configuration ;; xmpp invites
245:                                (domains '("invite.prolet.dynv6.net"))) 
246:                               (certificate-configuration ;; OpenCart
247:                                (domains '("shop.prolet.dynv6.net"))) 
248:                               (certificate-configuration ;; Minetest
249:                                (domains  '("mine.prolet.dynv6.net")))
250:                               (certificate-configuration ;; git                                               
251:                                (domains '("git.prolet.dynv6.net")))
252:                               (certificate-configuration ;; mercurial                                                 
253:                                (domains '("hg.prolet.dynv6.net")))
254:                               (certificate-configuration ;; e-mail                                                    
255:                                (domains '("mail.prolet.dynv6.net")))
256:                               (certificate-configuration ;; cuirass                                                   
257:                                (domains '("ci.prolet.dynv6.net")))
258:                               (certificate-configuration ;; OpenTTD                                                   
259:                                (domains '("ttd.prolet.dynv6.net"))))))))
260: 
261: 
262:   (define autoupdate (service unattended-upgrade-service-type))
263:   (define gpm (service gpm-service-type))
264: 
265:   ;; no need so far but do it anyway
266:   (define zram (service zram-device-service-type
267:                         (zram-device-configuration
268:                          (size (expt 2 38)) ;; 128GB
269:                          (compression-algorithm 'zstd)
270:                          (priority 100))))
271: 
272:   (define monerod (service monerod-service-type))
273:   (define dhcp-client (service dhcp-client-service-type))
274:   (define blockfb (service block-facebook-hosts-service-type))
275:   (define tor (service tor-service-type))
276: 
277:   (define crude-jobs (simple-service 'my-cron-jobs
278:                                      mcron-service-type
279:                                      (list ddns-update-job
280:                                            ;; minetest-respawn-job
281:                                            ;; monerod-respawn-job
282:                                            ;; p2pool-respawn-job
283:                                            ;; xmrig-respawn-job
284:                                            ;; coinheater-respawn-job
285:                                            openttd-respawn-job
286:                                            guix-gc-job
287:                                            )))

 1: ;; boot partition
 2: 
 3: (define recovery-boot  (file-system
 4:                         (device (uuid "8A92-1432" 'fat))
 5:                         (mount-point "/boot/efi")
 6:                         ;;(mount-may-fail? #t)
 7:                         (type "vfat")))
 8: 
 9: (define recovery (file-system
10:                   (device (uuid "a3cb1246-d9ae-4013-908d-f6e898d097dd"))
11:                   (mount-point "/")
12:                   (type "ext4")))
13: 
14: (define data (file-system
15:               (device (file-system-label "btrfs_data"))
16:               (mount-point "/")
17:               (type "btrfs")
18:               (check? #f)
19:               (options "compress=zstd,space_cache=v2,subvol=@data")))
20: 
21: (define gnufs (file-system
22:                (mount-point "/gnu")
23:                (device (file-system-label "btrfs_data"))
24:                (type "btrfs")
25:                (check? #f)
26:                (needed-for-boot? #t)
27:                (options "compress=zstd,space_cache=v2,autodefrag,subvol=@gnu")))
28: 
29: (define home (file-system
30:               (mount-point "/home")
31:               (device (file-system-label "btrfs_data"))
32:               (type "btrfs")
33:               (check? #f)
34:               (options "compress=zstd,space_cache=v2,autodefrag,subvol=@home")))
35: 
36: (define git (file-system
37:              (mount-point "/git")
38:              (device (file-system-label "btrfs_data"))
39:              (type "btrfs")
40:              (check? #f)
41:              (options "compress=zstd,space_cache=v2,autodefrag,subvol=@git")))
42: 
43: (define srv (file-system
44:              (mount-point "/srv")
45:              (device (file-system-label "btrfs_data"))
46:              (type "btrfs")
47:              (check? #f)
48:              (options "compress=zstd,space_cache=v2,autodefrag,subvol=@srv")))

 1: (define core-packages (list apertium aspell aspell-dict-de aspell-dict-en btrfs-progs coreutils coturn cpupower
 2:                              dvd+rw-tools xorriso ethtool fail2ban findutils gawk git glibc-locales gnunet gpm grep
 3:                              prosody sed usbutils wakelan xinput xxhash nftables nginx openbabel))
 4: (define monero-packages (list monero xxhash xmrig p2pool))
 5: (define util-packages (list whois yt-dlp qrencode nmap netcat-openbsd mercurial mpv imagemagick graphviz gnuplot ffmpeg))
 6: (define games-packages (list wesnoth-server openttd minetest-server))
 7: (define font-packages (list texlive texlive-beamer texlive-scheme-basic font-awesome font-comic-neue
 8:                              font-opendyslexic font-openmoji font-sarasa-gothic))
 9: (define emacs-packages (list emacs-async emacs-devicetree-ts-mode emacs-dired-du emacs-dired-hacks emacs-eat emacs-ednc
10:                               emacs-geiser emacs-geiser-guile emacs-gptel emacs-marginalia emacs-no-x emacs-org-contrib
11:                               emacs-ox-pandoc emacs-pdf-tools emacs-spray emacs-with-editor tree-sitter-bash
12:                               tree-sitter-bibtex tree-sitter-c tree-sitter-cmake tree-sitter-css tree-sitter-devicetree
13:                               tree-sitter-dockerfile tree-sitter-html tree-sitter-latex tree-sitter-matlab tree-sitter-org
14:                               tree-sitter-python tree-sitter-r tree-sitter-scheme))

 1: (define prolet (user-account (name "prolet") 
 2:                              (comment "prolet")
 3:                              (group "users") 
 4:                              (supplementary-groups '("wheel" "netdev" "audio" "video" "lp" "kvm"
 5:                                                      ;;"lpadmin" "fuse" "scanner" "plugdev" "adb"
 6:                                                      "cdrom" "disk"))
 7:                              (home-directory "/home/prolet")
 8:                              (password (crypt "prolet" "3d8n7"))))
 9: 
10: (define tantalus (user-account (name "tantalus")
11:                                (comment "There is no place like 127.0.0.1")
12:                                (group "users")
13:                                (supplementary-groups '("netdev" "audio" "video" "lp" "kvm"))
14:                                (home-directory "/home/tantalus")
15:                                (password (crypt "tantalus" "f5s9k"))))
16: 
17: (define minetest (user-account (name "minetest")
18:                                (comment "minetest user")
19:                                (group "users")
20:                                (home-directory "/var/empty")
21:                                (shell (file-append shadow "/sbin/nologin"))
22:                                (system? #t)))
23: 
24: (define steve (user-account (name "steve")
25:                             (comment "XMR-mining user")
26:                             (group "users")
27:                             (home-directory "/var/empty")
28:                             (shell (file-append shadow "/sbin/nologin"))
29:                             (system? #t)))
30: 
31: (define openttd (user-account (name "openttd")
32:                               (comment "openttd user")
33:                               (group "users")
34:                               (home-directory "/var/empty")
35:                               (shell (file-append shadow "/sbin/nologin"))
36:                               (system? #t)))
37: 
38: (define root (user-account (name "root")
39:                            (uid 0)
40:                            (comment "")
41:                            (group "root")
42:                            (password (crypt "root" "6h91l"))))

 1: (operating-system (kernel linux)
 2:                   (kernel-arguments '("consoleblank=0"
 3:                                       "quiet"
 4:                                       "loglevel=3"
 5:                                       "modprobe.blacklist=pcspkr,snd_pcsp"
 6:                                       "hpsa.hpsa_allow_any=1"
 7:                                       "default_hugepagevsz=1G"
 8:                                       "msr.allow_writes=on"))
 9:                   (initrd-modules (append (list "hpsa") %base-initrd-modules))
10:                   (firmware (list linux-firmware))
11:                   (host-name "guix-proles-350mlg9") 
12:                   (timezone "Europe/Berlin")
13:                   (locale "en_US.utf8")
14:                   (locale-definitions 
15:                    (list 
16:                     (locale-definition (name "en_US.utf8") (source "en_US") (charset "UTF-8"))
17:                     (locale-definition (name "de_DE.utf8") (source "de_DE") (charset "UTF-8"))))
18:                   (keyboard-layout (keyboard-layout "us,de" #:options '("grp:alt_shift_toggle")))
19:                   (issue "error in finalization thread: Success ")
20:                   (bootloader (bootloader-configuration 
21:                                (bootloader grub-efi-bootloader) 
22:                                (targets '("/boot/efi"))
23:                                (keyboard-layout keyboard-layout)
24:                                (timeout 1)))
25:                   (name-service-switch %mdns-host-lookup-nss)
26:                   (users (cons* prolet tantalus minetest steve openttd root %base-user-accounts))
27:                   (file-systems (cons* home srv git gnufs rootfs %base-file-systems))
28:                   (packages (append core-packages monero-packages util-packages games-packages font-packages emacs-packages %base-packages))
29:                   (services (cons* monerod dhcp-client blockfb tor udev-rules fail2ban openssh avahi postgresql postgresql-role cuirass guix-publish
30:                                    crude-jobs zram gpm autoupdate nginx1 wesnothd radicale rspamd dovecot prosody certbot opensmtpd
31:                                    (modify-services %base-services (guix-service-type config => (guix-configuration
32:                                                                                                  (inherit config)
33:                                                                                                  (substitute-urls (append (list "https://substitutes.nonguix.org") %default-substitute-urls))
34:                                                                                                  (authorized-keys (append (list (local-file "./ssh/nonguix-signing-key.pub")) %default-authorized-guix-keys))
35:                                                                                                  (channels (append (list (channel (name 'nonguix)
36:                                                                                                                                   (url "https://gitlab.com/nonguix/nonguix")
37:                                                                                                                                   (introduction
38:                                                                                                                                    (make-channel-introduction
39:                                                                                                                                                  "897c1a470da759236cc11798f4e0a5f7d4d59fbc"
40:                                                                                                                                                  (openpgp-fingerprint
41:                                                                                                                                                   "2A39 3FFF 68F4 EF7A 3D29  12AF 6F51 20A0 22FB B2D5")))))
42:                                                                                                                    %default-channels))))
43:                                                     (login-service-type config => (login-configuration (inherit config) (motd %motd)))))))                          

 1: mkfs.btrfs -L btrfs_data -d single -m raid10 /dev/sda /dev/sdb /dev/sdc /dev/sdd /dev/sde /dev/sdf
 2: btrfs device scan
 3: mount -t btrfs -o compress=lzo LABEL=btrfs_data /mnt
 4: btrfs subvolume create /mnt/@gnu
 5: btrfs subvolume create /mnt/@srv
 6: btrfs subvolume create /mnt/@git
 7: btrfs subvolume create /mnt/@home
 8: umount /mnt
 9: o_btrfs=defaults,X-mount.mkdir,compress=lzo,ssd,noatime
10: mount -o subvol=@guixsd,$o_btrfs LABEL=btrfs /mnt
11: mount -o subvol=@home,$o_btrfs LABEL=btrfs /mnt/home
12: mount -o subvol=@snapshots,$o_btrfs LABEL=btrfs /mnt/.snapshots
13: mount -o subvol=@grub,$o_btrfs LABEL=btrfs /mnt/boot/grub
14: mount -o subvol=@guix,$o_btrfs LABEL=btrfs /mnt/var/guix
15: mount -o subvol=@gnu,$o_btrfs LABEL=btrfs /mnt/gnu
16: mount -o X-mount.mkdir /dev/nvme0n1p1 /mnt/boot/efi

1: modt = "testing modt"
2: versions_accepted = "*"
3: #tls_enabled
4: #tls_fullchain
5: #tls_private_key
6: #tls_dh
7: #postgresql db backend?

 1: # SPDX-License-Identifier: GPL-3.0-or-later
 2: 
 3: server.document-root = "/home/www/pfadiwebsite/public/" 
 4: 
 5: server.port = 80
 6: 
 7: server.username = "www" 
 8: server.groupname = "www" 
 9: 
10: mimetype.assign = (
11:   ".html" => "text/html", 
12:   ".jpg" => "image/jpeg",
13:   ".png" => "image/png" 
14: )
15: 
16: static-file.exclude-extensions = ( ".fcgi", ".php", ".rb", "~", ".inc", ".org", ".txt" )
17: index-file.names = ( "home.html" )

1: #!/bin/bash
2: # modprobe msr allow_writes=on
3: monerod --rpc-use-ipv6 --rpc-restricted-bind-ip=0.0.0.0 --rpc-restricted-bind-ipv6-address=::1 --rpc-restricted-bind-port=18089 --rpc-ignore-ipv4 --no-igd --zmq-pub tcp://127.0.0.1:18084 --out-peers 64 --in-peers 64 --disable-dns-checkpoints --enable-dns-blocklist  --data-dir /data/monero/.bitmonero --detach
4: (p2pool  --stratum "0.0.0.0:3333" --p2p "0.0.0.0:37889" --zmq-port "18084" --out-peers 64 --in-peers 64 --rpc-port "18089" --host 127.0.0.1 --wallet 426prP4YrwdUjRnLo4YfW25Lk5L8d7RQpiKVZaNh4FwsAkQSFxhRfgcU2Zj1zS6kgoNcNYB5z8YiEijuPEjdtg83BsUC4UL > /dev/null 2>&1 &)
5: # xmrig -o 127.0.0.1:3333 -B -S --cpu-priority=3 --randomx-1gb-pages
6: 

1: #!/bin/bash
2: # SPDX-License-Identifier: GPL-3.0-or-later
3: # Chainload these statements with "&&".
4: minetestserver --world "/data/minetest/world0" --config "./minetest.conf" --terminal

 1: [vpn]
 2: FORCESTART = YES
 3: 
 4: [pt]
 5: FORCESTART = YES
 6: TUNNEL_IPV4 = YES
 7: TUNNEL_IPV6 = YES
 8: TUNNEL_DNS = YES
 9: 
10: [gns]
11: FORCESTART = NO
12: 
13: [hostlist]
14: OPTIONS = -e -b
15: PROXY_TYPE = NONE
16: 
17: [fs]
18: CONTENT_CACHING = YES
19: 
20: [PATHS]

 1:   #!/usr/bin/env -S guix shell bash iproute2 curl -- bash
 2: if [ -z "$netmask" ]; then
 3:     netmask=64
 4: fi
 5: 
 6: if [ -n "$device" ]; then
 7:     device="dev $device"
 8: fi
 9: address=$(/run/current-system/profile/sbin/ip -6 addr list scope global $device | grep -v " fd" | sed -n 's/.*inet6 \([0-9a-f:]\+\).*/\1/p' | head -n 1)
10: 
11: echo "$address" # for testing: report the address that is being send.
12: 
13: if [ -z "$address" ]; then
14:     echo "empty address"
15:     exit 1
16: fi
17: 
18: if [ "$old" != "$address" ]; then
19:     # send ip to dynv6
20:     /run/current-system/profile/bin/curl -6 -fsSk "http://dynv6.com/api/update?hostname=$hostname&ipv6=$address/$netmask&token=$token" &> /dev/null
21:     # send ip to dnshome 
22:     # curl -fsS -6 --data-urlencode "u=$USER" --data-urlencode "p=$PASSWORD" --data-urlencode "ip6=$address" https://dnshome.de/dyndns.php 2>&1
23:     /run/current-system/profile/bin/curl -fsSk -6 "http://www.dnshome.de/dyndns.php?u=$username&p=$password&ip6=$address"
24:     if [[ $? -ge 0 ]]; then
25:         old=$address
26:     fi
27: else
28:     echo "address ist still $address, exiting"
29: fi

 1: (use-modules
 2:  (gnu home)
 3:  (gnu home services)
 4:  (gnu home services guix)
 5:  (gnu home services desktop)
 6:  (gnu home services shepherd)
 7:  (gnu home services sound)
 8:  (gnu home services dict)
 9:  (gnu home services gnupg)
10:  (gnu home services shells)       
11:  (gnu packages)
12:  (gnu packages shells)
13:  (gnu packages gnupg)
14:  (gnu services)
15:  (gnu services xorg)
16:  (guix gexp)
17:  (guix channels))

 1: (define office-pkgs (list "gimp" "avogadro2" "flatpak" "gnunet-gtk" "inkscape" "libreoffice" "obs" "solvespace")) ;; "apertium" "kicad"
 2: (define x11-pkgs (list "adwaita-icon-theme" "arandr" "autorandr" "pamixer" "gnome-themes-extra" "xf86-input-libinput" "xf86-input-mouse" "xf86-input-synaptics" "xf86-video-amdgpu" "xf86-video-fbdev" "xinit" "xinput" "xmodmap" "xorg-server" "xrdb" "xschem" "xscreensaver" "xset" "xsetroot")) ;; "xdg-desktop-portal" "xdg-desktop-portal-gtk"
 3: (define game-pkgs (list "retux" "gnugo" "luanti" "supertux" "supertuxkart" "tuxemon" "wesnoth")) ;;"openttd"
 4: (define emacs-pkgs (list "emacs-async" "emacs-auth-source-pass" "emacs-bbdb" "emacs-debbugs" "emacs-devicetree-ts-mode" "emacs-dired-du" "emacs-dired-hacks" "emacs-eat" "emacs-ednc" "emacs-ement" "emacs-empv" "emacs-exwm" "emacs-geiser" "emacs-geiser-guile" "emacs-pass" "emacs-gptel" "emacs-htmlize" "emacs-marginalia" "emacs-ob-async" "emacs-org-caldav" "emacs-org-contrib" "emacs-org-node" "emacs-org-rainbow-tags" "emacs-org-web-tools" "emacs-ox-pandoc" "emacs-password-store" "emacs-password-store-otp" "emacs-pdf-tools" "emacs-pinentry" "emacs-rainbow-delimiters" "emacs-rainbow-mode" "emacs-request" "emacs-spray" "emacs-tramp-auto-auth" "emacs-with-editor" "pinentry-emacs"))
 5: (define libs-pkgs (list "blender" "graphviz" "gnuplot" "imagemagick" "ollama-linux-amd64" "openbabel" "pandoc" "pantalaimon" 
 6:                         "sqlcipher" "tesseract-ocr" "tesseract-ocr-tessdata-fast" "texlive" "texlive-beamer"
 7:                         "texlive-collection-fontsrecommended" "texlive-collection-latexrecommended"
 8:                         "texlive-scheme-basic" "texlive-scheme-basic" "texlive-xetex" "tree-sitter-bash"
 9:                         "tree-sitter-bibtex" "tree-sitter-c" "tree-sitter-cmake" "tree-sitter-css"
10:                         "tree-sitter-devicetree" "tree-sitter-dockerfile" "tree-sitter-html" "tree-sitter-latex"
11:                         "tree-sitter-matlab" "tree-sitter-org" "tree-sitter-python" "tree-sitter-r" "tree-sitter-scheme"
12:                         "aspell" "aspell-dict-de" "aspell-dict-en" "font-awesome" "font-comic-neue" "font-opendyslexic"
13:                         "font-openmoji" "font-sarasa-gothic" "scrot")) ;; "monero" "wine64" "winetricks"
14: (define web-pkgs (list "ublock-origin-chromium" "ublock-origin-icecat" "librewolf" )) ;;"ungoogled-chromium"
15: (define base-pkgs (list "bash" "binutils" "bluez" "brightnessctl" "browserpass-native" "ccl" "coreutils" "cpupower" "curl" "dconf" "direnv" "dosfstools" "dvd+rw-tools" "ecl" "emacs" "ethtool"
16:                         "fd" "findutils" "gawk" "gcc-toolchain" "git" "git:send-email" "glibc-locales" "gnunet" "gnupg" "gpm" "grep" "gtk+" "gvfs" "john-the-ripper-jumbo" "libguestfs" "libvirt" "light"
17:                         "make" "make" "man-db" "man-pages" "mercurial" "mesa" "mesa-utils" "mono" "mpg123" "mpv"
18:                         "nbd" "netcat-openbsd" "nftables" "ngspice" "nmap" "nss-certs" "ntfs-3g-static" "openssh" "p7zip"
19:                         "pass-coffin" "passff-host" "passff-icecat" "password-store" "pavucontrol"
20:                         "qemu" "qrencode" "sed" "shepherd" "unzip" "usbutils" "wget" "whois"
21:                         "wireplumber" "xxhash" "yt-dlp" "zip")) ;;  "wakelan" 

1: (home-environment (packages (specifications->packages (append base-pkgs x11-pkgs emacs-pkgs libs-pkgs web-pkgs office-pkgs)))

  1: (services
  2:  (append (list (service home-bash-service-type
  3:                         (home-bash-configuration
  4:                          (aliases '(("dd" . "dd bs=4M status=progress")
  5:                                     ("iKMcli" . "LD_LIBRARY_PATH=/home/macfag/blobs/iKMcli /home/macfag/blobs/iKMcli/iKMcli")
  6:                                     ("osss" . "/usr/bin/wine 'c:/Program Files/OutSystems/Service Studio 11/Service Studio/ServiceStudio.exe'")
  7:                                     ("issussy" . "~/dots/export/issussy.bash")
  8:                                     ("ip" . "ip -color=auto")
  9:                                     ("ll" . "ls -l")
 10:                                     ("ls" . "ls -p --color=auto")
 11:                                     ))
 12: 
 13:                          (bashrc (list (local-file "bashrc" "bashrc")))
 14:                          (bash-profile (list (local-file "bash_profile" "bash_profile")))
 15:                          (bash-logout (list (local-file "bash_logout" "bash_logout")))))
 16: 
 17:                (simple-service 'extra-packages-service
 18:                                home-channels-service-type
 19:                                (list
 20:                                 (channel
 21:                                  (name 'ollama-guix)
 22:                                  (url "https://codeberg.org/tusharhero/ollama-guix"))
 23:                                 (channel
 24:                                  (name 'guix-gaming-games)
 25:                                  (url "https://gitlab.com/guix-gaming-channels/games.git")
 26:                                  (introduction
 27:                                   (make-channel-introduction
 28:                                    "c23d64f1b8cc086659f8781b27ab6c7314c5cca5"
 29:                                    (openpgp-fingerprint
 30:                                     "50F3 3E2E 5B0C 3D90 0424  ABE8 9BDC F497 A4BB CC7F"))))       
 31:                                 (channel
 32:                                  (name 'nonguix)
 33:                                  (url "https://gitlab.com/nonguix/nonguix")
 34:                                  (introduction
 35:                                   (make-channel-introduction
 36:                                    "897c1a470da759236cc11798f4e0a5f7d4d59fbc"
 37:                                    (openpgp-fingerprint
 38:                                     "2A39 3FFF 68F4 EF7A 3D29  12AF 6F51 20A0 22FB B2D5"))))))
 39: 
 40:                (simple-service 'env-vars-service
 41:                                home-environment-variables-service-type
 42:                                `(("_JAVA_AWT_WM_NONREPARENTING" . #t)
 43:                                  ("GDK_CORE_DEVICE_EVENTS" . #t)
 44:                                  ("PATH" . "${HOME}/.config/guix/current/bin:${HOME}/.guix-profile/bin:${PATH}:${HOME}/.guix-home/profile/bin:${HOME}/.guix-home/profile/sbin:${HOME}/.local/bin:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin")
 45:                                  ("GUIX_PROFILE" . "$HOME/.guix-profile")
 46:                                  ("CDPATH" . ".:/")
 47:                                  ("PROMPT_COMMAND" . "history -a")
 48:                                  ("HISTCONTROL" . "erasedups:ignoreboth")
 49:                                  ("HISTSIZE" . "500000")
 50:                                  ("HISTFILESIZE" . "100000")
 51:                                  ("HISTTIMEFORMAT" . "%F %T ")
 52:                                  ("ALTERNATE_EDITOR" . "")
 53:                                  ("EDITOR" . "emacsclient -c -a emacs") 
 54:                                  ("VISUAL" . "${EDITOR}")
 55:                                  ("PAGER" .  "") ;;no pager, just dump the contents and let emacs deal with it
 56:                                  ("GUIX_LOCPATH" . "${HOME}/.guix-home/profile/lib/locale")
 57:                                  ("INFOPATH" . "${HOME}/guix-home/share/info:${INFOPATH}")
 58:                                  ("MANPATH" . "${HOME}/.guix-home/profile/share/man:/usr/share/man${MANPATH}")
 59:                                  ("GTK_THEME" . "advendi")
 60:                                  ("QT_STYLE_OVERRIDE" . "advendi")
 61:                                  ;; ("QT_AUTO_SCREEN_SET_FACTOR" . "0")
 62:                                  ;; ("QT_SCALE_FACTOR" . "2")
 63:                                  ;; ("QT_FONT_DPI" . "96")
 64:                                  ;; ("GDK_SCALE" . "2")
 65:                                  ;; ("GDK_DPI_SCALE" . "0.5")
 66:                                  ("XCURSOR_THEME" . "Adwaita")
 67:                                  ("XCURSOR_SIZE" . "24")
 68:                                  ("XDG_DISPLAY_VAR" . "tty1")
 69:                                  ("XDG_MUSIC_DIR" . "${HOME}/music")
 70:                                  ("XDG_VIDEOS_DIR" . "${HOME}/videos")
 71:                                  ("XDG_CONFIG_DIRS" . "${HOME}/.guix-home/profile/etc/xdg:${HOME}/.guix-profile/etc/xdg")
 72:                                  ("PASSWORD_STORE_DIR" . "${HOME}/.pass")
 73:                                  ("PASSWORD_STORE_ENABLE_EXTENSIONS" . #t )
 74:                                  ;; ("XMODIFIERS" . "@im=exwm-x")
 75:                                  ;; ("GTK_IM_MODULE" . "xim")
 76:                                  ;; ("QT_IM_MODULE" . "xim")
 77:                                  ;; ("CLUTTER_IM_MODULE" . "xim") 
 78:                                  ("XDG_DATA_DIRS" . "${HOME}/.guix-home/profile/share:${HOME}/.guix-profile/share:/home/macfag/.local/share/flatpak/exports/share:/var/lib/flatpak/exports/share")
 79:                                  ("SSL_CERT_DIR" . "$HOME/.guix-home/profile/etc/ssl/certs")
 80:                                  ("SSL_CERT_FILE" . "$HOME/.guix-home/profile/etc/ssl/certs/ca-certificates.crt")
 81:                                  ("GIT_SSL_CAINFO" . "$SSL_CERT_FILE")
 82:                                  ("HISTIGNORE" . "&:[ ]*:exit:ls:bg:fg:history:clear:pass")
 83:                                  ("dots" . "$HOME/dots")
 84:                                  ("blog" . "$HOME/blog")
 85:                                  ("pages" . "$HOME/pages")
 86:                                  ("agenda" . "$HOME/agenda")
 87:                                  ))
 88:                (simple-service 'custom-config
 89:                                home-files-service-type
 90:                                `((".xinitrc" ,(local-file "xinitrc"))
 91:                                  ("bash_functions" ,(local-file "bash_functions"))))    
 92: 
 93:                (service home-xdg-configuration-files-service-type `(("emacs/init.el" ,(local-file "init.el"))
 94:                                                                     ("emacs/early-init.el" ,(local-file "early-init.el"))                                                                   
 95:                                                                     ("pantalaimon/pantalaimon.conf" ,(local-file "pantalaimon.conf"))
 96:                                                                     ))
 97:                (service home-gpg-agent-service-type
 98:                         (home-gpg-agent-configuration
 99:                          (pinentry-program
100:                           (file-append pinentry-emacs "/bin/pinentry-emacs"))
101:                          (ssh-support? #t)
102:                          (extra-content "allow-loopback-pinentry")))
103:                ;; this appears broken
104:                ;; (service home-dicod-service-type)
105:                (service home-pipewire-service-type)
106:                (service home-dbus-service-type)
107:                (service home-x11-service-type)
108:                (service home-startx-command-service-type
109:                         (for-home (xorg-configuration)))
110: 
111:                )
112:          %base-home-services)))

 1: 
 2: (setq gc-cons-threshold (* 50 1000 1000))
 3: (push '(fullscreen . maximized) initial-frame-alist)
 4: (push '(fullscreen . maximized) default-frame-alist)
 5: (push '(tool-bar-lines . 0) default-frame-alist)
 6: (push '(menu-bar-lines . 0) default-frame-alist)
 7: (push '(vertical-scroll-bars) default-frame-alist)
 8: 
 9: ;; Transparency, use with picom line in xinitrc (ref:early-init.el)
10: ;; (push '(alpha . (75 . 75)) default-frame-alist)
11: ;; (set-frame-parameter (selected-frame) 'alpha '(75 . 75))
12: 
13: 
14: ;; The following line runs emacs in daemon/server mode
15: (server-start)
16: 
17: (setq inhibit-startup-screen t
18:       read-process-output-max (* 1024 1024)
19:       initial-scratch-message nil
20:       inhibit-compacting-font-caches t
21:       max-lisp-eval-depth 6400
22:       ;; debug-on-error t ; sometimes usefull but annoying most of the time
23:       )
24: (add-hook 'after-init-hook (lambda () (load-theme 'modus-vivendi)))
25: (customize-set-variable 'initial-major-mode 'fundamental-mode)

 1: ;; -*- lexical-binding: t -*-
 2: ;; make guix packages aviable
 3: (add-to-list 'load-path "~/.guix-home/profile/share/emacs/site-lisp")
 4: (add-to-list 'load-path "~/scripts/emacs") 
 5: (guix-emacs-autoload-packages)
 6: 
 7: ;; make termux packages aviable
 8: ;; (setenv "PATH" (format "%s:%s" "/data/data/com.termux/files/usr/bin"
 9: ;;                     (getenv "PATH")))
10: ;; (push "/data/data/com.termux/files/usr/bin" exec-path)
11: 
12: ;; make (m)elpa packages aviable
13: ;; (require 'package)
14: ;; (setq package-user-dir (expand-file-name "./.packages"))
15: ;; (setq package-archives '(("melpa" . "https://melpa.org/packages/")
16: ;;                          ("elpa" . "https://elpa.gnu.org/packages/")))
17: 
18: ;; (package-initialize)
19: ;; (unless package-archive-contents
20: ;;   (package-refresh-contents))

 1: (require 'battery nil 1)
 2: (require 'icomplete)
 3: (require 'ido)
 4: (require 'ob-emacs-lisp)
 5: (require 'org)
 6: (require 'org-contrib nil 1)
 7: (require 'org-tempo nil 1)
 8: (require 'spray nil 1)
 9: (require 'shell nil 1)
10: (require 'uniquify nil 1)
11: (require 'webjump nil 1)
12: (require 'package nil 1)
13: (require 'shr)

 1: (require 'marginalia nil 1)
 2: (require 'eat nil 1)
 3: (require 'ednc nil 1)
 4: (require 'notifications nil 1)
 5: (require 'exwm nil 1)
 6: (require 'exwm-config nil 1)
 7: (require 'exwm-edit nil 1)
 8: (require 'exwm-randr nil 1)
 9: (require 'exwm-xim nil 1)
10: (require 'empv nil 1)
11: (require 'sqlcipher nil 1) ;; https://github.com/vapniks/sqlcipher
12: (require 'org-caldav nil 1)
13: (load-file "~/pages/publish.el")

1: (set-face-attribute 'default nil
2:                     :family "Sarasa Term SC"
3:                     :foundry "outline"
4:                     :slant 'normal
5:                     :weight 'normal
6:                     :height 300
7:                     :weight 'normal
8:                     :width 'normal)
9: 

 1: (let ((ligatures `((?-  . ,(regexp-opt '("-|" "-~" "---" "-<<" "-<" "--" "->" "->>" "-->")))
 2:                    (?/  . ,(regexp-opt '("/**" "/*" "///" "/=" "/==" "/>" "//")))
 3:                    (?*  . ,(regexp-opt '("*>" "***" "*/")))
 4:                    (?<  . ,(regexp-opt '("<-" "<<-" "<=>" "<=" "<|" "<||" "<|||::=" "<|>" "<:" "<>" "<-<" "<<<" "<==" "<<=" "<=<" "<==>" "<-|" "<<" "<~>" "<=|" "<~~" "<~" "<$>" "<$" "<+>" "<+" "</>" "</" "<*" "<*>" "<->" "<!--")))
 5:                    (?:  . ,(regexp-opt '(":>" ":<" ":::" "::" ":?" ":?>" ":=")))
 6:                    (?=  . ,(regexp-opt '("=>>" "==>" "=/=" "=!=" "=>" "===" "=:=" "==")))
 7:                    (?!  . ,(regexp-opt '("!==" "!!" "!=")))
 8:                    (?>  . ,(regexp-opt '(">]" ">:" ">>-" ">>=" ">=>" ">>>" ">-" ">=")))
 9:                    (?&  . ,(regexp-opt '("&&&" "&&")))
10:                    (?|  . ,(regexp-opt '("|||>" "||>" "|>" "|]" "|}" "|=>" "|->" "|=" "||-" "|-" "||=" "||")))
11:                    (?.  . ,(regexp-opt '(".." ".?" ".=" ".-" "..<" "...")))
12:                    (?+  . ,(regexp-opt '("+++" "+>" "++")))
13:                    (?\[ . ,(regexp-opt '("[||]" "[<" "[|")))
14:                    (?\{ . ,(regexp-opt '("{|")))
15:                    (?\? . ,(regexp-opt '("??" "?." "?=" "?:")))
16:                    (?#  . ,(regexp-opt '("####" "###" "#[" "#{" "#=" "#!" "#:" "#_(" "#_" "#?" "#(" "##")))
17:                    (?\; . ,(regexp-opt '(";;")))
18:                    (?_  . ,(regexp-opt '("_|_" "__")))
19:                    (?\\ . ,(regexp-opt '("\\" "\\/")))
20:                    (?~  . ,(regexp-opt '("~~" "~~>" "~>" "~=" "~-" "~@")))
21:                    (?$  . ,(regexp-opt '("$>")))
22:                    (?^  . ,(regexp-opt '("^=")))
23:                    (?\] . ,(regexp-opt '("]#")))
24:                    )
25:                  ))
26:   (dolist (char-regexp ligatures)
27:     (set-char-table-range composition-function-table (car char-regexp)
28:                           `([,(cdr char-regexp) 0 font-shape-gstring]))))

 1: (put 'downcase-region 'disabled nil)
 2: (put 'upcase-region 'disabled nil)
 3: 
 4: (defun run-external-command (cmd)
 5:   (interactive (list (read-shell-command "run cmd: ")))
 6:   (start-process-shell-command cmd nil cmd))
 7: 
 8: (keymap-global-set "C-c c" 'org-capture)
 9: (keymap-global-set "C-z" 'repeat)
10: (keymap-global-set "C-x z" 'webjump)
11: (keymap-global-set "C-x C-z" 'webjump)
12: (keymap-global-set "C-x C-f" 'find-file)  
13: (keymap-global-set "C-x C-k" 'kill-matching-buffers)
14: (keymap-global-set "C-x m" empv-map) ;; compose-mail
15: (keymap-global-set "M-s" 'copy-to-register)
16: (keymap-global-set "M-i" 'insert-register)
17: (keymap-global-set "C-x C-d" 'dired)
18: (keymap-global-set "C-x d" 'run-external-command) ;; list-directory
19: (keymap-global-set "C-x C-b" 'ibuffer)
20: (keymap-global-set "C-s" 'isearch-forward-regexp)
21: (keymap-global-set "C-r" 'isearch-backward-regexp)
22: (keymap-global-set "C-M-s" 'isearch-forward)
23: (keymap-global-set "C-M-r" 'isearch-backward)
24: (keymap-global-set "C-<wheel-up>" 'text-scale-increase)
25: (keymap-global-set "C-<wheel-down>" 'text-scale-decrease)
26: 
27: (defvar org-link-repeat-map
28:   (let ((map (make-sparse-keymap)))
29:     (define-key map (kbd "n") 'org-next-link)
30:     (define-key map (kbd "p") 'org-previous-link)
31:     map))
32: 
33: (dolist (cmd '(org-next-link org-6previous-link))
34:   (put cmd 'repeat-map 'org-link-repeat-map))
35: 
36: (keymap-set dired-mode-map "e" '(lambda () (interactive) (eww-open-file (dired-get-file-for-visit))))

 1: (setq ibuffer-saved-filter-groups
 2:       (quote (("default"
 3:                ("org" (or
 4:                        (mode . org-mode)
 5:                        (name . "\\.org")))
 6: 
 7:                ("diff" (or
 8:                         (mode . ediff-mode)
 9:                         (name . "^\\diff\\*$")))
10: 
11:                ("emacs" (or
12:                          (mode . dired-mode)
13:                          (name . "^\\*shell\\*$")
14:                          (name . "^\\*scratch\\*$")
15:                          (name . "^\\*Messages\\*$")))))))
16: 
17: (add-hook 'ibuffer-mode-hook
18:           (lambda ()
19:             (ibuffer-switch-to-saved-filter-groups "default")))

  1: ;; (require 'nnir) ; deprecated
  2: ;;
  3: ;; (setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3") 
  4: (setq gnus-secondary-select-methods
  5:       '((nntp "news.gwene.io") ;; Read feeds/atom through gwene
  6:         ;; This tells Gnus to get email via IMAP.
  7:         (nnimap "jakob.honal"
  8:                 (nnimap-address "imap.gmx.net")
  9:                 (nnimap-user "jakob.honal@gmx.de")
 10:                 (nnimap-authenticator login)
 11:                 (nnimap-server-port 993)
 12:                 (nnimap-stream ssl)
 13:                 ;;(gnus-search-engine imap)
 14:                                         ; @see http://www.gnu.org/software/emacs/manual/html_node/gnus/Expiring-Mail.html
 15:                 (nnmail-expiry-target "nnimap+gmx.de:Gelöscht")
 16:                 (nnmail-expiry-wait 90))
 17: 
 18:         ;; (nnimap "geraetnull"
 19:         ;;         (nnimap-address "imap.web.de")
 20:         ;;      (nnimap-user "geraetnull@web.de")
 21:         ;;         (nnimap-server-port 993)
 22:         ;;         (nnimap-stream ssl)
 23:         ;;         ;;(gnus-search-engine imap)
 24:         ;;                              ; @see http://www.gnu.org/software/emacs/manual/html_node/gnus/Expiring-Mail.html
 25:         ;;         (nnmail-expiry-target "nnimap+web.de:Gelöscht")
 26:         ;;         (nnmail-expiry-wait 90))
 27: 
 28:           ;;              (nnimap "suschemist"
 29: ;;                       (nnimap-address "imap-mail.outlook.com")
 30: ;;                    (nnimap-user "suschemist@outlook.com")
 31: ;;                       (nnimap-server-port 993)
 32: ;;                       (nnimap-stream ssl)
 33: ;;                       ;;(gnus-search-engine imap)
 34: ;;                       (nnmail-expiry-wait 90))
 35: 
 36: ;;              (nnimap "phosphorus3115"
 37: ;;                       (nnimap-address "imap-mail.outlook.com")
 38: ;;                    (nnimap-user "phosphorus3115@outlook.de")
 39: ;;                       (nnimap-server-port 993)
 40: ;;                       (nnimap-stream ssl)
 41: ;;                       ;;(gnus-search-engine imap)
 42: ;;                       (nnmail-expiry-wait 90))
 43: 
 44: 
 45:         ))
 46: 
 47: (setq gnus-thread-sort-functions
 48:       '(gnus-thread-sort-by-most-recent-date
 49:         (not gnus-thread-sort-by-number)))
 50: 
 51: (setq gnus-use-cache t)
 52: 
 53: ;; (defun my-gnus-group-list-subscribed-groups ()
 54: ;;   "List all subscribed groups with or without un-read messages"
 55: ;;   (interactive)
 56: ;;   (gnus-group-list-all-groups 5))
 57: 
 58: ;; open attachment
 59: (eval-after-load 'mailcap
 60:   '(progn
 61:      (cond
 62:       ;; on macOS, maybe change mailcap-mime-data?
 63:       ((eq system-type 'darwin))
 64:       ;; on Windows, maybe change mailcap-mime-data?
 65:       ((eq system-type 'windows-nt))
 66:       (t
 67:        ;; Linux, read ~/.mailcap
 68:        (mailcap-parse-mailcaps)))))
 69: 
 70: ;; Tree view for groups.
 71: (add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
 72: ;; Threads
 73: (setq gnus-summary-thread-gathering-function 'gnus-gather-threads-by-subject)
 74: 
 75: ;; Also, I prefer to see only the top level message.  If a message has
 76: ;; several replies or is part of a thread, only show the first message.
 77: ;; `gnus-thread-ignore-subject' will ignore the subject and
 78: ;; look at 'In-Reply-To:' and 'References:' headers.
 79: ;; (setq gnus-thread-hide-subtree t)
 80: ;; (setq gnus-thread-ignore-subject t)
 81: 
 82: ;; http://www.gnu.org/software/emacs/manual/html_node/gnus/_005b9_002e2_005d.html
 83: ;; (setq gnus-use-correct-string-widths nil)
 84: 
 85: ;; ;; Sample on how to organize mail folders.
 86: ;; ;; It's dependent on `gnus-topic-mode'.
 87: ;; (eval-after-load 'gnus-topic
 88: ;;   '(progn
 89: ;;      (setq gnus-message-archive-group '((format-time-string "sent.%Y")))
 90: ;;      (setq gnus-server-alist '(("archive" nnfolder "archive" (nnfolder-directory "~/Mail/archive")
 91: ;;                                 (nnfolder-active-file "~/Mail/archive/active")
 92: ;;                                 (nnfolder-get-new-mail nil)
 93: ;;                                 (nnfolder-inhibit-expiry t))))
 94: 
 95: ;; "Gnus" is the root folder, and there are three mail accounts, "misc", "hotmail", "gmail"
 96: ;; (setq gnus-topic-topology '(("Gnus" visible)
 97: ;;                             (("jakob.honal" visible))
 98: ;;                             ;; (("outlook" visible nil nil))
 99: ;;                             (("geraetnull" visible nil nil))))
100: 
101: ;; each topic corresponds to a public imap folder
102: ;; (setq gnus-topic-alist '(
103: ;;                       ;;     ("outlook" ; the key of topic
104: ;;                          ;; "nnimap+hotmail:Inbox"
105: ;;                          ;; "nnimap+hotmail:Drafts"
106: ;;                          ;; "nnimap+hotmail:Sent"
107: ;;                          ;; ;; "nnimap+hotmail:Junk"
108: ;;                          ;; ;; "nnimap+hotmail:Deleted") 
109: 
110: ;;                          ("jakob.honal" ; the key of topic
111: ;;                           "nnimap+gmail:INBOX"
112: ;;                           "nnimap+gmail:Gesendet"
113: ;;                           "nnimap+gmail:Gelöscht"
114: ;;                           "nnimap+gmail:Entwürfe")                         
115: ;;                       ("geraetnull" ; the key of topic
116: ;;                           "nnimap+gmail:INBOX"
117: ;;                           "nnimap+gmail:[Gmail]/Sent Mail"
118: ;;                           "nnimap+gmail:[Gmail]/Trash"
119: ;;                           "nnimap+gmail:Drafts")                               
120: ;;                          ("Gnus")))
121: 
122: ;; see latest 1000 mails in topic hen press Enter on any group
123: ;;   (gnus-topic-set-parameters "jakob.honal" '((display . 1000)))
124: ;;   (gnus-topic-set-parameters "geratnull" '((display . 1000)))
125: ;;  ;; (gnus-topic-set-parameters "outlook" '((display . 1000))))
126: ;; )

1: (add-hook 'eshell-load-hook #'eat-eshell-mode)
2: (eat-eshell-mode)

1: (add-to-list 'empv-mpv-args "--ytdl-format=bestvideo+bestaudio/best[ext=mp4]/best")

1: (pdf-loader-install)

1: (setq spray-margin-top 8
2:       spray-margin-left 25
3:       spray-height 800)
4: 
5: (set-face-attribute 'spray-accent-face nil :foreground "green" :inherit 'spray-base-face)

  1: (setq
  2:  gptel-track-media t
  3:  gptel-default-mode 'org-mode
  4:  gptel-org-branching-context t
  5:  gptel-model "deepseek-r1:latest"   
  6:  gptel-backend (gptel-make-ollama
  7:                    "Ollama"
  8:                  :stream t
  9:                  :host "localhost:11434"
 10:                  :models '((sroecker/sauerkrautlm-7b-hero:latest)
 11:                            (tinydolphin:latest)
 12:                            (deepscaler:latest)
 13:                            (stablelm2:1.6b
 14:                             :capabilities (media)
 15:                             :mime-types ("text/plain"
 16:                                          "text/org"
 17:                                          "application/x-abiword"
 18:                                          "text/css"
 19:                                          "text/csv"
 20:                                          "application/msword"
 21:                                          "application/vnd.openxmlformats-officedocument.wordprocessingml.document"
 22:                                          "application/epub+zip"
 23:                                          "text/html"
 24:                                          "text/calendar"
 25:                                          "text/javascript"
 26:                                          "application/json"
 27:                                          "application/vnd.oasis.opendocument.presentation"
 28:                                          "application/vnd.oasis.opendocument.spreadsheet"
 29:                                          "application/vnd.oasis.opendocument.text"
 30:                                          "application/pdf"
 31:                                          "application/vnd.ms-powerpoint"
 32:                                          "application/vnd.openxmlformats-officedocument.presentationml.presentation"
 33:                                          "application/rtf"
 34:                                          "application/xhtml+xml"
 35:                                          "application/vnd.ms-excel"
 36:                                          "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
 37:                                          "application/xml"
 38:                                          "text/xml"
 39:                                          "text/x-script.elisp"
 40:                                          "text/x-fortran"
 41:                                          "text/x-script.scheme"
 42:                                          "text/x-script.guile"))                       
 43:                            (qwen2.5-coder:latest
 44:                             :capabilities (media)
 45:                             :mime-types ("text/plain"
 46:                                          "text/org"
 47:                                          "application/x-abiword"
 48:                                          "text/css"
 49:                                          "text/csv"
 50:                                          "application/msword"
 51:                                          "application/vnd.openxmlformats-officedocument.wordprocessingml.document"
 52:                                          "application/epub+zip"
 53:                                          "text/html"
 54:                                          "text/calendar"
 55:                                          "text/javascript"
 56:                                          "application/json"
 57:                                          "application/vnd.oasis.opendocument.presentation"
 58:                                          "application/vnd.oasis.opendocument.spreadsheet"
 59:                                          "application/vnd.oasis.opendocument.text"
 60:                                          "application/pdf"
 61:                                          "application/vnd.ms-powerpoint"
 62:                                          "application/vnd.openxmlformats-officedocument.presentationml.presentation"
 63:                                          "application/rtf"
 64:                                          "application/xhtml+xml"
 65:                                          "application/vnd.ms-excel"
 66:                                          "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
 67:                                          "application/xml"
 68:                                          "text/xml"
 69:                                          "text/x-script.elisp"
 70:                                          "text/x-fortran"
 71:                                          "text/x-script.scheme"
 72:                                          "text/x-script.guile"))
 73:                            (moondream:latest
 74:                             :capabilities (media)
 75:                             :mime-types ("text/plain"
 76:                                          "text/org"                                              
 77:                                          "image/png"                                            
 78:                                          "image/jpg"
 79:                                          "image/jpeg"
 80:                                          )) 
 81:                            (deepseek-r1:latest
 82:                             :capabilities (media)
 83:                             :mime-types ("text/plain"
 84:                                          "text/org"
 85:                                          "application/x-abiword"
 86:                                          "text/css"
 87:                                          "text/csv"
 88:                                          "application/msword"
 89:                                          "application/vnd.openxmlformats-officedocument.wordprocessingml.document"
 90:                                          "application/epub+zip"
 91:                                          "text/html"
 92:                                          "text/calendar"
 93:                                          "text/javascript"
 94:                                          "application/json"
 95:                                          "application/vnd.oasis.opendocument.presentation"
 96:                                          "application/vnd.oasis.opendocument.spreadsheet"
 97:                                          "application/vnd.oasis.opendocument.text"
 98:                                          "application/pdf"
 99:                                          "application/vnd.ms-powerpoint"
100:                                          "application/vnd.openxmlformats-officedocument.presentationml.presentation"
101:                                          "application/rtf"
102:                                          "application/xhtml+xml"
103:                                          "application/vnd.ms-excel"
104:                                          "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
105:                                          "application/xml"
106:                                          "text/xml"
107:                                          "text/x-script.elisp"
108:                                          "text/x-fortran"
109:                                          "text/x-script.scheme"
110:                                          "text/x-script.guile"))))
111: 
112:  gptel-directives '((default . "You are a great language model and a helpful assistant. Answer precisely.")
113:                     (programming . "You are a great language model and a careful programmer. Provide code and only code as output without additional text, instructions or notes.")
114:                     (writing . "You are a great language model and an editorial assistant. Answer precisely.")
115:                     (chat . "You are a great language model and a conversationalist. Answer precisely.")
116:                     (scientist . "You are an omniscient scholar. Explain precisely what has been described.")))
117: 
118: (setf (alist-get 'org-mode gptel-prompt-prefix-alist) "@user: ")
119: (setf (alist-get 'org-mode gptel-response-prefix-alist) "@assistant: ")

 1:   ;; rename buffer
 2:   (defun exwm-rename-buffer ()
 3:     (interactive)
 4:     (exwm-workspace-rename-buffer
 5:      (concat exwm-class-name ":"
 6:              (if (<= (length exwm-title) 50) exwm-title
 7:                (concat (substring exwm-title 0 49) "...")))))
 8: 
 9:   (add-hook 'exwm-update-class-hook 'exwm-rename-buffer)
10:   (add-hook 'exwm-update-title-hook 'exwm-rename-buffer)
11: 
12:   ;; default config
13:   (ednc-mode 1)
14:   (setq exwm-randr-workspace-monitor-plist '(0 "eDP" 1 "DisplayPort-3" 2 "DisplayPort-1" 3 "DisplayPort-2" 4 "DisplayPort-0" 5 "DisplayPort-4")
15:         exwm-workspace-number 2
16:         exwm-workspace-warp-cursor t
17:         mouse-autoselect-window t
18:         focus-follows-mouse t
19:         exwm-workspace-show-all-buffers t
20:         exwm-layout-show-all-buffers t
21:         ediff-window-setup-function 'ediff-setup-windows-plain
22:         )
23: 
24: ;; das beist sich mit xinitrc
25: (exwm-enable)
26: 
27: 
28:   ;; ;; XInputModule
29:   ;; (exwm-xim-enable)
30: 
31:   ;; (setenv "GTK_IM_MODULE" "xim")
32:   ;; (setenv "QT_IM_MODULE" "xim")
33:   ;; (setenv "XMODIFIERS" "@im=exwm-xim")
34:   ;; (setenv "CLUTTER_IM_MODULE" "xim")
35: 
36:   (defun run-command-in-background (command)
37:     (let ((command-parts (split-string command "[ ]+")))
38:       (apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts)))))
39: 
40:   (defun exwm-autorandr-displays ()
41:     (interactive)
42:     (run-command-in-background "autorandr --change --force")
43:     (message "Display config: %s"
44:              (string-trim (shell-command-to-string "autorandr --current"))))
45: 
46:   (exwm-randr-mode 1)
47:   (add-hook 'exwm-randr-screen-change-hook #'exwm-autorandr-displays)
48:   (exwm-autorandr-displays)
49: 

 1: (setq exwm-input-global-keys
 2:       `(
 3:         ;; 's-b': send window to background
 4:         ([?\s-b] . exwm-send-window-to-background)
 5:         ;; 's-r': Reset (to line-mode).
 6:         ([?\s-r] . exwm-reset)
 7:         ;; 's-w': Switch workspace.
 8:         ([?\s-w] . exwm-workspace-switch)
 9:         ;; 's-&': Launch application.
10:         ([?\s-&] . (lambda (command)
11:                      (interactive (list (read-shell-command "$ ")))
12:                      (start-process-shell-command command nil command)))
13:         ;; 's-N': Switch to certain workspace.
14:         ,@(mapcar (lambda (i)
15:                     `(,(kbd (format "s-%d" i)) .
16:                       (lambda ()
17:                         (interactive)
18:                         (exwm-workspace-switch-create ,i))))
19:                   (number-sequence 0 9))))
20: 
21: 
22: (exwm-input-set-key (kbd "<XF86MonBrightnessDown>")
23:                     (lambda () (interactive) (call-process-shell-command "light -U 1 ; light -Ss sysfs/leds/apple::kbd_backlight 32" nil 0)))
24: 
25: (exwm-input-set-key (kbd "<XF86MonBrightnessUp>")
26:                     (lambda () (interactive) (call-process-shell-command "light -A 1 ; light -Ss sysfs/leds/apple::kbd_backlight 32" nil 0)))
27: 
28: (exwm-input-set-key (kbd "<XF86AudioLowerVolume>")
29:                     (lambda () (interactive) (call-process-shell-command "pactl set-sink-volume 0 -1%")))
30: 
31: (exwm-input-set-key (kbd "<XF86AudioRaiseVolume>")
32:                     (lambda () (interactive) (call-process-shell-command "pactl set-sink-volume 0 +1%")))
33: 
34: (exwm-input-set-key (kbd "<XF86AudioMute>")
35:                     (lambda () (interactive) (call-process-shell-command "pactl set-sink-mute 0 toggle")))
36: 
37: (exwm-input-set-key (kbd "<XF86MicMute>")
38:                     (lambda () (interactive) (call-process-shell-command "pactl set-source-mute 0 toggle")))
39: 
40: (exwm-input-set-key (kbd "<XF86AudioPlay>") 'empv-toggle) ;mehr Argumente finden
41: (exwm-input-set-key (kbd "<XF86AudioNext>") 'empv-playlist-next)
42: (exwm-input-set-key (kbd "<XF86AudioPrev>") 'empv-playlist-prev)
43: (exwm-input-set-key (kbd "<XF86Search>") 'org-screenshot-take) ; Screenshot key für touchbar basteln
44: (exwm-input-set-key (kbd "<XF86KbdBrightnessUp>") 'empv-chapter-next)
45: (exwm-input-set-key (kbd "<XF86KbdBrightnessDown>") 'empv-chapter-prev)
46: 
47: (setq exwm-input-simulation-keys
48:       '(([?\C-b] . [left])
49:         ([?\C-f] . [right])
50:         ([?\C-p] . [up])
51:         ([?\C-n] . [down])
52:         ([?\C-a] . [home])
53:         ([?\C-e] . [end])
54:         ([?\M-v] . [prior])
55:         ([?\C-v] . [next])
56:         ([?\C-d] . [delete])
57:         ([?\C-k] . [S-end delete])
58:         ([?\C-s] . [?\C-f])
59:         ([?\C-r] . [?\C-f])
60:         ([?\C-b] . [left])
61:         ([?\M-b] . [C-left])
62:         ([?\M-f] . [C-right])
63:         ([?\M-<] . [C-home])
64:         ([?\M->] . [C-end])
65:         ([?\C-i] . [tab])
66:         ([?\C-m] . [return])
67:         ([?\C-o] . [return left])
68:         ([?\C-g] . [escape])
69:         ([?\C-\_] . [?\C-z])
70:         ([?\C-/] . [?\C-z])
71:         ([?\M-d] . [S-C-right delete])
72:         ([<C-delete>] . [S-C-left delete])
73:         ([<M-delete>] . [S-C-left delete])
74:         ([?\M-S b] . [S-C-left])
75:         ([?\M-S f] . [S-C-right])
76:         ([?\M-w] . [?\C-c])
77:         ([?\C-y] . [?\C-v])
78:         ))

 1: 
 2: (defun zoom ()
 3:   (interactive)
 4:   (start-process "flatseal" nil "flatpak" "-u" "run" "us.zoom.Zoom"))
 5: 
 6: (defun flatseal ()
 7:   (interactive)
 8:   (start-process "flatseal" nil "flatpak" "-u" "run" "com.github.tchx84.Flatseal"))
 9: 
10: (defun msteams ()
11:   (interactive)
12:   (start-process "teams" nil "flatpak" "-u" "run" "com.github.IsmaelMartinez.teams_for_linux"))
13: 
14: (defun gradience ()
15:   (interactive)
16:   (start-process "Gradience" nil "flatpak" "-u" "run" "com.github.GradienceTeam.Gradience"))
17: 
18: (defun signal-desktop ()
19:   (interactive)
20:   (start-process "signal-desktop" nil "flatpak" "-u" "run" "org.signal.Signal"))
21: 
22: (defun molsketch ()
23:   (interactive)
24:   (start-process "molsketch" nil "flatpak" "-u" "run" "net.sourceforge.molsketch"))
25: 
26: (defun discordapp ()
27:   (interactive)
28:   (start-process "discordapp" nil "flatpak" "-u" "run" "com.discordapp.Discord"))
29: 
30: (defun ausweisapp ()
31:   (interactive)
32:   (start-process "ausweisapp" nil "flatpak" "-u" "run" "de.bund.ausweisapp.ausweisapp2"))
33: 
34: (defun avogadro2 ()
35:   (interactive)
36:   (start-process "avogadro2" nil "/home/macfag/blobs/avogadro2/Avogadro2-x86_64.AppImage" "--appimage-extract-and-run"))
37: 
38: (defun spawn-cubicgrid-wallpaper ()
39:   (interactive)
40:   (start-process  "cubicgrid" nil "/home/macfag/.guix-home/profile/libexec/xscreensaver/cubicgrid" "--no-bigdots" "--symmetry" "cubic" "--speed" "0.1" "--delay" "0" "--zoom" "5"))
41: 
42: (defun spawn-etruscanvenus-wallpaper ()
43:   (interactive)
44:   (start-process  "etruscanvenus" nil "/home/macfag/.guix-home/profile/libexec/xscreensaver/etruscanvenus" "--view-mode" "walk" "--mode" "wireframe" "--appearance" "solid" "--colors" "direction" "--speed-x" "-0.065" "--speed-y" "-0.774" "--speed-z" "-0.516" "--walk-direction" "-26.129" "--delay" "0"))

1: (setq gc-cons-threshold (* 2 1000 1000))

 1: (custom-set-variables
 2:  '(fido-mode t)
 3:  '(holiday-bahai-holidays nil)
 4:  '(holiday-general-holidays nil)
 5:  '(holiday-hebrew-holidays nil)
 6:  '(holiday-islamic-holidays nil)
 7:  '(holiday-oriental-holidays nil)
 8:  '(ido-mode nil nil (ido))
 9:  '(safe-local-variable-values
10:    '((org-roam-db-location . "~/webserver/wiki/wiki.db")
11:      (org-roam-directory . "~/webserver/wiki/")
12:      (org-roam-db-location . "~/eunomatics/eunomatics.db")
13:      (org-roam-directory . "~/eunomatics/")
14:      (org-roam-db-location . "~/librefine/librefine.db")
15:      (org-roam-directory . "~/librefine/"))))
16: 
17: (custom-set-faces)

1: <<emacs-early-init>>

1: <<mobile-settings>>     

1: [Profile0]
2: Name=default
3: IsRelative=1
4: Path=personal.default
5: Default=1
6: 
7: [General]
8: StartWithLastProfile=1
9: Version=2

  1: @-moz-document url-prefix(about:blank) {
  2:     html > body:empty {
  3:         background-color: #000000 !important;
  4:     }
  5: }
  6: 
  7: @-moz-document url(about:blank) {
  8:     html > body:empty {
  9:         background-color: #000000 !important;
 10:     }
 11: }
 12: 
 13: /* add '[pdf]' next to links to PDF files */
 14: a[href$=".pdf"]:after {
 15:     font-size: smaller;
 16:     content: " [pdf]";
 17: }
 18: 
 19: A:link[HREF*="addata"]  IMG, 
 20: A:link[HREF*="ad."]  IMG, 
 21: A:link[HREF*="ads."]  IMG, 
 22: A:link[HREF*="/ad"]  IMG, 
 23: A:link[HREF*="/A="]  IMG, 
 24: A:link[HREF*="/click"]  IMG, 
 25: A:link[HREF*="?click"]  IMG, 
 26: A:link[HREF*="?banner"]  IMG, 
 27: A:link[HREF*="=click"]  IMG, 
 28: A:link[HREF*="clickurl="]  IMG, 
 29: A:link[HREF*=".atwola."]  IMG, 
 30: A:link[HREF*="spinbox."]  IMG, 
 31: A:link[HREF*="transfer.go"]  IMG, 
 32: A:link[HREF*="adfarm"]  IMG, 
 33: A:link[HREF*="adSpace"]  IMG, 
 34: A:link[HREF*="adserve"]  IMG, 
 35: A:link[HREF*=".banner"]  IMG, 
 36: A:link[HREF*="bluestreak"]  IMG, 
 37: A:link[HREF*="doubleclick"]  IMG, 
 38: A:link[HREF*="/rd."]  IMG, 
 39: A:link[HREF*="/0AD"]  IMG, 
 40: A:link[HREF*=".falkag."]  IMG, 
 41: A:link[HREF*="trackoffer."]  IMG, 
 42: A:link[HREF*="casalemedia."]  IMG, 
 43: A:link[HREF*="valueclick."]  IMG, 
 44: A:link[HREF*="betterbasketball."]  IMG, 
 45: A:link[HREF*="sponsors.phtml"]  IMG, 
 46: A:link[HREF*="realgmtix.phtml"]  IMG, 
 47: A:link[HREF*="BurstingPipe"]  IMG,
 48: A:link[HREF*="ebayobjects"]  IMG,
 49: A:link[HREF*="tracksponsor."]  IMG { display: none ! important } 
 50: 
 51: /* disable ad iframes */
 52: IFRAME[SRC*="addata"],
 53: IFRAME[SRC*="ad."],
 54: IFRAME[SRC*="ads."],
 55: IFRAME[SRC*="/ad"],
 56: IFRAME[SRC*="/A="],
 57: IFRAME[SRC*="/click"],
 58: IFRAME[SRC*="?click"],
 59: IFRAME[SRC*="?banner"],
 60: IFRAME[SRC*="=click"],
 61: IFRAME[SRC*="clickurl="],
 62: IFRAME[SRC*=".atwola."],
 63: IFRAME[SRC*="spinbox."],
 64: IFRAME[SRC*="transfer.go"],
 65: IFRAME[SRC*="adfarm"],
 66: IFRAME[SRC*="adSpace"],
 67: IFRAME[SRC*="adserve"],
 68: IFRAME[SRC*="adjuggler"],
 69: IFRAME[SRC*=".banner"],
 70: IFRAME[SRC*="bluestreak"],
 71: IFRAME[SRC*="doubleclick"],
 72: IFRAME[SRC*="/rd."],
 73: IFRAME[SRC*="/0AD"],
 74: IFRAME[SRC*=".falkag."], 
 75: IFRAME[SRC*="trackoffer."],
 76: IFRAME[SRC*="connextra."],
 77: IFRAME[ID*="merchandisingMERC"],
 78: IFRAME[SRC*="tracksponsor."]  { display: none ! important } 
 79: 
 80: 
 81: /* miscellaneous different blocking rules to block some stuff that gets through */
 82: 
 83: A:link[onmouseover*="AdSolution"] IMG,
 84: *[class=sponsors],
 85: *[class=sp_links],
 86: *[class=advertising],
 87: *[ID=sponsors],
 88: *[ID=ad],
 89: *[ID=inlinead],
 90: *[ID=ad_creative],
 91: *[ID=contextualLinks],
 92: IMG[SRC*=".msads."] { display: none ! important } 
 93: 
 94: 
 95: /* turning some false positives back off */
 96: 
 97: A:link[HREF*="/add"]  IMG, 
 98: A:link[HREF*="/adsl"] IMG,
 99: A:link[HREF*="thread."] IMG,
100: A:link[HREF*="download."] IMG,
101: A:link[HREF*="downloads."] IMG,
102: A:link[HREF*="netflix.com/AddToQueue"] IMG,
103: A:link[HREF*="load."], 
104: A:link[HREF*="loads."], 
105: IFRAME[SRC*="load."], 
106: IFRAME[SRC*="loads."],
107: A:link[HREF*="click.mp3"] IMG { display: inline ! important }

 1: user_pref("toolkit.legacyUserProfileCustomizations.stylesheets", true);
 2: 
 3: /export// user_pref("general.useragent.override" , "useragent-string");
 4: 
 5: user_pref("widget.content.gtk-theme-override", "advendi");
 6: user_pref("widget.content.allow-gtk-dark-theme", true);
 7: 
 8: user_pref("gfx.font_rendering.fontconfig.max_generic_substitutions", 127);
 9: user_pref("browser.newtabpage.activity-stream.asrouter.providers.snippets", "{}");
10: user_pref("browser.compactmode.show", true);
11: user_pref("browser.display.background_color", "#000000");
12: user_pref("browser.display.background_color.dark", "#000000");
13: user_pref("browser.display.use_system_colors", true);
14: user_pref("browser.download.lastDir", "/home/macfag/Downloads");
15: user_pref("browser.link.open_newwindow", 2);
16: user_pref("browser.newtabpage.enabled", false);
17: user_pref("browser.startup.homepage", "about:blank");
18: user_pref("browser.startup.page", 1);
19: user_pref("browser.tabs.warnOnClose", false);
20: user_pref("browser.tabs.opentabfor.middleclick", false);
21: 
22: user_pref("devtools.f12_enabled", false );
23: 
24: user_pref("font.language.group", "x-western");
25: user_pref("font.minimum-size.x-western", 16);
26: user_pref("font.name.monospace.ar", "Sarasa Term SC");
27: user_pref("font.name.monospace.x-math", "Sarasa Term SC");
28: user_pref("font.name.monospace.x-unicode", "Sarasa Term SC");
29: user_pref("font.name.monospace.x-western", "Sarasa Term SC");
30: user_pref("font.name.monospace.zh-CN", "Sarasa Term SC");
31: user_pref("font.name.sans-serif.ar", "Sarasa Term SC");
32: user_pref("font.name.sans-serif.x-math", "Sarasa Term SC");
33: user_pref("font.name.sans-serif.x-unicode", "Sarasa Term SC");
34: user_pref("font.name.sans-serif.x-western", "Sarasa Term SC");
35: user_pref("font.name.sans-serif.zh-CN", "Sarasa Term SC");
36: user_pref("font.name.serif.ar", "Sarasa Term SC");
37: user_pref("font.name.serif.x-math", "Sarasa Term SC");
38: user_pref("font.name.serif.x-unicode", "Sarasa Term SC");
39: user_pref("font.name.serif.x-western", "Sarasa Term SC");
40: user_pref("font.name.serif.zh-CN", "Sarasa Term SC");
41: user_pref("font.size.monospace.x-western", 16);
42: user_pref("font.name.serif.x-western",  "Sarasa Term SC");
43: user_pref("font.size.variable.x-western", 16);
44: 
45: user_pref("full-screen-api.ignore-widgets", true);
46: user_pref("full-screen-api.warning.timeout", 0);
47: 
48: user_pref("ui.key.menuAccessKeyFocuses", false);
49: user_pref("ui.textHighlightBackground", "#79a8ff");
50: user_pref("ui.textSelectAttentionBackground", "#d0bc00");
51: user_pref("ui.textScaleFactor", 150);

 1: /* Needs toolkit.legacyUserProfileCustomizations.stylesheets true */
 2: @namespace url("http://www.mozilla.org/keymaster/gatekeeper/there.is.only.xul");
 3: * {font-size: 12pt !important ; font-family: "Sarasa Fixed SC" !important ;}
 4: 
 5: :-moz-any(#content,#appcontent) browser{
 6:     margin-right:-10px!important;
 7:     overflow-y:scroll;
 8:     margin-bottom:-5px!important;
 9:     overflow-x:scroll;}
10: 
11: #tabbrowser-tabpanels { background: var(--toolbar-bgcolor) !important; }
12: #forward-button { display:none !important; }
13: browser { background-color: #000000 !important; }

 1: [Settings]
 2: gtk-application-prefer-dark-theme=1
 3: gtk-key-theme-name = Emacs
 4: gtk-theme-name = advendi
 5: gtk-font-name = Sarsa Gothic 14
 6: 
 7: [Settings]
 8: gtk-application-prefer-dark-theme=1
 9: gtk-key-theme-name = Emacs
10: gtk-theme-name = advendi
11: gtk-font-name = Sarsa Gothic 14

1: gtk-key-theme-name = "Emacs"
2: gtk-theme-name = "advendi"
3: style "user-font" {
4: font_name="Sarsa Gothic 14"
5: }
6: widget_class "*" style "user-font"
7: gtk-font-name = "Sarsa Gothic 14"

 1: [Filechooser Settings]
 2: LocationMode=path-bar
 3: ShowHidden=false
 4: ShowSizeColumn=true
 5: GeometryX=812
 6: GeometryY=435
 7: GeometryWidth=1256
 8: GeometryHeight=882
 9: SortColumn=name
10: SortOrder=ascending
11: StartupMode=cwd

1: [Settings]
2: gtk-application-prefer-dark-theme=1
3: gtk-key-theme-name = Emacs
4: gtk-theme-name = advendi
5: gtk-font-name = Sarsa Gothic 14

1: [Settings]
2: gtk-application-prefer-dark-theme=1
3: gtk-key-theme-name = Emacs
4: gtk-theme-name = advendi
5: gtk-font-name = Sarsa Gothic 14

1: [local-matrix]
2: Homeserver = https://matrix.org:443
3: ListenAddress = localhost
4: ListenPort = 8009

 1: # Do not overwrite files when redirecting stout, force it with ">|" if nedded.
 2: set -o noclobber
 3: # Of course we want those type of keybindings
 4: set -o emacs
 5: 
 6: # expand aliases when a command is read (quirky, read manual)
 7: shopt -s expand_aliases
 8: 
 9: # small overhead, big window!:
10: shopt -s checkwinsize
11: 
12: # recursive globbing
13: shopt -s globstar 2> /dev/null
14: 
15: # append history, do not overwrite
16: shopt -s histappend
17: 
18: # Store multi-line commands as one
19: shopt -s cmdhist
20: 
21: # cd by dirname only and other fast-cd features 
22: shopt -s autocd 2> /dev/null
23: shopt -s dirspell 2> /dev/null
24: shopt -s cdspell 2> /dev/null
25: shopt -s cdable_vars

 1: # Be case sensitive on a "case by case" basis.
 2: bind "set completion-ignore-case on"
 3: bind "set completion-map-case on"
 4: 
 5: # be verbose
 6: bind "set show-all-if-ambiguous on"
 7: 
 8: # enable marking of directories in the directory stack when navigating using tab completion
 9: bind "set mark-symlinked-directories on"
10: 
11: # bind the Arrow keys to search through the command history
12: bind '"\e[A": history-search-backward'
13: bind '"\e[B": history-search-forward'
14: 
15: # bind the Arrow keys to move by a single character
16: bind '"\e[C": forward-char'
17: bind '"\e[D": backward-char'
18: 
19: # Insert the last-used command via "space"
20: bind Space:magic-space

1: 
2: # populate the history with some usefull commands
3: history -n ${XDG_CONFIG_HOME}/bash_functions

 1: [[ $- != *i* ]] && return # Only execute if called interactively
 2: 
 3: if [ -n "$GUIX_ENVIRONMENT" ]; then
 4:     if [[ $PS1 =~ (.*)"\\$" ]]; then
 5:         PS1="${BASH_REMATCH[1]} [env]\\\$ "
 6:     fi
 7: fi
 8: 
 9: # The following code starts GNOME on login.
10: # A cheatsheet for the GNOME Shell can be found here: https://wiki.gnome.org/Projects/GnomeShell/CheatSheet
11: # if [[ -z $DISPLAY && $XDG_SESSION_TYPE == tty ]]; then
12: #     MOZ_ENABLE_WAYLAND=1 QT_QPA_PLATFORM=wayland XDG_SESSION_TYPE=wayland exec dbus-run-session gnome-session
13: # fi
14: 
15: # The following code starts EXWM on login.
16: # but first lets run eat - bash integration:
17:   [ -n "$EAT_SHELL_INTEGRATION_DIR" ] && \
18:     source "$EAT_SHELL_INTEGRATION_DIR/bash"
19: # Now to  start emacs+exwm
20: if [[ -z $DISPLAY ]]; then #&& $XDG_SESSION_TYPE == tty && $(tty) == /dev/tty1 -> /dev/pts/0
21:     xinit -- ${HOME}/.guix-home/profile/bin/Xorg :0 vt${XDG_VTNR} -keeptty -configdir ${HOME}/.guix-home/profile/share/X11/xorg.conf.d -modulepath ${HOME}/.guix-home/profile/lib/xorg/modules &>/dev/null
22: fi
23: 
24: 

1: # try clearing history
2: history -c
3: # clear the console when leaving
4: if [ "$SHLVL" = 2 ]; then
5:     [ -x /usr/bin/clear_console ] && /usr/bin/clear_console -q
6: fi

1: . ~/.profile 
2: if [ -f ~/.bashrc ]; then
3:     . ~/.bashrc
4: fi

 1: cat ./waitlist.org | xargs -n 1 -P 5 wget -c
 2: ssh root@prolet.dynv6.net
 3: ssh root@prolet.suschem.ist
 4: su -
 5: ip a
 6: ps -aux | grep
 7: killall
 8: kill -9
 9: su -c ""
10: monero-wallet-cli
11: monerod
12: pactl info
13: git push
14: git clone git@
15: pushd
16: popd
17: sudo ntfsfix -d /dev/sda1
18: sudo mount /dev/sda1 /mnt
19: cd /mnt/Windows/System32/config
20: ls -a | grep -i sam
21: chntpw -l SAM
22: chntpw -u Wartung SAM
23: chntpw -u 01f4 SAM
24: git push --all
25: git init --bare ~/dots
26: git submodule update --remote --merge
27: gimp -i -b "(batch-rotate90 \"*.jpg\")" -b "(gimp-quit 0)"
28: ./fastboot devices
29: ./fastboot flash boot ~/boot.img
30: git remote add origin git@codeberg.org:Schroedinger50PCT/dots.git
31: git checkout master
32: git checkout main
33: git checkout origin/main
34: git add .
35: git diff
36: git fetch
37: git status
38: git push -u origin main
39: git submodule add https://codeberg.org/Schroedinger50PCT/dots dots
40: git submodule foreach git pull origin master
41: git submodule foreach git pull origin main
42: git submodule update --init --recursive --remote
43: gpg --with-keygrip -k
44: gpg --full-keygen
45: ssh-keygen -e -f
46: export TERM=xterm-color
47: echo low | tee /sys/bus/pci/drivers/amdgpu/0000:0?:00.0/power_dpm_force_performance_level
48: echo high | tee /sys/bus/pci/drivers/amdgpu/0000:0?:00.0/power_dpm_force_performance_level
49: pass
50: pass open
51: pass close
52: qrencode -s 32 -l H -m 0 -o qr.png input
53: qrencode -s 32 -l H -m 0 -o qr_blog.suschem.ist_url.svg "blog.suschem.ist"
54: chmod +x
55: iKMcli totp --help
56: halt
57: shutdown
58: guix pull
59: gpgconf --launch gpg-agent
60: pass --insert
61: guix search
62: guix package -u
63: guix home search
64: guix remove
65: ls -ao
66: herd status
67: guix home reconfigure ~/dots/home.scm 
68: guix pull ; guix package -u
69: . .config/guix/current/etc/profile 
70: hash guix
71: su -c "guix archive --authorize < /home/macfag/key.txt"
72: guix version
73: guix describe
74: guix refresh
75: guix home list-generations
76: guix home build ~/dots/home.scm
77: guix home switch-generation 54
78: guix home describe
79: shutdown -r now
80: shutdown 
81: shutdown now
82: su -c "halt"
83: guix upgrade
84: guix home gc
85: guix home delete-generations
86: guix home import 
87: guix home reconfigure dots/export/home.scm --allow-downgrades --fallback --no-substitutes

1: XTerm*utf8: always
2: XTerm*metaSendsEscape: true

  1: ##
  2: # Part of a full "MacOS on Gnome X experience setting"
  3: # Here we control general clickpad behaviour. Also requires Daemon to run, see general readme.
  4: # Requires Fusuma https://github.com/iberianpig/fusuma, xdotool
  5: # Other settings and controls done with:
  6: # libinput-three-finger-gestures https://github.com/marsqing/libinput-three-finger-drag
  7: # syngestures https://github.com/mqudsi/syngesture/issues (only if you truly need two-finger history navigation)
  8: # synaptics https://wiki.archlinux.org/title/Touchpad_Synaptics
  9: # Kinto https://github.com/rbreaves/kinto
 10: # Xorg
 11: #
 12: # Place of this file:
 13: # /etc/X11/xorg.conf.d
 14: ##
 15: Section "InputClass"
 16: Identifier "touchpad catchall"
 17: Driver "synaptics"
 18: MatchIsTouchpad "on"
 19: # This option is recommend on all Linux systems using evdev, but cannot be
 20: # enabled by default. See the following link for details:
 21: # http://who-t.blogspot.com/2010/11/how-to-ignore-configuration-errors.html
 22: MatchDevicePath "/dev/input/event*"
 23: EndSection
 24: 
 25: Section "InputClass"
 26: Identifier "touchpad ignore duplicates"
 27: MatchIsTouchpad "on"
 28: MatchOS "Linux"
 29: MatchDevicePath "/dev/input/mouse*"
 30: Option "Ignore" "on"
 31: EndSection
 32: 
 33: # This option enables the bottom right corner to be a right button on clickpads
 34: # and the right and middle top areas to be right / middle buttons on clickpads
 35: # with a top button area.
 36: # This option is only interpreted by clickpads.
 37: Section "InputClass"
 38: Identifier "Default clickpad buttons"
 39: MatchDriver "synaptics"
 40: Option "SoftButtonAreas" "50% 0 82% 0 0 0 0 0"
 41: Option "SecondarySoftButtonAreas" "58% 0 0 15% 42% 58% 0 15%"
 42: EndSection
 43: 
 44: # This option disables software buttons on Apple touchpads.
 45: # This option is only interpreted by clickpads.
 46: Section "InputClass"
 47: Identifier "Disable clickpad buttons on Apple touchpads"
 48: MatchProduct "Apple|bcm5974"
 49: MatchDriver "synaptics"
 50: Option "SoftButtonAreas" "0 0 0 0 0 0 0 0"
 51: EndSection
 52: 
 53: Section "InputClass"
 54: Identifier "touchpad"
 55: Driver "synaptics"
 56: MatchIsTouchpad "on"
 57: Option "FingerLow" "1"
 58: Option "FingerHigh" "2"
 59: Option "MaxTapTime" "500"
 60: Option "MaxTapMove" "250"
 61: Option "MaxDoubleTapTime" "250"
 62: Option "ClickTime" "1"
 63: Option "ClickPad" "0"
 64: Option "VertEdgeScroll" "0"
 65: Option "HorizEdgeScroll" "0"
 66: Option "CornerCoasting" "0"
 67: Option "VertTwoFingerScroll" "1"
 68: Option "HorizTwoFingerScroll" "1"
 69: Option "VertScrollDelta" "-666"
 70: Option "HorizScrollDelta" "-666"
 71: Option "MinSpeed" "1"
 72: Option "MaxSpeed" "12"
 73: Option "AccelFactor" "0.01"
 74: Option "PressureMotionMinZ" "1"
 75: Option "PressureMotionMaxZ" "99999999"
 76: Option "HorizHysteresis" "13"
 77: Option "VertHysteresis" "13"
 78: Option "EmulateMidButtonTime" "0"
 79: Option "TouchpadOff" "0"
 80: Option "LockedDrags" "0"
 81: Option "LockedDragTimeout" "0"
 82: Option "RTCornerButton" "0"
 83: Option "RBCornerButton" "0"
 84: Option "LTCornerButton" "0"
 85: Option "LBCornerButton" "0"
 86: Option "TapButton1" "1"
 87: Option "TapButton2" "3"
 88: Option "TapButton3" "0"
 89: Option "ClickFinger1" "1"
 90: Option "ClickFinger2" "3"
 91: Option "ClickFinger3" "0"
 92: Option "CircularScrolling" "0"
 93: Option "CircularaPad" "0"
 94: Option "PalmDetect" "1"
 95: Option "PalmMinWidth" "10"
 96: Option "PalmMinZ" "1"
 97: Option "CoastingSpeed" "1"
 98: Option "CoastingFriction" "25"
 99: Option "SingleTapTimeout" "0"
100: Option "GrabEventDevice" "0"
101: Option "TapAndDragGesture" "0"
102: Option "AreaLeftEdge" "-5000"
103: Option "AreaRightEdge" "5000"
104: Option "AreaTopEdge" "10"
105: Option "Capabilities" "1 0 0 1 1 1 1"
106: EndSection
107: 
108: ! Xcursor
109: ! See: https://github.com/ful1e5/XCursor-pro
110: Xcursor.theme: Adwaita
111: Xcursor.size: 32
112: ! 24
113: ! XTerm
114: ! Fonts
115: XTerm*XftFont: Sarasa Term SC:size=12:antialias=true:style=Regular
116: ! Set the terminal fonts
117: XTerm*vt100.faceName: Sarasa Term SC:size=12:antialias=true:style=Regular
118: XTerm*vt100.boldFont: Sarasa Term SC:size=12:antialias=true:style=Bold
119: 
120: ! Color Theme: Molokai
121: ! Ref: https://www.futurile.net/2016/06/15/xterm-256color-themes-molokai-terminal-theme/
122: ! Colours are in groups as the second one should be a brighter version.
123: 
124: ! Background: black, dark grey
125: #define _background #000000
126: #define _color8 #303030
127: 
128: ! Color1/foreground: light grey: standard files, cursor
129: ! Color9: bright pink: soft link e.g. ln -s test1 imaginarytest
130: #define _foreground #d0d0d0
131: #define _color9 #ff0090
132: 
133: ! Color2: dark green: world read/write dir e.g. /tmp
134: ! Color10: bright green: binaries user can execute /bin
135: #define _color2 #66AA11
136: #define _color10 #80FF00
137: 
138: ! Color3: medium brown: fifo e.g mkfifo fifotest
139: ! Color11: light brown/sand: block special files e.g ls -l /dev/loop0
140: #define _color3 #c47f2c
141: #define _color11 #ffba68
142: 
143: ! Color4: medium blue
144: ! Color12: light blue: directory
145: #define _color4 #30309b
146: #define _color12 #5f5fee
147: 
148: ! Color5: dark purple: Not used in ls, in ranger (not sure where it gets it colors from though)
149: ! Color13: light purple: socket file /var/run/dbus_system_bus_socket
150: #define _color5 #7e40a5
151: #define _color13 #bb88dd
152: 
153: ! Color6: medium magenta
154: ! Color14: light magenta: symbolic links e.g. ~/Examples /bin/lsmod
155: #define _color6 #3579A8
156: #define _color14 #4eb4fa
157: 
158: ! Color7: medium grey: setuid file e.g. /usr/bin/sudo
159: ! Color15: light grey: background color for setuid files e.g /usr/bin/sudo
160: #define _color7 #9999AA
161: ! Trying white in case it helps
162: #define _color15 #ffffff
163: !#define _color15 #d0d0d0
164: 
165: ! General - covering all X clients
166: !*background: _background
167: !*foreground: _foreground
168: ! Not sure what this one does - Solarise had it at base3
169: !*fadeColor: XXX ! Not sure what this does
170: 
171: ! XTerm specific
172: xterm*background: _background
173: xterm*foreground: _foreground
174: 
175: ! Not really required - XTerm defaults to using the foreground colour
176: xterm*cursorColor: _foreground
177: 
178: xterm*color0: _background
179: xterm*color1: _foreground
180: xterm*color2: _color2
181: xterm*color3: _color3
182: xterm*color4: _color4
183: xterm*color5: _color5
184: xterm*color6: _color6
185: xterm*color7: _color7
186: ! 8-15 are considered brighter colours of 1-7
187: xterm*color8: _color8
188: xterm*color9: _color9
189: xterm*color10: _color10
190: xterm*color11: _color11
191: xterm*color12: _color12
192: xterm*color13: _color13
193: xterm*color14: _color14
194: xterm*color15: _color15
195: Xcursor.theme: Adwaita
196: Xcursor.size: 24
197: ! 16 24 48 64 
198: *background: #000000

 1: xrdb -load $HOME/.Xresources
 2: xhost +SI:localuser:$USER
 3: xsetroot -cursor_name left_ptr
 4: xset r rate 200 60
 5: xset s off -dpms
 6: # picom -b --dbus --vsync --backend glx &
 7: # $HOME/.guix-home/profile/libexec/xscreensaver/glmatrix --delay 0 --speed 3.484 --no-rotate & 
 8: # --eval='(message "%s" (emacs-init-time))'
 9: # emacs --daemon --eval "(require 'exwm)" -f exwm-enable
10: # exec dbus-launch --exit-with-session emacsclient -c --no-wait --eval "(exwm-workspace-switch 1 t)"
11: exec dbus-launch --exit-with-session emacs --debug-init --eval "(require 'exwm)(exwm-enable)(exwm-workspace-switch 1 t)"

1: #!/bin/sh
2: modprobe zram
3: SIZE=8192
4: echo $(($SIZE*1024*4*1024)) > /sys/block/zram0/disksize
5: mkswap /dev/zram0
6: swapon /dev/zram0 -p 10

1: #!/bin/sh
2: swapoff /dev/zram0
3: echo 1 > /sys/block/zram0/reset
4: modprobe -r zram

 1: html {
 2:     font-size: 62.5%;
 3:     font-family: -apple-system, BlinkMacSystemFont, "Iosevka Term", Roboto, "Iosevka Term", Arial, "Iosevka Term", sans-serif;
 4: }
 5: 
 6: body {
 7:     font-size: 1.8rem;
 8:     line-height: 1.618;
 9:     max-width: 95%;
10:     margin: 0 auto;
11:     /* margin: auto; */
12:     color: #ffffff;
13:     background-color: #000000;
14:     /* background: url(media/bg_zimbelkraut.png); 
15:     background-repeat: no-repeat;
16:     background-attachment: fixed;
17:     background-size: cover; */
18:     padding: 13px;
19: }

 1: 
 2:   @font-face {
 3:     font-display: swap;
 4:     font-family: 'Iosevka Term';
 5:     src: url('/media/fonts/IosevkaTerm-Regular.woff2') format("woff2");
 6: }
 7: 
 8: @font-face {
 9:     font-display: swap;
10:     font-family: 'Iosevka Term Italic';
11:     src: url('/media/fonts/IosevkaTerm-Italic.woff2') format("woff2");
12: }
13: 
14: @font-face {
15:     font-display: swap;
16:     font-family: 'Iosevka Term Bold';
17:     src: url('/media/fonts/IosevkaTerm-Bold.woff2') format("woff2");
18: }
19: 
20:   /* @font-face { */
21:   /*   font-display: swap; */
22:   /*   font-family: 'Iosevka Term Bold Italic'; */
23:   /*   src: url('media/fonts/IosevkaTermSC-BoldItalic.ttf') format("truetype"); */
24:   /* } */

  1: @media (min-width: 10001px) {
  2:     body {
  3:         font-size: 9rem;
  4:         line-height: 1.9;
  5:     }
  6:     img {
  7:         min-width: 600px;
  8:         max-width: 100%;
  9:     }
 10: }
 11: @media (max-width: 10000px) {
 12:     /* Its Over 9000!!! */
 13:     body {
 14:         font-size: 8rem;
 15:         line-height: 1.5;
 16:     }
 17:     img {
 18:         max-width: 100%;
 19:         min-width: 300px;
 20: 
 21:     }
 22: }
 23: @media (max-width: 9000px) {
 24:     body {
 25:         font-size: 7rem;
 26:         line-height: 1.5;
 27:     }
 28:     img {
 29:         max-width: 100%;
 30:         min-width: 300px;
 31: 
 32:     }
 33: 
 34:     @media (max-width: 8000px) {
 35:         body {
 36:             font-size: 6rem;
 37:             line-height: 1.5;
 38:         }
 39:         img {
 40:             max-width: 100%;
 41:             min-width: 300px;
 42: 
 43:         }
 44:     }
 45: 
 46:     @media (max-width: 7000px) {
 47:         body {
 48:             font-size: 5.5rem;
 49:             line-height: 1.5;
 50:         }
 51:         img {
 52:             max-width: 100%;
 53:             min-width: 300px;
 54: 
 55:         }
 56:     }
 57: 
 58:     @media (max-width: 6000px) {
 59:         body {
 60:             font-size: 5rem;
 61:             line-height: 1.5;
 62:         }
 63:         img {
 64:             max-width: 100%;
 65:             min-width: 300px;
 66: 
 67:         }
 68:     }
 69: 
 70:     @media (max-width: 5000px) {
 71:         body {
 72:             font-size: 4rem;
 73:             line-height: 1.5;
 74:         }
 75:         img {
 76:             max-width: 100%;
 77:             min-width: 300px;
 78: 
 79:         }
 80:     }
 81: 
 82:     @media (max-width: 4000px) {
 83:         body {
 84:             font-size: 3rem;
 85:             line-height: 1.5;
 86:         }
 87:         img {
 88:             max-width: 100%;
 89:             min-width: 300px;
 90:         }
 91:     }
 92: 
 93:     @media (max-width: 3000px) {
 94:         body {
 95:             font-size: 2.5rem;
 96:             line-height: 1.5;
 97:         }
 98:         img {
 99:             max-width: 100%;
100:             min-width: 150px;
101:         }
102:     }
103: 
104:     @media (max-width: 2000px) {
105:         body {
106:             font-size: 2rem;
107:             line-height: 1.5;
108:         }
109:         img {
110:             max-width: 100%;
111:             min-width: 150px;
112:         }
113:     }
114: 
115:     @media (max-width: 1800px) {
116:         body {
117:             font-size: 1.5rem;
118:             line-height: 1.5;
119:         }
120:         img {
121:             max-width: 100%;
122:             min-width: 120px;
123:         }
124:     }
125: 
126:     @media (max-width: 1000px) {
127:         body {
128:             font-size: 1.35rem;
129:             line-height: 1.5;
130:         }
131: 
132:         img {
133:             min-width: 120px;
134:             max-width: 100%;
135:         }
136:     }
137: 
138:     @media (max-width: 850px) {
139:         body {
140:             font-size: 1.35rem;
141:             line-height: 1.5;
142:         }
143: 
144:         img {
145:             min-width: 120px;
146:             max-width: 100%;
147:         }
148:     }
149: 
150:     @media (max-width: 500px) {
151:         body {
152:             font-size: 1.2rem;
153:             line-height: 1.5;
154:         }
155:         img {
156:             max-width: 100%;
157:             min-width: 120px;
158:         }
159:     }
160: 
161:     @media (max-width: 300px) {
162:         body {
163:             font-size: 1rem;
164:             line-height: 1.7;
165:         }
166:         img {
167:             max-width: 100%;
168:             min-width: 100px;
169:         }
170:     }
171: