Pucaj bookmarke iz emacsa

.config/guix/channels.scm

@@ -0,0 +1,23 @@
+(cons* (channel
+        (name 'nonguix)
+        (url "https://gitlab.com/nonguix/nonguix")
+        ;; Enable signature verification:
+        (introduction
+         (make-channel-introduction
+          "897c1a470da759236cc11798f4e0a5f7d4d59fbc"
+          (openpgp-fingerprint
+           "2A39 3FFF 68F4 EF7A 3D29  12AF 6F51 20A0 22FB B2D5"))))
+       ;(channel
+       ; (name 'guixrus)
+       ; (url "https://git.sr.ht/~whereiseveryone/guixrus")
+       ; (introduction
+       ;  (make-channel-introduction
+       ;   "7c67c3a9f299517bfc4ce8235628657898dd26b2"
+       ;   (openpgp-fingerprint
+       ;    "CD2D 5EAA A98C CB37 DA91  D6B0 5F58 1664 7F8B E551"))))
+       ;(channel
+       ;  (name 'kompot)
+       ;  ;;(url "https://git.kompot.si/kompot/guix-paketi")
+       ;  (url (string-append "file://" (getenv "HOME") "/projekti/guix-paketi"))
+       ;  (branch "main"))
+       %default-channels)

.config/sway/config

@@ -361,9 +361,6 @@ exec mako --default-timeout=5000 --icon-path /usr/share/icons/Numix
 # Autotiling https://github.com/nwg-piotr/autotiling
 exec ~/bin/autotiling.py
 
-# Rdece, da lahko spim, hvala
-exec gammastep -m wayland -l 46.05108:14.50513
-
 # Zagoni programov razporejeni na workspejse
 workspace 0:
 workspace 1:

.emacs.d/bookmarks

@@ -2,13 +2,3 @@
 ;;; This format is meant to be slightly human-readable;
 ;;; nevertheless, you probably don't want to edit it.
 ;;; -*- End Of Bookmark File Format Version Stamp -*-
-(("org-capture-last-stored" (filename . "~/org/zapiski.org")
- (front-context-string . "** TODO Vrstni r")
- (rear-context-string . "2024-01-05 pet]\n") (position . 661)
- (last-modified 26008 34892 637157 892000))
-("FLUXUS navodilo"
- (filename . "~/sredstva/fluxus/docs/fluxus-manual.[en].org")
- (front-context-string . "#+TITLE: Fluxus:") (rear-context-string)
- (position . 1) (last-modified 25693 29993 875550 300000))
-("IRS" (filename . "~/rs/megla-sync/org/irs.org"))
-)

.emacs.d/init.el

@@ -115,24 +115,92 @@
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
+ '(connection-local-criteria-alist
+   '(((:application tramp)
+      tramp-connection-local-default-system-profile tramp-connection-local-default-shell-profile)))
+ '(connection-local-profile-alist
+   '((tramp-connection-local-darwin-ps-profile
+      (tramp-process-attributes-ps-args "-acxww" "-o" "pid,uid,user,gid,comm=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" "-o" "state=abcde" "-o" "ppid,pgid,sess,tty,tpgid,minflt,majflt,time,pri,nice,vsz,rss,etime,pcpu,pmem,args")
+      (tramp-process-attributes-ps-format
+       (pid . number)
+       (euid . number)
+       (user . string)
+       (egid . number)
+       (comm . 52)
+       (state . 5)
+       (ppid . number)
+       (pgrp . number)
+       (sess . number)
+       (ttname . string)
+       (tpgid . number)
+       (minflt . number)
+       (majflt . number)
+       (time . tramp-ps-time)
+       (pri . number)
+       (nice . number)
+       (vsize . number)
+       (rss . number)
+       (etime . tramp-ps-time)
+       (pcpu . number)
+       (pmem . number)
+       (args)))
+     (tramp-connection-local-busybox-ps-profile
+      (tramp-process-attributes-ps-args "-o" "pid,user,group,comm=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" "-o" "stat=abcde" "-o" "ppid,pgid,tty,time,nice,etime,args")
+      (tramp-process-attributes-ps-format
+       (pid . number)
+       (user . string)
+       (group . string)
+       (comm . 52)
+       (state . 5)
+       (ppid . number)
+       (pgrp . number)
+       (ttname . string)
+       (time . tramp-ps-time)
+       (nice . number)
+       (etime . tramp-ps-time)
+       (args)))
+     (tramp-connection-local-bsd-ps-profile
+      (tramp-process-attributes-ps-args "-acxww" "-o" "pid,euid,user,egid,egroup,comm=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" "-o" "state,ppid,pgid,sid,tty,tpgid,minflt,majflt,time,pri,nice,vsz,rss,etimes,pcpu,pmem,args")
+      (tramp-process-attributes-ps-format
+       (pid . number)
+       (euid . number)
+       (user . string)
+       (egid . number)
+       (group . string)
+       (comm . 52)
+       (state . string)
+       (ppid . number)
+       (pgrp . number)
+       (sess . number)
+       (ttname . string)
+       (tpgid . number)
+       (minflt . number)
+       (majflt . number)
+       (time . tramp-ps-time)
+       (pri . number)
+       (nice . number)
+       (vsize . number)
+       (rss . number)
+       (etime . number)
+       (pcpu . number)
+       (pmem . number)
+       (args)))
+     (tramp-connection-local-default-shell-profile
+      (shell-file-name . "/bin/sh")
+      (shell-command-switch . "-c"))
+     (tramp-connection-local-default-system-profile
+      (path-separator . ":")
+      (null-device . "/dev/null"))))
+ '(custom-safe-themes
+   '("db3e80842b48f9decb532a1d74e7575716821ee631f30267e4991f4ba2ddf56e" "d14f3df28603e9517eb8fb7518b662d653b25b26e83bd8e129acea042b774298" "7661b762556018a44a29477b84757994d8386d6edee909409fabe0631952dad9" default))
+ '(iswitchb-mode t)
+ '(org-agenda-files
+   '("~/Dokumenti/todo.org" "/home/g1smo/Dokumenti/plac.org" "/home/g1smo/rs/org/2021-05-25-spletna-stran.org" "/home/g1smo/rs/org/2021-07-02-spletna.org" "/home/g1smo/rs/org/README.org" "/home/g1smo/rs/org/git-delavnica.org" "/home/g1smo/rs/org/irs-plan-period.org" "/home/g1smo/rs/org/irs-plan.org" "/home/g1smo/rs/org/irs.org" "/home/g1smo/rs/org/irs_old.org" "/home/g1smo/rs/org/kaki.org" "/home/g1smo/rs/org/prepoznava-komadov.org" "/home/g1smo/Dokumenti/agenda.org" "/home/g1smo/Dokumenti/blurb.org" "/home/g1smo/Dokumenti/delo.org" "/home/g1smo/Dokumenti/emanat.org" "/home/g1smo/Dokumenti/kompot.org" "/home/g1smo/Dokumenti/ljudmila.org" "/home/g1smo/Dokumenti/mu4e-setup.org" "/home/g1smo/Dokumenti/muska.org" "/home/g1smo/Dokumenti/org.org" "/home/g1smo/Dokumenti/projekti.org" "/home/g1smo/Dokumenti/recepti.org" "/home/g1smo/Dokumenti/samozaposlitev-prijava.org" "/home/g1smo/Dokumenti/shta.org" "/home/g1smo/Dokumenti/wtf.org" "/home/g1smo/Dokumenti/zapisi.org"))
  '(package-selected-packages
