817 lines
25 KiB
EmacsLisp
817 lines
25 KiB
EmacsLisp
;; Naloži konfiguracije iz ORG datoteke
|
|
(org-babel-load-file "~/.emacs.d/config.org")
|
|
|
|
;;;;;;;;;
|
|
;; 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
|
|
:config
|
|
(load-theme 'gruvbox-dark-soft t)
|
|
(window-divider-mode 0))
|
|
;(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
|
|
:defer t
|
|
:init (doom-modeline-mode 1))
|
|
|
|
;; Lepse ikone!
|
|
(use-package nerd-icons)
|
|
|
|
;; !!! ;;
|
|
;; !!! Pognat je treba (1x) nerd-icons-install-fonts !!! ;;
|
|
;; !!! ;;
|
|
(use-package all-the-icons)
|
|
|
|
;; y/n namesto yes / no
|
|
(fset 'yes-or-no-p 'y-or-n-p)
|
|
|
|
;; Oooo gladko skrolanje! (Emacs 29+)
|
|
(pixel-scroll-precision-mode)
|
|
;; Nisem cist ziher kaj to dela
|
|
(setq scroll-conservatively 10)
|
|
(setq scroll-margin 8)
|
|
|
|
|
|
|
|
|
|
;;;;;;;;;;;
|
|
;; TEKST ;;
|
|
;;;;;;;;;;;
|
|
|
|
;; Sirina taba ter spejsi kot distancniki
|
|
(setq-default tab-width 2)
|
|
(setq-default indent-tabs-mode nil)
|
|
|
|
;; Turn on the weird indenting that Emacs does by default.
|
|
(electric-indent-mode 1)
|
|
;; Turns on automatic parens pairing
|
|
(electric-pair-mode 1)
|
|
|
|
;; Editorconfig formatiranje fajlov
|
|
(use-package editorconfig
|
|
: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
|
|
: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)
|
|
(use-package treemacs-evil :after treemacs)
|
|
|
|
;; Uporabi drevesne razveljavitve, undo tree
|
|
(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"))))
|
|
|
|
;; Markdown podpora
|
|
(use-package markdown-mode :mode "\\.(md|markdown)\\'")
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;
|
|
;; PROGRAMIRANJE ;;
|
|
;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; Projektni mgmt
|
|
(use-package projectile
|
|
; :defer t
|
|
:general
|
|
(start/leader-keys
|
|
"p" 'projectile-command-map)
|
|
:config
|
|
(setq projectile-globally-ignored-directories '("node_modules"))
|
|
(setq projectile-completion-system 'ivy)
|
|
|
|
;; Popravek za projectile prek ssh!
|
|
;(add-to-list 'tramp-remote-path 'tramp-own-remote-path)
|
|
;(setq-default projectile-indexing-method 'alien)
|
|
(setq projectile-indexing-method 'native)
|
|
(setq projectile-enable-caching t)
|
|
|
|
(projectile-mode t))
|
|
(use-package counsel-projectile :after projectile)
|
|
|
|
;; Zapiraj zaklepaje
|
|
(use-package smartparens
|
|
:defer t
|
|
:config
|
|
(smartparens-global-mode 1))
|
|
|
|
;; Pametni tabi
|
|
(use-package smart-tabs-mode
|
|
: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 :mode "\\.(html|twig)\\'")
|
|
|
|
;; Lepšanje web kode
|
|
(use-package web-beautify :defer t :after web-mode)
|
|
|
|
;; Kompletiranje ukazov
|
|
(use-package company
|
|
:config
|
|
(setq lsp-completion-provider :capf)
|
|
(company-mode))
|
|
|
|
;; LSP potrebuje dependency iz npm: "sudo npm install -g vue-language-server
|
|
(use-package lsp-mode
|
|
:defer t
|
|
:config
|
|
;; Pospešimo
|
|
;; 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
|
|
)
|
|
|
|
;; Vuejs moud
|
|
(use-package vue-mode
|
|
:mode "\\.vue\\'"
|
|
:config (add-hook 'vue-mode-hook #'lsp))
|
|
;; Popravek za grdo ozadje
|
|
(add-hook 'mmm-mode-hook
|
|
(lambda ()
|
|
(set-face-background 'mmm-default-submode-face nil)))
|
|
|
|
;; PHP ko je treba
|
|
(use-package php-mode
|
|
:mode "\\.(php|module)\\'"
|
|
:general
|
|
(start/leader-keys
|
|
:infix "d"
|
|
"" '(:ignore t :wk "drupal")
|
|
"d" (defun drupal-cache-rebuild ()
|
|
(interactive)
|
|
(shell-command "drush cr"))))
|
|
|
|
;; Guile scheme
|
|
(use-package geiser-guile
|
|
:mode "\\.scm\\'"
|
|
: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"))
|
|
|
|
;; Racket podpora
|
|
(use-package racket-mode :mode "\\.rkt\\'")
|
|
|
|
;; Rainbowz
|
|
(use-package rainbow-delimiters
|
|
:hook ((prog-mode . rainbow-delimiters-mode)))
|
|
|
|
;; Config fajli
|
|
(use-package yaml-mode :mode "\\.yaml\\'")
|
|
(use-package toml-mode :mode "\\.toml\\'")
|
|
|
|
;; Extempore lajv kodiranje!
|
|
(use-package extempore-mode :mode "\\.xtm\\'")
|
|
|
|
;; Syntax checker
|
|
(use-package flycheck :defer t)
|
|
|
|
;; Vmesnik za GIT
|
|
(use-package magit
|
|
:defer t
|
|
:general
|
|
(start/leader-keys
|
|
"g" '(:ignore t :wk "magit")
|
|
"g s" 'magit-status))
|
|
|
|
(use-package magit-todos
|
|
:after magit
|
|
:config (magit-todos-mode 1))
|
|
|
|
;; Drupal pomocnik
|
|
(use-package drupal-mode :after php-mode)
|
|
|
|
;; Oblikovanje kode za razne jezike
|
|
(use-package format-all :defer t)
|
|
|
|
;; Tidal cycles live coding
|
|
(use-package tidal
|
|
: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"))
|
|
|
|
;; JS indentacije
|
|
(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)
|
|
|
|
;; js2 za javascript
|
|
(use-package js2-mode
|
|
:mode "\\.js\\'"
|
|
:config
|
|
;(add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))
|
|
)
|
|
|
|
;; Še en mode za JS, bolj react
|
|
(use-package rjsx-mode :after js2-mode)
|
|
|
|
;; css indent
|
|
(setq css-indent-level 2)
|
|
(setq css-indent-offset 2)
|
|
|
|
;; Python indent
|
|
(setq python-indent-offset 2)
|
|
|
|
;; Arduino
|
|
(use-package arduino-mode :mode "\\.ino\\'")
|
|
|
|
;; Supercollider
|
|
(add-to-list 'load-path "/usr/share/emacs/site-lisp/SuperCollider/") ;; path will depend on your compilation settings
|
|
(use-package sclang
|
|
:ensure f
|
|
:defer t
|
|
:config
|
|
(global-set-key (kbd "S-RET") 'sclang-eval-region-or-line)
|
|
(global-set-key (kbd "C-.") 'sclang-server-free-all))
|
|
|
|
;; FLUXUS!
|
|
(use-package fluxus-mode :defer t)
|
|
|
|
;; Python virtualenv podpora
|
|
(use-package pyvenv
|
|
:mode "\\.py\\'"
|
|
:config
|
|
(pyvenv-mode t)
|
|
|
|
;; Set correct Python interpreter
|
|
(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")))))
|
|
|
|
;; REST web client
|
|
(use-package restclient
|
|
:defer t)
|
|
|
|
|
|
|
|
|
|
;; =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|
;; SARDINE MODE
|
|
;; =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
|
|
;; Customize the python-mode to run Sardine code using the terminal.
|
|
|
|
(setq
|
|
; python-shell-interpreter "fishery"
|
|
; python-shell-interpreter-args "")
|
|
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)
|
|
|
|
; Avtomatski tree sitter loader!
|
|
(use-package treesit-auto :defer t)
|
|
|
|
;; Tree sitter asociacije za programske jezike
|
|
(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))
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;
|
|
;; ORGMODE ;;
|
|
;;;;;;;;;;;;;
|
|
|
|
(use-package org
|
|
:mode "\\.org\\'"
|
|
:config
|
|
;; Skrij znake za oblikovanje (* za bold, / za podcrtanje...)
|
|
(setq org-hide-emphasis-markers t)
|
|
;; pikice v sredini za sezname
|
|
(font-lock-add-keywords
|
|
'org-mode
|
|
'(("^ *\\([-]\\) "
|
|
(0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))
|
|
;; 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 "Source Sans Pro") '(:font "Source Sans Pro"))
|
|
((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."))))
|
|
(base-font-color (face-foreground 'default nil 'default))
|
|
(headline `(:inherit default :weight bold :foreground ,base-font-color)))
|
|
|
|
(custom-theme-set-faces
|
|
'user
|
|
`(org-level-8 ((t (,@headline ,@variable-tuple))))
|
|
`(org-level-7 ((t (,@headline ,@variable-tuple))))
|
|
`(org-level-6 ((t (,@headline ,@variable-tuple))))
|
|
`(org-level-5 ((t (,@headline ,@variable-tuple))))
|
|
`(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.5))))
|
|
`(org-level-1 ((t (,@headline ,@variable-tuple :height 1.75))))
|
|
`(org-document-title ((t (,@headline ,@variable-tuple :height 2.0 :underline nil))))))
|
|
|
|
;; DOT diagrami
|
|
(org-babel-do-load-languages
|
|
'org-babel-load-languages
|
|
'((dot . t)))
|
|
|
|
;; ditaa diagrami
|
|
(org-babel-do-load-languages
|
|
'org-babel-load-languages
|
|
'((ditaa . t))))
|
|
|
|
;; Evil orgmode
|
|
(use-package evil-org
|
|
:after org
|
|
:hook (org-mode . (lambda () (evil-org-mode)))
|
|
:general
|
|
(start/leader-keys
|
|
;; ORGmode ukazi
|
|
"o" '(:ignore t :wk "orgmode")
|
|
"o c" 'org-capture
|
|
"o a" 'org-agenda)
|
|
:config
|
|
(require 'evil-org-agenda)
|
|
(evil-org-set-key-theme '(navigation insert textobjects additional calendar))
|
|
(evil-org-agenda-set-keys)
|
|
|
|
;; Odpiranje linkov kar z enter v ORG dokumentih
|
|
(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))
|
|
|
|
;; Šminka za naslove
|
|
(use-package org-bullets
|
|
:after org
|
|
:hook ((org-mode . (lambda () (org-bullets-mode 1)))))
|
|
|
|
;; Lepsi fonti
|
|
(setq org-src-fontify-natively t)
|
|
|
|
;; 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
|
|
: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"))))
|
|
|
|
;; Nacin za pisanje brez distrakcij
|
|
(use-package writeroom-mode
|
|
:defer 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 :defer t)
|
|
|
|
;; Lokacije ORG agenda vnosov
|
|
(setq org-agenda-files (list "~/rs/org" "~/org"))
|
|
|
|
;; Zapiski
|
|
(setq org-default-notes-file "~/org/zapiski.org")
|
|
|
|
;; Zacnimo na ponedeljek, kot se spodobi
|
|
(setq calendar-week-start-day 1)
|
|
|
|
;; Mermaid v orgmode (diagrami)
|
|
(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))))
|
|
|
|
|
|
|
|
;;;;;;;;;;;;;
|
|
;; E-pošta ;;
|
|
;;;;;;;;;;;;;
|
|
(setq mu4e-get-mail-command "mbsync -a")
|
|
|
|
;; Ikonice
|
|
(use-package mu4e-marker-icons
|
|
:defer t
|
|
:config
|
|
(mu4e-marker-icons-mode 1))
|
|
|
|
;; Email paketi iz githuba
|
|
;(use-package quelpa-use-package)
|
|
|
|
(use-package mu4e-dashboard
|
|
:defer t
|
|
:after mu4e
|
|
:vc "https://github.com/rougier/mu4e-dashboard")
|
|
;:quelpa (mu4e-dashboard
|
|
; :fetcher github
|
|
; :repo "rougier/mu4e-dashboard"))
|
|
|
|
;; @TODO konfiguracija!
|
|
;; - 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
|
|
;;
|
|
;; Za zgled:
|
|
;; 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 ;;
|
|
;;;;;;;;;;;
|
|
|
|
;; IVY autocomplete! <3
|
|
(use-package ivy
|
|
:general
|
|
(start/leader-keys
|
|
"," 'ivy-switch-buffer
|
|
"b b" 'ivy-switch-buffer)
|
|
: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)
|
|
(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))
|
|
|
|
;; Vedno sledi symlinkom v git
|
|
(setq vc-follow-symlinks t)
|
|
|
|
;; Swiper search
|
|
(use-package swiper
|
|
:defer t
|
|
:config
|
|
(global-set-key "\C-s" 'swiper))
|
|
|
|
;; Izboljsani default ukazi bolj prijazni
|
|
(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)
|
|
|
|
;; Ripgrep ignore
|
|
(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)))
|
|
|
|
|
|
;; Iskanje po fajlih (fulltext)
|
|
(use-package rg
|
|
:defer t
|
|
:config
|
|
(rg-enable-default-bindings))
|
|
|
|
;; Pomoc
|
|
(use-package helpful :defer t)
|
|
|
|
;; Prikazi nedavne ukaze pri vrhu v M-x
|
|
(use-package smex :defer t)
|
|
|
|
;; Pomoc za keybinde
|
|
(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))
|
|
|
|
(use-package zone-nyan :defer t)
|
|
|
|
;; 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
|
|
:defer t
|
|
:config
|
|
(setq openwith-associations '(("\\.pdf\\'" "xdg-open" (file))))
|
|
(openwith-mode t))
|
|
|
|
;; Kolaborativno urejanje
|
|
(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))
|
|
|
|
;; ELISP test
|
|
(defun odpri-dnevnik ()
|
|
(interactive)
|
|
(find-file (format-time-string "/tmp/%Y-%m-%d_dnevnik.org"))
|
|
(insert (concat "\n=====================\n"
|
|
(shell-command-to-string "date") "\n"
|
|
(format-time-string "%Y-%m-%d") "\n"
|
|
"ŠE VEČ TEKSTA!" "\n")))
|
|
(global-set-key (kbd "C-M-d") 'odpri-dnevnik)
|
|
|
|
;; GNU guix
|
|
(use-package guix :defer t)
|
|
|
|
;; Dashboard - homescreen
|
|
(use-package dashboard
|
|
:general
|
|
(start/leader-keys
|
|
"b h" 'dashboard-open)
|
|
;:after nerd-icons
|
|
:init
|
|
(dashboard-setup-startup-hook)
|
|
(setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*")))
|
|
(setq dashboard-banner-logo-title "EMA☭S")
|
|
(setq dashboard-startup-banner 3)
|
|
(setq dashboard-center-content t)
|
|
(setq dashboard-items '((agenda . 5)
|
|
(recents . 5)))
|
|
;(setq dashboard-display-icons-p t) ;; display icons on both GUI and terminal
|
|
;(setq dashboard-icon-type 'nerd-icons) ;; use `nerd-icons' package
|
|
(setq dashboard-set-heading-icons t)
|
|
(setq dashboard-set-file-icons t)
|
|
(setq dashboard-set-navigator t)
|
|
(setq dashboard-set-init-info t))
|
|
|
|
;; Bolj fajni IELM REPL
|
|
(use-package ielm
|
|
:defer t
|
|
:hook (ielm-mode-hook . (lambda ()
|
|
(eldoc-mode)
|
|
;(paredit-mode)
|
|
|
|
(defun g-ielm-init-history ()
|
|
(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))
|
|
(g-ielm-init-history)
|
|
(defun g-ielm-write-history (&rest _args)
|
|
(with-file-modes #o600
|
|
(comint-write-input-ring)))
|
|
(advice-add 'ielm-send-input :after 'g-ielm-write-history)
|
|
(define-key inferior-emacs-lisp-mode-map (kbd "C-l")
|
|
'comint-clear-buffer)
|
|
(define-key inferior-emacs-lisp-mode-map (kbd "C-r")
|
|
'helm-comint-input-ring))))
|
|
|
|
;; Sinhronizacija podnapisov (uporablja mpv!)
|
|
(use-package subed
|
|
:defer t
|
|
:config
|
|
;; Remember cursor position between sessions
|
|
(add-hook 'subed-mode-hook 'save-place-local-mode)
|
|
;; Break lines automatically while typing
|
|
(add-hook 'subed-mode-hook 'turn-on-auto-fill)
|
|
;; Break lines at 40 characters
|
|
(add-hook 'subed-mode-hook (lambda () (setq-local fill-column 40)))
|
|
;; Some reasonable defaults
|
|
(add-hook 'subed-mode-hook 'subed-enable-pause-while-typing)
|
|
;; As the player moves, update the point to show the current subtitle
|
|
(add-hook 'subed-mode-hook 'subed-enable-sync-point-to-player)
|
|
;; As your point moves in Emacs, update the player to start at the current subtitle
|
|
(add-hook 'subed-mode-hook 'subed-enable-sync-player-to-point)
|
|
;; Replay subtitles as you adjust their start or stop time with M-[, M-], M-{, or M-}
|
|
(add-hook 'subed-mode-hook 'subed-enable-replay-adjusted-subtitle)
|
|
;; Loop over subtitles
|
|
(add-hook 'subed-mode-hook 'subed-enable-loop-over-current-subtitle)
|
|
;; Show characters per second
|
|
(add-hook 'subed-mode-hook 'subed-enable-show-cps))
|
|
|
|
|
|
|
|
;;;;;;;;;;;;
|
|
;; 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
|
|
'("/home/g1smo/org/todo.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"))
|
|
'(package-selected-packages
|
|
'(restclient php-ts-mode org-bullets magit-todos treesit-auto eat
|
|
zone-nyan yaml-mode writeroom-mode which-key web-mode
|
|
web-beautify vue-mode undo-tree treemacs-projectile
|
|
treemacs-evil toml-mode tidal subed smex smartparens
|
|
sclang-extensions rjsx-mode rg rainbow-delimiters
|
|
racket-mode quelpa-use-package pyvenv org-caldav
|
|
openwith ob-mermaid mu4e-marker-icons mu4e-dashboard
|
|
magit lsp-mode htmlize helpful guix gruvbox-theme
|
|
general geiser-guile format-all flycheck fluxus-mode
|
|
extempore-mode evil-org evil-collection editorconfig
|
|
drupal-mode doom-modeline dashboard crdt
|
|
counsel-projectile company benchmark-init arduino-mode
|
|
all-the-icons 2bit))
|
|
'(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 SS01" :foundry "BE5N" :slant normal :weight semi-bold :height 120 :width normal))))
|
|
'(line-number ((t (:background "#32302f" :foreground "#7c6f64"))))
|
|
'(line-number-current-line ((t (:background "#32302f" :foreground "#fe8019"))))
|
|
'(org-document-title ((t (:inherit default :weight bold :foreground "#ebdbb2" :family "Sans Serif" :height 2.0 :underline nil))))
|
|
'(org-level-1 ((t (:inherit default :weight bold :foreground "#ebdbb2" :family "Sans Serif" :height 1.75))))
|
|
'(org-level-2 ((t (:inherit default :weight bold :foreground "#ebdbb2" :family "Sans Serif" :height 1.5))))
|
|
'(org-level-3 ((t (:inherit default :weight bold :foreground "#ebdbb2" :family "Sans Serif" :height 1.25))))
|
|
'(org-level-4 ((t (:inherit default :weight bold :foreground "#ebdbb2" :family "Sans Serif" :height 1.1))))
|
|
'(org-level-5 ((t (:inherit default :weight bold :foreground "#ebdbb2" :family "Sans Serif"))))
|
|
'(org-level-6 ((t (:inherit default :weight bold :foreground "#ebdbb2" :family "Sans Serif"))))
|
|
'(org-level-7 ((t (:inherit default :weight bold :foreground "#ebdbb2" :family "Sans Serif"))))
|
|
'(org-level-8 ((t (:inherit default :weight bold :foreground "#ebdbb2" :family "Sans Serif")))))
|
|
|
|
|
|
;; supercollider mode load
|
|
;(require 'sclang)
|