mirror of https://github.com/Horhik/dotfiles.git
953 lines
36 KiB
Org Mode
Executable File
953 lines
36 KiB
Org Mode
Executable File
#+title: Emacs config
|
||
#+author Horhik
|
||
#+BABEL: :cache no
|
||
#+PROPERTY: header-args:emacs-lisp :tangle init.el
|
||
#+begin_src
|
||
█ █ █▀█ █▀▄ █ █ ▀█▀ █ █ ▀ █▀▀
|
||
█▀█ █ █ █▀▄ █▀█ █ █▀▄ ▀▀█
|
||
▀ ▀ ▀▀▀ ▀ ▀ ▀ ▀ ▀▀▀ ▀ ▀ ▀▀▀
|
||
█▀▄ █▀█ ▀█▀ █▀▀ ▀█▀ █ █▀▀ █▀▀
|
||
█ █ █ █ █ █▀▀ █ █ █▀▀ ▀▀█
|
||
▀▀ ▀▀▀ ▀ ▀ ▀▀▀ ▀▀▀ ▀▀▀ ▀▀▀
|
||
#+end_src
|
||
* Help info ~C-z~ to toggle vim/emacs mode
|
||
|
||
* Packages
|
||
#+begin_src emacs-lisp
|
||
(setq max-lisp-eval-depth 10000)
|
||
(require 'package)
|
||
(add-to-list 'package-archives
|
||
'("melpa" . "http://melpa.org/packages/") t)
|
||
(add-to-list 'package-archives
|
||
'("melpa" . "http://melpa.org/packages/") t)
|
||
|
||
|
||
(package-initialize)
|
||
|
||
(unless package-archive-contents
|
||
(package-refresh-contents))
|
||
|
||
|
||
(defvar package-list
|
||
'(gruvbox-theme))
|
||
|
||
(dolist (p package-list)
|
||
(when (not (package-installed-p p))
|
||
(package-install p)))
|
||
|
||
|
||
(defvar bootstrap-version)
|
||
(let ((bootstrap-file
|
||
(expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
|
||
(bootstrap-version 5))
|
||
(unless (file-exists-p bootstrap-file)
|
||
(with-current-buffer
|
||
(url-retrieve-synchronously
|
||
"https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
|
||
'silent 'inhibit-cookies)
|
||
(goto-char (point-max))
|
||
(eval-print-last-sexp)))
|
||
(load bootstrap-file nil 'nomessage))
|
||
(setq package-enable-at-startup nil)
|
||
(setq straight-use-package-by-default t)
|
||
(straight-use-package 'org)
|
||
|
||
(straight-use-package 'use-package)
|
||
#+end_src
|
||
|
||
#+RESULTS:
|
||
|
||
* UI
|
||
** Cleaning up
|
||
#+begin_src emacs-lisp
|
||
(require 'package)
|
||
(setq inhibit-startup-message t)
|
||
(menu-bar-mode -1)
|
||
(toggle-scroll-bar -1)
|
||
(tool-bar-mode -1)
|
||
(tooltip-mode -1)
|
||
(set-fringe-mode 10)
|
||
(visual-line-mode t)
|
||
(global-visual-line-mode 1)
|
||
(global-visual-line-mode)
|
||
#+end_src
|
||
|
||
|
||
#+RESULTS:
|
||
: t
|
||
|
||
** Theme
|
||
#+begin_src emacs-lisp
|
||
(require 'use-package)
|
||
;; (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
|
||
;; '("75b8719c741c6d7afa290e0bb394d809f0cc62045b93e1d66cd646907f8e6d43" "7661b762556018a44a29477b84757994d8386d6edee909409fabe0631952dad9" default))
|
||
;; '(package-selected-packages
|
||
;; '(neotree treemacs-persp spaceline-all-the-icons all-the-icons-ivy-rich all-the-icons-ivy treemacs-the-icons dired-icon treemacs-magit treemacs-projectile nlinum linum-mode unicode-fonts ewal-doom-themes ivy-rich which-key counsel org-roam treemacs-evil treemacs-all-the-icons treemacs use-package general gruvbox-theme flycheck-rust cargo linum-relative ac-racer lusty-explorer doom-modeline doom-themes rainbow-delimiters evil-mc rustic lsp-mode avy)))
|
||
(use-package gruvbox-theme
|
||
:ensure t
|
||
)
|
||
(load-theme 'gruvbox-dark-hard t)
|
||
|
||
;; (use-package gruvbox-theme
|
||
;; :ensure t
|
||
;; :config
|
||
;; (load-theme 'doom-gruvbox)
|
||
;; )
|
||
(setq use-package-always-ensure t)
|
||
|
||
|
||
|
||
#+end_src
|
||
|
||
#+RESULTS:
|
||
|
||
** Modeline
|
||
#+begin_src emacs-lisp
|
||
(use-package doom-modeline
|
||
:init
|
||
(doom-modeline-mode 1))
|
||
|
||
;; Line numbers
|
||
(column-number-mode)
|
||
|
||
|
||
#+end_src
|
||
|
||
#+RESULTS:
|
||
: t
|
||
|
||
** Fonts
|
||
#+begin_src emacs-lisp
|
||
|
||
;; Default fonts
|
||
(add-to-list 'default-frame-alist '(font . "Mononoki Nerd Font" ))
|
||
(set-face-attribute 'default t :font "Mononoki Nerd Font" )
|
||
|
||
;;(set-fontset-font "fontset-startup" 'unicode
|
||
;; (font-spec :name "Mononoki Nerd Font" :size 14))
|
||
(when (member "Twitter Color Emoji" (font-family-list))
|
||
(set-fontset-font t 'unicode "Twitter Color Emoji" nil 'prepend))
|
||
|
||
(when (member "Twemoji" (font-family-list))
|
||
(set-fontset-font t 'unicode "Twemoji" nil 'prepend))
|
||
;; ☺️ ☻ 😃 😄 😅 😆 😊 😎 😇 😈 😏 🤣 🤩 🤪 🥳 😁 😀 😂 🤠 🤡 🤑 🤓 🤖 😗 😚 😘 😙 😉 🤗 😍 🥰 🤤 😋 🤔 🤨 🧐 🤭 🤫 😯 🤐 😌 😖 😕 😳 😔 🤥 🥴 😮 😲 🤯 😩 😫 🥱 😪 😴 😵 ☹️ 😦 😞 😥 😟 😢 😭 🤢 🤮 😷 🤒 🤕 🥵 🥶 🥺 😬 😓 😰 😨 😱 😒 😠 😡 😤 😣 😧 🤬 😸 😹 😺 😻 😼 😽 😾 😿 🙀 🙈 🙉 🙊 🤦 🤷 🙅 🙆 🙋 🙌 🙍 🙎 🙇 🙏 👯 💃 🕺 🤳 💇 💈 💆 🧖 🧘 🧍 🧎 👰 🤰 🤱 👶 🧒 👦 👧 👩 👨 🧑 🧔 🧓 👴 👵 👤 👥 👪 👫 👬 👭 👱 👳 👲 🧕 👸 🤴 🎅 🤶 🧏 🦻 🦮 🦯 🦺 🦼 🦽 🦾 🦿 🤵 👮 👷 💁 💂 🕴 🕵️ 🦸 🦹 🧙 🧚 🧜 🧝 🧞 🧛 🧟 👼 👿 👻 👹 👺 👽 👾 🛸 💀 ☠️ 🕱 🧠 🦴 👁 👀 👂 👃 👄 🗢 👅 🦷 🦵 🦶 💭 🗬 🗭 💬 🗨 🗩 💦 💧 💢 💫 💤 💨 💥 💪 🗲 🔥 💡 💩 💯
|
||
;; Fallback for emojies
|
||
|
||
#+end_src
|
||
|
||
#+RESULTS:
|
||
|
||
** Line Numbers
|
||
#+begin_src emacs-lisp
|
||
(dolist (mode '(text-mode-hook
|
||
prog-mode-hook
|
||
conf-mode-hook))
|
||
(add-hook mode (lambda ()
|
||
(display-line-numbers-mode 1)
|
||
(setq display-line-numbers 'relative))))
|
||
|
||
;; Override some modes which derive from the above
|
||
(dolist (mode '(org-mode-hook))
|
||
(add-hook mode (lambda () (display-line-numbers-mode 0)))
|
||
'(lambda ()
|
||
(setq org-file-apps
|
||
'((auto-mode . emacs)
|
||
("\\.mm\\'" . default)
|
||
("\\.x?html?\\'" . default)
|
||
("\\.pdf\\'" . "evince %s"))))
|
||
)
|
||
|
||
|
||
#+end_src
|
||
|
||
#+RESULTS:
|
||
|
||
** Brakets
|
||
#+begin_src emacs-lisp
|
||
(use-package highlight-parentheses
|
||
:ensure t
|
||
:init
|
||
(global-highlight-parentheses-mode t)
|
||
(show-paren-mode t)) ;
|
||
(use-package rainbow-delimiters
|
||
:hook (prog-mode . rainbow-delimiters-mode))
|
||
(global-prettify-symbols-mode +1)
|
||
#+end_src
|
||
|
||
#+RESULTS:
|
||
| rainbow-delimiters-mode | (lambda nil (display-line-numbers-mode 1) (setq display-line-numbers 'relative)) |
|
||
|
||
** Treemacs
|
||
#+begin_src emacs-lisp
|
||
(use-package all-the-icons)
|
||
(use-package all-the-icons-ivy
|
||
:init (add-hook 'after-init-hook 'all-the-icons-ivy-setup))
|
||
(use-package ivy
|
||
:diminish
|
||
:bind (("C-s" . swiper)
|
||
:map ivy-minibuffer-map
|
||
("TAB" . ivy-alt-done)
|
||
("C-l" . ivy-alt-done)
|
||
("C-j" . ivy-next-line)
|
||
("C-k" . ivy-previous-line)
|
||
:map ivy-switch-buffer-map
|
||
("C-k" . ivy-previous-line)
|
||
("C-l" . ivy-done)
|
||
("C-d" . ivy-switch-buffer-kill)
|
||
:map ivy-reverse-i-search-map
|
||
("C-k" . ivy-previous-line)
|
||
("C-d" . ivy-reverse-i-search-kill))
|
||
:config
|
||
(ivy-mode 1)
|
||
)
|
||
|
||
(use-package treemacs-all-the-icons)
|
||
(use-package treemacs
|
||
:after all-the-icons
|
||
:ensure t
|
||
:defer t
|
||
:init
|
||
(with-eval-after-load 'winum
|
||
(define-key winum-keymap (kbd "M-0") #'treemacs-select-window))
|
||
:config
|
||
(progn
|
||
(setq treemacs-collapse-dirs (if treemacs-python-executable 3 0)
|
||
treemacs-deferred-git-apply-delay 0.5
|
||
treemacs-directory-name-transformer #'identity
|
||
treemacs-display-in-side-window t
|
||
treemacs-eldoc-display t
|
||
treemacs-file-event-delay 5000
|
||
treemacs-file-extension-regex treemacs-last-period-regex-value
|
||
treemacs-file-follow-delay 0.2
|
||
treemacs-file-name-transformer #'identity
|
||
treemacs-follow-after-init t
|
||
treemacs-git-command-pipe ""
|
||
treemacs-goto-tag-strategy 'refetch-index
|
||
treemacs-indentation 2
|
||
treemacs-indentation-string " "
|
||
treemacs-is-never-other-window nil
|
||
treemacs-max-git-entries 5000
|
||
treemacs-missing-project-action 'ask
|
||
treemacs-move-forward-on-expand nil
|
||
treemacs-no-png-images nil
|
||
treemacs-no-delete-other-windows t
|
||
treemacs-project-follow-cleanup nil
|
||
treemacs-persist-file (expand-file-name ".cache/treemacs-persist" user-emacs-directory)
|
||
treemacs-position 'left
|
||
treemacs-read-string-input 'from-child-frame
|
||
treemacs-recenter-distance 0.1
|
||
treemacs-recenter-after-file-follow nil
|
||
treemacs-recenter-after-tag-follow nil
|
||
treemacs-recenter-after-project-jump 'always
|
||
treemacs-recenter-after-project-expand 'on-distance
|
||
treemacs-show-cursor nil
|
||
treemacs-show-hidden-files t
|
||
treemacs-silent-filewatch nil
|
||
treemacs-silent-refresh nil
|
||
treemacs-sorting 'alphabetic-asc
|
||
treemacs-space-between-root-nodes t
|
||
treemacs-tag-follow-cleanup t
|
||
treemacs-tag-follow-delay 1.5
|
||
treemacs-user-mode-line-format nil
|
||
treemacs-user-header-line-format nil
|
||
treemacs-width 35
|
||
treemacs-workspace-switch-cleanup nil)
|
||
|
||
;; The default width and height of the icons is 22 pixels. If you are
|
||
;; using a Hi-DPI display, uncomment this to double the icon size.
|
||
;;(treemacs-resize-icons 44)
|
||
|
||
(treemacs-follow-mode t)
|
||
(treemacs-filewatch-mode t)
|
||
(treemacs-load-theme 'all-the-icons)
|
||
(treemacs-fringe-indicator-mode 'always)
|
||
(pcase (cons (not (null (executable-find "git")))
|
||
(not (null treemacs-python-executable)))
|
||
(`(t . t)
|
||
(treemacs-git-mode 'deferred))
|
||
(`(t . _)
|
||
(treemacs-git-mode 'simple))))
|
||
:bind
|
||
(:map global-map
|
||
("M-0" . treemacs-select-window)
|
||
("C-x t 1" . treemacs-delete-other-windows)
|
||
("C-x t t" . treemacs)
|
||
("C-x t B" . treemacs-bookmark)
|
||
("C-x t C-t" . treemacs-find-file)
|
||
("C-x t M-t" . treemacs-find-tag)))
|
||
|
||
(use-package treemacs-evil
|
||
:after (treemacs evil)
|
||
:ensure t)
|
||
|
||
(use-package treemacs-projectile
|
||
:after (treemacs projectile)
|
||
:ensure t)
|
||
|
||
(use-package treemacs-icons-dired
|
||
:after (treemacs dired)
|
||
:ensure t
|
||
:config (treemacs-icons-dired-mode))
|
||
|
||
(use-package treemacs-magit
|
||
:after (treemacs magit)
|
||
:ensure t)
|
||
|
||
(use-package treemacs-persp ;;treemacs-perspective if you use perspective.el vs. persp-mode
|
||
:after (treemacs persp-mode) ;;or perspective vs. persp-mode
|
||
:ensure t
|
||
:config (treemacs-set-scope-type 'Perspectives))
|
||
|
||
|
||
|
||
(org-babel-do-load-languages
|
||
'org-babel-load-languages
|
||
'((python . t)))
|
||
|
||
|
||
(use-package magit)
|
||
|
||
|
||
#+end_src
|
||
|
||
#+RESULTS:
|
||
|
||
*** Theme
|
||
#+begin_src emacs-lisp
|
||
(treemacs-create-theme "Material"
|
||
:icon-directory (treemacs-join-path treemacs-dir "/home/horhik/.emacs.d/icons")
|
||
:config
|
||
(progn
|
||
(treemacs-create-icon :file "folder-core-open.png" :fallback "📁" :extensions (root-open))
|
||
(treemacs-create-icon :file "folder-core.png" :fallback "📁" :extensions (root-closed))
|
||
(treemacs-create-icon :file "folder-node-open.png" :fallback "📂" :extensions (dir-open))
|
||
(treemacs-create-icon :file "folder-node.png" :fallback "📁" :extensions (dir-closed))
|
||
(treemacs-create-icon :file "folder-test-open.png" :fallback "📂" :extensions ("tests"))
|
||
(treemacs-create-icon :file "folder-test.png" :fallback "📁" :extensions ("tests"))
|
||
(treemacs-create-icon :file "emacs.png" :fallback "💜" :extensions ("el" "elc" ".spacemacs" "doom" "spacemacs.env" ))
|
||
(treemacs-create-icon :file "emacs.png" :fallback "💜" :extensions ("el" "elc"))
|
||
(treemacs-create-icon :file "markdown.png" :fallback "📖" :extensions ("md"))
|
||
(treemacs-create-icon :file "readme.png" :fallback "📖" :extensions ("readme.md" "README.md" "README" "readme"))
|
||
(treemacs-create-icon :file "editorconfig.png" :fallback "📖" :extensions ("editorconfig"))
|
||
(treemacs-create-icon :file "org.png" :fallback "🐴" :extensions ("org"))
|
||
(treemacs-create-icon :file "rust.png" :fallback "🐴" :extensions ("rs"))
|
||
(treemacs-create-icon :file "dart.png" :fallback "🐴" :extensions ("dart"))
|
||
(treemacs-create-icon :file "dart.png" :fallback "🐴" :extensions ("dt"))
|
||
(treemacs-create-icon :file "haskell.png" :fallback "🐴" :extensions ("hs" "haskell"))
|
||
(treemacs-create-icon :file "c.png" :fallback "🐴" :extensions ("c"))
|
||
(treemacs-create-icon :file "cpp.png" :fallback "🐴" :extensions ("cpp" "c++" "C" "cxx" "cc"))
|
||
(treemacs-create-icon :file "nix.png" :fallback "🐴" :extensions ("nix"))
|
||
(treemacs-create-icon :file "lock.png" :fallback "🐴" :extensions ("lock" "lck"))
|
||
(treemacs-create-icon :file "ocaml.png" :fallback "🐴" :extensions ("ocaml" "ml"))
|
||
(treemacs-create-icon :file "h.png" :fallback "🐴" :extensions ("h"))
|
||
(treemacs-create-icon :file "diff.png" :fallback "🐴" :extensions ("diff"))
|
||
(treemacs-create-icon :file "makefile.png" :fallback "🐴" :extensions ("mk" "make" "Makefile"))
|
||
(treemacs-create-icon :file "assembly.png" :fallback "🐴" :extensions ("bin" "so" "o"))
|
||
(treemacs-create-icon :file "document.png" :fallback "🐴" :extensions ("" "txt"))
|
||
(treemacs-create-icon :file "file.png" :fallback "🐴" :extensions (fallback))
|
||
(treemacs-create-icon :file "toml.png" :fallback "🗃️" :extensions ("toml"))
|
||
(treemacs-create-icon :file "json.png" :fallback "🗃️" :extensions ("json"))
|
||
(treemacs-create-icon :file "yaml.png" :fallback "🗃️" :extensions ("yml" "yaml"))
|
||
(treemacs-create-icon :file "vim.png" :fallback "🗃️" :extensions ("vim" "vi" "nvim" ".viminfo" ".vimrc" ))
|
||
(treemacs-create-icon :file "video.png" :fallback "🗃️" :extensions ("mp4" "avi" "gif" "mpv"))
|
||
(treemacs-create-icon :file "audio.png" :fallback "🗃️" :extensions ("mp3" "ogg" "wav" ))
|
||
(treemacs-create-icon :file "image.png" :fallback "🗃️" :extensions ("png" "jpg"))
|
||
(treemacs-create-icon :file "svg.png" :fallback "🗃️" :extensions ("svg"))
|
||
(treemacs-create-icon :file "css.png" :fallback "🗃️" :extensions ("css"))
|
||
(treemacs-create-icon :file "console.png" :fallback "🗃️" :extensions ("bash" "sh" "install" "setup"))
|
||
(treemacs-create-icon :file "certificate.png" :fallback "🗃️" :extensions ("cert" "LICENSE" "license" "gpl" "mit" "gpl3" "gplv3" "apache"))
|
||
(treemacs-create-icon :file "database.png" :fallback "🗃️" :extensions ("sqlite" "db" "sql"))
|
||
(treemacs-create-icon :file "lua.png" :fallback "🗃️" :extensions ("lua"))
|
||
(treemacs-create-icon :file "javascript.png" :fallback "🗃️" :extensions ("js" "javascript"))
|
||
(treemacs-create-icon :file "typescript.png" :fallback "🗃️" :extensions ("ts" "typescript"))
|
||
(treemacs-create-icon :file "react.png" :fallback "🗃️" :extensions ("jsx"))
|
||
(treemacs-create-icon :file "react_ts.png" :fallback "🗃️" :extensions ("tsx"))
|
||
(treemacs-create-icon :file "settings.png" :fallback "🗃️" :extensions ("config" "conf" "rc" "*rc"))
|
||
(treemacs-create-icon :file "sass.png" :fallback "🗃️" :extensions ("sass" "scss"))
|
||
(treemacs-create-icon :file "xml.png" :fallback "🗃️" :extensions ("xml"))
|
||
(treemacs-create-icon :file "less.png" :fallback "🗃️" :extensions ("less"))
|
||
(treemacs-create-icon :file "pdf.png" :fallback "🗃️" :extensions ("pdf"))
|
||
(treemacs-create-icon :file "tex.png" :fallback "🗃️" :extensions ("tex" "latex" ))
|
||
(treemacs-create-icon :file "log.png" :fallback "🗃️" :extensions ("log" ))
|
||
(treemacs-create-icon :file "word.png" :fallback "🗃️" :extensions ("docs" "docx" "word" ))
|
||
(treemacs-create-icon :file "powerpoint.png" :fallback "🗃️" :extensions ("ppt" "pptx" ))
|
||
(treemacs-create-icon :file "html.png" :fallback "🗃️" :extensions ("html"))
|
||
(treemacs-create-icon :file "zip.png" :fallback "🗃️" :extensions ("zip" "tar" "tar.xz" "xz" "xfv" "7z"))
|
||
(treemacs-create-icon :file "todo.png" :fallback "🗃️" :extensions ("TODO" "todo" "Tasks" ))
|
||
(treemacs-create-icon :file "webassembly" :fallback "🗃️" :extensions ("wasm" "webasm" "webassembly"))
|
||
(treemacs-create-icon :file "python.png" :fallback "🗃️" :extensions ("py" "python"))))
|
||
|
||
(treemacs-load-theme 'Material)
|
||
|
||
#+end_src
|
||
|
||
#+RESULTS:
|
||
|
||
* Evil Mode
|
||
#+begin_src emacs-lisp
|
||
(use-package undo-tree
|
||
:init
|
||
(global-undo-tree-mode)
|
||
)
|
||
(use-package evil
|
||
:init
|
||
(setq evil-want-keybinding nil)
|
||
(setq evil-want-integration t)
|
||
(setq evil-want-C-u-scroll t)
|
||
(setq evil-want-C-i-jump nil)
|
||
(global-undo-tree-mode)
|
||
:config
|
||
(evil-set-undo-system 'undo-tree)
|
||
(evil-mode 1)
|
||
(define-key evil-insert-state-map (kbd "C-g") 'evil-normal-state)
|
||
(define-key evil-insert-state-map (kbd "C-h") 'evil-delete-backward-char-and-join)
|
||
|
||
;; Use visual line motions even outside of visual-line-mode buffers
|
||
(evil-global-set-key 'motion "j" 'evil-next-visual-line)
|
||
(evil-global-set-key 'motion "k" 'evil-previous-visual-line)
|
||
|
||
(evil-set-initial-state 'messages-buffer-mode 'normal)
|
||
(evil-set-initial-state 'dashboard-mode 'normal))
|
||
|
||
|
||
|
||
(use-package evil-collection
|
||
:after evil
|
||
:init
|
||
:config
|
||
(evil-collection-init))
|
||
|
||
|
||
#+end_src
|
||
|
||
#+RESULTS:
|
||
: t
|
||
|
||
* Suggestions
|
||
#+begin_src emacs-lisp
|
||
(use-package which-key
|
||
:init (which-key-mode)
|
||
:diminish which-key-mode
|
||
:config
|
||
(setq which-key-idle-delay 0.3))
|
||
|
||
|
||
|
||
;; (use-package ivy-rich
|
||
;; :init
|
||
;; (ivy-rich-mode 1))
|
||
;;
|
||
|
||
#+end_src
|
||
|
||
** Company-mode
|
||
#+begin_src emacs-lisp
|
||
(use-package company
|
||
:after lsp-mode
|
||
:hook (lsp-mode . company-mode)
|
||
:bind (:map company-active-map
|
||
("<tab>" . company-complete-selection))
|
||
(:map lsp-mode-map
|
||
("<tab>" . company-indent-or-complete-common))
|
||
:custom
|
||
(company-minimum-prefix-length 1)
|
||
(company-idle-delay 0.0))
|
||
|
||
;;(use-package company-box
|
||
;; :hook (company-mode . company-box-mode))
|
||
#+end_src
|
||
|
||
** Popup
|
||
#+begin_src emacs-lisp
|
||
;; (use-package ivy-postframe
|
||
;; :init
|
||
;; (ivy-posframe-mode 1)
|
||
;; ;; (setq ivy-posframe-display-functions-alist '((t . ivy-posframe-display-at-frame-center)))
|
||
;; ;; (setq ivy-posframe-display-functions-alist '((t . ivy-posframe-display-at-window-center)))
|
||
;; ;; (setq ivy-posframe-display-functions-alist '((t . ivy-posframe-display-at-frame-bottom-left)))
|
||
;; ;; (setq ivy-posframe-display-functions-alist '((t . ivy-posframe-display-at-window-bottom-left)))
|
||
;; ;; (setq ivy-posframe-display-functions-alist '((t . ivy-posframe-display-at-frame-top-center)))
|
||
;; )
|
||
|
||
#+end_src
|
||
* Keybindings
|
||
#+begin_src emacs-lisp
|
||
|
||
(use-package general)
|
||
(general-evil-setup)
|
||
|
||
(use-package ivy
|
||
:diminish
|
||
:bind (
|
||
("M-x" . counsel-M-x)
|
||
("C-s" . swiper)
|
||
:map ivy-minibuffer-map
|
||
("TAB" . ivy-alt-done)
|
||
("C-f" . ivy-alt-done)
|
||
("C-l" . ivy-alt-done)
|
||
("C-j" . ivy-next-line)
|
||
("C-k" . ivy-previous-line)
|
||
:map ivy-switch-buffer-map
|
||
("C-k" . ivy-previous-line)
|
||
("C-l" . ivy-done)
|
||
("C-d" . ivy-switch-buffer-kill)
|
||
:map ivy-reverse-i-search-map
|
||
("C-k" . ivy-previous-line)
|
||
("C-d" . ivy-reverse-i-search-kill))
|
||
:init
|
||
(ivy-mode 1))
|
||
(use-package counsel
|
||
:general
|
||
("C-x b" '(counsel-switch-buffer :which-key "switch buff"))
|
||
:bind (("C-M-j" . 'counsel-switch-buffer)
|
||
("C-x b" . 'counsel-switch-buffer)
|
||
("C-x C-b" . 'counsel-switch-buffer)
|
||
:map minibuffer-local-map
|
||
("C-r" . 'counsel-minibuffer-history))
|
||
:config
|
||
(counsel-mode 1))
|
||
(use-package counsel-projectile
|
||
:config (counsel-projectile-mode))
|
||
|
||
|
||
;; Keybindings
|
||
|
||
(defun add-to-map(keys func)
|
||
"Add a keybinding in evil mode from keys to func."
|
||
(define-key evil-normal-state-map (kbd keys) func)
|
||
(define-key evil-motion-state-map (kbd keys) func))
|
||
|
||
;;(add-to-map "<SPC>" nil)
|
||
;;(add-to-map "<SPC> <SPC>" 'counsel-M-x)
|
||
;; (add-to-map "<SPC> f" 'lusty-file-explorer)
|
||
;; (add-to-map "<SPC> b" 'lusty-buffer-explorer)
|
||
;;(add-to-map "<SPC> o" 'treemacs)
|
||
;;(add-to-map "<SPC> s" 'save-buffer)
|
||
;;(add-to-map "TAB" 'company-indent-or-complete-common)
|
||
(defun open-file (file)
|
||
"just more shortest function for opening the file"
|
||
(interactive)
|
||
((lambda (file) (interactive)
|
||
(find-file (expand-file-name (format "%s" file)))) file ) )
|
||
|
||
|
||
(general-nmap
|
||
:prefix "SPC"
|
||
;; dotfiles editing config
|
||
"SPC" '(counsel-M-x :which-key "M-x")
|
||
"o" '(treemacs :which-key "treemacs")
|
||
"f f" '(counsel-find-file :which-key "find-file")
|
||
"f r" '(counsel-buffer-or-recentf :which-key "recent files")
|
||
|
||
"b b" '(counsel-switch-buffer :which-key "switch buff")
|
||
|
||
"f e" '(lambda() (interactive) (find-file "~/.emacs.d/config.org") :which-key "config.org")
|
||
"f v" '(lambda() (interactive) (find-file "~/.config/nvim/init.vim" :which-key "neovim config" ))
|
||
"f d" '(lambda() (interactive) (find-file "~/dotfiles/home" :which-key "dotfiles dired" ))
|
||
"f a" '(lambda() (interactive) (find-file "~/.config/alacritty/alacritty.yml" :which-key "alacritty"))
|
||
"f b" '(lambda() (interactive) (find-file "~/Notes") :which-key "my brain")
|
||
)
|
||
|
||
(general-nmap "C-x b" (general-simulate-key "SPC b b"))
|
||
|
||
#+end_src
|
||
|
||
#+RESULTS:
|
||
|
||
* Org
|
||
** Pretty symbols
|
||
#+begin_src emacs-lisp
|
||
;; (lambda ()
|
||
;; (push '("TODO" . ?📥) prettify-symbols-alist)
|
||
;; (push '("DONE" . ?☑) prettify-symbols-alist)
|
||
;; (push '("NEXT" . ?⏭) prettify-symbols-alist)
|
||
;; (push '("IDEA" . ?💡) prettify-symbols-alist)
|
||
;; (push '("DREAM" . ?✨) prettify-symbols-alist)
|
||
;; )
|
||
|
||
(setq-default prettify-symbols-alist
|
||
'(("#+BEGIN_SRC" . "λ")
|
||
("#+END_SRC" . "λ")
|
||
("#+end_src" . "λ")
|
||
("#+begin_src" . "λ")
|
||
("TODO"." 🕤 ")
|
||
("DONE"." ✅ ")
|
||
("INBOX"." 📥 ")
|
||
("IDEA"." 💡 ")
|
||
("READ"." 🔖 ")
|
||
("DREAM"." ✨ ")
|
||
(":LOGBOOK:"." LOG ")
|
||
))
|
||
|
||
#+END_SRC
|
||
** My org-mode functions
|
||
#+begin_src emacs-lisp
|
||
(defun my/org-toggle-todo-and-fold ()
|
||
(interactive)
|
||
(save-excursion
|
||
(org-back-to-heading t) ;; Make sure command works even if point is
|
||
;; below target heading
|
||
(cond ((looking-at "\*+ TODO")
|
||
(org-todo "DONE")
|
||
(sleep-for 0.5)
|
||
(org-archive-subtree-default-with-confirmation)
|
||
)
|
||
((looking-at "\*+ DONE")
|
||
(org-todo "TODO")
|
||
(hide-subtree))
|
||
(t (message "Can only toggle between TODO and DONE.")))))
|
||
#+end_src
|
||
** Fonts
|
||
#+begin_src emacs-lisp
|
||
|
||
(set-face-attribute 'variable-pitch nil
|
||
;; :font "Cantarell"
|
||
:font "Hack"
|
||
:height 1.3
|
||
:weight 'light)
|
||
|
||
(set-face-attribute 'org-document-title nil :font "ubuntu" :weight 'bold :height 1.3)
|
||
(dolist (face '((org-level-1 . 1.1)
|
||
(org-level-2 . 0.9)
|
||
(org-level-3 . 0.8)
|
||
(org-level-4 . 0.8)
|
||
(org-level-5 . 0.8)
|
||
(org-level-6 . 0.8)
|
||
(org-level-7 . 0.8)
|
||
(org-level-8 . 0.8)))
|
||
(set-face-attribute (car face) nil :font "ubuntu" :weight 'bold :height (cdr face) ))
|
||
(require 'org-indent)
|
||
(set-face-attribute 'org-block nil :foreground nil :inherit 'fixed-pitch :font "Hack" )
|
||
(set-face-attribute 'org-table nil :inherit 'fixed-pitch)
|
||
(set-face-attribute 'org-formula nil :inherit 'fixed-pitch)
|
||
(set-face-attribute 'org-code nil :inherit '(shadow fixed-pitch))
|
||
(set-face-attribute 'org-indent nil :inherit '(org-hide fixed-pitch))
|
||
(set-face-attribute 'org-verbatim nil :inherit '(shadow fixed-pitch))
|
||
(set-face-attribute 'org-special-keyword nil :inherit '(font-lock-comment-face fixed-pitch))
|
||
(set-face-attribute 'org-meta-line nil :inherit '(font-lock-comment-face fixed-pitch))
|
||
(set-face-attribute 'org-checkbox nil :inherit 'fixed-pitch)
|
||
|
||
;; Get rid of the background on column views
|
||
(set-face-attribute 'org-column nil :background nil)
|
||
(set-face-attribute 'org-column-title nil :background nil)
|
||
(setq org-src-fontify-natively t)
|
||
|
||
|
||
#+end_src
|
||
|
||
#+RESULTS:
|
||
: t
|
||
|
||
** Org roam
|
||
#+begin_src emacs-lisp
|
||
|
||
(use-package org-roam
|
||
:straight
|
||
(:host github :repo "org-roam/org-roam" :branch "main" :files ("*.el" "out"))
|
||
:after org
|
||
:ensure t
|
||
:custom
|
||
(org-roam-directory (file-truename "~/Documents/KB/"))
|
||
:bind (("C-c n l" . org-roam-buffer-toggle)
|
||
("C-c n f" . org-roam-node-find)
|
||
("C-c n g" . org-roam-graph)
|
||
("C-c n i" . org-roam-node-insert)
|
||
("C-c n c" . org-roam-capture)
|
||
;; Dailies
|
||
("C-c n j" . org-roam-dailies-capture-today))
|
||
:config
|
||
;; If you're using a vertical completion framework, you might want a more informative completion interface
|
||
(setq org-roam-node-display-template (concat "${title:*} " (propertize "${tags:10}" 'face 'org-tag)))
|
||
(org-roam-db-autosync-mode)
|
||
;; If using org-roam-protocol
|
||
(require 'org-roam-protocol))
|
||
|
||
; (setq org-roam-v2-ack t)
|
||
|
||
(setq org-roam-directory (file-truename "~/Documents/KB"))
|
||
|
||
|
||
#+end_src
|
||
|
||
: org-roam-protocol
|
||
*** org-roam-ui
|
||
#+begin_src emacs-lisp
|
||
(use-package org-roam-ui
|
||
:straight
|
||
(:host github :repo "org-roam/org-roam-ui" :branch "main" :files ("*.el" "out"))
|
||
:after org-roam
|
||
normally we'd recommend hooking orui after org-roam, but since org-roam does not have
|
||
a hookable mode anymore, you're advised to pick something yourself
|
||
if you don't care about startup time, use
|
||
:hook (after-init . org-roam-ui-mode)
|
||
:config
|
||
(setq org-roam-ui-sync-theme t
|
||
org-roam-ui-follow t
|
||
org-roam-ui-update-on-save t
|
||
org-roam-ui-open-on-start t))
|
||
#+end_src
|
||
|
||
** Org mode
|
||
*** Org agenda commands
|
||
#+begin_src emacs-lisp
|
||
(setq org-agenda-settings '(
|
||
("d" "Dashboard 📜"
|
||
(
|
||
(tags "@morning" ((org-agenda-overriding-header "Eat the Frog 🐸")))
|
||
(todo "NEXT" ((org-agenda-overriding-header "Next Tasks ⏩")))
|
||
(todo "WAIT" ((org-agenda-overriding-header "Waiting tasks ⏰")))
|
||
(agenda "" ((org-deadline-warning-days 14)))
|
||
(todo "PROJECT" ((org-agenda-overriding-header "Active Projects ")))
|
||
(todo "INBOX" ((org-agenda-overriding-header "Inbox 📥")))
|
||
))
|
||
|
||
|
||
("w" "Wait Tasks ⏰"
|
||
(todo "WAIT" ((org-agenda-overriding-header "Wait Tasks")))
|
||
(todo "NEXT" ((org-agenda-overriding-header "Wait Tasks")))
|
||
)
|
||
("c" "Dated Tasks 📅" ((todo "CAL" ((org-agenda-overriding-header "Dated Tasks")))))
|
||
|
||
("S" "Somewhen ⌛" ((todo "TODO" ((org-agenda-overriding-header "Somewhen ")))))
|
||
("R" "Read list 📚" tags-todo "+readlist")
|
||
("W" "Watch list 🎦" tags-todo "+watchlist")
|
||
("I" "Ideas 💡" tags-todo "+idea")
|
||
("P" "petprojects 🐕" tags-todo "+petproject")
|
||
("B" "Things to buy 🛍" tags-todo "+shoplist")
|
||
|
||
;; My state/contexts
|
||
("s" . "My State and contexts")
|
||
("st" "Tired 🥱" tags-todo "+@tired/NEXT" ((org-agenda-overriding-header "Tired 🥱")))
|
||
("sh" "At home🏠" tags-todo "+@home/NEXT" ((org-agenda-overriding-header "At home🏠")))
|
||
("sc" "By a computer 💻" tags-todo "+@computer/NEXT" ((org-agenda-overriding-header "By a computer 💻")))
|
||
("ss" "On studies 🏫" tags-todo "+@school/NEXT" ((org-agenda-overriding-header "On studies 🏫")))
|
||
("so" "Online 🌐" tags-todo "+@online/NEXT" ((org-agenda-overriding-header "Online 🌐")))
|
||
("sO" "Outdoors🚶" tags-todo "+@outdoors/NEXT" ((org-agenda-overriding-header "Outdoors🚶")))
|
||
("sT" "To takeaway 👝 " tags-todo "+takeaway" ((org-agenda-overriding-header "To takeaway 👝 ")))
|
||
)
|
||
)
|
||
#+end_src
|
||
*** Org-mode config
|
||
#+begin_src emacs-lisp
|
||
|
||
(defun my/org-mode-setup()
|
||
(auto-fill-mode 0)
|
||
(visual-line-mode 1)
|
||
(setq evil-auto-indent 1)
|
||
(variable-pitch-mode t)
|
||
(prettify-symbols-mode +1)
|
||
(display-line-numbers-mode 0)
|
||
)
|
||
|
||
(use-package pdf-tools
|
||
:defer t
|
||
)
|
||
(use-package org
|
||
:straight
|
||
(:host github :repo "https://git.savannah.gnu.org/cgit/emacs/elpa.git" :branch "main" :files ("*.el" "out"))
|
||
;:demand t
|
||
;:load-path "~/.emacs.d/elpa/org-9.5.4/"
|
||
:hook ((org-mode . my/org-mode-setup)
|
||
(org-mode . variable-pitch-mode)
|
||
(org-mode . org-indent-mode)
|
||
(org-mode . prettify-symbols-mode)
|
||
)
|
||
:config (setq org-agenda-files `("~/Documents/GTD"))
|
||
(display-line-numbers-mode 0)
|
||
;(org-bullets-mode t)
|
||
;(org-indent-mode t)
|
||
;(setq org-ellipsis " ▸" org-hide-emphasis-markers t org-src-fontify-natively t
|
||
; org-src-tab-acts-natively t org-edit-src-content-indentation 2 org-hide-block-startup nil
|
||
; org-src-preserve-indentation nil org-startup-folded 'content org-cycle-separator-lines 2)
|
||
(setq org-agenda-start-with-log-mode t)
|
||
(setq org-log-done 'time)
|
||
(setq org-log-into-drawer t)
|
||
(setq org-todo-keyword-faces '(("TODO" . org-warning)
|
||
("STARTED" . "yellow")
|
||
("DREAM" . "pink")
|
||
("PROJECT" . "pink")
|
||
("IDEA" . "gold")
|
||
("READ" . "violet")
|
||
("ARTICLE" . "lightblue")
|
||
("CANCELED" .
|
||
(:foreground "blue"
|
||
:weight bold))))
|
||
|
||
(setq org-todo-keywords '((sequence "INBOX(i)" "PROJECT(p)" "TODO(t)" "NEXT(n)" "CAL(c)" "WAIT(w@/!)" "|" "DONE(d!)" "CANC(k@)")
|
||
))
|
||
(setq org-agenda-custom-commands org-agenda-settings)
|
||
|
||
|
||
:general (general-nmap :prefix "SPC a"
|
||
:keymap 'org-agenda-mode-map
|
||
"a" 'org-agenda
|
||
"d" 'my/org-toggle-todo-and-fold
|
||
))
|
||
(use-package org-bullets
|
||
:after org
|
||
:hook
|
||
((org-mode . org-bullets-mode)
|
||
)
|
||
)
|
||
|
||
|
||
#+end_src
|
||
|
||
#+RESULTS:
|
||
| org-tempo-setup | my/visual-fill | org-bullets-mode | variable-pitch-mode | my/org-mode-setup | #[0 \300\301\302\303\304$\207 [add-hook change-major-mode-hook org-show-all append local] 5] | #[0 \300\301\302\303\304$\207 [add-hook change-major-mode-hook org-babel-show-result-all append local] 5] | org-babel-result-hide-spec | org-babel-hide-all-hashes | #[0 \301\211\207 [imenu-create-index-function org-imenu-get-tree] 2] | (lambda nil (display-line-numbers-mode 0)) |
|
||
|
||
#+begin_src emacs-lisp
|
||
(defun my/visual-fill ()
|
||
(setq visual-fill-column-width 300
|
||
visual-fill-column-center-text t)
|
||
(visual-fill-column-mode 1))
|
||
(use-package visual-fill-column
|
||
:defer t
|
||
:hook (org-mode . my/visual-fill))
|
||
(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.
|
||
)
|
||
(require 'org-tempo)
|
||
(add-to-list 'org-structure-template-alist '("sh" . "src sh"))
|
||
(add-to-list 'org-structure-template-alist '("el" . "src emacs-lisp"))
|
||
(add-to-list 'org-structure-template-alist '("sc" . "src scheme"))
|
||
(add-to-list 'org-structure-template-alist '("ts" . "src typescript"))
|
||
(add-to-list 'org-structure-template-alist '("py" . "src python"))
|
||
(add-to-list 'org-structure-template-alist '("yaml" . "src yaml"))
|
||
(add-to-list 'org-structure-template-alist '("json" . "src json"))
|
||
|
||
|
||
|
||
#+end_src
|
||
|
||
#+RESULTS:
|
||
: ((json . src json) (yaml . src yaml) (py . src python) (ts . src typescript) (sc . src scheme) (el . src emacs-lisp) (sh . src sh) (a . export ascii) (c . center) (C . comment) (e . example) (E . export) (h . export html) (l . export latex) (q . quote) (s . src) (v . verse))
|
||
|
||
* Languages
|
||
** Flycheck
|
||
#+begin_src emacs-lisp
|
||
(use-package flycheck
|
||
:init
|
||
;;(flycheck-c/c++-clang-executable "c/c++-clang" "~/code/competitive/clang++")
|
||
|
||
)
|
||
(use-package flycheck-irony
|
||
:after flycheck
|
||
(add-hook 'flycheck-mode-hook #'flycheck-irony-setup)
|
||
)
|
||
#+end_src
|
||
** LSP
|
||
#+begin_src emacs-lisp
|
||
(use-package lsp-mode
|
||
:init
|
||
(setq lsp-keymap-prefix "C-SPC c")
|
||
;; (setq lsp-clients-clangd-args " --header-insertion-decorators=0 ")
|
||
;;(setq lsp-client-packages nil)
|
||
:hook (;; replace XXX-mode with concrete major-mode(e. g. python-mode)
|
||
(c++-mode . lsp)
|
||
;; if you want which-key integration
|
||
(lsp-mode . lsp-enable-which-key-integration))
|
||
:config
|
||
(add-hook 'c\+\+-mode-hook #'lsp-mode)
|
||
(add-hook 'rust-mode-hook #'lsp-mode)
|
||
(add-hook 'c-mode-hook #'lsp-mode)
|
||
|
||
;;(setq lsp-clients-clangd-executable "/home/horhik/code/competitive/clangd")
|
||
;;(setq lsp-clients-clangd-default-executable "/home/horhik/code/competitive/clangd")
|
||
;;(lsp-mode . lsp-enable-which-key-integration)
|
||
:commands (lsp lsp-deferred)
|
||
)
|
||
(use-package lsp-treemacs
|
||
:after lsp-mode
|
||
)
|
||
(use-package lsp-ivy)
|
||
(use-package lsp-ui
|
||
:after lsp)
|
||
;;(use-package company-lsp
|
||
;;:ensure t
|
||
;;:commands company-lsp
|
||
;;:config (push 'company-lsp company-backends))
|
||
|
||
#+end_src
|
||
|
||
** C/CPP
|
||
#+begin_src emacs-lisp
|
||
(use-package irony
|
||
:init
|
||
(add-hook 'c++-mode-hook 'irony-mode)
|
||
(add-hook 'c-mode-hook 'irony-mode)
|
||
(add-hook 'objc-mode-hook 'irony-mode)
|
||
(add-hook 'irony-mode-hook 'irony-cdb-autosetup-compile-options)
|
||
(setq irony-additional-clang-options
|
||
(append '("-std=c++17") irony-additional-clang-options))
|
||
)
|
||
|
||
|
||
(add-to-list 'auto-mode-alist '("\\.h\\'" . c++-mode))
|
||
(add-to-list 'auto-mode-alist '("\\.cxx\\'" . c++-mode))
|
||
(add-to-list 'auto-mode-alist '("\\.cpp\\'" . c++-mode))
|
||
(add-to-list 'auto-mode-alist '("\\.C\\'" . c++-mode))
|
||
;use-package ccls
|
||
; :ensure t
|
||
; :config
|
||
; (setq ccls-executable "ccls")
|
||
; (setq lsp-prefer-flymake nil)
|
||
; (setq-default flycheck-disabled-checkers '(c/c++-clang c/c++-cppcheck c/c++-gcc))
|
||
; :hook ((c-mode c++-mode objc-mode) .
|
||
; (lambda () (require 'ccls) (lsp))))
|
||
#+end_src
|
||
** Markdown
|
||
#+begin_src emacs-lisp
|
||
(use-package markdown-mode)
|
||
#+end_src
|
||
** Ocaml
|
||
#+begin_src emacs-lisp
|
||
(use-package tuareg)
|
||
#+end_src
|
||
|
||
** Nix
|
||
#+begin_src emacs-lisp
|
||
;; (use-package direnv
|
||
;; :config
|
||
;; (direnv-mode))
|
||
;; (add-hook 'lsp-mode-hook #'direnv-update-environment)
|
||
(use-package nix-mode)
|
||
#+end_src
|
||
|
||
** Rust
|
||
#+begin_src aemacs-lisp
|
||
(use-package rust-mode
|
||
:config
|
||
(setq rust-format-on-save t)
|
||
(add-hook 'rust-mode-hook
|
||
(lambda () (setq indent-tabs-mode nil)))
|
||
)
|
||
(use-package rustic
|
||
:config
|
||
(setq rustic-lsp-server 'rls)
|
||
)
|
||
|
||
#+end_src
|
||
|
||
* Mastodon
|
||
#+begin_src emacs-lisp
|
||
(use-package mastodon
|
||
:config
|
||
(setq mastodon-instance-url "https://mastodon.ml")
|
||
)
|
||
#+end_src
|
||
* Default file
|
||
#+begin_src emacs-lisp
|
||
;(org-agenda)
|
||
|
||
#+end_src
|