-   '(2bit aggressive-indent all-the-icons arduino-mode benchmark-init
-          company counsel-projectile crdt dap-mode dashboard direnv
-          doom-modeline drupal-mode eat editorconfig elpher eros
-          evil-collection evil-org extempore-mode fluxus-mode flycheck
-          format-all geben geiser-guile general gruvbox-theme guix
-          helpful htmlize lsp-mode magit-todos marginalia
-          mu4e-dashboard mu4e-marker-icons mu4e-thread-folding
-          ob-mermaid openwith orderless org-bullets org-caldav pyvenv
-          quelpa-use-package racket-mode rainbow-delimiters restclient
-          rg rjsx-mode sclang-extensions sesman slime smartparens smex
-          subed svg-icon svg-lib tidal toml-mode treemacs-evil
-          treemacs-projectile treesit-auto undo-tree vertico vue-mode
-          web-beautify web-mode which-key writeroom-mode yaml-mode
-          zone-nyan))
- '(package-vc-selected-packages
-   '((svg-icon :url "https://github.com/rougier/emacs-svg-icon"))))
-
+   '(tree-sitter guix toml-mode smartparens crdt.el openwith evil-org-agenda company-org-block org-block-capf writeroom-mode racket-mode htmlize company-lsp web-mode tidal org-caldav format-all company-phpactor phpactor extempore-mode ob-mermaid use-package lsp-mode yaml-mode drupal-mode magit markdown-mode flycheck arduino-mode rjsx-mode gdscript-mode rainbow-delimiters which-key paredit geiser-guile geiser web-beautify vue-mode treemacs-evil treemacs-projectile treemacs smart-tabs-mode smart-tabs js2-mode smex clojure-mode helpful doom-themes counsel swiper all-the-icons doom-modeline evil-collection fennel-mode rg ivy company projectile evil))
+ '(tool-bar-mode nil)
+ '(warning-minimum-level :error)
+ '(which-key-mode t))
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.

.emacs.d/projectile-bookmarks.eld

@@ -1 +0,0 @@
-("~/projekti/jugofuturizem/" "~/projekti/coopcycle-app/" "~/projekti/coopcycle-web/" "~/sredstva/dotfiles/" "~/projekti/waveywind/" "~/.local/share/SuperCollider/downloaded-quarks/MathLib/" "~/.local/share/SuperCollider/downloaded-quarks/SLIPDecoder/")

