dotfiles/.emacs.d/config.org

1259 lines
39 KiB
Org Mode
Raw Normal View History

#+TITLE: EMACS konfiguracija
2023-12-27 19:44:27 +01:00
Tukaj se nahaja celotna konfiguracija za emacs urejevalnik, ki jo uporabljam, v ORG obliki. Na ta - "literate programming" oz. pismeni način - podana konfiguracija daje v ospredje opis posameznih sekcij in s tem poveča preglednost, olajša pa tudi navigacijo po konfiguraciji.
Razdeljena je na poglavja ohlapno glede na vlogo oz področje. Področja so nekoliko raznosvrstna (evil način - tipkovnične bližnjice v slogu VIM so ena sekcija, programiranje druga...), bi pa moralo biti iz naslovov precej jasno, za kaj gre.
2023-12-27 19:44:27 +01:00
V primeru napak pri nalaganju ne pozabimo na uporaben ukaz ~emacs --debug-init~.
* Zagon
~debug-on-error~ uresničimo, če bi radi sprožili razhroščevalnik, kadar pride do napake (zelo priročno pri reševanju težav).
#+begin_src emacs-lisp
(setq debug-on-error t)
#+end_src
Pospešimo zagon z zmanjšanjem frekvence zbiranja smeti (garbage collection).
#+begin_src emacs-lisp
(setq gc-cons-threshold (* 50 1024 1024))
#+end_src
2023-12-27 19:44:27 +01:00
Vedno sledi simboličnim linkom. To potrebujem, ker se konfiguracijski fajli
ponavadi nahajajo v ločenem direktoriju zbirke konfiguracij in je tečno
vsakič potrjevati sledenje v dialogu.
#+begin_src emacs-lisp
(setq vc-follow-symlinks t)
#+end_src
Po zagunu izpiši čas nalaganja.
#+begin_src emacs-lisp
(add-to-list 'after-init-hook
(lambda ()
(message (concat "emacs (" (number-to-string (emacs-pid)) ") started in "
(emacs-init-time)))))
#+end_src
* Nalaganje paketov
Vklopi prikazovanje statistik naloženih paketov (prikažemo jih z ~M-x use-package-report~).
#+begin_src emacs-lisp
(setq use-package-compute-statistics t)
#+end_src
Nastavimo vire nalaganja paketov in pa vklopimo privzeto nalaganje ~use-package~ paketov iz spletnih zbirališč.
#+begin_src emacs-lisp
(require 'package)
(setq use-package-always-ensure t)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(add-to-list 'package-archives '("org" . "https://orgmode.org/elpa/") t)
(add-to-list 'package-archives '("elpa" . "https://elpa.gnu.org/packages/") t)
(package-initialize)
#+end_src
Vklop merjenja časa nalaganja posameznih paketov.
Rezultate merjenja lahko pogledamo z ~M-x benchmark-init/show-durations-tabulated~ ali ~M-x benchmark-init/show-durations-tree~
#+begin_src emacs-lisp
(use-package benchmark-init
:config
;; To disable collection of benchmark data after init is done.
(add-hook 'after-init-hook 'benchmark-init/deactivate))
#+end_src
* Vezane tipke
S paketom ~general~ je definiranih več kategorij tipkovničnih bližnjic, ki so združene po svoji funkciji, podobno kot poglavja tega dokumenta. Če v ukaznem načinu kliknemo ~SPC~ (ali pa v tekstovnem načinu ~C-SPC~), se nam prikažejo tipke kategorij, po kliku na posamezno pa ukazi, ki jih sprožimo (ali pa podkategorije).
2023-12-27 19:44:27 +01:00
V sledečim podpoglavjih so navedene kategorije posameznih bližnjic. Imajo dokaj samoopisna imena. Paket ~which key~ sproti izpisuje, kaj kateri gumb počne oz. kam nas pelje dalje.
#+begin_src emacs-lisp
(setq kategorije-bliznjic '())
(use-package general
:defer t
:config
(general-evil-setup)
;; Leader key nastavitev (za prozenje ukazov)
(general-create-definer start/leader-keys
:states '(normal insert visual emacs)
:keymaps 'override
:prefix "SPC"
:global-prefix "C-SPC")
#+end_src
** Splošne bližnice
Tukaj se nahajate samo bližnjici za preklop med bufferji (kako bi to lepo prevedli?).
2023-12-27 19:44:27 +01:00
In pa ukaz za ponovno naložit konfiguracijo emacsa.
#+begin_src emacs-lisp
(defun ponovno-nalozi-config () (ineractive) (load-file "~/.emacs.d/init.el"))
2023-12-27 19:44:27 +01:00
(start/leader-keys
;; Osnovne bliznjice
"[" 'previous-buffer
2023-12-27 19:44:27 +01:00
"]" 'next-buffer
"r" 'ponovno-nalozi-config
)
#+end_src
** Upravljanje z okni
Navigacijo med okni izvajamo s klasičnimi HJKL UNIX smernimi tipkami, recimo okno pod trenutnim izberemo s ~SPC w j~. Posamezno okno pa lahko razdvojimo vertikalno ali horizontalno s ~SPC w v~ oz. ~SPC w s~. ~SPC w d~ "ubije" trenutni buffer in okno.
#+begin_src emacs-lisp
(start/leader-keys
"w" '(:ignore t :wk "window")
"w j" 'windmove-down
"w k" 'windmove-up
"w h" 'windmove-left
"w l" 'windmove-right
"w s" 'split-window-below
"w v" 'split-window-right
"w d" 'kill-buffer-and-window)
#+end_src
** Upravljanje z bufferji
2023-12-27 19:44:27 +01:00
Bližnjice za delo z bufferji se začnejo z ~b~. Ne pozabimo na splošni
bližnjici (~[~ in ~]~ za prejšnji / naslednji buffer).
#+begin_src emacs-lisp
(start/leader-keys
"b" '(:ignore t :wk "buffer")
"b b" 'switch-to-buffer
"b p" 'previous-buffer
"b n" 'next-buffer
"b e" 'eval-buffer
"b s" (defun scratch-buffer () "Show scratch buffer" (interactive) (switch-to-buffer "*scratch*"))
"b d" 'kill-current-buffer
"b k" 'kill-buffer)
#+end_src
** Evalviranje
TODO napiši navodila
#+begin_src emacs-lisp
2023-12-27 19:44:27 +01:00
(start/leader-keys
;; EVAL ukazi
"e" '(:ignore t :wk "eval")
"e b" 'eval-buffer
"e e" 'eval-expression
"e r" 'eval-region)
#+end_src
** Datoteke
2023-12-27 19:44:27 +01:00
Bližnjice za delo z datotekami se začnejo s ~f~.
#+begin_src emacs-lisp
2023-12-27 19:44:27 +01:00
(defun odpri-konfiguracijo () (interactive) (find-file "~/.emacs.d/config.org"))
(defun odpri-init () (interactive) (find-file "~/.emacs.d/init.el"))
(defun odpri-todo () (interactive) (find-file "~/org/todo.org"))
(defun odpri-zapiske () (interactive) (find-file "~/org/zapiski.org"))
2023-12-27 19:44:27 +01:00
(start/leader-keys
"f" '(:ignore t :wk "file")
"f f" 'counsel-find-file
2023-12-27 19:44:27 +01:00
"f c" 'odpri-konfiguracijo :wk "odpri konfiguracijo (config.org)"
"f i" 'odpri-init :wk "odpri init.el"
"f z" 'odpri-zapiske
"f t" 'odpri-todo)
#+end_src
** Vplogled / introspekcija
Emacs nudi kup uporabnih funkcij, ki so nepogrešljive na poti učenja o funkcionalnosti. Zaenkrat sem definiral bližnjice do štirih od njih; opis funkcije, tipke, simbola (to so recimo rezervirana imena spremenljivk), načina (~mode~).
#+begin_src emacs-lisp
2023-12-27 19:44:27 +01:00
(start/leader-keys
"d" '(:ignore :t :wk "describe")
"d f" 'describe-function
"d k" 'describe-key
"d s" 'describe-symbol
"d m" 'describe-mode)
#+end_src
** Konec
Dodamo manjkajoči zaklepaj. :)
To pa je malo grdo pri pismenem programiranju.
#+begin_src emacs-lisp
)
#+end_src
* EVIL
Ta sekcija vsebuje razne konfiguracije povezane z ~evil-mode~ - modalnim načino editiranja, podobnim vi/vim urejevalnikom.
Vklopi evil mode!
#+begin_src emacs-lisp
(setq evil-want-integration t
evil-want-keybinding nil)
;org-return-follows-link t
(require 'evil)
(evil-mode 1)
#+end_src
Paket ~evil-collection~ pa vsebuje še dodatne evil bližnjice (recimo za ~help-mode~, ~eshell~ in tako dalje).
#+begin_src emacs-lisp
(use-package evil-collection
:after evil
:config
(evil-collection-init))
#+end_src
Evil v ~orgmode~ načinu (pa tudi v ~org-agenda~).
#+begin_src emacs-lisp
(use-package evil-org
:after org
:hook ((org-mode . evil-org-mode))
:config
(require 'evil-org-agenda)
(evil-org-set-key-theme '(navigation insert textobjects additional calendar))
(evil-org-agenda-set-keys)
#+end_src
V evil mode lahko linke znotraj ORG dokumentov odpiramo kar z ~RET~.
#+begin_src emacs-lisp
(defun odpri-org-link ()
"Odpri link v ORG fajlu pod kurzorjem"
(interactive)
(if (org-in-regexp org-link-any-re nil t)
(org-open-at-point)
nil))
(general-evil-define-key
'normal
org-mode-map
"RET" 'odpri-org-link))
#+end_src
Evil v ~treemacs~ drevesu datotečnega sistema.
#+begin_src emacs-lisp
(use-package treemacs-evil :after treemacs)
#+end_src
* Emacs splošno
** Kolaborativno urejanje - CRDT
Paket ~crdt~ omogoča istočasno urejanje bufferjev, kar je superuporabno :)
Paziti pa moramo na verzije emacsa; zaznali smo težave pri mešanju emacs 30/29 s starejšimi (28, 27) - znaki se lahko med odjemalci pomešajo. Emacs 29 in 30 bi morala vredu sodelovati.
#+begin_src emacs-lisp
(use-package crdt
:defer t
:general
(start/leader-keys
"c" '(:ignore t :wk "crdt")
"c c" 'crdt-connect
"c u" 'crdt-list-users
"c s" 'crdt-share-buffer
"c b" 'crdt-list-buffers))
#+end_src
** Ivy dopolnjevanje/iskanje
2023-12-27 19:44:27 +01:00
~ivy~ je sistem za avtomatsko dopolnjevanje, uporaben preko celotnega emacsa.
Nudi tudi prijaznejši način menjave bufferja, kar nastavimo na ~SPC ,~ ter ~SPC b b~.
#+begin_src emacs-lisp
(use-package ivy
:general
(start/leader-keys
"," 'ivy-switch-buffer
"b b" 'ivy-switch-buffer)
:config
(ivy-mode)
#+end_src
Nastavimo uporabo rekurzivnih minibufferjev za dopolnjevanje ter nastavimo še nekaj tipkovničnih bližnjic za malo lažje delo z ~ivy~.
#+begin_src emacs-lisp
(setq ivy-use-virtual-buffers t)
(setq enable-recursive-minibuffers t)
(local-set-key (kbd "C-j") 'ivy-next-line)
(local-set-key (kbd "C-k") 'ivy-prevous-line)
(local-set-key [remap scroll-up-command] 'ivy-scroll-up-command)
(local-set-key [remap scroll-down-command] 'ivy-scroll-down-command)
(global-set-key (kbd "C-c C-r") 'ivy-resume)
(global-set-key (kbd "<f6>") 'ivy-resume))
#+end_src
~swiper~ je ivy-jev iskalnik po bufferjih, ki nudi lep vmesnik s predogledom rezultatov, nastavimo ga na ~C-S~.
#+begin_src emacs-lisp
(use-package swiper
:defer t
:config
(global-set-key "\C-s" 'swiper))
#+end_src
~counsel~ pa nudi kup zamenjav privzetih emacs ukazov/operacij za prijetnejša opravila. Nastavimo nekaj bližnjic za njih. Recimo ~M-x~ menjava ki kaže predoglede v minibuferju, ~SPC RET~ za shranjevanje in menjavo med zaznamki, ~SPC /~ za ripgrep rekurzivno iskanje po vsebini datotek (potrebuje nameščen ~ripgrep~!).
#+begin_src emacs-lisp
(use-package counsel
:config
(global-set-key (kbd "M-x") 'counsel-M-x)
(global-set-key (kbd "C-x C-f") 'counsel-find-file)
(global-set-key (kbd "<f1> f") 'counsel-describe-function)
(global-set-key (kbd "<f1> v") 'counsel-describe-variable)
(global-set-key (kbd "<f1> o") 'counsel-describe-symbol)
(global-set-key (kbd "<f1> l") 'counsel-find-library)
(global-set-key (kbd "<f2> i") 'counsel-info-lookup-symbol)
(global-set-key (kbd "<f2> u") 'counsel-unicode-char)
(global-set-key (kbd "C-c g") 'counsel-git)
(global-set-key (kbd "C-c j") 'counsel-git-grep)
(global-set-key (kbd "C-c k") 'counsel-ag)
(global-set-key (kbd "C-x l") 'counsel-locate)
(define-key minibuffer-local-map (kbd "C-r") 'counsel-minibuffer-history)
(start/leader-keys
"RET" 'counsel-bookmark
"/" 'counsel-projectile-rg)
#+end_src
~counsel-M-x~ poganjalnik ukazov doplnimo s paketom ~smex~ za prikazovanje nedavno uporabljenih ukazov pri vrhu.
#+begin_src emacs-lisp
(use-package smex)
#+end_src
Šum pri iskalnih rezultatih ripgrep-a zmanjšamo z ignoriranjem ~node_modules~ direktorija javascript odvisnih paketov.
#+begin_src emacs-lisp
(defvar my-rg-excludes '("node_modules")
"List of directories to exclude from `counsel-rg' results.")
(define-advice counsel-rg
(:around (fn &optional in dir opts &rest args) my-glob)
"Exclude `my-rg-excludes' from `counsel-rg' results."
(let ((dir (or dir default-directory)))
(dolist (x my-rg-excludes)
(let ((glob (and (file-in-directory-p x dir)
(file-relative-name (expand-file-name "**" x) dir))))
(when glob (setq opts (concat "-g !" glob (and opts " ") opts))))))
(apply fn in dir opts args)))
#+end_src
** Pomoč / introspekcija
Paket ~helpful~ obarva strani za pomoč ter doda več kontekstualnih informacij in pa nekaj funkcij za lažje razumevanje kaj je kje, recimo ~helpful-at-point~, ~helpful-callable~, ~helpful-command~...
#+begin_src emacs-lisp
(use-package helpful :defer t)
#+end_src
2023-12-27 19:44:27 +01:00
~which-key~ prikazuje minibuffer z razlago, katere tipkovnične bližnjice so na voljo.
#+begin_src emacs-lisp
(use-package which-key
:defer t
:config
;; Allow C-h to trigger which-key before it is done automatically
(setq which-key-show-early-on-C-h t)
;; make sure which-key doesn't show normally but refreshes quickly after it is
;; triggered.
(setq which-key-idle-delay 0.4)
(setq which-key-idle-secondary-delay 0.05)
(which-key-mode))
#+end_src
** Varnostne kopije
Privzeto emacs dodaja varnostne kopije fajlov v iste direktorije kot so originali, kar zna malo nasmetiti. Zato nastavimo direktorij, kam naj jih shranjuje ter nastavimo nekaj drugih priročnih stvari, naj kopira fajle namesto preimenovanja, brisanje starih (z nastavljenimi omejitvami ter verzioniranje varnostnih kopij.
#+begin_src emacs-lisp
(setq
backup-directory-alist
`(("." . ,(concat user-emacs-directory "saves")))
backup-by-copying t
delete-old-versions t
kept-new-versions 6
kept-old-versions 2
version-control t)
#+end_src
Za vsak odprt fajl emacs ustvari lockfile, kar tudi zna smetiti (so pa zato, da obvestijo če več ljudi istočasno odpre fajl). To izklopimo.
#+begin_src emacs-lisp
(setq create-lockfiles nil)
#+end_src
** Ne odpiraj pdf datotek
PDF dokumenti so včasih zelo veliki, raje jih odpirajmo s sistemskim preglejevalnikom.
#+begin_src emacs-lisp
(use-package openwith
:defer t
:config
(setq openwith-associations '(("\\.pdf\\'" "xdg-open" (file))))
(openwith-mode t))
#+end_src
* ORG
2023-12-27 19:44:27 +01:00
Orgmode je način, v katerem je spisan tale dokument. Orgmode je marsikaj, lahko bi ga pa strnili v razširitev navadnega (plain) teksta.
#+begin_src emacs-lisp
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(use-package org
#+end_src
Dodamo tudi bližnjice za ~org-capture~ ter ~org-agenda~.
TODO dodaj več!
#+begin_src emacs-lisp
:general
(start/leader-keys
"o" '(:ignore t :wk "orgmode")
"o c" 'org-capture
"o a" 'org-agenda
"o w" 'writeroom-mode
"o t" 'org-time-stamp)
#+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.
#+begin_src emacs-lisp
:config
(require 'org-tempo)
(setq org-src-tab-acts-natively nil)
#+end_src
Za lepšo preglednost skrijemo znake za krepitev črk, podčrtovanje in podobno.
#+begin_src emacs-lisp
(setq org-hide-emphasis-markers t)
#+end_src
Nastavimo lokacije ~org-agenda~ dokumentov in pa privzeto datoteko za zapiske
#+begin_src emacs-lisp
(setq org-agenda-files (list "~/rs/org" "~/org"))
(setq org-default-notes-file "~/org/zapiski.org")
#+end_src
Koledarski teden naj se začne s ponedeljkom, kot je pri nas konvencija.
#+begin_src emacs-lisp
(setq calendar-week-start-day 1)
#+end_src
** Diagrami
2023-12-27 19:44:27 +01:00
Razširitev orgmode z diagramiranje preko [[https://graphviz.org/docs/layouts/dot/][DOT]] ter [[https://ditaa.sourceforge.net/#usage][ditaa]].
#+begin_src emacs-lisp
(org-babel-do-load-languages
'org-babel-load-languages
'((dot . t)
(ditaa . t)))
#+end_src
Z ~ob-mermaid~ paketom pa dodamo še podporo za prikazovanje [[https://mermaid.js.org/intro/][mermaid diagramov]]!
Delovanje tega paketa je odvisno od globalne namestitve javascript paketa z npm: ~sudo npm i -g @mermaid-js/mermaid-cli~.
#+begin_src emacs-lisp
(use-package ob-mermaid
:defer t
:config
;; sudo npm install -g @mermaid-js/mermaid-cli
(setq ob-mermaid-cli-path "/usr/local/bin/mmdc")
(org-babel-do-load-languages
'org-babel-load-languages
'((mermaid . t)
(scheme . t))))
#+end_src
** Stanja opravil
2023-12-27 19:44:27 +01:00
Stanja opravil. Stanja (v naslovih) menjamo s ~S-<levo>~ in ~S-<desno>~.
#+begin_src emacs-lisp
(setq org-todo-keywords
'((sequence "TODO" "V DELU" "TESTIRANJE" "DOKUMENTIRANJE" "KONČANO"))))
#+end_src
** Nemoteno pisanje
2023-12-27 19:44:27 +01:00
Način ~writeroom-mode~ omogoča nemoteno pisanje; trenutni buffer raztegne čez cel zaslon in v sredino centrira širinsko-omejen tekst. Tako buffer izgleda bolj kot popisan list papirja.
#+begin_src emacs-lisp
(use-package writeroom-mode
:defer t
:config
:hook ((org-mode . (lambda () (display-line-numbers-mode -1)))))
#+end_src
** Sinhronizacija koledarjev
2023-12-27 19:44:27 +01:00
Paket ~org-caldav~ omogoča sinhronizacijo koledarskih dogodkov v org dokumente.
TODO popravi/preveri delovanje?
#+begin_src emacs-lisp
(use-package org-caldav
:defer t
:init
(setq org-caldav-url "https://goba.rhiz0.me/remote.php/dav/calendars/g1smo"
org-caldav-files '("~/org/todo.org")
org-icalendar-timezone "Europe/Ljubljana"
org-caldav-calendars '((:calendar-id "org"
;:files '("~/org/todo.org")
:inbox "~/org/koledarji/org-in.org")
(:calendar-id "personal"
:inbox "~/org/koledarji/osebno-in.org")
(:calendar-id "megla"
:inbox "~/org/koledarji/megla-in.org"))))
#+end_src
** Izgled
2023-12-27 19:44:27 +01:00
Za šminko olepšamo predpone (pod)poglavij v simbole namesto vrst zvezdic.
#+begin_src emacs-lisp
(use-package org-bullets
:after org
:hook ((org-mode . (lambda () (org-bullets-mode 1)))))
#+end_src
Pri seznamih prikaži pike namesto vezajev.
#+begin_src emacs-lisp
(font-lock-add-keywords
'org-mode
'(("^ *\\([-]\\) "
(0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))
#+end_src
Za lepšo preglednost osvetlimo ozadje org blokov (recimo primere izvorne kode).
#+begin_src emacs-lisp
(require 'color)
(set-face-attribute 'org-block nil :background
(color-darken-name
(face-attribute 'default :background) 3))
#+end_src
Lepše pisave v blokih izvorne kode.
#+begin_src emacs-lisp
(setq org-src-fontify-natively t)
#+end_src
Naslov dokumenta ter naslove in podnaslove prikaži z drugimi pisavami in velikostmi.
#+begin_src emacs-lisp
;; Drugačne pisave za naslove, svoje velikosti
;; Vir: https://zzamboni.org/post/beautifying-org-mode-in-emacs/
(let* ((variable-tuple
(cond ((x-list-fonts "ETBembo") '(:font "ETBembo"))
((x-list-fonts "Lucida Grande") '(:font "Lucida Grande"))
((x-list-fonts "Verdana") '(:font "Verdana"))
((x-family-fonts "Sans Serif") '(:family "Sans Serif"))
(nil (warn "Cannot find a Sans Serif Font. Install Source Sans Pro."))))
(headline `(:inherit default :weight bold)))
(custom-theme-set-faces
'user
`(org-level-4 ((t (,@headline ,@variable-tuple :height 1.1))))
`(org-level-3 ((t (,@headline ,@variable-tuple :height 1.25))))
`(org-level-2 ((t (,@headline ,@variable-tuple :height 1.45))))
`(org-level-1 ((t (,@headline ,@variable-tuple :height 1.75))))
`(org-document-title ((t (,@headline ,@variable-tuple :height 2.0 :underline nil))))))
#+end_src
(lepši) zamiki naslovov. Potrebuje ~svg-lib~.
#+begin_src emacs-lisp
;(use-package svg-lib :defer t)
;(use-package org-margin
; :after org svg-lib
; :vc "https://github.com/rougier/org-margin"
; :init (org-margin-mode 1))
#+end_src
** Izvoz
2023-12-27 19:44:27 +01:00
V HTML org izvozu obarvaj bloke kode.
#+begin_src emacs-lisp
(use-package htmlize :after org-mode :defer t)
#+end_src
* Grafični vmesnik
2023-12-27 19:44:27 +01:00
Barvna tema je [[https://github.com/greduan/emacs-theme-gruvbox][gruvbox]], v varjanti ~gruvbox-dark-soft~.
#+begin_src emacs-lisp
(use-package gruvbox-theme
:config
(load-theme 'gruvbox-dark-soft t))
#+end_src
Modeline vrstica (v bufferjih spodaj) je iz doom emacsa.
#+begin_src emacs-lisp
(use-package doom-modeline
:defer t
:init (doom-modeline-mode 1))
#+end_src
Uporabimo nerd ikone. ~POZOR~ pisavo naložimo z ukazom ~M-x nerd-icons-install-fonts~.
#+begin_src emacs-lisp
(use-package nerd-icons)
; Rabimo tudi all the icons?
;(use-package all-the-icons)
#+end_src
** Drsenje (skrolanje)
2023-12-27 19:44:27 +01:00
Omogočimo gladko piksel skrolanje, v emacsu od verzije 29 dalje in nastavimo dve opciji, ki sta skopirani od drugje in za njih nevem kaj počneta. Mislim da vpivata na to, kako je, ko pridrsaš do dna okna.
#+begin_src emacs-lisp
(pixel-scroll-precision-mode)
;; Nevem kaj to dela
(setq scroll-conservatively 10)
(setq scroll-margin 8)
#+end_src
** Prihranimo prostor
2023-12-27 19:44:27 +01:00
Nekaj prostora prihranimo z umikom menija in orodne vrstice, iz katere tudi umaknemo ikone.
#+begin_src emacs-lisp
(menu-bar-mode -1)
(tool-bar-mode -1)
(setq ns-use-proxy-icon nil)
#+end_src
Onemogočimo grafične dialoge. Namesto tega tekstovno odgovorimo y/n (skrajšana oblika).
#+begin_src emacs-lisp
(setq use-dialog-box nil)
(fset 'yes-or-no-p 'y-or-n-p)
#+end_src
Umaknemo tudi naslove okvirjev.
#+begin_src emacs-lisp
(setq frame-title-format nil)
#+end_src
Ob strani piksle pridobimo s skrivanjem drsnega traka.
#+begin_src emacs-lisp
(scroll-bar-mode -1)
#+end_src
Zmanjšamo razmike med okni.
#+begin_src emacs-lisp
(setq window-divider-default-bottom-width 3)
(window-divider-mode t)
#+end_src
* Tekst
2023-12-27 19:44:27 +01:00
V široko paleto funkcionalnosti emacsa spada tudi urejanje navadnega teksta.
Tekst naj se prelamlja ob robu okna! Skrolanje na stran je naporno...
#+begin_src emacs-lisp
(global-visual-line-mode)
#+end_src
Ponavadi nas tudi zanimajo številke vrstic. Predvsem zaradi urejanje kode, morda bi to bolj pasalo v odsek programiranja TODO.
#+begin_src emacs-lisp
(global-display-line-numbers-mode)
#+end_src
Namesto navadnega undo/redo lahko uporabimo drevesne razveljavitve. Teh dreves nisem zares nikoli neposredno uporabljal, je pa praktično shranjevanje zgodovine undoja v emacsov nastavitveni direktorij.
#+begin_src emacs-lisp
(use-package undo-tree
:config
(global-undo-tree-mode)
(evil-set-undo-system 'undo-tree)
;; Drevo razveljavitev shrani v emacsov folder
(setq undo-tree-history-directory-alist '(("." . "~/.emacs.d/undo"))))
#+end_src
In pa nenazadnje, čeravno je ORGMODE superioren, naložimo še podporo za [[https://www.markdownguide.org/][markdown]].
#+begin_src emacs-lisp
(use-package markdown-mode :mode "\\.(md|markdown)\\'")
#+end_src
* Splošne emacs razširitve
* Delo s projekti
2023-12-27 19:44:27 +01:00
Knjižnica za projektne interakcije. Vsak projekt je svoja git zbirka. Lajša menjavo med projekti, iskanje datotek v posameznem projektu in tako dalje.
#+begin_src emacs-lisp
(use-package projectile
#+end_src
~SPC p~ odpre preddefinirano drevo bližnjic za delo s ~projectile~.
#+begin_src emacs-lisp
:general
(start/leader-keys "p" 'projectile-command-map)
#+end_src
Vlopimo projectile način, prezrimo direktorij z javascript paketi in priklopimo na ~ivy~ mehanizem za avtomatsko dopolnjevanje.
#+begin_src emacs-lisp
:config
(projectile-mode t)
(setq projectile-globally-ignored-directories '("node_modules"))
(setq projectile-completion-system 'ivy)
#+end_src
Zaradi težav pri uporabi =projectile= preko SSH povezav spremenimo način indeksiranja datotečnega drevesa. Dodajanje večjega projekta zato traja nekoliko dlje
#+begin_src emacs-lisp
(setq projectile-indexing-method 'native)
(setq projectile-enable-caching t)
;(add-to-list 'tramp-remote-path 'tramp-own-remote-path)
;(setq-default projectile-indexing-method 'alien)
#+end_src
Datoteke sortiraj glede na nedavno uporabljene bufferje in nato nedavno odprte.
#+begin_src emacs-lisp
(setq projectile-sort-order 'recently-active))
#+end_src
~counsel-projectile~ nudi dodatne integracije z ~ivy~ sistemom dopolnjevanja.
#+begin_src emacs-lisp
(use-package counsel-projectile :after projectile)
#+end_src
** Oblikovanje teksta
2023-12-27 19:44:27 +01:00
[[https://editorconfig.org/][Editorconfig]] omogoča nastavljanje oblikovanje tekstovnih fajlov na ravni posameznega projekta.
#+begin_src emacs-lisp
(use-package editorconfig
:config
(editorconfig-mode 1))
#+end_src
** Datotečno drevo
2023-12-27 19:44:27 +01:00
~treemacs~ nudi vizualni drevesni pregled nad datotekami in direktoriji za posamezni projekt.
Vklop je nastavljen na ~SPC t~. Številke vrstic nas v drevesnem bufferju ne zanima. Pridodamo še paket za ~projectile~ podporo.
#+begin_src emacs-lisp
(use-package treemacs
:defer t
:general
(start/leader-keys
"t" 'treemacs)
:hook ((treemacs-mode . (lambda () ;; Brez stevilk vrstic v file drevesu!
(display-line-numbers-mode -1)))))
(use-package treemacs-projectile :after treemacs)
#+end_src
* Programiranje
** Splošno
Za začetek nastavimo uporabo dveh navadnih presledkov za tab zamik.
#+begin_src emacs-lisp
(setq-default tab-width 2)
(setq-default indent-tabs-mode nil)
#+end_src
Vklopimo avtomatsko zapiranje oklepajev ter emacsovo avtomatsko zamikanje.
2023-12-27 19:44:27 +01:00
#+begin_src emacs-lisp
(electric-indent-mode 1)
; (electric-pair-mode 1)
#+end_src
2023-12-27 19:44:27 +01:00
Samodejno zapiranje oklepajev. Tega ne rabimo ker imamo ~electric-pair-mode~, ki je vgrajen v emacs in lepše obravnava zamik teksta ob vstopu v novo vrstico.
2023-12-27 19:44:27 +01:00
#+begin_src emacs-lisp
(use-package smartparens-mode
:ensure smartparens
:hook (prog-mode text-mode markdown-mode)
:config
(require 'smartparens-config))
#+end_src
Avtomatsko dopolnjevanje izrazov.
#+begin_src emacs-lisp
(use-package company
:config
(setq lsp-completion-provider :capf)
:init (global-company-mode))
#+end_src
~flycheck~ sproti preverja sintakso kode in opozarja na morebitne nečednosti.
#+begin_src emacs-lisp
(use-package flycheck
:defer t
:init (global-flycheck-mode))
#+end_src
Avtomatsko oblikovanje kode za razne programske jezike. Kličemo ga ročno. TODO dodamo kakšno bližnjico?
#+begin_src emacs-lisp
(use-package format-all :defer t)
#+end_src
~direnv~ integracija omogoča uporabo definiranih okoljskih spremenljivk na posameznih projektih (recimo vključitev drush v PATH za drupal).
#+begin_src emacs-lisp
(use-package direnv :config (direnv-mode))
#+end_src
** GIT
2023-12-27 19:44:27 +01:00
~magit~ paket je super za delo z git sistemom za deljeno verzioniranje kode ali drugih podatkov.
#+begin_src emacs-lisp
(use-package magit
:defer t
:general
(start/leader-keys
"g" '(:ignore t :wk "magit")
"g s" 'magit-status)
:config
#+end_src
Sledeča konfiguracija prepreči zamrznitev ko stage-amo spremembe preko TRAMP povezave.
#+begin_src emacs-lisp
(defun my--tramp-send-command--workaround-stty-icanon-bug (conn-vec orig-command &rest args)
"See: https://github.com/magit/magit/issues/4720"
(let ((command
(if (string= "stty -icrnl -icanon min 1 time 0" orig-command)
"stty -icrnl"
orig-command)))
(append (list conn-vec command) args)))
(defun my--tramp-send-command--workaround-stty-icanon-bug--filter-args (args)
(apply #'my--tramp-send-command--workaround-stty-icanon-bug args))
(advice-add 'tramp-send-command :filter-args
#'my--tramp-send-command--workaround-stty-icanon-bug--filter-args))
2023-12-27 19:44:27 +01:00
#+end_src
Z ~magit-todos~ si malo olajšamo spremlajnje TODO-jev v drevesu kode. Zaenkrat onemogočeno, zaradi težavo preko TRAMP povezav.
2023-12-27 19:44:27 +01:00
#+begin_src emacs-lisp
;(use-package magit-todos
; :after magit
; :config (magit-todos-mode 1))
2023-12-27 19:44:27 +01:00
#+end_src
** Tree-sitter
2023-12-27 19:44:27 +01:00
Tree-sitter je knjižnica za inkrementalno razčlenjevanje (parsing) programske kode. Na podlagi definicij slovnic za različne programske jezike (namestimo jih z ~M-x treesit-install-language-grammar~) omogoča obarvanja kode, priporočila in podobno. To počne nekoliko hitreje kot klasični načini. Tukaj so definicije nadomestnih treesit načinov za določene programske jezike.
S ~treesit-auto~ paketom se avtomatsko naredijo asociacije za treesit načine, vedno ko odpremo fajl s podporo ze treesitter pa nas obvesti o tem, da ga lahko namestimo. Tako ni treba ročno nastavljat za vsak programski jezik posebej.
#+begin_src emacs-lisp
(use-package treesit-auto
:defer t
:custom
(treesit-auto-install 'prompt)
:config
(treesit-auto-add-to-auto-mode-alist 'all)
(global-treesit-auto-mode))
#+end_src
Spodaj pa je primer nastavitev ročnih asociacij s fajli, za menjavo z klasičnimi major načini.
#+begin_src emacs-lisp
; (dolist
; (item (list '("\\.css\\'" . css-ts-mode)
; '("\\.json\\'" . json-ts-mode)
; '("\\.php\\'" . php-ts-mode)
; '("\\.py\\'" . python-ts-mode)
; '("\\.js\\'" . js-ts-mode)))
; (add-to-list 'auto-mode-alist item))
#+end_src
** LISP
2023-12-27 19:44:27 +01:00
To poglavje zajema nastavitve raznih LISP dialektov.
Vsi LISPi, tudi vgrajeni emacs-lisp, so bolj berljivi z mavričnim obarvanjem oklepajev.
#+begin_src emacs-lisp
(use-package rainbow-delimiters
:hook ((prog-mode . rainbow-delimiters-mode)))
#+end_src
~Geiser~ lajša delo s scheme jeziki, nastavljeno za [[https://www.gnu.org/software/guile/][GNU Guile]]. Omogoča recimo povezovanje v REPL (read-eval-print-loope).
#+begin_src emacs-lisp
(use-package scheme-mode
:ensure f
:mode "\\.scm\\'")
2023-12-27 19:44:27 +01:00
(use-package geiser-guile
:defer t
2023-12-27 19:44:27 +01:00
:general
(start/leader-keys
:infix "s"
"" '(:ignore t :wk "geiser")
"b" 'geiser-eval-buffer
"e" 'geiser-eval-expression
"s" (defun geiser-start-and-eval-buffer ()
(interactive)
(geiser-guile)
(previous-buffer)
(geiser-eval-buffer))
"s" 'geiser-start-and-eval-buffer
"g" 'geiser
"c" 'geiser-connect
"k" 'geiser-exit-repl
"r" (defun geiser-restart ()
;(interactive)
(geiser-exit-repl)
(geiser-start-and-eval-buffer)))
:init (setq scheme-program-name "guile"))
#+end_src
Kdaj delam tudi z [[https://racket-lang.org/][racket]].
#+begin_src emacs-lisp
(use-package racket-mode :mode "\\.rkt\\'")
#+end_src
Poskusimo še common lisp - SLIME!
#+begin_src emacs-lisp
(use-package slime
:defer t
:config (setq inferior-lisp-program "/usr/bin/sbcl"))
#+end_src
** Spletno
2023-12-27 19:44:27 +01:00
Način za obarvanje html, twig in podobne kode (jinja?) se imenuje ~web-mode~.
Dodamo še pripadajoč paket za olepševanje kode (avtomatsko prilagoditev zamikov kode).
#+begin_src emacs-lisp
(use-package web-mode :mode "\\.(html|twig)\\'")
(use-package web-beautify :after web-mode)
#+end_src
Ozadja pri ~vue-mode~ se z gruvbox temo rada grdo pomešajo, kar lahko rešimo s sledečim hookom:
#+begin_src emacs-lisp
(add-hook 'mmm-mode-hook
(lambda ()
(set-face-background 'mmm-default-submode-face nil)))
#+end_src
CSS zamike nastavimo na 2 presledka, kot je drugje.
#+begin_src emacs-lisp
(setq css-indent-level 2)
(setq css-indent-offset 2)
#+end_src
Pri spletnem programiranju zelo prav pride tudi [[https://github.com/pashky/restclient.el][restclient]] odjemalec za pošiljanje HTTP poizvedb in pregled odzivov.
#+begin_src emacs-lisp
(use-package restclient :defer t)
#+end_src
*** PHP
2023-12-27 19:44:27 +01:00
Podpora za programiranje s PHP domačo spletno stranjo oz. hipertekstualnim predprocesorjem.
#+begin_src emacs-lisp
(use-package php-mode
:mode "\\.(php|module)\\'"
#+end_src
Bližnjica za cache rebuild na drupalu (dela tudi preko SSH!).
#+begin_src emacs-lisp
:general
(start/leader-keys
"d d" (defun drupal-cache-rebuild ()
(interactive)
;(shell-command "drush cr")
(projectile-run-shell-command-in-root "./vendor/bin/drush cr")
)))
2023-12-27 19:44:27 +01:00
#+end_src
Sicer obstaja tudi način ki lajša delanje z drupalom.
#+begin_src emacs-lisp
(use-package drupal-mode :after php-mode)
#+end_src
*** Javascript
2023-12-27 19:44:27 +01:00
Najprej nastavimo zamike.
#+begin_src emacs-lisp
(setq js2-strict-missing-semi-warning nil
js2-missing-semi-one-line-override nil
js2-basic-offset 2
js-indent-level 2
indent-tabs-mode nil
tab-width 2)
#+end_src
~js2~ je en fajn način za javascriptanje.
#+begin_src emacs-lisp
(use-package js2-mode
:mode "\\.js\\'")
#+end_src
Vue način lajša razvoj z [[https://vuejs.org/][vue javascript ogrodjem]]. Integriran je z LSP, moramo pa za integracijo globalno namestiti npm paket: ~sudo npm i -g vue-language-server~
#+begin_src emacs-lisp
(use-package vue-mode
:mode "\\.vue\\'"
:config (add-hook 'vue-mode-hook #'lsp))
#+end_src
~rjsx~ pride prav pri recimo ogrodju [[https://react.dev/][react]].
#+begin_src emacs-lisp
(use-package rjsx-mode :after js2-mode)
#+end_src
** Python
2023-12-27 19:44:27 +01:00
Zamik na 2 presledka.
#+begin_src emacs-lisp
(setq python-indent-offset 2)
#+end_src
Podpora za delo z [[https://docs.python.org/3/library/venv.html][venv]] okolji.
#+begin_src emacs-lisp
(use-package pyvenv
:mode "\\.py\\'"
:config
(pyvenv-mode t)
#+end_src
Nastavljen naj bo na ~python3~.
#+begin_src emacs-lisp
(setq pyvenv-post-activate-hooks
(list (lambda ()
(setq python-shell-interpreter (concat pyvenv-virtual-env "bin/python3")))))
(setq pyvenv-post-deactivate-hooks
(list (lambda ()
(setq python-shell-interpreter "python3")))))
#+end_src
** Živo kodiranje
2023-12-27 19:44:27 +01:00
[[https://supercollider.github.io/][supercollider]] je platforma za zvočno sintezo in algoritmično kompozicijo. Uporabna tudi za živo kodiranje. Vključuje svoje integrirano razvijalsko okolje, integrira se pa tudi z emacsom.
Najprej moramo vključit direktorij, v katerem se nahajajo emacs paketi zanj (pridejo z namestitvijo supercolliderja), pot pa je odvisna od linux distribucije ali nastavitev pri prevajanju iz izvorne kode:
#+begin_src emacs-lisp
(add-to-list 'load-path "/usr/share/emacs/site-lisp/SuperCollider/")
#+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).
#+begin_src emacs-lisp
(use-package sclang
:ensure f
:mode "\\.scd\\'"
:config
(global-set-key (kbd "S-RET") 'sclang-eval-region-or-line)
(global-set-key (kbd "C-.") 'sclang-server-free-all))
#+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.
#+begin_src emacs-lisp
(use-package fluxus-mode :defer t)
#+end_src
[[https://extemporelang.github.io/][Extempore]] je programski jezik za kiberfizično programiranje.
#+begin_src emacs-lisp
(use-package extempore-mode :mode "\\.xtm\\'")
#+end_src
[[http://tidalcycles.org/][Tidal cycles]] omogoča kodiranje glasbe z algoritmičnimi vzorci. Pred uporabo moramo namestiti še supercollider.
#+begin_src emacs-lisp
(use-package tidal
:defer t
#+end_src
Nastaviti mu moramo lokacijo ~BootTidal.hs~ datoteke, ki jo lahko namestimo s [[https://www.haskell.org/cabal/][cabal]]-om ali kako drugače.
#+begin_src emacs-lisp
:init
;; Tidal cycles lokacija
(setq tidal-boot-script-path "~/.cabal/store/ghc-9.0.2/tidal-1.9.2-8e9cf9a217d87a6950880512f51893a6434970cd0690e831c563fc64ebd5de8f/share/BootTidal.hs"))
#+end_src
[[https://sardine.raphaelforment.fr/presentation/what_is_sardine.html][sardine]] je glasbeni inštrument v pythonu. Gre za pythonovski vmesnik v supercollider, namenjen živemu kodiranju. Supercollider in sardine najprej namestimo, pri uporabi pa nam pomagajo sledeče emacs funkcije.
#+begin_src emacs-lisp
(setq python-shell-interpreter "python3"
python-shell-interpreter-args "")
(defun sardine/start-sardine ()
"Start a new interactive Sardine Session"
(interactive)
(run-python))
(defun sardine/eval-block ()
"Evaluate a sardine code block"
(interactive)
(mark-paragraph)
(if (and transient-mark-mode mark-active)
(python-shell-send-region (point) (mark))
(python-shell-send-region (point-at-bol) (point-at-eol)))
(forward-paragraph))
(defun sardine/stop-code ()
"Stop all the Sardine code currently running"
(interactive)
(python-shell-send-string "panic()"))
; Unmapping keys from the Python mode
;(add-hook 'python-mode-hook
; (lambda() (local-unset-key (kbd "C-c C-c"))))
;(add-hook 'python-mode-hook
; (lambda() (local-unset-key (kbd "C-c C-s"))))
; Remapping keys
(global-set-key (kbd "C-M-x") #'sardine/eval-block)
(global-set-key (kbd "C-M-.") #'sardine/stop-code)
#+end_src
** Konfiguracijski jeziki
2023-12-27 19:44:27 +01:00
YAML in TOML sta dva primera konfiguracijskih jezikov, s katerima kdaj delam.
#+begin_src emacs-lisp
(use-package yaml-mode :mode "\\.yaml\\'")
(use-package toml-mode :mode "\\.toml\\'")
#+end_src
** Arduino
2023-12-27 19:44:27 +01:00
#+begin_src emacs-lisp
(use-package arduino-mode :mode "\\.ino\\'")
#+end_src
** Jezikovni strežnik
2023-12-27 19:44:27 +01:00
Podpora za protokol jezikovnega strežnika (LSP - Language Server Protocol) precej izboljša izkušnjo programiranja s priporočevanjem in dopolnjevanjem. Emacs spremeni v IDE (integrirano razvojno okolje).
#+begin_src emacs-lisp
(use-package lsp-mode
:defer t
#+end_src
S sledečimi nastavitvami pospešimo delovanje.
#+begin_src emacs-lisp
:config
;; Make gc pauses faster by decreasing the threshold.
(setq gc-cons-threshold (* 100 1000 1000))
;; Increase the amount of data which Emacs reads from the process
(setq read-process-output-max (* 1024 1024))) ;; 1mb
#+end_src
* E-pošta
2023-12-27 19:44:27 +01:00
Emacs že vključuje ~mu4e~ ([[https://www.djcbsoftware.nl/code/mu/][mu]] za emacs), modul ki omogoča brskanje po prejeti e-pošti.
Pred uporabo je treba konfigurirati nekaj več stvari, potrebujemo recimo ~isync~ za pridobivanje pošte (tudi starejši ~mbsync~ je vredu), program ~mu~ za indeksiranje prejetih mejlov, oba pa tudi primerno nastavljena.
** isync
2023-12-27 19:44:27 +01:00
TODO
** mu
2023-12-27 19:44:27 +01:00
TODO
** mu4e
2023-12-27 19:44:27 +01:00
Vključimo paket in nastavimo ukaz za pridobivanje mejlov, ki ga sproži ~mu4e~.
#+begin_src emacs-lisp
(use-package mu4e
:ensure f
:defer t
:config
(setq mu4e-get-mail-command "mbsync -a"))
#+end_src
Preglednost lahko izboljšamo s paketom za ikone.
#+begin_src emacs-lisp
(use-package mu4e-marker-icons
:after mu4e
:config
(mu4e-marker-icons-mode 1))
#+end_src
~mu4e-dashboard~ omogoča pripravo "nadzorne plošče", torej domačega zaslona pregleda mejlov, ki je pravzaprav ORG dokument z ~mu4e~ poizvedbami. Recimo, da prikaže koliko imamo skupno neprebranih sporočil in pa da skočimo na skupek vseh z zastavico označenih sporočil.
#+begin_src emacs-lisp
(use-package mu4e-dashboard
:after mu4e
:vc "https://github.com/rougier/mu4e-dashboard")
#+end_src
TODO spisat dodatne konfiguracije, tega še ne uporabljam res.
** Primeri za (i)zgled
2023-12-27 19:44:27 +01:00
Zanimivi paketi:
- dashboard: https://github.com/rougier/mu4e-dashboard
- thread folding: https://github.com/rougier/mu4e-thread-folding
- svg tag mode: https://github.com/rougier/svg-tag-mode
- views: https://github.com/lordpretzel/mu4e-views
Pedenanje izgleda:
- mu4e look & feel: https://www.reddit.com/r/emacs/comments/mzgsm0/mu4e_look_and_feel/
- nano-mu4e: https://github.com/rougier/nano-emacs/blob/master/nano-mu4e.el
- system crafters o emacs emailu: https://www.youtube.com/watch?v=yZRyEhi4y44&list=PLEoMzSkcN8oM-kA19xOQc8s0gr0PpFGJQ
* Razno
Zone nyancat!
#+begin_src emacs-lisp
(use-package zone-nyan :defer t)
#+end_src