kfm/ashram
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

evening session

Browse Source
This commit is contained in:
muni
2026-03-16 07:26:23 +01:00
parent 2130941e7d
commit 9bb3b5854b
5 changed files with 90 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Makefile
View File

@@ -1,6 +1,9 @@
.PHONY: all
.PHONY: all format
all: .system
.system: config.scm
sudo guix system reconfigure $<
touch $@
format: config.scm
guix style -f $<

13
README.md
View File

@@ -2,10 +2,15 @@ _The nights are cold in the forest, but my ThinkPad keeps me warm._
Welcome to my GNU/ashram, an ascetic's abode.
_The wind lisps into the leaves. The source is pure and the waters run clear._
_The wind lisps through the leaves. The source is pure and the waters run clear._
The next steps on the Path:
- [ ] install guix
- [ ] install emacs (magit, geiser, org-mode, evil)
- [ ] exwm or gnome?
- [x] install guix
- [x] install emacs (magit, geiser, org-mode, evil)
- [x] exwm or gnome?
- [ ] `wget https://guix.gnu.org/guix-refcard.pdf`
- [ ] <https://guix.gnu.org/en/videos/>
- [ ] <ttps://mumble.net/~campbell/scheme/style.txt>
- [ ] `guix install book-sicp info-reader && info sicp`
- [ ] <http://www.emacswiki.org/emacs/ParEdit>

99
config.scm
View File

