dotfiles/.emacs.d/init.el

111 lines
4.5 KiB
EmacsLisp
Raw Normal View History

;;; init --- naloži org konfiguracijo in še kaj -*- lexical-binding: t -*-
;;; Commentary:
;; Naloži konfiguracije iz ORG datoteke, ostanki nerazvrščenih zadev
;; ter kustomizacije.
(setq warning-minimum-level :error)
;; Error in pre-command-hook (vertico--prepare): (void-function compat--completion-metadata-get)
;(let ((regex "compat--completion-metadata-get"))
; (->> (elisp-load-path-roots)
; (-filter #'file-exists-p)
; (mapcar #'shell-quote-argument)
; (append `("grep" "-R" ,(shell-quote-argument regex)))
; (funcall (-flip #'string-join) " ")
; (grep-find)))
;;; Code:
(org-babel-load-file "~/.emacs.d/config.org")
2023-02-16 19:09:11 +01:00
;;;;;;;;;;;
;; Razno ;;
;;;;;;;;;;;
2023-02-16 19:09:11 +01:00
;; Izboljsani default ukazi bolj prijazni
;; Iskanje po fajlih (fulltext)
2023-12-27 19:44:27 +01:00
;(use-package rg
; :defer t
; :config
; (rg-enable-default-bindings))
2021-04-25 00:43:50 +02:00
;; ELISP test
(defun odpri-dnevnik ()
"Dodaj dnevniški zapis v tmp folder sistema."
(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)
;; 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))
2023-02-16 19:09:11 +01:00
;;;;;;;;;;;;
;; 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
'("ba323a013c25b355eb9a0550541573d535831c557674c8d59b9ac6aa720c21d3"
default))
'(helm-minibuffer-history-key "M-p")
2024-05-16 13:05:05 +02:00
'(package-selected-packages
'(arduino-mode benchmark-init cider company counsel-projectile crdt
dashboard diminish direnv doom-modeline drupal-mode
editorconfig evil-collection evil-org extempore-mode
faceup fluxus-mode flycheck format-all geben
geiser-guile general gruvbox-theme guix helm helpful
htmlize jq-mode list-utils loop lsp-mode magit
marginalia mu4e mu4e-dashboard mu4e-marker-icons
nyan-mode ob-mermaid openwith orderless org-bullets
org-caldav org-projectile paredit pkg-info pos-tip
pyvenv racket-mode rainbow-delimiters restclient
rjsx-mode sclang-extensions shut-up slime
smartparens smex subed svg-icon tidal toml-mode
treemacs-projectile treesit-auto undo-tree
use-package vertico vue-mode w3m web-beautify
web-mode web-server which-key writeroom-mode
yaml-mode zone-nyan))
'(package-vc-selected-packages
'((svg-icon :url "https://github.com/rougier/emacs-svg-icon")))
'(sclang-indent-level 2))
2023-02-16 19:09:11 +01:00
(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.
'(org-document-title ((t (:inherit default :weight bold :font "Verdana" :height 2.0 :underline nil))))
'(org-level-1 ((t (:inherit default :weight bold :font "Verdana" :height 1.75))))
'(org-level-2 ((t (:inherit default :weight bold :font "Verdana" :height 1.45))))
'(org-level-3 ((t (:inherit default :weight bold :font "Verdana" :height 1.25))))
'(org-level-4 ((t (:inherit default :weight bold :font "Verdana" :height 1.1)))))