dotfiles/.emacs.d/init.el

341 lines
10 KiB
EmacsLisp

;;;;;;;;;;;;
;; PAKETI ;;
;;;;;;;;;;;;
;; Set up package.el to work with MELPA
(require 'package)
;; Sekvence n'shiat
(require 'seq)
;; Loudamo melpa paketice
(add-to-list 'package-archives
'("melpa" . "https://melpa.org/packages/"))
;; Kaj vse naj bo namesceno?
(setq paketi '(;; Evil mode
evil
evil-collection
evil-org
;; Global undo tree
undo-tree
;; Gruvbox tema
gruvbox-theme
;; Hemisu tema
hemisu-theme
;; Doom themes
doom-themes
;; Oblikovanje teksta
editorconfig
;; Projekti
projectile
;; Completion
company
;; Completion2
ivy
;; Iskanje
swiper
;; Izboljsani default ukazi bolj prijazni
counsel
;; Iskanje po fajlih
rg
;; Modeline - status bar spodaj (+ ikonice)
doom-modeline
all-the-icons
;; Pomoch
helpful
;; Prikazi nedavne ukaze visje
smex
;; Programiranje
js2-mode
rjsx-mode
vue-mode
clojure-mode
geiser
geiser-guile
paredit
rainbow-delimiters
gdscript-mode
php-mode
fennel-mode
arduino-mode
markdown-mode
;; Checker za syntax?
flycheck
;; Lepšanje fajlov na webu
web-beautify
;; Tab alignment
smart-tabs-mode
;; Dreva fajlov
treemacs
treemacs-projectile
treemacs-evil
;; Pomoc za keybinde
which-key
;; Git paket
magit
))
(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)))
;;;;;;;;;;
;; EVIL ;;
;;;;;;;;;;
(setq evil-want-integration t) ;; This is optional since it's already set to t by default.
(setq evil-want-keybinding nil)
(require 'evil)
;; Dodatni keybindi (dired, drugje)
(evil-collection-init)
(defvar my-leader-map (make-sparse-keymap)
"Mapiranje za evil bliznjice (leader trigger)")
;; Dodatki za orgmode / agenda podporo
(require 'evil-org)
(add-hook 'org-mode-hook 'evil-org-mode)
(evil-org-set-key-theme '(navigation insert textobjects additional calendar))
(require 'evil-org-agenda)
(evil-org-agenda-set-keys)
(setq org-agenda-files (list "~/rs/org"
"~/Dokumenti"))
;; 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)
;; 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)
;; 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)
;; Mapiranje ukazov
(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)
(define-key my-leader-map "w" 'evil-window-map)
(define-key my-leader-map "b" 'evil-buffer-map)
(define-key my-leader-map "f" 'evil-file-map)
(define-key my-leader-map "[" 'previous-buffer)
(define-key my-leader-map "]" 'next-buffer)
(define-key my-leader-map "r" 'counsel-bookmark)
(define-key my-leader-map "p" 'projectile-command-map)
(define-key my-leader-map "/" 'counsel-rg)
;; Odpri drevo fajlov
(define-key my-leader-map "t" 'treemacs)
;;;;;;;;;;;;;;;;;;;
;; Custom (tema) ;;
;;;;;;;;;;;;;;;;;;;
(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
'("7661b762556018a44a29477b84757994d8386d6edee909409fabe0631952dad9" default))
'(iswitchb-mode t)
'(package-selected-packages
'(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)
'(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)))))
;;;;;;;;;;;;;;;;
;; UI cleanup ;;
;;;;;;;;;;;;;;;;
;; Menu bar off
(menu-bar-mode -1)
(tool-bar-mode -1)
;; No dialog box plx
(setq use-dialog-box nil)
;; Brez ikon zgoraj
(setq ns-use-proxy-icon nil)
(setq frame-title-format nil)
;; Undo tree
(global-undo-tree-mode)
(evil-set-undo-system 'undo-tree)
;; Theme
; Skrij scrollbar
(scroll-bar-mode -1)
(setq window-divider-default-bottom-width 3)
(window-divider-mode t)
;(load-theme 'gruvbox-dark-medium t)
;(load-theme 'hemisu-light t)
(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)
;;;;;;;;;;
;; Text ;;
;;;;;;;;;;
;; Sirina taba ter spejsi kot distancniki
(setq-default tab-width 2)
(setq-default indent-tabs-mode nil)
;; Editorconfig formatiranje fajlov
(editorconfig-mode 1)
;; Text wrap na sirino oken
(global-visual-line-mode)
;; Stevilke vrstic
(global-display-line-numbers-mode)
;; Brez stevilk vrstic v file drevesu!
(add-hook 'treemacs-mode-hook (lambda () (display-line-numbers-mode -1)))
;; Evil mode toggle <3
(evil-mode)
;; PhP ko je treba
(add-to-list 'auto-mode-alist '("\\.php$" . php-mode))
;; Org tudi kdaj
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
;; Vue nacin
(add-to-list 'auto-mode-alist '("\\.vue$" . vue-mode))
;; Guile scheme
(setq scheme-program-name "guile")
;; Rainbowz
(add-hook 'prog-mode-hook #'rainbow-delimiters-mode)
;; Boljse urejanje lispy jezikov
(autoload 'enable-paredit-mode "paredit" "Turn on pseudo-structural editing of Lisp code." t)
(add-hook 'emacs-lisp-mode-hook #'enable-paredit-mode)
(add-hook 'eval-expression-minibuffer-setup-hook #'enable-paredit-mode)
(add-hook 'ielm-mode-hook #'enable-paredit-mode)
(add-hook 'lisp-mode-hook #'enable-paredit-mode)
(add-hook 'lisp-interaction-mode-hook #'enable-paredit-mode)
(add-hook 'scheme-mode-hook #'enable-paredit-mode)
;; Stanja taskov
(setq org-todo-keywords
'((sequence "TODO" "V DELU" "TESTIRANJE" "DOKUMENTIRANJE" "KONČANO")))
;; 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)))
;; js2 za javascript
(add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))
(setq js2-strict-missing-semi-warning nil)
(setq js2-missing-semi-one-line-override nil)
(setq js2-basic-offset 2)
(setq js-indent-level 2)
;; Pametni tabi za js2-mode
(smart-tabs-advice js2-indent-line js2-basic-offset)
;; css indent
(setq css-indent-level 2)
(setq css-indent-offset 2)
;; Kompletiranje ukazov
(company-mode)
;; IVY
(ivy-mode)
(setq ivy-use-virtual-buffers t)
(setq enable-recursive-minibuffers t)
;; Swiper search, counsel bliznjice
(global-set-key "\C-s" 'swiper)
(define-key evil-normal-state-map (kbd "RET") 'org-open-at-point)
(global-set-key (kbd "C-c C-r") 'ivy-resume)
(global-set-key (kbd "<f6>") 'ivy-resume)
(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)
(rg-enable-default-bindings)
;; Modeline / statusbar
(require 'all-the-icons)
;; Pognat je treba (1x) all-the-icons-install-fonts
;(require 'doom-modeline)
(doom-modeline-init)
;;;;;;;;;;;
;; Razno ;;
;;;;;;;;;;;
;; Vedno sledi symlinkom v git
(setq vc-follow-symlinks t)
;; Projektni mgmt
(projectile-mode t)
;; Pomoc
;(require 'helpful)
;; 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
`((".*" . "~/.saves/")) ; don't litter my fs tree
delete-old-versions t
kept-new-versions 6
kept-old-versions 2
version-control t) ; use versioned backups