#+TITLE: EMACS konfiguracija

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.

V primeru napak pri nalaganju ne pozabimo na uporaben ukaz ~emacs --debug-init~.

* Bližnjice do drugih konfiguracij

- [[file:~/.config/sway/config][Sway window manager]]
- [[file:~/.config/i3/config][i3 window manager]]
- shell: [[file:~/.zshrc][zshrc]], [[file:~/.profile][profile]], [[file:~/.bashrc][bashrc]]
- [[file:~/sredstva/dotfiles/guix/home/home-configuration.scm][guix home config]]

* 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

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).


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
  (use-package general
    :config
    (general-evil-setup t)

    ;; Leader key nastavitev (za prozenje ukazov)
    (general-create-definer start/leader-keys
      :states '(normal insert visual emacs rcirc)
      :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?).
In pa ukaz za ponovno naložit konfiguracijo emacsa.

#+begin_src emacs-lisp
  (defun ponovno-nalozi-config ()
    "Ponovno naloži emacs konfiguracijo"
    (interactive)
    (load-file "~/.emacs.d/init.el"))
  
  (start/leader-keys
    ;; Osnovne bliznjice
    "[" 'previous-buffer
    "]" 'next-buffer
    "r" 'ponovno-nalozi-config
    "u" 'font-lock-update)
#+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

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 p" 'previous-buffer
     "b n" 'next-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

Sledeči ukazi so za evalviranje ELISP kode
TODO napiši navodila

#+begin_src emacs-lisp
  (start/leader-keys
    :keymaps 'emacs-lisp-mode-map
    ;; EVAL ukazi
    "e" '(:ignore t :wk "eval")
    "e b" 'eval-buffer
    "e e" 'eval-expression
    "e r" 'eval-region
    "b e" 'eval-buffer)
#+end_src
     
** Datoteke
     
Bližnjice za delo z datotekami se začnejo s ~f~.
     
#+begin_src emacs-lisp
  (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"))
  
  (start/leader-keys
     "f" '(:ignore t :wk "file")
     "f f" 'counsel-find-file
     "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
  (start/leader-keys
    "d" '(:ignore :t :wk "describe")
    "d f" 'describe-function
    "d k" 'describe-key
    "d l" 'find-library
    "d m" 'describe-mode
    "d s" 'describe-symbol
    "d v" 'describe-variable)
#+end_src

** Info
Branje navodil, SICP, še kaj.

#+begin_src emacs-lisp
  (start/leader-keys
    "i" 'info)
#+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!

~evil-shift-width~ nastavi širino tabulacije ko pritisnemo ~>~

#+begin_src emacs-lisp
  (setq evil-want-integration t
        evil-want-keybinding nil
        evil-shift-width 2)
        ;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
** 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
Paket za dopolnjevanje, nadomestek ~ivy~. Nudi nekoliko lepšo iskušnjo priporočil pri izvajanju emacs ukazov.

#+begin_src  emacs-lisp
(use-package vertico
  :config
  (setq vertico-cycle t)
  (setq vertico-resize nil)
  (vertico-mode 1))
#+end_src

~savehist~ sortira priporočila glede na preteklo rabo.

#+begin_src emacs-lisp
(use-package savehist
  :init
  (savehist-mode))
#+end_src

~marginalia~ prikaze v minibufferju dopolni z uporabnimi informacijami, odvisno od konteksta.

#+begin_src emacs-lisp
(use-package marginalia
  :config
  (marginalia-mode 1))
#+end_src

~orderless~ poskrbi, da minibuffer dopolnjevanje deluje tudi kadar v kakšnem drugem vrstnem redu napišemo besede. Recimo: ~inst pac~ ponudi ~package-install~.

#+begin_src emacs-lisp
(use-package orderless
  :config
  (setq completion-styles '(orderless basic)))
#+end_src

~nerd-icons-completion~ nam dired in ostalo dopolnjevanje pojača z ikonami.

#+begin_src emacs-lisp
  (use-package nerd-icons-completion
    :after marginalia
    :config
    (nerd-icons-completion-mode)
    :hook (marginalia-mode-hook . #'nerd-icons-completion-marginalia-setup))
#+end_src

** Iskanje

~consult~ 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~!).

@TODO raziskat več o morebitno uporabni ~consult~ funkcionalnosti.

#+begin_src emacs-lisp
  (use-package consult
    :config
    (general-define-key
       "C-s" 'consult-line
       "C-c j" 'consult-git-grep
       "C-c k" 'consult-ag
       "C-x l" 'consult-locate)
    (start/leader-keys
     "RET" 'consult-bookmark
     "/"   'consult-ripgrep
     "b b" 'consult-buffer
     "f r" 'consult-recent-file :wk "nedavno odprto"))
#+end_src

~M-x~ poganjalnik ukazov dopolnimo s paketom ~smex~ za prikazovanje nedavno uporabljenih ukazov pri vrhu.

#+begin_src emacs-lisp
  (use-package smex)
#+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

~which-key~ prikazuje minibuffer z razlago, katere tipkovnične bližnjice so na voljo.

#+begin_src emacs-lisp
  (use-package which-key
    :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.2)
    (setq which-key-idle-secondary-delay 0.05)
    (which-key-mode))
#+end_src

** 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
    :after general
    :general
    (start/leader-keys
      "c" '(:ignore t :wk "crdt")
      "c c" 'crdt-connect)
    :general-config
    (start/leader-keys
      "c" '(:ignore t :wk "crdt")
      "c u" 'crdt-list-users
      "c s" 'crdt-share-buffer
      "c b" 'crdt-list-buffers))
#+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
    :config
    (setq openwith-associations '(("\\.pdf\\'" "xdg-open" (file))))
    (openwith-mode t))
#+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)
    (general-define-key
      :keymaps 'inferior-emacs-list-mode-map
      "C-l" 'comint-clear-buffer))
#+end_src 
  
* 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.

#+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
    :after general
    :general
    (start/leader-keys
      "o" '(:ignore t :wk "orgmode")
      "o c" 'org-capture
      "o a" 'org-agenda)
    :general-config
    (start/leader-keys
      :keymaps 'org-mode-map
      "o i" 'org-toggle-inline-images
      "o t" 'org-time-stamp
      "o r" 'org-refile)
#+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 "~/org/TODO.org" "~/org/projekti.org"))
  (setq org-default-notes-file "~/org/TODO.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

Slike naj bodo omejene širine.
#+begin_src emacs-lisp
  (setq org-image-actual-width (list 600))
#+end_src


** Diagrami

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)
        (clojure . 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
    :after org
    :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

Stanja opravil. Stanja (v naslovih) menjamo s ~S-<levo>~ in ~S-<desno>~.

#+begin_src emacs-lisp
    (setq org-todo-keywords
      '((sequence "TODO" "NEXT" "V DELU" "TESTIRANJE" "DOKUMENTIRANJE" "DONE"))))
#+end_src

** Nemoteno pisanje

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
    :general
    (start/leader-keys
      "w w" 'writeroom-mode)
    :config
    :hook ((org-mode . (lambda () (display-line-numbers-mode -1)))))
#+end_src

** Sinhronizacija koledarjev

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

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"))
                  ; tale pa ni free
                  ;((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

V HTML org izvozu obarvaj bloke kode.

#+begin_src emacs-lisp
  (use-package htmlize :after org-mode :defer t)
#+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
  
Barvna tema je [[https://github.com/greduan/emacs-theme-gruvbox][gruvbox]], v varjanti ~gruvbox-dark-soft~, s pisavo Iosevka.

#+begin_src emacs-lisp
  (use-package gruvbox-theme
    :config
    (load-theme 'gruvbox-dark-medium t))

  (set-frame-font "Iosevka Medium 11" nil t)
#+end_src

Modeline vrstica (v bufferjih spodaj) je iz doom emacsa.

#+begin_src emacs-lisp
  (use-package doom-modeline
    :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)
#+end_src

** Drsenje (skrolanje)

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

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

** Transparentno ozadje
#+begin_src emacs-lisp
  (set-frame-parameter nil 'alpha-background 90)
  (add-to-list 'default-frame-alist '(alpha-background . 90))
#+end_src
* Tekst

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

* GNU/Guix
#+begin_src emacs-lisp
  (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

* Delo s projekti

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

Vlopimo projectile način, prezrimo direktorij z javascript paketi in priklopimo na ~ivy~ mehanizem za avtomatsko dopolnjevanje. ~SPC p~ odpre preddefinirano drevo bližnjic za delo s ~projectile~.

#+begin_src emacs-lisp
    :config
    (projectile-mode 1)
    (start/leader-keys "p" 'projectile-command-map)
    (setq projectile-globally-ignored-directories '("node_modules"))
#+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 'hybrid)
    (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

~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

[[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

~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)
  (setq indent-line-function 'insert-tab)
#+end_src

Vklopimo avtomatsko zapiranje oklepajev ter emacsovo avtomatsko zamikanje.

#+begin_src emacs-lisp 
  (electric-indent-mode 1)
;  (electric-pair-mode 1)
#+end_src

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.

#+begin_src emacs-lisp
  (use-package smartparens-mode
    :ensure smartparens
    :hook (prog-mode text-mode markdown-mode)
    :config
    (require 'smartparens-config)
    (sp-pair "'" "'" :actions nil))
#+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

~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))
#+end_src

Z ~magit-todos~ si malo olajšamo spremlajnje TODO-jev v drevesu kode. Zaenkrat onemogočeno, zaradi težavo preko TRAMP povezav.

#+begin_src emacs-lisp
;(use-package magit-todos 
;  :after magit
;  :config (magit-todos-mode 1))
#+end_src

** Tree-sitter

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
    :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

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\\'")
    
  (use-package geiser-guile
    :defer t
    :general-config
    (start/leader-keys
      :keymaps 'geiser-mode-map
      "s" '(:ignore t :wk "geiser")
      "s b" 'geiser-eval-buffer
      "s e" 'geiser-eval-expression
      "s s" (defun geiser-start-and-eval-buffer ()
              (interactive)
              (geiser-guile)
              (previous-buffer)
              (geiser-eval-buffer))
      "s s" 'geiser-start-and-eval-buffer
      "s g" 'geiser
      "s c" 'geiser-connect
      "s k" 'geiser-exit-repl
      "s r" (defun geiser-restart ()
              ;(interactive)
              (geiser-exit-repl)
              (geiser-start-and-eval-buffer))
      "e" '(:ignore t :wk "eval (geiser)")
      "e b" 'geiser-eval-buffer
      "e e" 'geiser-eval-expression
      "e r" 'geiser-eval-region
      "b e" 'geiser-eval-buffer)
    :init
    (setq geiser-mode-auto-p nil))
#+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

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)\\'"
    :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)
#+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

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-config
    ;:general
    (start/leader-keys
      :keymaps 'php-mode-map
      "d d" (defun drupal-cache-rebuild ()
              (interactive)
              ;(shell-command "drush cr")
              (projectile-run-shell-command-in-root "./vendor/bin/drush cr")
              )))
#+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

Geben je za php debugiranje.

#+begin_src emacs-lisp
  (use-package geben
    :after php-mode
    :config
    (setq geben-pause-at-entry-line nil)
    (setq geben-dbgp-default-port 9003))
#+end_src

*** Javascript

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

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\\'"
    :init
    (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

[[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 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
  (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

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
  (require 'sclang)
  
  ;; 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

Za branje supercollider dokumentacije potrebujemo še ~w3m~ paket.

#+begin_src emacs-lisp
  (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

[[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

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

#+begin_src emacs-lisp
  (use-package arduino-mode :mode "\\.ino\\'")
#+end_src

** Jezikovni strežnik

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

** 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
  :after clojure-mode
  :general-config
  (start/leader-keys
    :keymaps 'clojure-mode-map
    ;; EVAL ukazi
    "e" '(:ignore t :wk "eval")
    "e b" 'cider-eval-buffer
    "e c" 'cider-connect
    "e e" 'cider-eval-dwim
    "e j" 'cider-jack-in
    "e r" 'cider-eval-region
    "b e" 'cider-eval-buffer)
  (cider-mode-map "C-<return>" 'cider-eval-last-sexp))
#+end_src

* 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.
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.

** Prejemanje
*** isync
**** Namestitev

Najprej namestimo isync. Primer za guix ter debian.

#+begin_src sh
  guix install isync
  sudo apt install  isync
#+end_src

**** Konfiguracija

Konfiguriramo ga v ~~/.mbsyncrc~. Primer je za dva poštna nabiralnika, ki bosta shranjena znotraj ~~/.mail~.

#+begin_src

Create Both
Expunge Both
SyncState *

MaildirStore local
Path ~/.mail/
Trash Trash

IMAPAccount acc1
Host host1.org
User u1
PassCmd "gpg -q --for-your-eyes-only --no-tty -d ~/.mailpass.acc1.gpg"
SSLType IMAPS

IMAPAccount acc2
Host mail.kompot.si
User u2
PassCmd "gpg -q --for-your-eyes-only --no-tty -d ~/.mailpass.acc2.gpg"
SSLType IMAPS

IMAPStore acc1-remote
Account acc1

IMAPStore acc2-remote
Account acc2

MaildirStore acc2-local
Subfolders Verbatim
Path ~/.mail/acc2
Inbox ~/.mail/acc2/inbox

MaildirStore acc1-local
Subfolders Verbatim
Path ~/.mail/acc1
Inbox ~/.mail/acc1/inbox

Channel acc1-default
Far :acc1-remote:
Near :acc1-local:

Channel acc2-default
Far :acc2-remote:
Near :acc2-local:
Create Both
SyncState *
Sync All

Group user
Channel acc1-default
Channel acc2-default

#+end_src

***** Kriptiranje gesel
Ker sta gesli za mejle shranjeni kriptirani z gpg, ju najprej kar v navadnem tekstu shranimo v ~~/.mailpass.acc1~ ter ~~/.mailpass.acc2~, nato pa poženemo: 

#+begin_src sh
  gpg -c ~/.mailpass.rs.gpg
  gpg -c ~/.mailpass.kompot.gpg
#+end_src

*** mu

Najprej namestimo (guix oz. debian):

#+begin_src sh
  guix install mu
  sudo apt install mu
#+end_src

Nato inicializiramo.

#+begin_src sh
  mu init --maildir=~/.mail --my-address=u1@host1.org --my-address=u2@kompot.si
#+end_src

Indeksiramo s sledečim ukazom ali pa kar iz dashboarda ~mu4e~:

#+begin_src sh
  mu index
#+end_src

*** mu4e

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

**** Dodatki

~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

~mu4e-thread-folding~ nam skrči niti v posamezne vrstice, ki jih lahko razširimo.

#+begin_src emacs-lisp
  (use-package svg-icon)
;    :vc (svg-icon :url "https://github.com/rougier/emacs-svg-icon"))
    
  ;(use-package mu4e-thread-folding
   ; :after mu4e
   ; :vc (mu4e-thread-folding :url "https://github.com/rougier/mu4e-thread-folding"))
#+end_src

TODO spisat dodatne konfiguracije, tega še ne uporabljam res.

*** Primeri za (i)zgled

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
  
** Pošiljanje

#+begin_src emacs-lisp
(require 'smtpmail)
(setq send-mail-function        'smtpmail-send-it
      smtpmail-smtp-server      "kompot.si"
      smtpmail-stream-type      'ssl
      smtpmail-auth-credentials "~/.mailpass.kompot.gpg"
      smtpmail-stream-type      'starttls
      smtpmail-smtp-service     587)
#+end_src

* Razno

Zone nyancat!

#+begin_src emacs-lisp
  (use-package zone-nyan :defer t)
#+end_src