Some code should be executing before tangling and evaluating this file. So, look at init.el
Add 4 main package archives
(require 'package)
(add-to-list 'package-archives '("gnu" . "https://elpa.gnu.org/packages/") t)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(add-to-list 'package-archives '("melpa-stable" . "https://stable.melpa.org/packages/") t)
(add-to-list 'package-archives '("nongnu" . "https://elpa.nongnu.org/nongnu/") t)Set priorites for package-archives
(setq package-archive-priorities
'(("gnu" . 40)
("nongnu" . 30)
("melpa-stable" . 20)
("melpa" . 10)))See layout.org file – link
(use-package reverse-im
:ensure t
:custom
(reverse-im-input-methods '("cyrillic-colemak"))
:config
(reverse-im-mode t)
:pin melpa)If frame is devided by top and bottom, change it to left and right. Transpose operation like with matrices and tables.
(use-package transpose-frame :ensure t)Enable tab-bar-mode
(tab-bar-mode)Press C-M-i to activate emacs autocomplete.
Frankly speaking, I copy this snippet from the official vertico docs:
https://github.com/minad/vertico?tab=readme-ov-file#completion-at-point-and-completion-in-region
This configuration give my ability to perform fuzzy search. Like with dmenu, rofi or fzf, but in emacs.
(use-package vertico
:init (vertico-mode)
(setq completion-in-region-function
(lambda (&rest args)
(apply (if vertico-mode
#'consult-completion-in-region
#'completion--in-region)
args)))
:ensure t)
(use-package consult :ensure t)
(use-package consult-eglot :ensure t)This should be executed before loading this file, so this forms also present in init.el.
(defvar *fs-encoding* 'utf-8)
(prefer-coding-system 'utf-8-unix)Show both icons and caption
(setq tool-bar-style 'both)use emacs icons instead of gtk ones
(advice-add #'x-gtk-map-stock :override #'ignore)(defalias 'yes-or-no #'y-or-n-p)Enable only in graphical mode.
(use-package modus-themes :ensure t)
(when (display-graphic-p)
(load-theme 'modus-operandi t)
(enable-theme 'modus-operandi))I structured my config by use cases I apply emacs in.
I use build in dired for now.
Copy, move, rename files across panes, like two-panel file manager
(setq dired-dwim-target t)(use-package magit :ensure t)
(use-package git-modes :ensure t)(use-package howm :config
(setq howm-view-use-grep t)
:ensure t)Function to add prop-line, so I can use howm with any other major mode, with org-mode for examlpe
(defun howm-insert-prop-line (mode)
"Activate major mode and modify the file so that this mode is activated
automatically the next time it is opened"
(interactive (list (intern-soft
(completing-read "Choose major mode: "
(mapcar #'cdr auto-mode-alist)))))
(howm-mode)
(unless (or (null mode)
(eq mode major-mode))
(funcall mode)
(howm-mode)
(add-file-local-variable-prop-line
'mode (intern (string-trim-right (symbol-name mode) "-mode\\'")))))(use-package ispell
:defer t
:custom
(ispell-local-dictionary-alist
'(("russian"
"[АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯабвгдеёжзийклмнопрстуфхцчшщьыъэюяіў’A-Za-z]"
"[^АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯабвгдеёжзийклмнопрстуфхцчшщьыъэюяіў’A-Za-z]"
"[-']" nil ("-d" "be_BY,ru_RU,en_US") nil utf-8)))
(ispell-program-name "hunspell")
(ispell-dictionary "russian")
(ispell-really-aspell nil)
(ispell-really-hunspell t)
(ispell-encoding8-command t)
(ispell-silently-savep t))(org-babel-do-load-languages
'org-babel-load-languages
'((C . t)
(shell . t)
(lisp . t)
(emacs-lisp . t)
(python . t)
(dot . t)
(plantuml . t)))Installed plantuml from openSUSE package manager.
(setq org-plantuml-exec-mode 'plantuml) (use-package anki-editor :ensure t)(use-package pomm :ensure t :pin melpa)(setq org-todo-keywords
'((sequence "TODO" "|" "DONE" "FAIL" "NGMI" )))Use C locale for time on windows for org-pomodoro
(when (eq system-type 'windows-nt)
(setq system-time-locale "C"))(use-package auctex :ensure t)I write my coursework in xelatex.
(setq-default TeX-engine 'xetex)From auctex info:
(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq-default TeX-master nil)(use-package pyvenv :ensure t)(use-package elpy :ensure t)(use-package slime :ensure t)(setq inferior-lisp-program "sbcl")(use-package editorconfig :ensure t)Compiler explorer
(use-package rmsbolt :ensure t)Assembly
(use-package nasm-mode :ensure t)Systemd units
(use-package systemd :ensure t)Comma separated values
(use-package csv :ensure t)YAML
(use-package yaml-mode :ensure t)(use-package verilog-mode :ensure t)(use-package verilog-ext :ensure t)(use-package eat
:config
(setq eat-kill-buffer-on-exit t)
(setq eat-enable-mouse t)
:ensure t)Elfeed in my config is interconneted with howm.
(use-package elfeed
:ensure t
:config
(setq elfeed-db-directory "~/howm/.elfeed")
(setq elfeed-curl-program-name "curl"))
(use-package elfeed-protocol) (use-package elfeed-org
:ensure t
:config
(elfeed-org)
:after howm)(defun my-elfeed-file-names-in-howm ()
"Return list of absolute filenames of org-elfeed files in howm"
(delete-dups
(mapcar #'car (howm-grep "\:elfeed\:"
(howm-files-in-directory howm-directory)))))
(define-advice elfeed (:before (&rest _args))
(setq rmh-elfeed-org-files (my-elfeed-file-names-in-howm)))
(define-advice elfeed-update (:before (&rest _args))
(setq rmh-elfeed-org-files (my-elfeed-file-names-in-howm)))(setq
user-full-name "Корякин Артём"
user-mail-address "[email protected]"
send-mail-function 'smtpmail-send-it
smtpmail-smtp-server "smtp.gmail.com"
smtpmail-stream-type 'starttls ;; was nil (upgrade with STARTTLS if possible)
smtpmail-smtp-service 587
smtpmail-servers-requiring-authorization "*"
gnus-save-score t
gnus-startup-file "~/howm/.newsrc"
gnus-backup-startup-file 'never
gnus-select-method
'(nnimap "gmail"
(nnimap-address "imap.gmail.com")
(nnmail-expiry-target "nnimap+gmail:[Gmail]/Корзина")
(nnimap-server-port 993)
(nnimap-stream ssl)
(gnus-search-engine gnus-search-imap)
(nnmail-expiry-wait 5)))(use-package nov :ensure t)