Popravki, izboljsave, locen debian home

deblo
Jurij Podgoršek 2024-12-10 12:39:21 +01:00
parent b2ca973d1c
commit 9c9b92a19a
13 changed files with 653 additions and 169 deletions

View File

@ -348,7 +348,7 @@ bindsym $mod+space exec "/home/g1smo/bin/get-layout.sh"
### ###
# Fix za pocasen GTK app startup # Fix za pocasen GTK app startup
exec dbus-update-activation-environment --systemd DISPLAY WAYLAND_DISPLAY SWAYSOCK exec dbus-update-activation-environment --systemd DISPLAY WAYLAND_DISPLAY SWAYSOCK XDG_CURRENT_DESKTOP=sway
# transparenca nekativnih oken # transparenca nekativnih oken
#exec_always ~/bin/inactive-windows-transparency.py #exec_always ~/bin/inactive-windows-transparency.py
@ -392,6 +392,8 @@ exec keepassxc
# Lebdeca okna (najdes preko "swaymsg -t get_tree") # Lebdeca okna (najdes preko "swaymsg -t get_tree")
for_window [app_id="org.keepassxc.KeePassXC"] floating enable for_window [app_id="org.keepassxc.KeePassXC"] floating enable
for_window [title="^Utopia"] floating enable
for_window [title="^OSCRecorder"] floating enable
# Foot terminal server! # Foot terminal server!
exec foot --server exec foot --server

View File