.i3status.conf

@@ -24,7 +24,7 @@ order += "disk /home"
 order += "load"
 order += "memory"
 order += "volume master"
-order += "battery all"
+order += "battery pbp"
 order += "tztime local"
 
 path_exists VPN {
@@ -44,13 +44,15 @@ ethernet _first_ {
   format_down = " "
 }
 
-battery all {
-  format = "   %status %percentage %remaining    "
+battery pbp {
+  format = " %status %percentage %remaining "
   status_bat = ""
   status_chr = ""
   status_full = ""
   status_unk = "?"
   threshold_type = time
+  integer_battery_capacity = true
+  path = "/sys/class/power_supply/cw2015-battery/uevent"
 }
 
 tztime local {

.profile

@@ -1,3 +1,5 @@
+. /etc/profile
+
 # <3 default editor (za manjse urejanje)
 export EDITOR="vim"
 export VISUAL="vim"
@@ -51,15 +53,6 @@ export GUILE_SITE_DIR="$HOME/.local/guile/site_dir"
 # (FULL)Screen share
 export XDG_CURRENT_DESKTOP=sway
 
-# Guix
-export GUIX_LOCPATH="$HOME/.guix-profile/lib/locale"
-export GUIX_PROFILE="$HOME/.guix-profile"
-export XDG_DATA_DIRS="/usr/local/share:/usr/share:$XDG_DATA_DIRS"
-export XDG_DATA_DIRS="${GUIX_PROFILE}/share${XDG_DATA_DIRS:+:}$XDG_DATA_DIRS"
-export GUIX_PACKAGE_PATH="$HOME/projekti/guix-paketi"
-export PATH="$HOME/.config/guix/current/bin:$PATH"
-. "$GUIX_PROFILE/etc/profile"
-
 # Loadamo sway na tty1!
 # If running from tty1 start sway
 #if [ "$(tty)" = "/dev/tty1" ]; then

.zshrc

@@ -174,3 +174,12 @@ export PATH=$PATH:/opt/gradle-8.7/bin
 
 # Cargo!
 export PATH=$HOME/.cargo/bin:$PATH
+
+# Guix
+export GUIX_LOCPATH="$HOME/.guix-profile/lib/locale"
+export GUIX_PROFILE="$HOME/.guix-profile"
+export XDG_DATA_DIRS="/usr/local/share:/usr/share:$XDG_DATA_DIRS"
+export XDG_DATA_DIRS="${GUIX_PROFILE}/share${XDG_DATA_DIRS:+:}$XDG_DATA_DIRS"
+export GUIX_PACKAGE_PATH="$HOME/projekti/guix-paketi"
+export PATH="$HOME/.config/guix/current/bin:$PATH"
+. "$GUIX_PROFILE/etc/profile"

README.md

@@ -1,3 +1,8 @@
 # dotfiles
 
 Here you can find a collection of various configuration files I use.
+
+## Kako?
+
+1. Povežemo nastavitvene fajle `./povezi.sh`
+2. Poženemo dodatno skripto (pridobi odvisne fajle z neta) `./init.sh`

applications/chromium.desktop

@@ -0,0 +1,140 @@
+[Desktop Entry]
+Version=1.0
+Name=Chromium Web Browser
+Name[ast]=Restolador web Chromium
+Name[ca]=Navegador web Chromium
+Name[de]=Chromium-Webbrowser
+Name[es]=Navegador web Chromium
+Name[fr]=Navigateur Web Chromium
+Name[gl]=Navegador web Chromium
+Name[he]=דפדפן האינטרנט Chromium
+Name[hr]=Chromium web preglednik
+Name[hu]=Chromium webböngésző
+Name[id]=Peramban Web Chromium
+Name[it]=Browser web Chromium
+Name[ja]=Chromium ウェブ・ブラウザ
+Name[ko]=Chromium 웹 브라우저
+Name[pt_BR]=Chromium Navegador da Internet
+Name[ru]=Веб-браузер Chromium
+Name[sl]=Chromium spletni brskalnik
+Name[sv]=Webbläsaren Chromium
+Name[ug]=Chromium توركۆرگۈ
+Name[zh_CN]=Chromium 网页浏览器
+Name[zh_HK]=Chromium 網頁瀏覽器
+Name[zh_TW]=Chromium 網頁瀏覽器
+GenericName=Web Browser
+GenericName[ar]=متصفح الشبكة
+GenericName[ast]=Restolador web
+GenericName[bg]=Уеб браузър
+GenericName[bn]=ওয়েব ব্রাউজার
+GenericName[ca]=Navegador web
+GenericName[cs]=WWW prohlížeč
+GenericName[da]=Browser
+GenericName[de]=Webbrowser
+GenericName[el]=Περιηγητής ιστού
+GenericName[en_GB]=Web Browser
+GenericName[es]=Navegador web
+GenericName[et]=Veebibrauser
+GenericName[fi]=WWW-selain
+GenericName[fil]=Web Browser
+GenericName[fr]=Navigateur Web
+GenericName[gl]=Navegador web
+GenericName[gu]=વેબ બ્રાઉઝર
+GenericName[he]=דפדפן אינטרנט
+GenericName[hi]=वेब ब्राउज़र
+GenericName[hr]=Web preglednik
+GenericName[hu]=Webböngésző
+GenericName[id]=Peramban Web
+GenericName[it]=Browser web
+GenericName[ja]=ウェブ・ブラウザ
+GenericName[kn]=ಜಾಲ ವೀಕ್ಷಕ
+GenericName[ko]=웹 브라우저
+GenericName[lt]=Žiniatinklio naršyklė
+GenericName[lv]=Tīmekļa pārlūks
+GenericName[ml]=വെബ് ബ്രൌസര്‍
+GenericName[mr]=वेब ब्राऊजर
+GenericName[nb]=Nettleser
+GenericName[nl]=Webbrowser
+GenericName[or]=ଓ୍ବେବ ବ୍ରାଉଜର
+GenericName[pl]=Przeglądarka WWW
+GenericName[pt]=Navegador Web
+GenericName[pt_BR]=Navegador da Internet
+GenericName[ro]=Navigator de Internet
+GenericName[ru]=Веб-браузер
+GenericName[sk]=WWW prehliadač
+GenericName[sl]=Spletni brskalnik
+GenericName[sr]=Интернет прегледник
+GenericName[sv]=Webbläsare
+GenericName[ta]=இணைய உலாவி
+GenericName[te]=మహాతల అన్వేషి
+GenericName[th]=เว็บเบราว์เซอร์
+GenericName[tr]=Web Tarayıcı
+GenericName[ug]=توركۆرگۈ
+GenericName[uk]=Навігатор Тенет
+GenericName[vi]=Bộ duyệt Web
+GenericName[zh_CN]=网页浏览器
+GenericName[zh_HK]=網頁瀏覽器
+GenericName[zh_TW]=網頁瀏覽器
+Comment=Access the Internet
+Comment[ar]=الدخول إلى الإنترنت
+Comment[ast]=Accesu a Internet
+Comment[bg]=Достъп до интернет
+Comment[bn]=ইন্টারনেটটি অ্যাক্সেস করুন 
+Comment[ca]=Accediu a Internet
+Comment[cs]=Přístup k internetu
+Comment[da]=Få adgang til internettet
+Comment[de]=Internetzugriff
+Comment[el]=Πρόσβαση στο Διαδίκτυο
+Comment[en_GB]=Access the Internet
+Comment[es]=Acceda a Internet
+Comment[et]=Pääs Internetti
+Comment[fi]=Käytä internetiä
+Comment[fil]=I-access ang Internet
+Comment[fr]=Explorer le Web
+Comment[gl]=Acceda a Internet
+Comment[gu]=ઇંટરનેટ ઍક્સેસ કરો
+Comment[he]=גישה לאינטרנט
+Comment[hi]=इंटरनेट तक पहुंच स्थापित करें
+Comment[hr]=Pristupite Internetu
+Comment[hu]=Az internet elérése
+Comment[id]=Akses Internet
+Comment[it]=Accesso a Internet
+Comment[ja]=インターネットにアクセス
+Comment[kn]=ಇಂಟರ್ನೆಟ್ ಅನ್ನು ಪ್ರವೇಶಿಸಿ
+Comment[ko]=인터넷에 연결합니다
+Comment[lt]=Interneto prieiga
+Comment[lv]=Piekļūt internetam
+Comment[ml]=ഇന്റര്‍‌നെറ്റ് ആക്‌സസ് ചെയ്യുക
+Comment[mr]=इंटरनेटमध्ये प्रवेश करा
+Comment[nb]=Gå til Internett
+Comment[nl]=Verbinding maken met internet
+Comment[or]=ଇଣ୍ଟର୍ନେଟ୍ ପ୍ରବେଶ କରନ୍ତୁ
+Comment[pl]=Skorzystaj z internetu
+Comment[pt]=Aceder à Internet
+Comment[pt_BR]=Acessar a internet
+Comment[ro]=Accesaţi Internetul
+Comment[ru]=Доступ в Интернет
+Comment[sk]=Prístup do siete Internet
+Comment[sl]=Dostop do interneta
+Comment[sr]=Приступите Интернету
+Comment[sv]=Surfa på Internet
+Comment[ta]=இணையத்தை அணுகுதல்
+Comment[te]=ఇంటర్నెట్‌ను ఆక్సెస్ చెయ్యండి
+Comment[th]=เข้าถึงอินเทอร์เน็ต
+Comment[tr]=İnternet'e erişin
+Comment[ug]=ئىنتېرنېتنى زىيارەت قىلىش
+Comment[uk]=Доступ до Інтернету
+Comment[vi]=Truy cập Internet
+Comment[zh_CN]=访问互联网
+Comment[zh_HK]=連線到網際網路
+Comment[zh_TW]=連線到網際網路
+Exec=/usr/bin/chromium --ozone-platform=wayland %U
+Terminal=false
+X-MultipleArgs=false
+Type=Application
+Icon=chromium
+Categories=Network;WebBrowser;
+MimeType=text/html;text/xml;application/xhtml_xml;application/x-mimearchive;x-scheme-handler/http;x-scheme-handler/https;
+StartupWMClass=chromium
+StartupNotify=true
+Keywords=browser

bin/backmeup

@@ -3,9 +3,9 @@
 datum=$(date +"%y-%m-%d")
 backuplog=/root/backup-log
 
-sudo sshfs pi@pi:/home/pi/mast/bak/dbn /root/.bak
+sudo sshfs pi@pi:/home/pi/mast/bak/pbp /root/.bak
 
-#borg create -svp pi@192.168.64.112:~/mast/bak/tp::$datum /etc /home /opt /root /srv /var | sudo tee -a $backuplog
+#borg create -svp pi@pi:~/mast/bak/pbp::$datum /etc /home /opt /root /srv /var | sudo tee -a $backuplog
 echo "Backup sistema $datum" | sudo tee -a $backuplog
 #rsync -avz /etc /home /opt /root /srv /var pi@pi:~/mast/bak/tp | tee -a $backuplog
 sudo borg create --stats --verbose --compression=lz4 "/root/.bak::$datum" /etc /home /opt /root /srv /var | sudo tee -a $backuplog

bin/chromium

@@ -0,0 +1,3 @@
+#!/bin/sh
+
+/usr/bin/chromium --ozone-platform=wayland $1

checkbatt.sh

@@ -1,15 +0,0 @@
-#!/bin/bash
-
-praznim=$(acpi -b | grep Discharging)
-lvl=$(acpi -b | sed -e 's/[,%\s]//g' | awk '{s+=$4} END {printf "%.0f", s/2}')
-
-nizka=7
-kriticna=3
-
-if [[ $praznim ]]; then
-  if [[ $lvl -lt $kriticna ]]; then
-    systemctl suspend
-  elif [[ $lvl -lt $nizka ]]; then
-    notify-send -u critical -i /usr/share/icons/gnome/32x32/status/battery-low.png "BATERIJA NISKA: $lvl%"
-  fi
-fi

config.scm

@@ -0,0 +1,97 @@
+;; -*- mode: scheme; -*-
+;; This is an operating system configuration template
+;; for a "desktop" setup with GNOME and Xfce.
+
+(use-modules (gnu) 
+             (gnu system nss)
+             (guix utils)
+             (nongnu packages linux)
+             (nongnu system linux-initrd)
+	     (srfi srfi-1))
+(use-service-modules desktop xorg dns networking)
+(use-package-modules bootloaders certs shells ssh version-control emacs vim wm freedesktop xorg fontutils)
+
+(operating-system
+  (host-name "apnx")
+  (timezone "Europe/Ljubljana")
+  (locale "sl_SI.utf8")
+
+  ;; Use the UEFI variant of GRUB with the EFI System
+  ;; Partition mounted on /boot/efi.
+  (bootloader (bootloader-configuration
+                (bootloader grub-efi-bootloader)
+                (targets '("/boot/efi"))))
+
+  (kernel linux)
+  (initrd microcode-initrd)
+  (firmware (list linux-firmware))
+
+  (file-systems (cons* (file-system
+                         (device "/dev/sda3")
+                         (mount-point "/")
+                         (type "btrfs")
+                         (options "compress"))
+                        (file-system
+                         (device "/dev/sda2")
+                         (mount-point "/boot/efi")
+                         (type "vfat"))
+                        %base-file-systems))
+
+  (swap-devices
+    (list (swap-space (target "/swapfile"))))
+
+  (users (cons* (user-account
+                  (name "g1smo")
+                  (comment "Yuri")
+                  (group "users")
+                  (supplementary-groups '("wheel" "netdev"
+                                          "audio" "video" "dialout"))
+		  (shell (file-append zsh "/bin/zsh"))
+                  (home-directory "/home/g1smo"))
+                (user-account
+                  (name "bask")
+                  (comment "Balkan Anarchist Bookfair")
+                  (group "users")
+                  (supplementary-groups '("wheel" "netdev"
+                                          "audio" "video" "dialout"))
+                  (home-directory "/home/bask"))
+               %base-user-accounts))
+
+  ;; This is where we specify system-wide packages.
+  (packages (cons* nss-certs         ;for HTTPS access
+                   zsh               ;Z shell
+                   openssh
+                   git
+                   emacs
+                   vim
+                   bspwm
+                   libinput
+                   xf86-input-libinput
+                   freetype
+                   %base-packages))
+
+  ;; Add GNOME and/or Xfce---we can choose at the log-in
+  ;; screen with F1.  Use the "desktop" services, which
+  ;; include the X11 log-in service, networking with Wicd,
+  ;; and more.
+
+  (services (cons* (service xfce-desktop-service-type)
+                   (service gnome-desktop-service-type)
+		   (service dnsmasq-service-type
+			    (dnsmasq-configuration
+			      (cache-size 1500)))
+		   (service network-manager-service-type
+			    (network-manager-configuration 
+			      (dns "dnsmasq")))
+		   (service pam-limits-service-type
+		      (list 
+			(pam-limits-entry "@audio" 'both 'rtprio 99) 
+			(pam-limits-entry "@audio" 'both 'memlock 'unlimited)))
+
+		   (remove 
+		     (lambda (service)
+		       (eq? network-manager-service-type (service-kind service))) 
+		     %desktop-services)))
+
+  ;; Allow resolution of '.local' host names with mDNS.
+  (name-service-switch %mdns-host-lookup-nss))

guix/.bash_profile

@@ -0,0 +1,14 @@
+# Set up Guix Home profile
+if [ -f ~/.profile ]; then . ~/.profile; fi
+
+# Honor per-interactive-shell startup file
+if [ -f ~/.bashrc ]; then . ~/.bashrc; fi
+
+# Merge search-paths from multiple profiles, the order matters.
+eval "$(guix package --search-paths \
+-p $HOME/.config/guix/current \
+-p $HOME/.guix-profile \
+-p /run/current-system/profile)"
+
+# Prepend setuid programs.
+export PATH=/run/setuid-programs:$PATH

guix/.bashrc

@@ -0,0 +1,64 @@
+# Bash initialization for interactive non-login shells and
+# for remote shells (info "(bash) Bash Startup Files").
+
+# Export 'SHELL' to child processes.  Programs such as 'screen'
+# honor it and otherwise use /bin/sh.
+export SHELL
+
+if [[ $- != *i* ]]
+then
+    # We are being invoked from a non-interactive shell.  If this
+    # is an SSH session (as in "ssh host command"), source
+    # /etc/profile so we get PATH and other essential variables.
+    [[ -n "$SSH_CLIENT" ]] && source /etc/profile
+
+    # Don't do anything else.
+    return
+fi
+
+# Source the system-wide file.
+[ -f /etc/bashrc ] && source /etc/bashrc
+
+
+source /etc/profile
+
+# Term compatibility
+export TERM=rxvt-256color
+
+# Aliasi
+alias ls='ls -p --color=auto'
+alias ll='ls -l'
+alias grep='grep --color=auto'
+alias ls='ls --color -C'
+alias vi='vim'
+alias sudo='sudo env PATH=$PATH '
+alias ag="rg"
+alias less="less -R"
+
+alias gitclean="git fetch -p && for branch in \$\(git branch -vv | grep ': gone]' | gawk '{print \$1}'\); do git branch -D \$branch; echo 'deleted \$branch'; done"
+alias sctl="systemctl"
+alias ddrush="ddev exec drush"
+alias dcomposer="ddev exec composer"
+alias offer-files="python3 -m http.server"
+
+# X on wayland
+alias wxon="xhost +local:"
+alias kill-element='kill $(ps aux | grep element | awk '\''{print $2;}'\'')'
+alias run-gamma="pkill -f gammastep; sleep 3; screen -dm -- gammastep -m wayland -l 46.05108:14.50513"
+
+# RŠ ssh
+srs() {
+  ssh "jurijp@$1.radiostudent.local"
+}
+srr() {
+  ssh "root@$1.radiostudent.local"
+}
+rss() {
+  ssh "jurijp@$1.radiostudent.si"
+}
+rsr() {
+  ssh "root@$1.radiostudent.si"
+}
+
+export BSD_GAMES_DIR=~/.local/share/bsd-games
+

guix/home-configuration.scm

@@ -0,0 +1,125 @@
+;; This "home-environment" file can be passed to 'guix home reconfigure'
+;; to reproduce the content of your profile.  This is "symbolic": it only
+;; specifies package names.  To reproduce the exact same profile, you also
+;; need to capture the channels being used, as returned by "guix describe".
+;; See the "Replicating Guix" section in the manual.
+
+(use-modules (gnu home)
+             (gnu packages)
+             (gnu packages xdisorg)
+             (gnu services)
+             (guix gexp)
+             (gnu home services shells)
+             (gnu home services desktop)
+             (gnu home services pm)
+             (gnu home services sound))
+
+(home-environment
+  ;; Below is the list of packages that will show up in your
+  ;; Home profile, under ~/.guix-home/profile.
+  (packages (specifications->packages (list "htop"
+                                            "emacs-pgtk"
+                                            "binutils"
+                                            "gcc-toolchain@11"
+                                            "icecat-l10n:sl"
+                                            "icecat"
+                                            "crawl-tiles"
+                                            "acpi"
+                                            "zynaddsubfx"
+                                            "gnome-tweaks"
+                                            "gimp"
+                                            "supercollider"
+                                            "ardour"
+                                            "slurp"
+                                            "wireplumber"
+                                            "pipewire"
+                                            "qjackctl"
+                                            "mplayer"
+                                            "ffmpeg"
+                                            "libcaca"
+                                            "kigo"
+                                            "lierolibre"
+                                            "transmission:gui"
+                                            "wine64"
+                                            "wine"
+                                            "audacity"
+                                            "numix-gtk-theme"
+                                            "nextcloud-client"
+                                            "nyxt"
+                                            "icedove-wayland"
+                                            "ungoogled-chromium-wayland"
+                                            "keepassxc"
+                                            "libappindicator"
+                                            "snixembed"
+                                            "vlc"
+                                            "qpwgraph"
+                                            "pamixer"
+                                            "element-desktop"
+                                            "pavucontrol"
+                                            "libreoffice"
+                                            "mako"
+                                            "alacritty"
+                                            "redshift-wayland"
+                                            "i3status"
+                                            "rofi-wayland"
+                                            "sway"
+                                            "wev"
+                                            "grim"
+                                            "xjackfreak"
+                                            "ncdu"
+                                            "bind:utils"
+                                            "python-i3ipc"
+                                            "python"
+                                            "screen"
+                                            "bibata-cursor-theme"
+                                            "ripgrep"
+                                            "brightnessctl"
+                                            "foot"
+                                            "jack"
+                                            "amb-plugins"
+                                            "fil-plugins"
+                                            "gnugo"
+                                            "bsd-games"
+                                            "file"
+                                            "nmap"
+                                            "font-fira-code"
+                                            "font-awesome"
+                                            "unzip"
+                                            "zsh"
+                                            "curl")))
+
+  ;; Below is the list of Home services.  To search for available
+  ;; services, run 'guix home search KEYWORD' in a terminal.
+  (services
+   (list (service home-zsh-service-type
+                  (home-zsh-configuration
+                   (zshrc (list (local-file
+                                 "/home/g1smo/sredstva/dotfiles/.zshrc"
+                                 "zshrc")))
+                   (zprofile (list (local-file
+                                    "/home/g1smo/sredstva/dotfiles/.profile"
+                                    "profile")))))
+         
+         ;; Skrij misko po 4 sekundah ne-premikanja
+         (service home-unclutter-service-type
+                  (home-unclutter-configuration
+                   (idle-timeout 2)))
+
+         ;; Rdecenje zaslona @TODO se ne dela :(
+         (service home-redshift-service-type
+                  (home-redshift-configuration
+                   (redshift redshift-wayland)
+                   (adjustment-method 'wayland)
+                   (location-provider 'manual)
+                   (latitude 46.05108)
+                   (longitude 14.50513)))
+
+
+         ;; Pipewire zvok!
+         ;; Dbus je odvisen paket
+         (service home-dbus-service-type)
+         (service home-pipewire-service-type)
+
+         ;; Indikator nizke baterije
+         (service home-batsignal-service-type)
+         )))

guix/services/mako.scm

@@ -1,75 +0,0 @@
-(define-module (home services mako)
-  #:use-module (ice-9 match)
-  #:use-module (gnu home services)
-  #:use-module (gnu services configuration)
-  #:use-module (guix packages)
-  #:use-module (guix gexp)
-  #:use-module (gnu packages wm)
-  #:use-module (guix import utils)
-  #:use-module ((gnu home-services-utils) #:select (maybe-object->string))
-  #:export (home-mako-service-type
-            home-mako-configuration))
-
-(define-configuration/no-serialization home-mako-configuration
-  (package
-    (package mako)
-    "mako package to use")
-  (config
-   (alist '())
-   ""))
-
-(define (serialize-mako-config config)
-  (define* (serialize-criteria criteria #:optional (res '()))
-    (match criteria
-      ((field value)
-       (format #f "[~a]\n"
-               (string-join
-                (cons (format #f "~a=\"~a\"" field value) res))))
-      ((field value . rest)
-       (serialize-criteria
-        rest
-        (cons (format #f "~a=\"~a\"" field value) res)))))
-
-  (define (serialize-key key)
-    (if (list? key)
-        (serialize-criteria key)
-        (string-append (maybe-object->string key) "=")))
-
-  (define (serialize-val val)
-    (cond
-     ((or (number? val) (symbol? val)) (maybe-object->string val))
-     ((list? val) (serialize-mako-config val))
-     (else val)))
-
-  (define (serialize-field key val)
-    (let ((val (serialize-val val))
-          (key (serialize-key key)))
-      (list key val)))
-
-  (generic-serialize-alist
-   (lambda args (flatten (interpose args)))
-   serialize-field
-   config))
-
-(define (add-mako-configuration config)
-  (let ((cfg (home-mako-configuration-config config)))
-    `(("mako/config"
-       ,(apply mixed-text-file
-               "config"
-               (serialize-mako-config cfg))))))
-
-(define add-mako-package
-  (compose list home-mako-configuration-package))
-
-(define home-mako-service-type
-  (service-type
-   (name 'home-mako)
-   (extensions
-    (list (service-extension
-           home-xdg-configuration-files-service-type
-           add-mako-configuration)
-          (service-extension
-           home-profile-service-type
-           add-mako-package)))
-   (default-value (home-mako-configuration))
-   (description "")))

guix/services/pipewire.scm

@@ -1,87 +0,0 @@
-(define-module (home services pipewire)
-  #:use-module (guix gexp)
-
-  #:use-module (gnu packages linux)
-  #:use-module (gnu packages pulseaudio)
-
-  #:use-module (gnu home services)
-  #:use-module (gnu home services shepherd))
-
-(define (home-pipewire-files-service _)
-  `(("alsa/asoundrc"
-     ,(mixed-text-file
-       "asoundrc"
-       #~(string-append
-          "<"
-          #$(file-append
-             pipewire
-             "/share/alsa/alsa.conf.d/50-pipewire.conf")
-          ">\n<"
-          #$(file-append
-             pipewire
-             "/share/alsa/alsa.conf.d/99-pipewire-default.conf")
-          ">\n"
-          "
-pcm_type.pipewire {
-  lib " #$(file-append
-           pipewire
-           "/lib/alsa-lib/libasound_module_pcm_pipewire.so") "
-}
-
-ctl_type.pipewire {
-  lib " #$(file-append
-           pipewire
-           "/lib/alsa-lib/libasound_module_ctl_pipewire.so") "
-}
-")))))
-
-(define (home-pipewire-shepherd-service _)
-  (list
-   (shepherd-service
-    (requirement '(dbus))
-    (provision '(pipewire))
-    (stop  #~(make-kill-destructor))
-    (start #~(make-forkexec-constructor
-              (list #$(file-append pipewire "/bin/pipewire")))))
-   (shepherd-service
-    (requirement '(pipewire))
-    (provision '(wireplumber))
-    (stop  #~(make-kill-destructor))
-    (start #~(make-forkexec-constructor
-              (list #$(file-append wireplumber "/bin/wireplumber")))))
-   #;
-   (shepherd-service
-    (requirement '(pipewire))
-    (provision '(pipewire-media-session))
-    (stop  #~(make-kill-destructor))
-    (start #~(make-forkexec-constructor
-              (list
-               #$(file-append
-                  pipewire-media-session
-                  "/bin/pipewire-media-session")
-               "-c"
-               #$(file-append
-                  pipewire-media-session
-                  "/share/pipewire/media-session.d/media-session.conf")))))
-   (shepherd-service
-    (requirement '(pipewire))
-    (provision '(pipewire-pulse))
-    (stop  #~(make-kill-destructor))
-    (start #~(make-forkexec-constructor
-              (list #$(file-append pipewire "/bin/pipewire-pulse")))))))
-
-(define-public home-pipewire-service-type
-  (service-type
-   (name 'home-pipewire)
-   (extensions
-    (list (service-extension
-           home-xdg-configuration-files-service-type
-           home-pipewire-files-service)
-          (service-extension
-           home-shepherd-service-type
-           home-pipewire-shepherd-service)
-          (service-extension
-           home-profile-service-type
-           (const (list pipewire pulseaudio)))))
-   (default-value #f)
-   (description "run pipewire and stuff")))

povezi.sh

@@ -42,6 +42,10 @@ ln -s "$DIR/.config/compton.conf" ~/.config/compton.conf
 # redshift (pordeci skrin, X)
 ln -s "$DIR/.config/redshift" ~/.config/redshift
 
+# guix (channel z lokalnimi paketi
+mkdir ~/.config/guix
+ln -s $DIR/.config/guix/channels.scm ~/.config/guix/channels.scm
+
 # i3 block, bolj fensi statusbar (ne uporabljam vec)
 ln -s "$DIR/.i3blocks.conf" ~/.i3blocks.conf
 
@@ -80,13 +84,10 @@ ln -s "$DIR/applications/dbeaver.desktop" ~/.local/share/applications/dbeaver.de
 ln -s "$DIR/applications/dbeaver.desktop" ~/.local/share/applications/com.obsproject.Studio.desktop
 ln -s "$DIR/applications/arduino2.desktop" ~/.local/share/applications/arduino2.desktop
 
-
 # Emacs <3
 mkdir ~/.emacs.d
 ln -s "$DIR/.emacs.d/init.el" ~/.emacs.d/init.el
 ln -s "$DIR/.emacs.d/config.org" ~/.emacs.d/config.org
-ln -s "$DIR/.emacs.d/projectile-bookmarks.eld" ~/.emacs.d/projectile-bookmarks.eld
-ln -s "$DIR/.emacs.d/bookmarks" ~/.emacs.d/bookmarks
 
 # SSH (timeout)
 mkdir ~/.ssh