dotfiles/.emacs.d/init.el

;;;;;;;;;;;;
;; PAKETI ;;
;;;;;;;;;;;;

;(setq use-package-compute-statistics t)

(setq debug-on-error t)

;; Loudamo melpa paketice
(add-to-list 'package-archives 
             '("melpa" . "https://melpa.org/packages/"))

;; Set up package.el to work with MELPA
(require 'package)

(package-initialize)

;; Stare funkcije za namescanje paketov. Od use-package z :ensure naprej vec ne
;; Sekvence n'shiat
;(require 'seq)
;; Kaj vse naj bo namesceno?
;(setq paketi '())
;(setq nema (seq-filter (lambda (p) (not (package-installed-p p))) paketi))
;(when nema
;  (package-initialize)
;  (package-refresh-contents)
;  (dolist (p nema)
;    (package-install p)))


;(use-package benchmark-init
;  :ensure t
;  :config
;  :disabled t
;  (benchmark-init/activate)
;  (add-hook 'after-init-hook 'benchmark-init/deactivate))

;;;;;;;;;;
;; EVIL ;;
;;;;;;;;;;
(use-package evil
  :ensure t
  :init (setq evil-want-integration t
              evil-want-keybinding nil)
  :config
  ;; Evil mode toggle <3
  (evil-mode 1)
  (defvar my-header-map (make-sparse-keymap)
    "Mapiranje za evil bliznjice (leader trigger)")    

  ;; Keybindings!
  (defvar my-leader-map (make-sparse-keymap)
    "Mapiranje za evil bliznjice (leader trigger)")

  ;; WINDOW ukazi
  (define-prefix-command 'evil-window-map)
  (define-key evil-window-map "j" 'windmove-down)
  (define-key evil-window-map "k" 'windmove-up)
  (define-key evil-window-map "h" 'windmove-left)
  (define-key evil-window-map "l" 'windmove-right)
  (define-key evil-window-map "s" 'split-window-below)
  (define-key evil-window-map "v" 'split-window-right)
  (define-key my-leader-map "w" 'evil-window-map)

  ;; BUFFER ukazi
  (define-prefix-command 'evil-buffer-map)
  (define-key evil-buffer-map "b" 'ivy-switch-buffer)
  (define-key evil-buffer-map "p" 'previous-buffer)
  (define-key evil-buffer-map "n" 'next-buffer)
  (define-key evil-buffer-map "e" 'eval-buffer)
  (defun switch-to-scratch () (interactive) (switch-to-buffer "*scratch*"))
  (define-key evil-buffer-map "s" 'switch-to-scratch)
  (defun switch-to-home () (interactive) (switch-to-buffer "*GNU Emacs*"))
  (define-key evil-buffer-map "h" 'switch-to-home)
  (defun open-config () (interactive) (find-file-literally "~/.emacs.d/init.el"))
  (define-key evil-buffer-map "c" 'open-config)
  (define-key my-leader-map "b" 'evil-buffer-map)

  ;; EVAL ukazi
  (define-prefix-command 'eval-eval-map)
  (define-key evil-eval-map "b" 'eval-buffer)
  (define-key evil-eval-map "e" 'eval-expression)
  (define-key evil-eval-map "r" 'eval-region)
  (define-key my-leader-map "e" 'evil-eval-map)

  ;; FILE ukazi
  (define-prefix-command 'evil-file-map)
  (define-key evil-file-map "f" 'counsel-find-file)
  (defun load-config () (interactive) (find-file "~/.emacs.d/init.el"))
  (define-key evil-file-map "c" 'load-config)
  (define-key my-leader-map "f" 'evil-file-map)

  ;; ORG ukazi
  (define-prefix-command 'evil-org-map)
  (define-key evil-org-map "c" 'org-capture)
  (define-key evil-org-map "a" 'org-agenda)
  (define-key my-leader-map "o" 'evil-org-map)

  ;; Projectile map!
  (define-key my-leader-map "p" 'projectile-command-map)

  ;; Odpri ORG linke kar s tipko enter
  (defun odpri-org-link ()
    (interactive)
    (if (org-in-regexp org-link-any-re nil t)
        (org-open-at-point)
        nil))
  (define-key evil-normal-state-map (kbd "RET") 'odpri-org-link)

  ;; Mapiranje ukazov
  ;(define-key evil-normal-state-map (kbd "SPC") my-leader-map)
  ;(evil-global-set-key 'motion (kbd "SPC") my-leader-map)
  ;(evil-local-set-key 'motion (kbd "SPC") my-leader-map)
  ;(define-key evil-normal-state-map (kbd "SPC") my-leader-map)
  )

(use-package general
  :ensure t
  :after evil
  :config
  (general-evil-setup)
  (general-nmap
    :prefix "SPC"
    :prefix-map 'my-leader-map
    ;; Hitri buffer shortcuti
    "[" 'previous-buffer
    "]" 'next-buffer
    "," 'ivy-switch-buffer
    "RET" 'counsel-bookmark
    "/" 'counsel-rg
    "t" 'treemacs-add-and-display-current-project)
  (general-nmap
    :prefix "SPC"
    :states 'normal
    :keymaps 'dired-mode-map
    :prefix-map 'my-leader-map
    ;; Hitri buffer shortcuti
    "[" 'previous-buffer
    "]" 'next-buffer
    "," 'ivy-switch-buffer
    "RET" 'counsel-bookmark
    "/" 'counsel-rg
    "t" 'treemacs-add-and-display-current-project))

;; Dodatne evil bližnjice
(use-package evil-collection
  :ensure t
  :after evil
  :config
  (evil-collection-init))

;; Evil orgmode
(use-package evil-org
  :ensure t
  :after (evil org)
  :hook ((org-mode . (lambda () evil-org-mode)))
  :init
  (setq org-src-fontify-natively t)
  :config
  (require 'evil-org-agenda)
  (evil-org-set-key-theme '(navigation insert textobjects additional calendar))
  (evil-org-agenda-set-keys))

(use-package treemacs-evil :ensure t :after treemacs)



;;;;;;;;;
;; GUI ;;
;;;;;;;;;

;; Menu bar off
(menu-bar-mode -1)
(tool-bar-mode -1)

;; Brez ikon zgoraj
(setq ns-use-proxy-icon nil)
(setq frame-title-format nil)
; Skrij scrollbar
(scroll-bar-mode -1)
;; Razmiki med okni
(setq window-divider-default-bottom-width 3)
(window-divider-mode t)
;; No dialog box plx
(setq use-dialog-box nil)

;; Barvna tema
(use-package gruvbox-theme
  :ensure t
  :config
  (load-theme 'gruvbox-dark-medium t))
;(load-theme 'hemisu-light t) ;; hemisu-theme paket
;(require 'doom-themes)
;(setq doom-themes-enable-bold t ; if nil, bold is universally disabled
;      doom-themes-enable-italic t) ; if nil, italics is universally disabled
;(load-theme 'doom-gruvbox t)
;(doom-themes-org-config)

;; Doom modeline - lepsi status bar spodaj
(use-package doom-modeline
  :ensure t
;  :disabled t
  :config
  (doom-modeline-mode))

;; Lepse ikone!
(use-package all-the-icons :ensure t)
;;                          !!!                             ;;
;; !!! Pognat je treba (1x) all-the-icons-install-fonts !!! ;;
;;                          !!!                             ;;

;; y/n namesto yes / no
(fset 'yes-or-no-p 'y-or-n-p)

;; Oooo gladko skrolanje! (Emacs 29+)
(pixel-scroll-precision-mode)



;;;;;;;;;;;
;; TEKST ;;
;;;;;;;;;;;

;; Sirina taba ter spejsi kot distancniki
(setq-default tab-width 2)
(setq-default indent-tabs-mode nil)

;; Editorconfig formatiranje fajlov
(use-package editorconfig
  :ensure t
  :config
  (editorconfig-mode 1))

;; Text wrap na sirino oken
(global-visual-line-mode)

;; Stevilke vrstic
(global-display-line-numbers-mode)

;; Lepse file drevo
(use-package treemacs
  :ensure t
  :defer t
  :hook ((treemacs-mode . (lambda () ;; Brez stevilk vrstic v file drevesu!
                            (display-line-numbers-mode -1)))))
(use-package treemacs-projectile :ensure t :after treemacs)

;; Uporabi drevesne razveljavitve, undo tree
(use-package undo-tree
  :ensure t
  :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"))))

;; Markdown podpora
(use-package markdown-mode :ensure t)

;; Zapiraj zaklepaje
(use-package smartparens
  :ensure t
  :config
  (smartparens-global-mode 1))



;;;;;;;;;;;;;;;;;;;
;; PROGRAMIRANJE ;;
;;;;;;;;;;;;;;;;;;;

;; Pametni tabi
(use-package smart-tabs-mode
  :ensure t
  :disabled t
  :after js2-mode
  :config
  ;(smart-tabs-insinuate javascript scheme)
  ;; Pametni tabi za js2-mode
  (smart-tabs-advice js2-indent-line js2-basic-offset))

;; Twig nacin (in drug web)
(use-package web-mode :ensure t)

;; Lepšanje web kode
(use-package web-beautify :ensure t)

;; Kompletiranje ukazov
(use-package company
  :ensure t
  :defer t
  :config
  (setq lsp-completion-provider :capf)
  (company-mode))

;; LSP potrebuje dependency iz npm: "sudo npm install -g vue-language-server
(use-package lsp-mode
  :ensure t
  :after company)

;; Vuejs moud
(use-package vue-mode
  :ensure t
  :mode "\\.vue\\'"
  :config (add-hook 'vue-mode-hook #'lsp))

;; PHP ko je treba
(use-package php-mode
  :ensure t
  :mode "\\.(php|module)\\'")

;; Guile scheme
(use-package geiser
  :ensure t
  :mode "\\.scm\\'")
(use-package geiser-guile
  :ensure t
  :after geiser
  :init (setq scheme-program-name "guile"))

;; Racket podpora
(use-package racket-mode
  :ensure t
  :mode "\\.rkt\\'")

;; Rainbowz
(use-package rainbow-delimiters
  :ensure t
  :hook ((prog-mode . rainbow-delimiters-mode)))

;; YAML konfiguracije
(use-package yaml-mode
  :ensure t
  :mode "\\.yaml\\'")

;; Extempore lajv kodiranje!
(use-package extempore-mode
  :ensure t
  :mode "\\.xtm\\'")

;; Syntax checker
(use-package flycheck
  :ensure t
  :defer t)

;; Vmesnik za GIT
(use-package magit
  :ensure t
  :defer t)

;; Drupal pomocnik
(use-package drupal-mode
  :ensure t
  :after php-mode)

;; Oblikovanje kode za razne jezike
(use-package format-all :ensure t)

;; Tidal cycles live coding
(use-package tidal
  :ensure t
  :defer t
  :init
  ;; Tidal cycles lokacija
  (setq tidal-boot-script-path "~/.cabal/store/ghc-9.0.2/tidal-1.9.2-8e9cf9a217d87a6950880512f51893a6434970cd0690e831c563fc64ebd5de8f/share/BootTidal.hs"))

;; Config fajli
(use-package toml-mode
  :ensure t)

;; js2 za javascript
(use-package js2-mode
  :ensure t
  :mode "\\.js\\'"
  :config
  ;(add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))
  (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))

;; Še en mode za JS, bolj react
(use-package rjsx-mode
  :ensure t
  :after js2-mode)

;; css indent
(setq css-indent-level 2)
(setq css-indent-offset 2)



;;;;;;;;;;;;;
;; ORGMODE ;;
;;;;;;;;;;;;;

;; Stanja taskov
(setq org-todo-keywords
      '((sequence "TODO" "V DELU" "TESTIRANJE" "DOKUMENTIRANJE" "KONČANO")))

;; Aktiviraj ob .org fajlih
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))

;; CalDav v orgmode!
(use-package org-caldav
  :ensure t
  :after org-mode
  :init
  (setq org-caldav-calendar-id "org"
        org-caldav-files '("~/Dokumenti/todo.org")
        org-caldav-inbox "~/Dokumenti/koledar-in.org"
        org-caldav-url "https://goba.rhiz0.me/remote.php/dav/calendars/g1smo"
        org-icalendar-timezone "Europe/Ljubljana"))

;; Nacin za pisanje brez distrakcij
(use-package writeroom-mode
  :ensure t
  :config
  :hook ((org-mode . (lambda ()
                       (display-line-numbers-mode -1)))))

;; HTMLize za barvanje kode v org izvozu v HTML
(use-package htmlize
  :after org-mode
  :ensure t)

;; Lokacije ORG agenda vnosov
(setq org-agenda-files (list "~/rs/org" "~/Dokumenti"))

;; Zapiski
(setq org-default-notes-file "~/Dokumenti/zapiski.org")

;; Zacnimo na ponedeljek, kot se spodobi
(setq calendar-week-start-day 1)

;; DOT diagrami
(org-babel-do-load-languages
 'org-babel-load-languages
 '((dot . t)))

;; enable ditaa
(org-babel-do-load-languages
 'org-babel-load-languages
 '((ditaa . t)))

;; Mermaid v orgmode (diagrami)
(use-package ob-mermaid
  :ensure t
  :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))))

;; Swiper search
(use-package swiper
  :ensure t
  :config
  (global-set-key "\C-s" 'swiper))

;; Izboljsani default ukazi bolj prijazni
(use-package counsel
  :ensure t
  :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)
  (global-set-key (kbd "C-S-o") 'counsel-rhythmbox)
  (define-key minibuffer-local-map (kbd "C-r") 'counsel-minibuffer-history))

;; Iskanje po fajlih (fulltext)
(use-package rg
  :ensure t
  :defer t
  :config
 (rg-enable-default-bindings))


;;;;;;;;;;;
;; Razno ;;
;;;;;;;;;;;

;; IVY
(use-package ivy
  :ensure t
  :config
  (ivy-mode)
  (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)
  (global-set-key (kbd "C-c C-r") 'ivy-resume)
  (global-set-key (kbd "<f6>") 'ivy-resume))

;; Vedno sledi symlinkom v git
(setq vc-follow-symlinks t)

;; Projektni mgmt
(use-package projectile
  :ensure t
  :config (projectile-mode t))

;; Pomoc
;(use-package 'helpful :ensure t)

;; Prikazi nedavne ukaze prej v M-x
(use-package smex :ensure t)

;; Pomoc za keybinde
(use-package which-key
  :ensure 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))

;; Prikazi startup time
(add-to-list 'after-init-hook
          (lambda ()
            (message (concat "emacs (" (number-to-string (emacs-pid)) ") started in " (emacs-init-time)))))

;; Backup fajli emacsa
(setq
   backup-by-copying t      ; don't clobber symlinks
   backup-directory-alist
    `(("." . ,(concat user-emacs-directory "backups")))
   backup-directory-alist
    `(("." . ,(concat user-emacs-directory "saves")))
   delete-old-versions t
   kept-new-versions 6
   kept-old-versions 2
   version-control t)       ; use versioned backups

;; Ne delaj lock fajlov (smetijo namrec)
(setq create-lockfiles nil)

;; File asociacije
(use-package openwith
  :ensure t
  :config
  (setq openwith-associations '(("\\.pdf\\'" "xdg-open" (file))))
  (openwith-mode t))

;; Kolaborativno urejanje
(use-package crdt
  :ensure t)



;;;;;;;;;;;;
;; CUSTOM ;;
;;;;;;;;;;;;
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(custom-safe-themes
   '("db3e80842b48f9decb532a1d74e7575716821ee631f30267e4991f4ba2ddf56e" "d14f3df28603e9517eb8fb7518b662d653b25b26e83bd8e129acea042b774298" "7661b762556018a44a29477b84757994d8386d6edee909409fabe0631952dad9" default))
 '(iswitchb-mode t)
 '(org-agenda-files
   '("~/Dokumenti/todo.org" "/home/g1smo/Dokumenti/plac.org" "/home/g1smo/rs/org/2021-05-25-spletna-stran.org" "/home/g1smo/rs/org/2021-07-02-spletna.org" "/home/g1smo/rs/org/README.org" "/home/g1smo/rs/org/git-delavnica.org" "/home/g1smo/rs/org/irs-plan-period.org" "/home/g1smo/rs/org/irs-plan.org" "/home/g1smo/rs/org/irs.org" "/home/g1smo/rs/org/irs_old.org" "/home/g1smo/rs/org/kaki.org" "/home/g1smo/rs/org/prepoznava-komadov.org" "/home/g1smo/Dokumenti/agenda.org" "/home/g1smo/Dokumenti/blurb.org" "/home/g1smo/Dokumenti/delo.org" "/home/g1smo/Dokumenti/emanat.org" "/home/g1smo/Dokumenti/kompot.org" "/home/g1smo/Dokumenti/ljudmila.org" "/home/g1smo/Dokumenti/mu4e-setup.org" "/home/g1smo/Dokumenti/muska.org" "/home/g1smo/Dokumenti/org.org" "/home/g1smo/Dokumenti/projekti.org" "/home/g1smo/Dokumenti/recepti.org" "/home/g1smo/Dokumenti/samozaposlitev-prijava.org" "/home/g1smo/Dokumenti/shta.org" "/home/g1smo/Dokumenti/wtf.org" "/home/g1smo/Dokumenti/zapisi.org"))
 '(package-selected-packages
   '(toml-mode smartparens crdt.el openwith evil-org-agenda company-org-block org-block-capf writeroom-mode racket-mode htmlize company-lsp web-mode tidal org-caldav format-all company-phpactor phpactor extempore-mode ob-mermaid use-package lsp-mode yaml-mode drupal-mode magit markdown-mode flycheck arduino-mode rjsx-mode gdscript-mode rainbow-delimiters which-key paredit geiser-guile geiser web-beautify vue-mode treemacs-evil treemacs-projectile treemacs smart-tabs-mode smart-tabs js2-mode smex clojure-mode helpful doom-themes counsel swiper all-the-icons doom-modeline evil-collection fennel-mode rg ivy company projectile evil))
 '(tool-bar-mode nil)
 '(warning-minimum-level :error)
 '(which-key-mode t))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(default ((t (:family "Iosevka SS05" :foundry "BE5N" :slant normal :weight semi-bold :height 120 :width normal)))))