@ -101,13 +101,17 @@ Tukaj se nahajate samo bližnjici za preklop med bufferji (kako bi to lepo preve
In pa ukaz za ponovno naložit konfiguracijo emacsa. In pa ukaz za ponovno naložit konfiguracijo emacsa.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun ponovno-nalozi-config () (ineractive) (load-file "~/.emacs.d/init.el")) (defun ponovno-nalozi-config ()
"Ponovno naloži emacs konfiguracijo"
(interactive)
(load-file "~/.emacs.d/init.el"))
(start/leader-keys (start/leader-keys
;; Osnovne bliznjice ;; Osnovne bliznjice
"[" 'previous-buffer "[" 'previous-buffer
"]" 'next-buffer "]" 'next-buffer
"r" 'ponovno-nalozi-config "r" 'ponovno-nalozi-config
"u" 'font-lock-update
) )
#+end_src #+end_src
@ -167,8 +171,7 @@ Bližnjice za delo z datotekami se začnejo s ~f~.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun odpri-konfiguracijo () (interactive) (find-file "~/.emacs.d/config.org")) (defun odpri-konfiguracijo () (interactive) (find-file "~/.emacs.d/config.org"))
(defun odpri-init () (interactive) (find-file "~/.emacs.d/init.el")) (defun odpri-init () (interactive) (find-file "~/.emacs.d/init.el"))
(defun odpri-todo () (interactive) (find-file "~/org/todo.org")) (defun odpri-todo () (interactive) (find-file "~/org/TODO.org"))
(defun odpri-zapiske () (interactive) (find-file "~/org/zapiski.org"))
(start/leader-keys (start/leader-keys
"f" '(:ignore t :wk "file") "f" '(:ignore t :wk "file")
@ -193,6 +196,14 @@ Emacs nudi kup uporabnih funkcij, ki so nepogrešljive na poti učenja o funkcio
"d m" 'describe-mode) "d m" 'describe-mode)
#+end_src #+end_src
** Info
Branje navodil, SICP, še kaj.
#+begin_src emacs-lisp
(start/leader-keys
"i" 'info)
#+end_src
** Konec ** Konec
Dodamo manjkajoči zaklepaj. :) Dodamo manjkajoči zaklepaj. :)
@ -208,9 +219,12 @@ Ta sekcija vsebuje razne konfiguracije povezane z ~evil-mode~ - modalnim načino
Vklopi evil mode! Vklopi evil mode!
~evil-shift-width~ nastavi širino tabulacije ko pritisnemo ~>~
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq evil-want-integration t (setq evil-want-integration t
evil-want-keybinding nil) evil-want-keybinding nil
evil-shift-width 2)
;org-return-follows-link t ;org-return-follows-link t
(require 'evil) (require 'evil)
(evil-mode 1) (evil-mode 1)
@ -218,7 +232,6 @@ Vklopi evil mode!
Paket ~evil-collection~ pa vsebuje še dodatne evil bližnjice (recimo za ~help-mode~, ~eshell~ in tako dalje). Paket ~evil-collection~ pa vsebuje še dodatne evil bližnjice (recimo za ~help-mode~, ~eshell~ in tako dalje).
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package evil-collection (use-package evil-collection
:after evil :after evil
@ -261,6 +274,32 @@ Evil v ~treemacs~ drevesu datotečnega sistema.
#+end_src #+end_src
* Emacs splošno * Emacs splošno
** Dashboard
Prvi zaslon ob zagonu (~homescreen~), prikaže uporabne stvari.
#+begin_src emacs-lisp
(use-package dashboard
:general
(start/leader-keys
"b h" 'dashboard-open)
:after nerd-icons
:init
(dashboard-setup-startup-hook)
(setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*")))
(setq dashboard-banner-logo-title "EMA☭S")
(setq dashboard-startup-banner 3)
(setq dashboard-center-content t)
(setq dashboard-items '((agenda . 5)
(bookmarks . 3)
(recents . 5)))
;(setq dashboard-display-icons-p t) ;; display icons on both GUI and terminal
;(setq dashboard-icon-type 'nerd-icons) ;; use `nerd-icons' package
(setq dashboard-set-heading-icons t)
(setq dashboard-set-file-icons t)
(setq dashboard-set-navigator t)
(setq dashboard-set-init-info t))
#+end_src
** Vertico dopolnjevanje ** Vertico dopolnjevanje
Paket za dopolnjevanje, nadomestek ~ivy~. Nudi nekoliko lepšo iskušnjo priporočil pri izvajanju emacs ukazov. Paket za dopolnjevanje, nadomestek ~ivy~. Nudi nekoliko lepšo iskušnjo priporočil pri izvajanju emacs ukazov.
@ -299,7 +338,8 @@ Paket za dopolnjevanje, nadomestek ~ivy~. Nudi nekoliko lepšo iskušnjo priporo
~nerd-icons-completion~ nam dired in ostalo dopolnjevanje pojača z ikonami. ~nerd-icons-completion~ nam dired in ostalo dopolnjevanje pojača z ikonami.
#+begin_src emacs-lisp #+begin_src emacs-lisp
;(use-package nerd-icons-completion :init (nerd-icons-completion-mode)) (use-package nerd-icons-completion
:init (nerd-icons-completion-mode))
#+end_src #+end_src
** Iskanje ** Iskanje
@ -433,6 +473,39 @@ PDF dokumenti so včasih zelo veliki, raje jih odpirajmo s sistemskim preglejeva
(openwith-mode t)) (openwith-mode t))
#+end_src #+end_src
** Lepši REPL (ielm)
Nekoliko bolj prijazen elisp REPL, ki ima med drugim zgodovino.
#+begin_src emacs-lisp
(defun g-ielm-init-history ()
"Obstojna ielm zgodovina."
(let ((path (expand-file-name "ielm/history" user-emacs-directory)))
(make-directory (file-name-directory path) t)
(setq-local comint-input-ring-file-name path))
(setq-local comint-input-ring-size 10000)
(setq-local comint-input-ignoredups t)
(comint-read-input-ring))
(defun g-ielm-write-history (&rest _args)
"Tole je povezano z obstojno ielm zgodovino."
(with-file-modes #o600
(comint-write-input-ring)))
(use-package ielm
:defer t
:hook (ielm-mode-hook . (lambda ()
(eldoc-mode)
;(paredit-mode)
(g-ielm-init-history)))
:general
(start/leader-keys
";" 'ielm)
:config
(advice-add 'ielm-send-input :after 'g-ielm-write-history)
(define-key inferior-emacs-lisp-mode-map (kbd "C-l")
'comint-clear-buffer)
(define-key inferior-emacs-lisp-mode-map (kbd "C-r")
'helm-comint-input-ring))
#+end_src
* ORG * ORG
Orgmode je način, v katerem je spisan tale dokument. Orgmode je marsikaj, lahko bi ga pa strnili v razširitev navadnega (plain) teksta. Orgmode je način, v katerem je spisan tale dokument. Orgmode je marsikaj, lahko bi ga pa strnili v razširitev navadnega (plain) teksta.
@ -455,7 +528,8 @@ TODO dodaj več!
(start/leader-keys (start/leader-keys
:keymaps 'org-mode-map :keymaps 'org-mode-map
"o i" 'org-toggle-inline-images "o i" 'org-toggle-inline-images
"o t" 'org-time-stamp) "o t" 'org-time-stamp
"o r" 'org-refile)
#+end_src #+end_src
V org dokumente lahko vnašamo bloke vsebin, kot so programska koda, citati in podobno. Privzeto to dosežemo s ~C-c C-,~ in izbiro vrste željenega bloka, s sledečo konfiguracijo pa vklopimo bližnjico; na prazni vrstici samo "<s" ~TAB~ vstavi blok izvorne kode. V org dokumente lahko vnašamo bloke vsebin, kot so programska koda, citati in podobno. Privzeto to dosežemo s ~C-c C-,~ in izbiro vrste željenega bloka, s sledečo konfiguracijo pa vklopimo bližnjico; na prazni vrstici samo "<s" ~TAB~ vstavi blok izvorne kode.
@ -475,8 +549,8 @@ Za lepšo preglednost skrijemo znake za krepitev črk, podčrtovanje in podobno.
Nastavimo lokacije ~org-agenda~ dokumentov in pa privzeto datoteko za zapiske Nastavimo lokacije ~org-agenda~ dokumentov in pa privzeto datoteko za zapiske
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq org-agenda-files (list "~/rs/org" "~/org")) (setq org-agenda-files (list "~/org/TODO.org" "~/org/projekti.org"))
(setq org-default-notes-file "~/org/zapiski.org") (setq org-default-notes-file "~/org/TODO.org")
#+end_src #+end_src
Koledarski teden naj se začne s ponedeljkom, kot je pri nas konvencija. Koledarski teden naj se začne s ponedeljkom, kot je pri nas konvencija.
@ -499,7 +573,8 @@ Razširitev orgmode z diagramiranje preko [[https://graphviz.org/docs/layouts/do
(org-babel-do-load-languages (org-babel-do-load-languages
'org-babel-load-languages 'org-babel-load-languages
'((dot . t) '((dot . t)
(ditaa . t))) (ditaa . t)
(clojure . t)))
#+end_src #+end_src
Z ~ob-mermaid~ paketom pa dodamo še podporo za prikazovanje [[https://mermaid.js.org/intro/][mermaid diagramov]]! Z ~ob-mermaid~ paketom pa dodamo še podporo za prikazovanje [[https://mermaid.js.org/intro/][mermaid diagramov]]!
@ -550,7 +625,7 @@ TODO popravi/preveri delovanje?
:defer t :defer t
:init :init
(setq org-caldav-url "https://goba.rhiz0.me/remote.php/dav/calendars/g1smo" (setq org-caldav-url "https://goba.rhiz0.me/remote.php/dav/calendars/g1smo"
org-caldav-files '("~/org/todo.org") org-caldav-files '("~/org/TODO.org")
org-icalendar-timezone "Europe/Ljubljana" org-icalendar-timezone "Europe/Ljubljana"
org-caldav-calendars '((:calendar-id "org" org-caldav-calendars '((:calendar-id "org"
;:files '("~/org/todo.org") ;:files '("~/org/todo.org")
@ -635,6 +710,25 @@ V HTML org izvozu obarvaj bloke kode.
(use-package htmlize :after org-mode :defer t) (use-package htmlize :after org-mode :defer t)
#+end_src #+end_src
** Predstavitve
Bližnjice:
- ~left/right~ for movement
- ~C-c C-=~ for large txt
- ~C-c C--~ for small text
- ~C-c C-q~ for quit (which will return you back to vanilla org-mode)
- ~C-c <~ and ~C-c >~ to jump to first/last slide
- ~C-c C-r~ for buffer read-only
- ~C-c C-w~ for buffer read/write
- ~C-c C-1~ for one big page showing all slides
#+begin_src emacs-lisp
(use-package org-present :after org-mode :defer t)
#+end_src
#+begin_src emacs-lisp
(use-package htmlize :after org-mode :defer t)
#+end_src
* Grafični vmesnik * Grafični vmesnik
Barvna tema je [[https://github.com/greduan/emacs-theme-gruvbox][gruvbox]], v varjanti ~gruvbox-dark-soft~, s pisavo Iosevka. Barvna tema je [[https://github.com/greduan/emacs-theme-gruvbox][gruvbox]], v varjanti ~gruvbox-dark-soft~, s pisavo Iosevka.
@ -658,9 +752,6 @@ Uporabimo nerd ikone. ~POZOR~ pisavo naložimo z ukazom ~M-x nerd-icons-install-
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package nerd-icons) (use-package nerd-icons)
; Rabimo tudi all the icons?
;(use-package all-the-icons)
#+end_src #+end_src
** Drsenje (skrolanje) ** Drsenje (skrolanje)
@ -750,7 +841,17 @@ In pa nenazadnje, čeravno je ORGMODE superioren, naložimo še podporo za [[htt
* GNU/Guix * GNU/Guix
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package guix :ensure f) (use-package guix :ensure f :defer t)
#+end_src
** Pretty SHA path
Minor mode, ki SHA hashe v bufferju skrajša in tako poveča preglednost.
#+begin_src emacs-lisp
(use-package pretty-sha-path
:ensure t
:config
(pretty-sha-path-global-mode))
#+end_src #+end_src
* Delo s projekti * Delo s projekti
@ -790,6 +891,15 @@ Datoteke sortiraj glede na nedavno uporabljene bufferje in nato nedavno odprte.
(use-package counsel-projectile :after projectile) (use-package counsel-projectile :after projectile)
#+end_src #+end_src
~org-projectile~ omogoča vzdrževanje ORG TODO list na posameznih projektih.
#+begin_src emacs-lisp
(use-package org-projectile :after projectile)
#+end_src
#+begin_src
#+end_src
** Oblikovanje teksta ** Oblikovanje teksta
[[https://editorconfig.org/][Editorconfig]] omogoča nastavljanje oblikovanje tekstovnih fajlov na ravni posameznega projekta. [[https://editorconfig.org/][Editorconfig]] omogoča nastavljanje oblikovanje tekstovnih fajlov na ravni posameznega projekta.
@ -824,6 +934,7 @@ Za začetek nastavimo uporabo dveh navadnih presledkov za tab zamik.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq-default tab-width 2) (setq-default tab-width 2)
(setq-default indent-tabs-mode nil) (setq-default indent-tabs-mode nil)
(setq indent-line-function 'insert-tab)
#+end_src #+end_src
Vklopimo avtomatsko zapiranje oklepajev ter emacsovo avtomatsko zamikanje. Vklopimo avtomatsko zapiranje oklepajev ter emacsovo avtomatsko zamikanje.
@ -1009,8 +1120,11 @@ Dodamo še pripadajoč paket za olepševanje kode (avtomatsko prilagoditev zamik
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package web-mode (use-package web-mode
:config (setq web-mode-markup-indent-offset 2) :mode "\\.(html|twig)\\'"
:mode "\\.(html|twig)\\'") :custom
(web-mode-markup-indent-offset 2)
(web-mode-css-indent-offset 2)
(web-mode-code-indent-offset 2))
(use-package web-beautify :after web-mode) (use-package web-beautify :after web-mode)
#+end_src #+end_src
@ -1144,21 +1258,37 @@ Nastavljen naj bo na ~python3~.
Najprej moramo vključit direktorij, v katerem se nahajajo emacs paketi zanj (pridejo iz v supercolliderju nameščenega [[https://github.com/supercollider/scel][quarka]]), lahko bi pra prišel iz paketnega upravljalnika linux distribucije ali pa MELPE: Najprej moramo vključit direktorij, v katerem se nahajajo emacs paketi zanj (pridejo iz v supercolliderju nameščenega [[https://github.com/supercollider/scel][quarka]]), lahko bi pra prišel iz paketnega upravljalnika linux distribucije ali pa MELPE:
#+begin_src emacs-lisp #+begin_src emacs-lisp
;(add-to-list 'load-path "~/.local/share/SuperCollider/downloaded-quarks/scel/el") (add-to-list 'load-path "~/.local/share/SuperCollider/scel/el")
; (add-to-list 'load-path "~/.guix-profile/share/emacs/site-lisp/scel-20170629-1.aeea3ad")
#+end_src #+end_src
Nato vključimo emacs modul in nastavimo dve bližnjici; ~S-RET~ za evalviranje trenutne regije ali vrstice ter ~C-.~ za utišanje (kot v IDE-ju). Nato vključimo emacs modul ter [[https://github.com/yilin-zhang/sclang-helper][sclang-helper]] za lažjo evalvacijo kode in nastavimo bližnjice; ~C-RET~ za evalviranje "trenutne regije" (med zunanjimi oklepaji), ~C-c C-c~ za evalvacijo vrstice ali izbrane regije ter ~C-.~ za utišanje (kot v IDE-ju).
#+begin_src emacs-lisp #+begin_src emacs-lisp
;(require 'sclang) (require 'sclang)
;(global-set-key (kbd "S-RET") 'sclang-eval-region-or-line)
;(global-set-key (kbd "C-.") 'sclang-server-free-all) ;; Za branje dokumentacije
(use-package sclang-extensions
:config
(load "~/.emacs.d/sclang-helper.el")
(add-hook 'sclang-mode-hook 'sclang-extensions-mode)
(add-hook 'sclang-mode-hook (lambda () (local-set-key (kbd "C-<return>") 'sclang-helper-eval-paren-region))))
#+end_src #+end_src
Prilagam še kodo uporabnih funkcij za lažjo evalvacijo kode, [[https://github.com/yilin-zhang/sclang-helper][sclang-helper]] Za branje supercollider dokumentacije potrebujemo še ~w3m~ paket.
#+begin_src emacs-lisp #+begin_src emacs-lisp
;(load "~/.emacs.d/sclang-helper.el") (use-package w3m :defer t)
#+end_src
Povozimo drug keybinding.
#+begin_src emacs-lisp
(use-package bind-key
:defer t
:init
(bind-key "C-c C-c" 'sclang-helper-eval-region-or-line sclang-extensions-mode-map)
(bind-key* "C-." 'sclang-server-free-all sclang-extensions-mode-map))
#+end_src #+end_src
[[http://www.pawfal.org/Software/fluxus_/][fluxus]] je programsko okolje za hitro prototipiranje ter igranje z oz. učenje 3d grafike. Pisam je v schemu. [[http://www.pawfal.org/Software/fluxus_/][fluxus]] je programsko okolje za hitro prototipiranje ter igranje z oz. učenje 3d grafike. Pisam je v schemu.
@ -1258,6 +1388,31 @@ S sledečimi nastavitvami pospešimo delovanje.
(setq read-process-output-max (* 1024 1024))) ;; 1mb (setq read-process-output-max (* 1024 1024))) ;; 1mb
#+end_src #+end_src
** Clojure
~clojure-mode~ za obarvanje in podobno
#+begin_src emacs-lisp
(use-package clojure-mode)
#+end_src
~CIDER~ integrira clojure repl.
#+begin_src emacs-lisp
(use-package cider
:general
(start/leader-keys
:keymaps clojure-mode-map
;; EVAL ukazi
"e" '(:ignore t :wk "eval")
"e b" 'cider-eval-buffer
"e e" 'cider-eval-dwim
"e r" 'cider-eval-region
"b e" 'cider-eval-buffer)
:config
(add-hook 'clojure-mode-hook (lambda () (local-set-key (kbd "C-<return>") 'cider-eval-last-sexp))))
#+end_src
* E-pošta * E-pošta
Emacs že vključuje ~mu4e~ ([[https://www.djcbsoftware.nl/code/mu/][mu]] za emacs), modul ki omogoča brskanje po prejeti e-pošti. Emacs že vključuje ~mu4e~ ([[https://www.djcbsoftware.nl/code/mu/][mu]] za emacs), modul ki omogoča brskanje po prejeti e-pošti.
@ -1265,8 +1420,8 @@ Pred uporabo je treba konfigurirati nekaj več stvari, potrebujemo recimo ~isync
** Prejemanje ** Prejemanje
*** isync *** isync
**** Namestitev **** Namestitev
Najprej namestimo isync. Primer za guix ter debian. Najprej namestimo isync. Primer za guix ter debian.
#+begin_src sh #+begin_src sh
@ -1275,6 +1430,7 @@ Najprej namestimo isync. Primer za guix ter debian.
#+end_src #+end_src
**** Konfiguracija **** Konfiguracija
Konfiguriramo ga v ~~/.mbsyncrc~. Primer je za dva poštna nabiralnika, ki bosta shranjena znotraj ~~/.mail~. Konfiguriramo ga v ~~/.mbsyncrc~. Primer je za dva poštna nabiralnika, ki bosta shranjena znotraj ~~/.mail~.
#+begin_src #+begin_src
@ -1419,6 +1575,7 @@ Pedenanje izgleda:
- system crafters o emacs emailu: https://www.youtube.com/watch?v=yZRyEhi4y44&list=PLEoMzSkcN8oM-kA19xOQc8s0gr0PpFGJQ - system crafters o emacs emailu: https://www.youtube.com/watch?v=yZRyEhi4y44&list=PLEoMzSkcN8oM-kA19xOQc8s0gr0PpFGJQ
** Pošiljanje ** Pošiljanje
#+begin_src emacs-lisp #+begin_src emacs-lisp
(require 'smtpmail) (require 'smtpmail)
(setq send-mail-function 'smtpmail-send-it (setq send-mail-function 'smtpmail-send-it

View File

@ -6,6 +6,15 @@
(setq warning-minimum-level :error) (setq warning-minimum-level :error)
;; Error in pre-command-hook (vertico--prepare): (void-function compat--completion-metadata-get)
;(let ((regex "compat--completion-metadata-get"))
; (->> (elisp-load-path-roots)
; (-filter #'file-exists-p)
; (mapcar #'shell-quote-argument)
; (append `("grep" "-R" ,(shell-quote-argument regex)))
; (funcall (-flip #'string-join) " ")
; (grep-find)))
;;; Code: ;;; Code:
(org-babel-load-file "~/.emacs.d/config.org") (org-babel-load-file "~/.emacs.d/config.org")
@ -21,6 +30,7 @@
; :config ; :config
; (rg-enable-default-bindings)) ; (rg-enable-default-bindings))
;; ELISP test ;; ELISP test
(defun odpri-dnevnik () (defun odpri-dnevnik ()
"Dodaj dnevniški zapis v tmp folder sistema." "Dodaj dnevniški zapis v tmp folder sistema."
@ -32,56 +42,6 @@
"ŠE VEČ TEKSTA!" "\n"))) "ŠE VEČ TEKSTA!" "\n")))
(global-set-key (kbd "C-M-d") 'odpri-dnevnik) (global-set-key (kbd "C-M-d") 'odpri-dnevnik)
;; GNU guix
(use-package guix :defer t)
;; Dashboard - homescreen
(use-package dashboard
:general
(start/leader-keys
"b h" 'dashboard-open)
;:after nerd-icons
:init
(dashboard-setup-startup-hook)
(setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*")))
(setq dashboard-banner-logo-title "EMA☭S")
(setq dashboard-startup-banner 3)
(setq dashboard-center-content t)
(setq dashboard-items '((agenda . 5)
(recents . 5)))
;(setq dashboard-display-icons-p t) ;; display icons on both GUI and terminal
;(setq dashboard-icon-type 'nerd-icons) ;; use `nerd-icons' package
(setq dashboard-set-heading-icons t)
(setq dashboard-set-file-icons t)
(setq dashboard-set-navigator t)
(setq dashboard-set-init-info t))
;; Bolj fajni IELM REPL
(defun g-ielm-init-history ()
"Obstojna ielm zgodovina."
(let ((path (expand-file-name "ielm/history" user-emacs-directory)))
(make-directory (file-name-directory path) t)
(setq-local comint-input-ring-file-name path))
(setq-local comint-input-ring-size 10000)
(setq-local comint-input-ignoredups t)
(comint-read-input-ring))
(defun g-ielm-write-history (&rest _args)
"Tole je povezano z obstojno ielm zgodovino."
(with-file-modes #o600
(comint-write-input-ring)))
(use-package ielm
:defer t
:hook (ielm-mode-hook . (lambda ()
(eldoc-mode)
;(paredit-mode)
(g-ielm-init-history)))
:config
(advice-add 'ielm-send-input :after 'g-ielm-write-history)
(define-key inferior-emacs-lisp-mode-map (kbd "C-l")
'comint-clear-buffer)
(define-key inferior-emacs-lisp-mode-map (kbd "C-r")
'helm-comint-input-ring))
;; Sinhronizacija podnapisov (uporablja mpv!) ;; Sinhronizacija podnapisov (uporablja mpv!)
(use-package subed (use-package subed
:defer t :defer t
@ -106,11 +66,6 @@
(add-hook 'subed-mode-hook 'subed-enable-show-cps)) (add-hook 'subed-mode-hook 'subed-enable-show-cps))
(add-to-list 'load-path "~/.local/share/SuperCollider/scel/el")
(require 'sclang)
(global-set-key (kbd "S-RET") 'sclang-eval-region-or-line)
(global-set-key (kbd "C-.") 'sclang-server-free-all)
;;;;;;;;;;;; ;;;;;;;;;;;;
;; CUSTOM ;; ;; CUSTOM ;;
;;;;;;;;;;;; ;;;;;;;;;;;;
@ -122,33 +77,34 @@
'(custom-safe-themes '(custom-safe-themes
'("ba323a013c25b355eb9a0550541573d535831c557674c8d59b9ac6aa720c21d3" '("ba323a013c25b355eb9a0550541573d535831c557674c8d59b9ac6aa720c21d3"
default)) default))
'(helm-minibuffer-history-key "M-p")
'(package-selected-packages '(package-selected-packages
'(arduino-mode benchmark-init company counsel-projectile crdt '(arduino-mode benchmark-init cider company counsel-projectile crdt
dashboard diminish direnv doom-modeline drupal-mode dashboard diminish direnv doom-modeline drupal-mode
editorconfig evil-collection evil-org extempore-mode editorconfig evil-collection evil-org extempore-mode
faceup fluxus-mode flycheck format-all geben faceup fluxus-mode flycheck format-all geben
geiser-guile general gruvbox-theme guix helm helpful geiser-guile general gruvbox-theme guix helm helpful
htmlize jq-mode list-utils loop lsp-mode lsp-ui htmlize jq-mode list-utils loop lsp-mode magit
magit marginalia mu4e mu4e-dashboard marginalia mu4e mu4e-dashboard mu4e-marker-icons
mu4e-marker-icons nyan-mode ob-mermaid openwith nyan-mode ob-mermaid openwith orderless org-bullets
orderless org-bullets org-caldav paredit pkg-info org-caldav org-projectile paredit pkg-info pos-tip
popup pos-tip pyvenv racket-mode rainbow-delimiters pyvenv racket-mode rainbow-delimiters restclient
restclient rjsx-mode sclang-extensions shut-up sicp rjsx-mode sclang-extensions shut-up slime
slime smartparens smex subed svg-icon tidal smartparens smex subed svg-icon tidal toml-mode
toml-mode treemacs-projectile treesit-auto undo-tree treemacs-projectile treesit-auto undo-tree
use-package vertico vue-mode web-beautify web-mode use-package vertico vue-mode w3m web-beautify
which-key writeroom-mode yaml-mode zone-nyan)) web-mode web-server which-key writeroom-mode
yaml-mode zone-nyan))
'(package-vc-selected-packages '(package-vc-selected-packages
'((svg-icon :url "https://github.com/rougier/emacs-svg-icon"))) '((svg-icon :url "https://github.com/rougier/emacs-svg-icon")))
'(sclang-indent-level 2)) '(sclang-indent-level 2))
(custom-set-faces (custom-set-faces
;; custom-set-faces was added by Custom. ;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful. ;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance. ;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right. ;; If there is more than one, they won't work right.
'(org-document-title ((t (:inherit default :weight bold :family "Sans Serif" :height 2.0 :underline nil)))) '(org-document-title ((t (:inherit default :weight bold :font "Verdana" :height 2.0 :underline nil))))
'(org-level-1 ((t (:inherit default :weight bold :family "Sans Serif" :height 1.75)))) '(org-level-1 ((t (:inherit default :weight bold :font "Verdana" :height 1.75))))
'(org-level-2 ((t (:inherit default :weight bold :family "Sans Serif" :height 1.45)))) '(org-level-2 ((t (:inherit default :weight bold :font "Verdana" :height 1.45))))
'(org-level-3 ((t (:inherit default :weight bold :family "Sans Serif" :height 1.25)))) '(org-level-3 ((t (:inherit default :weight bold :font "Verdana" :height 1.25))))
'(org-level-4 ((t (:inherit default :weight bold :family "Sans Serif" :height 1.1))))) '(org-level-4 ((t (:inherit default :weight bold :font "Verdana" :height 1.1)))))

View File

@ -50,7 +50,7 @@ export XDG_CURRENT_DESKTOP=sway
# Guix # Guix
export GUIX_PROFILE="$HOME/.guix-profile" export GUIX_PROFILE="$HOME/.guix-profile"
export GUIX_PACKAGE_PATH="$HOME/projekti/guix-paketi" export GUIX_PACKAGE_PATH="$HOME/projekti/kompot/guix-kompot:$HOME/projekti/guix-paketi"
if [[ -d "$HOME/.cargo" ]]; then if [[ -d "$HOME/.cargo" ]]; then
. "$HOME/.cargo/env" . "$HOME/.cargo/env"

15
.zshrc
View File

@ -146,7 +146,7 @@ alias ustvari-drupal="composer create-project drupal/recommended-project "
# Za LXD! # Za LXD!
if command -v go &> /dev/null; then if command -v go &> /dev/null; then
export PATH="${PATH}:$(go env GOPATH)/bin:/sbin:/usr/sbin" export PATH="${PATH}:$(go env GOPATH)/bin"
fi fi
#export LD_LIBRARY_PATH="$(go env GOPATH)/deps/dqlite/.libs/:$(go env GOPATH)/deps/raft/.libs/:${LD_LIBRARY_PATH}" #export LD_LIBRARY_PATH="$(go env GOPATH)/deps/dqlite/.libs/:$(go env GOPATH)/deps/raft/.libs/:${LD_LIBRARY_PATH}"
@ -161,7 +161,7 @@ alias termfix="TERM=rxvt-256color "
#export TERM=rxvt-256color #export TERM=rxvt-256color
# Deli internet (iz wifi na eth) # Deli internet (iz wifi na eth)
alias share-internet="sudo iptables --table nat -A POSTROUTING --out-interface enp5s0 -j MASQUERADE && sudo iptables -A FORWARD --in-interface eth1 -j ACCEPT" alias share-internet="sudo iptables --table nat -A POSTROUTING --out-interface enp5s0 -j MASQUERADE && sudo iptables -A FORWARD --in-interface enp5s0 -j ACCEPT"
# Android studio in SDK # Android studio in SDK
export ANDROID_HOME="$HOME/Android/Sdk" export ANDROID_HOME="$HOME/Android/Sdk"
@ -176,8 +176,19 @@ export PATH=$PATH:/opt/gradle-8.7/bin
# Cargo! # Cargo!
export PATH=$HOME/.cargo/bin:$PATH export PATH=$HOME/.cargo/bin:$PATH
# CC = gcc
export CC=gcc
# Direnv # Direnv
eval "$(direnv hook zsh)" eval "$(direnv hook zsh)"
# Restart pipewire(debian) # Restart pipewire(debian)
alias restart-pipewire-debian="systemctl restart --user wireplumber pipewire pipewire-pulse" alias restart-pipewire-debian="systemctl restart --user wireplumber pipewire pipewire-pulse"
function abeceda {
for x in {A..Z}; do; y=$(echo "$x" | tr '[:upper:]' '[:lower:]'); echo -e "\t$x\t$y"; done
}
function ajpi {
IPV4=$(curl -s 'https://api.ipify.org?format=json' | jq '.ip') && HOME_IPV4='"193.77.221.150"' && if [ "$HOME_IPV4" = "$IPV4" ]; then; echo "LIO: $IPV4"; else; printf 'ipv4: %s\n' "$IPV4"; fi && printf 'ipv6: %s\n' $(curl -s 'https://api64.ipify.org?format=json' | jq '.ip')
}

View File

@ -1,10 +1,10 @@
[Desktop Entry] [Desktop Entry]
Name=Emacs Name=Emacs Pipewire
GenericName=Text Editor GenericName=Text Editor
Comment=Edit text Comment=Edit text
MimeType=text/english;text/plain;text/x-makefile;text/x-c++hdr;text/x-c++src;text/x-chdr;text/x-csrc;text/x-java;text/x-moc;text/x-pascal;text/x-tcl;text/x-tex;application/x-shellscript;text/x-c;text/x-c++; MimeType=text/english;text/plain;text/x-makefile;text/x-c++hdr;text/x-c++src;text/x-chdr;text/x-csrc;text/x-java;text/x-moc;text/x-pascal;text/x-tcl;text/x-tex;application/x-shellscript;text/x-c;text/x-c++;
# Run via pipewire (for supercollider!) # Run via pipewire (for supercollider!)
Exec=pw-jack emacs %F Exec=env PIPEWIRE_LATENCY=128/48000 pw-jack emacs %F
Icon=emacs Icon=emacs
Type=Application Type=Application
Terminal=false Terminal=false

View File

@ -1,3 +1,3 @@
#!/bin/bash #!/usr/bin/env bash
convert -background transparent "$1" -define icon:auto-resize=16,24,32,48,64,128,256 "$1.ico" convert -background transparent "$1" -define icon:auto-resize=16,24,32,48,64,128,256 "$1.ico"

View File

@ -1,15 +1,13 @@
(use-modules (use-modules
(gnu) (gnu)
(gnu system nss) (gnu system nss)
(gnu services base)
(gnu services pm)
(nongnu packages linux) (nongnu packages linux)
(nongnu system linux-initrd) (nongnu system linux-initrd)
(guix utils) (guix utils)
(srfi srfi-1)) (srfi srfi-1))
(use-service-modules desktop xorg dns networking) (use-service-modules base desktop xorg dns networking docker pm cups)
(use-package-modules bootloaders certs shells ssh version-control emacs vim wm freedesktop xorg fontutils) (use-package-modules bootloaders certs shells ssh version-control emacs vim wm freedesktop xorg fontutils docker cups android)
;; Autologin (ker imamo encrypted root!) ;; Autologin (ker imamo encrypted root!)
(define (auto-login-to-tty config tty user) (define (auto-login-to-tty config tty user)
@ -21,6 +19,7 @@
(define %my-services (define %my-services
(modify-services %desktop-services (modify-services %desktop-services
;; tty2 autologin
(mingetty-service-type config => (mingetty-service-type config =>
(auto-login-to-tty (auto-login-to-tty
config "tty2" "g1smo")))) config "tty2" "g1smo"))))
@ -40,6 +39,10 @@
(initrd microcode-initrd) (initrd microcode-initrd)
(firmware (list linux-firmware)) (firmware (list linux-firmware))
(groups (cons* (user-group (name "adbusers"))
(user-group (name "plugdev"))
%base-groups))
(users (cons* (user-account (users (cons* (user-account
(name "g1smo") (name "g1smo")
(comment "Yuri") (comment "Yuri")
@ -48,16 +51,25 @@
(shell (file-append zsh "/bin/zsh")) (shell (file-append zsh "/bin/zsh"))
(supplementary-groups '("wheel" "netdev" (supplementary-groups '("wheel" "netdev"
"audio" "video" "audio" "video"
"dialout" "users" "lp")) "dialout" "users" "lp"
;; Za ddev
"docker"
;; za fastboot/adb
"adbusers"
;; networkmanager connections
"plugdev"))
(home-directory "/home/g1smo")) (home-directory "/home/g1smo"))
%base-user-accounts)) %base-user-accounts))
(packages (append (list (specification->package "i3-wm") (packages (append (list ;; Osnovni WM
(specification->package "i3-wm")
(specification->package "i3status") (specification->package "i3status")
(specification->package "dmenu") (specification->package "dmenu")
(specification->package "st") (specification->package "st")
;; sistem ;; sistem
(specification->package "lvm2") (specification->package "lvm2")
(specification->pacakge "amdgpu-firmware")
;; WM zadeve ;; WM zadeve
(specification->package "sway") (specification->package "sway")
(specification->package "swaybg") (specification->package "swaybg")
@ -74,12 +86,18 @@
;; Razno ;; Razno
(specification->package "zsh") (specification->package "zsh")
(specification->package "git") (specification->package "git")
(specification->package "file")) (specification->package "file")
;; Napajanje, baterija ...
(specification->package "acpi")
(specification->package "file")
;; Za docker (ddev)
(specification->package "docker"))
%base-packages)) %base-packages))
(services (services
(cons* (service gnome-desktop-service-type) (cons* (service gnome-desktop-service-type)
;; dns cache
(service network-manager-service-type (service network-manager-service-type
(network-manager-configuration (network-manager-configuration
(dns "dnsmasq"))) (dns "dnsmasq")))
@ -94,10 +112,21 @@
(ahci-runtime-pm-timeout 0))) (ahci-runtime-pm-timeout 0)))
(service thermald-service-type) (service thermald-service-type)
(service bluetooth-service-type) (service bluetooth-service-type)
;; Za ddev
(service docker-service-type)
(service containerd-service-type)
;; printanje
(service cups-service-type
(cups-configuration
(web-interface? #t)
(extensions
(list cups-filters hplip-minimal))))
;; fastboot kot navadni user
(udev-rules-service 'android android-udev-rules)
(remove (remove
(lambda (service) (lambda (service)
(eq? network-manager-service-type (service-kind service))) (eq? network-manager-service-type (service-kind service)))
%desktop-services))) %my-services )))
(swap-devices (swap-devices
(list (swap-space (list (swap-space
@ -110,7 +139,7 @@
(type luks-device-mapping)) (type luks-device-mapping))
(mapped-device (mapped-device
(source "dbn-vg") (source "dbn-vg")
(targets (list "dbn--vg-guix" "dbn--vg-home")) (targets (list "dbn--vg-guix" "dbn--vg-btr--home"))
(type lvm-device-mapping)))) (type lvm-device-mapping))))
;; Allow resolution of '.local' host names with mDNS. ;; Allow resolution of '.local' host names with mDNS.
@ -124,9 +153,10 @@
(options "subvol=@root,compress-force=zstd,space_cache=v2") (options "subvol=@root,compress-force=zstd,space_cache=v2")
(dependencies mapped-devices)) (dependencies mapped-devices))
(file-system (file-system
(mount-point "/home") (mount-point "/mnt/debian-home")
(device "/dev/mapper/dbn--vg-home") (device "/dev/mapper/dbn--vg-btr--home")
(type "ext4") (type "btrfs")
(options "compress-force=zstd,space_cache=v2")
(dependencies mapped-devices)) (dependencies mapped-devices))
(file-system (file-system
(mount-point "/boot/efi") (mount-point "/boot/efi")

View File

@ -0,0 +1,4 @@
(specifications->packages
(list
"firefox-esr-wayland"))

View File

@ -0,0 +1,289 @@
;; 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 services)
(guix gexp)
(gnu home services)
(gnu home services shells)
(gnu home services pm)
(gnu home services desktop)
(gnu packages xdisorg)
(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
;; E-pošta
"icedove-wayland"
;"icedove-l10n:sl"
"mu"
"gnupg"
;; Chat
"element-desktop"
"irssi"
"signal-desktop"
;; Emacs in paketi
"emacs-next-pgtk-xwidgets"
"emacs-use-package"
"emacs-benchmark-init"
"emacs-general"
"emacs-evil"
"emacs-evil-collection"
"emacs-evil-org"
;"emacs-treemacs-evil"
"emacs-vertico"
;"emacs-savehist"
"emacs-marginalia"
"emacs-orderless"
;"emacs-nerd-icons-completion"
"emacs-swiper"
"emacs-counsel"
"emacs-smex"
"emacs-helpful"
"emacs-which-key"
"emacs-crdt"
"emacs-openwith"
"emacs-org"
;"emacs-ob-mermaid"
"emacs-visual-fill-column"
"emacs-writeroom"
"emacs-org-caldav"
"emacs-org-bullets"
"emacs-htmlize"
"emacs-gruvbox-theme"
"emacs-doom-modeline"
"emacs-nerd-icons"
"emacs-undo-tree"
"emacs-markdown-mode"
"emacs-guix"
"emacs-projectile"
"emacs-counsel-projectile"
"emacs-editorconfig"
"emacs-treemacs"
"emacs-smartparens"
"emacs-company"
"emacs-flycheck"
"emacs-format-all-the-code"
"emacs-direnv"
"emacs-magit"
;"emacs-treesit-auto"
"emacs-rainbow-delimiters"
"emacs-geiser-guile"
"emacs-racket-mode"
"emacs-slime"
"emacs-web-mode"
"emacs-restclient"
;"emacs-php-mode"
;"emacs-drupal-mode"
;"emacs-geben"
"emacs-js2-mode"
;"emacs-vue-mode"
"emacs-rjsx-mode"
"emacs-pyvenv"
;"emacs-sclang"
;"emacs-fluxus-mode"
"emacs-extempore-mode"
;"emacs-tidal"
"emacs-toml-mode"
"emacs-yaml-mode"
"emacs-arduino-mode"
"emacs-lsp-mode"
;"emacs-mu4e"
;"emacs-mu4e-marker-icons"
"emacs-mu4e-dashboard"
;"emacs-mu4e-thread-folding"
"emacs-nyan-mode"
"emacs-svg-icon"
"emacs-scel"
"emacs-spinner"
"emacs-vertico"
"emacs-cider"
;; Splet
"librewolf"
"nyxt"
"surfraw"
;; Brskanje po fajlih
"thunar"
"ncdu"
;; Wine za wins programe
"wine64"
;; Guile programiranje
"guile-next"
"guile-goblins"
"guile-chickadee"
"guile-readline"
"guile-colorized"
"guile-dbi"
"guile-dbd-mysql"
"guile-dbd-sqlite3"
"guile-zstd"
"artanis"
"guile-studio"
"sicp"
;; Torrenti / fajl sharing
"transmission:gui"
"transmission"
"nicotine+"
;; Terminal, orodja
"foot"
"screen"
"reptyr"
"ripgrep"
"rsync"
"direnv"
"openssh"
"sshfs"
"woff-tools"
"gzip"
"unzip"
"pwgen"
"jq"
"curl"
"nextcloud-client"
"powertop" ; poraba energije
"ncurses" ; clear ukaz, najbrz tudi kaksni drugi
"hexyl" ; CLI hex editor
"gparted"
"xhost" ; za sudo gui (vidi zshrc)
;; upravljanje oken
"swayfx"
"swaybg"
"i3-wm"
"i3status"
"rofi-wayland"
"mako"
"gammastep"
"i3-autotiling"
"eog" ; gledanje slik
"vlc" ; multimedia plejer
"keepassxc" ; gesla / keyring
"seahorse" ; keyring urejevalnik
"glib:bin" ; za gsettings ukaz
"grim" ; zaslonske slike
"slurp" ; zaslonske slike
"pamixer" ; za jakost stimat
"brightnessctl" ; svetlost zaslona
"wdisplays" ; nastavitve zaslonov
;; pisave
"font-liberation"
"font-dejavu"
"font-fira-code"
"font-awesome"
;; zvok
"qpwgraph"
"qjackctl"
"pavucontrol"
"alsa-utils"
"non-mixer"
"audacity"
"ardour"
"infamous-plugins"
"swh-plugins-lv2"
"zam-plugins"
"x42-plugins"
"caps-plugins-lv2"
"zplugins"
;"lsp-plugins"
"distrho-ports"
"omins-lv2"
"supercollider"
"soundconverter"
"picard"
"sooperlooper"
"ffmpeg"
;; mrezna orodja
"xl2tpd"
"nmap"
"wireshark"
"bind:utils"
;; urejanje in branje dokumentov (ne-emacs)
"libreoffice"
"evince"
"calibre"
"gedit"
"okular" ;; Digitalno podpisovanje pdf dokumentov
;; Urejanje slik
"gimp"
"inkscape"
"gimp-resynthesizer" ; magicna orodja v gimpu
;; video urejanje
"kdenlive"
;"olive"
;; Eye candy
"gnome-tweaks"
"arc-theme"
"numix-gtk-theme"
"qt5ct"
;"hyprland"
;"hyfetch"
"wfetch"
"texlive-etbb"
"bibata-cursor-theme"
"delft-icon-theme"
;; Programiranje
"rust"
"valgrind"
"xxd"
"make"
"python"
;; Igre
"gzdoom"
"gnubg"
"freegish"
"kigo"
"crawl-tiles"
;; Razno
"nss-certs"
"glibc-locales")))
;; Below is the list of Home services. To search for available
;; services, run 'guix home search KEYWORD' in a terminal.
(services
(list ;; Shell - zsh
(service home-zsh-service-type
(home-zsh-configuration
(zlogin (list (local-file "../../.zlogin" "zlogin")))
(zshrc (list (local-file "../../.zshrc" "zshrc")))
(zprofile (list (local-file "../../.zprofile" "zprofile")))))
;; Razne konfiguracije (~/.config)
(service home-files-service-type
;; Desktop file overrides; pw-jack za supercolider
`((".local/share/applications/SuperColliderIDE.desktop" ,(local-file "../../applications/SuperColliderIDE.desktop"))
(".local/share/applications/emacsPW.desktop" ,(local-file "../../applications/emacsPW.desktop"))))
;; Razni dotfajli - konfiguracije (~/.config)
(service home-xdg-configuration-files-service-type
`(("sway/config" ,(local-file "../../.config/sway/config"))
("rofi/config.rasi" ,(local-file "../../.config/rofi/config.rasi"))
("foot/foot.ini" ,(local-file "../../.config/foot/foot.ini"))
("i3status/config" ,(local-file "../../.config/i3status/config"))))
;; TODO povezi se druge dotfajle!
;; Indikator prazne baterije
(service home-batsignal-service-type)
;; Dbus storitev, ki se rabi kdaj
(service home-dbus-service-type))))

View File

@ -13,8 +13,7 @@
(gnu home services pm) (gnu home services pm)
(gnu home services desktop) (gnu home services desktop)
(gnu packages xdisorg) (gnu packages xdisorg)
(gnu home services sound) (gnu home services sound))
(small-guix home services gammastep))
(home-environment (home-environment
;; Below is the list of packages that will show up in your ;; Below is the list of packages that will show up in your
@ -22,13 +21,19 @@
(packages (packages
(specifications->packages (specifications->packages
(list (list
;; E-pošta
"icedove-wayland"
;"icedove-l10n:sl"
"mu"
"gnupg"
;; Chat ;; Chat
"element-desktop" "element-desktop"
"irssi" "irssi"
"signal-desktop" "signal-desktop"
;; Emacs in paketi ;; Emacs in paketi
"emacs-next-pgtk-xwidgets" "emacs-next-pgtk"
"emacs-use-package" "emacs-use-package"
"emacs-benchmark-init" "emacs-benchmark-init"
"emacs-general" "emacs-general"
@ -36,7 +41,7 @@
"emacs-evil-collection" "emacs-evil-collection"
"emacs-evil-org" "emacs-evil-org"
;"emacs-treemacs-evil" ;"emacs-treemacs-evil"
"emacs-vertico" ;"emacs-vertico"
;"emacs-savehist" ;"emacs-savehist"
"emacs-marginalia" "emacs-marginalia"
"emacs-orderless" "emacs-orderless"
@ -54,6 +59,7 @@
"emacs-writeroom" "emacs-writeroom"
"emacs-org-caldav" "emacs-org-caldav"
"emacs-org-bullets" "emacs-org-bullets"
"emacs-org-present"
"emacs-htmlize" "emacs-htmlize"
"emacs-gruvbox-theme" "emacs-gruvbox-theme"
"emacs-doom-modeline" "emacs-doom-modeline"
@ -78,7 +84,7 @@
"emacs-slime" "emacs-slime"
"emacs-web-mode" "emacs-web-mode"
"emacs-restclient" "emacs-restclient"
"emacs-php-mode" ;"emacs-php-mode"
;"emacs-drupal-mode" ;"emacs-drupal-mode"
;"emacs-geben" ;"emacs-geben"
"emacs-js2-mode" "emacs-js2-mode"
@ -101,6 +107,8 @@
"emacs-svg-icon" "emacs-svg-icon"
"emacs-scel" "emacs-scel"
"emacs-spinner" "emacs-spinner"
"emacs-vertico"
"emacs-cider"
;; Splet ;; Splet
"librewolf" "librewolf"
@ -120,13 +128,20 @@
"guile-goblins" "guile-goblins"
"guile-chickadee" "guile-chickadee"
"guile-readline" "guile-readline"
"guile-colorized"
"guile-dbi" "guile-dbi"
"guile-dbd-mysql" "guile-dbd-mysql"
"guile-dbd-sqlite3" "guile-dbd-sqlite3"
"guile-zstd"
"artanis" "artanis"
"guile-studio" "guile-studio"
"sicp" "sicp"
;; Drugi lispi
"racket"
"clojure"
"leiningen"
;; Torrenti / fajl sharing ;; Torrenti / fajl sharing
"transmission:gui" "transmission:gui"
"transmission" "transmission"
@ -147,9 +162,19 @@
"pwgen" "pwgen"
"jq" "jq"
"curl" "curl"
"w3m" ; CLI spletni brskalnik
"nextcloud-client" "nextcloud-client"
"powertop" ; poraba energije "powertop" ; poraba energije
"ncurses" ; clear ukaz, najbrz tudi kaksni drugi "ncurses" ; clear ukaz, najbrz tudi kaksni drugi
"hexyl" ; CLI hex editor
"gparted"
"xhost" ; za sudo gui (vidi zshrc)
"poppler" ; pdfimages, ...
"sox" ; zvočni urejevalnik v terminalu
;; C kompajlanje
"gcc-toolchain"
"bash"
;; upravljanje oken ;; upravljanje oken
"swayfx" "swayfx"
@ -162,8 +187,9 @@
"mako" "mako"
"libnotify" "libnotify"
"gammastep" "gammastep"
"xdg-desktop-portal" "xdg-desktop-portal-gtk"
"xdg-desktop-portal-wlr" "xdg-desktop-portal-wlr"
"flatpak-xdg-utils"
"i3-autotiling" "i3-autotiling"
"eog" ; gledanje slik "eog" ; gledanje slik
"vlc" ; multimedia plejer "vlc" ; multimedia plejer
@ -178,10 +204,9 @@
;; pisave ;; pisave
"font-liberation" "font-liberation"
"font-linuxlibertine"
"font-ghostscript"
"font-dejavu" "font-dejavu"
"font-gnu-freefont" "font-fira-code"
"font-awesome"
;; zvok ;; zvok
"pipewire" "pipewire"
@ -198,10 +223,14 @@
"x42-plugins" "x42-plugins"
"caps-plugins-lv2" "caps-plugins-lv2"
"zplugins" "zplugins"
"lsp-plugins" ;"lsp-plugins"
"distrho-ports" "distrho-ports"
"omins-lv2" "omins-lv2"
"supercollider:ide" "supercollider"
"soundconverter"
"picard"
"sooperlooper"
"ffmpeg"
;; mrezna orodja ;; mrezna orodja
"xl2tpd" "xl2tpd"
@ -217,14 +246,15 @@
"okular" ;; Digitalno podpisovanje pdf dokumentov "okular" ;; Digitalno podpisovanje pdf dokumentov
;; Urejanje slik ;; Urejanje slik
"gimp" "gimp-next"
"inkscape" "inkscape"
"gimp-resynthesizer" ; magicna orodja v gimpu "gimp-resynthesizer" ; magicna orodja v gimpu
;; video urejanje ;; video urejanje
"kdenlive" "kdenlive"
"pitivi"
;"olive" ;"olive"
"obs"
"obs-wlrobs"
;; Eye candy ;; Eye candy
"gnome-tweaks" "gnome-tweaks"
@ -251,12 +281,7 @@
"gnubg" "gnubg"
"freegish" "freegish"
"kigo" "kigo"
"crawl-tiles"
;; E-pošta
"icedove-wayland"
"icedove-l10n:sl"
"mu"
"gnupg"
;; Razno ;; Razno
"mesa" "mesa"
@ -273,21 +298,30 @@
(zlogin (list (local-file "../../.zlogin" "zlogin"))) (zlogin (list (local-file "../../.zlogin" "zlogin")))
(zshrc (list (local-file "../../.zshrc" "zshrc"))) (zshrc (list (local-file "../../.zshrc" "zshrc")))
(zprofile (list (local-file "../../.zprofile" "zprofile"))))) (zprofile (list (local-file "../../.zprofile" "zprofile")))))
;; Razni dotfajli - konfiguracije ;; Razne konfiguracije (~/.config)
(service home-files-service-type
;; Desktop file overrides; pw-jack za supercolider
`((".local/share/applications/SuperColliderIDE.desktop" ,(local-file "../../applications/SuperColliderIDE.desktop"))
(".local/share/applications/emacsPW.desktop" ,(local-file "../../applications/emacsPW.desktop"))))
;; Razni dotfajli - konfiguracije (~/.config)
(service home-xdg-configuration-files-service-type (service home-xdg-configuration-files-service-type
`(("sway/config" ,(local-file "../../.config/sway/config")) `(("sway/config" ,(local-file "../../.config/sway/config"))
("rofi/config.rasi" ,(local-file "../../.config/rofi/config.rasi")) ("rofi/config.rasi" ,(local-file "../../.config/rofi/config.rasi"))
("foot/foot.ini" ,(local-file "../../.config/foot/foot.ini")) ("foot/foot.ini" ,(local-file "../../.config/foot/foot.ini"))
;; Desktop file overrides; pw-jack za supercolider ("i3status/config" ,(local-file "../../.config/i3status/config"))))
("share/applications/SuperColliderIDE.desktop", "../../applications/SuperColliderIDE.desktop")
("share/applications/emacs.desktop", "../../applications/emacs.desktop")))
;; TODO povezi se druge dotfajle! ;; TODO povezi se druge dotfajle!
;; Indikator prazne baterije ;; Indikator prazne baterije
(service home-batsignal-service-type) (service home-batsignal-service-type
(home-batsignal-configuration
(notifications-expire? #t)))
;; Rdecenje zaslona ;; Rdecenje zaslona
(service gammastep-service-type (service home-redshift-service-type
(gammastep-configuration (home-redshift-configuration
(coordinates "46.05108:14.50513"))) (redshift redshift-wayland)
(location-provider 'manual)
(adjustment-method 'wayland)
(latitude 46.05108)
(longitude 14.50513)))
;; Dbus storitev, ki se rabi kdaj ;; Dbus storitev, ki se rabi kdaj
(service home-dbus-service-type) (service home-dbus-service-type)
;; Pipewire sound daemon ;; Pipewire sound daemon

View File

@ -20,7 +20,8 @@ mkdir ~/.config/sway
ln -s "$DIR/.config/sway/config" ~/.config/sway/config ln -s "$DIR/.config/sway/config" ~/.config/sway/config
# i3status vrstica zgoraj # i3status vrstica zgoraj
ln -s "$DIR/.i3status.conf" ~/.i3status.conf mkdir ~/.config/i3status
ln -s "$DIR/.config/i3status/config" ~/.config/i3status/config
# termite terminal (ok terminal za X) # termite terminal (ok terminal za X)
mkdir ~/.config/termite mkdir ~/.config/termite