@@ -1,43 +1,49 @@
;; This is an operating system configuration generated
;; by the graphical installer.
;;
;; Once installation is complete, you can learn and modify
;; this file to tweak the system configuration, and pass it
;; to the 'guix system reconfigure' command to effect your
;; changes.
;; -*- mode: scheme; -*-
;; Indicate which modules to import to access the variables
;; used in this configuration.
(use-modules (gnu)
(gnu home)
(gnu home services)
(gnu home services shells)
(gnu home services dotfiles)
(gnu services)
(gnu packages admin)
(gnu packages gnuzilla)
(gnu packages video)
(gnu services admin)
(guix gexp))
(use-service-modules cups desktop guix networking ssh xorg)
(use-service-modules cups
desktop
guix
networking
ssh
xorg)
(define user-packages
(list "icecat"
"mpv"
"emacs"
"emacs-geiser"
"emacs-geiser-guile"
"emacs-guix"
"guile"
"ripgrep"
"fd"
"make"
"font-fira-sans"
"font-fira-code"))
(define system-packages
(list "htop" "git" "vim"))
(define muni-home
(home-environment
(packages (map specification->package
'("icecat"
"mpv")))
(services
(append (list (service home-bash-service-type
(home-bash-configuration
(guix-defaults? #t)
(aliases
'(("ll" . "ls -l")))
(variables
`(("HISTSIZE" . "50000")))))
(aliases '(("ll" . "ls -l")))
(variables `(("HISTSIZE" . "50000")))))
(service home-files-service-type
`((".guile" ,%default-dotguile)))
(service home-dotfiles-service-type
(home-dotfiles-configuration
(directories '("./dotfiles"))))
(home-dotfiles-configuration (directories '("./dotfiles"))))
(service home-xdg-configuration-files-service-type
`(("nano/nanorc" ,%default-nanorc))))
%base-home-services))))
@@ -47,73 +53,52 @@
(timezone "Europe/Berlin")
(keyboard-layout (keyboard-layout "de"))
(host-name "ashram")
(issue "Welcome to my GNU/ashram, an ascetic's abode.")
;; The list of user accounts ('root' is implicit).
(users (cons* (user-account
(name "muni")
(comment "muni")
(group "users")
(home-directory "/home/muni")
(supplementary-groups '("wheel" "netdev" "audio" "video")))
;; "root" is implicit
%base-user-accounts))
;; Packages installed system-wide. Users can also install packages
;; under their own account: use 'guix search KEYWORD' to search
;; for packages and 'guix install PACKAGE' to install a package.
(packages (append (map specification->package
'("emacs"
"icecat"
"emacs-geiser"
"emacs-geiser-guile"
"guile"
"git"
"ripgrep"
"fd"
"htop"
"make"
"vim"))
(append user-packages system-packages))
%base-packages))
;; Below is the list of system services. To search for available
;; services, run 'guix system search KEYWORD' in a terminal.
(services
(append (list
;; To configure OpenSSH, pass an 'openssh-configuration'
;; record as a second argument to 'service' below.
(service openssh-service-type)
(service tor-service-type)
(service enlightenment-desktop-service-type)
(append (list (service openssh-service-type)
(service gnome-desktop-service-type)
(service guix-home-service-type `(("muni" ,muni-home)))
(service guix-home-service-type
`(("muni" ,muni-home)))
(set-xorg-configuration
(xorg-configuration (keyboard-layout keyboard-layout))))
;; This is the default list of services we
;; are appending to.
%desktop-services))
(bootloader (bootloader-configuration
(bootloader grub-bootloader)
(targets (list "/dev/sda"))
(keyboard-layout keyboard-layout)))
(swap-devices (list (swap-space
(target (uuid "e925b220-066c-45ea-9b8c-4cb6141dc6a3")))))
;; The list of file systems that get "mounted". The unique
;; file system identifiers there ("UUIDs") can be obtained
;; by running 'blkid' in a terminal.
(file-systems (cons* (file-system
(file-systems (append (list (file-system
(mount-point "/boot/efi")
(device (uuid "8066-63C2"
'fat32))
(type "vfat"))
(file-system
(mount-point "/")
(device (uuid "f84f19c8-23f4-4c4a-b9cc-bc8cde2704a5"
(device (uuid
"f84f19c8-23f4-4c4a-b9cc-bc8cde2704a5"
'ext4))
(type "ext4"))
(file-system
(mount-point "/home")
(device (uuid "3b69b95f-05db-47ed-b8b4-f1649ce8f6d8"
(device (uuid
"3b69b95f-05db-47ed-b8b4-f1649ce8f6d8"
'ext4))
(type "ext4")) %base-file-systems)))
(type "ext4"))) %base-file-systems)))

4
dotfiles/.doom.d/config.el
View File

@@ -21,8 +21,8 @@
;; See 'C-h v doom-font' for documentation and more examples of what they
;; accept. For example:
;;
;;(setq doom-font (font-spec :family "Fira Code" :size 12 :weight 'semi-light)
;; doom-variable-pitch-font (font-spec :family "Fira Sans" :size 13))
(setq doom-font (font-spec :family "Fira Code" :size 12 :weight 'semi-light)
doom-variable-pitch-font (font-spec :family "Fira Sans" :size 13))
;;
;; If you or Emacs can't find your font, use 'M-x describe-font' to look them
;; up, `M-x eval-region' to execute elisp code, and 'M-x doom/reload-font' to

10
dotfiles/.doom.d/init.el
View File

@@ -102,7 +102,7 @@
;;llm ; when I said you needed friends, I didn't mean...
;;(lsp +eglot) ; M-x vscode
magit ; a git porcelain for Emacs
;;make ; run make tasks from Emacs
make ; run make tasks from Emacs
;;pass ; password manager for nerds
;;pdf ; pdf enhancements
;;terraform ; infrastructure as code
@@ -119,8 +119,8 @@
;;(agda +local) ; types of types of types of types...
;;beancount ; mind the GAAP
;;(cc +lsp) ; C > C++ == 1
;;clojure ; java with a lisp
;;common-lisp ; if you've seen one lisp, you've seen them all
clojure ; java with a lisp
common-lisp ; if you've seen one lisp, you've seen them all
;;coq ; proofs-as-programs
;;crystal ; ruby at the speed of c
;;csharp ; unity, .NET, and mono shenanigans
@@ -156,7 +156,7 @@
markdown ; writing docs for people to ignore
;;nim ; python + lisp at the speed of c
;;nix ; I hereby declare "nix geht mehr!"
;;ocaml ; an objective camel
ocaml ; an objective camel
org ; organize your plain life in plain text
;;php ; perl's insecure younger brother
;;plantuml ; diagrams for confusing people more
@@ -171,7 +171,7 @@
;;(ruby +rails) ; 1.step {|i| p "Ruby is #{i.even? ? 'love' : 'life'}"}
;;(rust +lsp) ; Fe2O3.unwrap().unwrap().unwrap().unwrap()
;;scala ; java, but good
;;(scheme +guile) ; a fully conniving family of lisps
(scheme +guile) ; a fully conniving family of lisps
sh ; she sells {ba,z,fi}sh shells on the C xor
;;sml
;;solidity ; do you need a blockchain? No.