2025-04-26 11:41:01 +06:00

50 KiB
Raw Blame History

#+TITLE:Config #+AUTH

auto install packages

(require 'package)
;; (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(setq package-archives '(("melpa" . "https://melpa.org/packages/")
                         ("gnu" . "https://elpa.gnu.org/packages/")))
(package-initialize)

(unless package-archive-contents
  (package-refresh-contents))

;; Список пакетов для установки.
;; (defvar my-required-packages
;;   '(doom-themes
;;     doom-modeline
;;     evil
;;     evil-collection
;;     evil-surround
;;     evil-snipe
;;     which-key
;;     general
;;     key-chord
;;     toc-org
;;     org-bullets
;;     projectile
;;     sudo-edit
;;     ivy
;;     counsel
;;     harpoon
;;     bm
;;     vterm
;;     org-download
;;     restclient
;;     magit
;;     magit-delta
;;     image-dired
;;     yaml-mode

;;     ;; decorations
;;     rainbow-mode
;;     all-the-icons
;;     all-the-icons-dired ;; M-x all-the-icons-install-fonts
;;     centered-window
;;     nyan-mode
;;     perfect-margin
;;     hl-todo
;;     ligature

;;     tree-sitter
;;     diff-hl
;;     dired-subtree
;;     tree-sitter-langs
;;     flycheck
;;     flycheck-pycheckers
;;     ;; python
;;     elpy
;;     ;; copilot
;;     ;; editorconfig
;;     ; jsonrpc
;;     haskell-mode

;;     ;; frontend
;;     web-mode
;;    ))

;; sudo-edit
;; dired-subtree
;; magit
;; org-bullets
;; hl-todo
;; rainbow-mode

;; Список пакетов для установки.
(defvar my-required-packages
  '(org-download
   ))

;; Установите недостающие пакеты.
(dolist (p my-required-packages)
  (unless (package-installed-p p)
    (package-install p)))

Setup use-package

;; This is only needed once, near the top of the file
(require 'use-package)

common

(setq make-backup-files nil)                              ;  Отключение создания файлов резервных копий (файлов с суффиксом ~)
(setq auto-save-default nil)                              ;  Отключение автосохранения и создания файлов с префиксом .#

(setq-default isearch-lazy-highlight t)                   ;  Включение "ленивой" подсветки при поиске

(global-visual-line-mode t)                               ;  Включение переноса строк вместо горизонтального скролла
(setq-default display-line-numbers 'relative)             ;  Включение относительных номеров строк

(prefer-coding-system 'utf-8)                             ;  Установка предпочтительной системы кодирования на UTF-8
(set-default-coding-systems 'utf-8)                       ;  Установка системы кодирования по умолчанию на UTF-8
(set-terminal-coding-system 'utf-8)                       ;  Установка системы кодирования терминала на UTF-8
(set-keyboard-coding-system 'utf-8)                       ;  Установка системы кодирования клавиатуры на UTF-8
(setq default-buffer-file-coding-system 'utf-8)           ;  Установка системы кодирования файловых буферов на UTF-8
(setq scroll-conservatively 10000)                        ;  Установка плавного скроллинга без резкого перемещения экрана
(electric-pair-mode 1)                                    ;  автоматически закрывать скопки
(add-hook 'before-save-hook 'delete-trailing-whitespace)  ;  Удаление пустых пробелов в конце строк перед сохранением файла
(blink-cursor-mode 0)                                     ;  cursorline
(setq display-fill-column-indicator nil)                  ;  отключить вертикальные линии
(setq warning-minimum-level :error)                       ;  отключить предупреждения

;; (setq indent-tabs-mode nil)  ;; Использовать пробелы вместо табов
;; (setq tab-width 4)

UI

(setq inhibit-startup-screen t)                           ;  Отключение стартового экрана при запуске Emacs
(menu-bar-mode -1)                                        ;  Отключение меню-бара
(tool-bar-mode -1)                                        ;  Отключение панели инструментов
(scroll-bar-mode -1)                                      ;  Отключение вертикальной полосы прокрутки
(show-paren-mode 1)                                       ;  Включение подсветки соответствующих скобок

Cursor LIne

(global-hl-line-mode 1)                                   ;  cursor line

main packages

General keybindings

https://github.com/noctuid/general.el

Setup

(use-package general
  :ensure t
  :config
  (general-evil-setup)

  (general-create-definer spc-leader
    :states '(normal insert visual emacs)
    :keymaps 'override
    :prefix "SPC"   ;; set leader key
    :global-prefix "M-SPC")) ;; access leader in insert mode

KeyBind

(defun select-all ()
  "Выделить весь буфер."
  (interactive)
  (goto-char (point-min))
  (push-mark (point-max) nil t))

(spc-leader
  "8" '(save-buffer :wk "save file")
  "2" '(evil-quit :wk "quit file")
  "7" '(evil-first-non-blank :wk "first non blank")
  "9" '(evil-last-non-blank :wk "last non blank")
  "s a" '(select-all :wk "last non blank")

  "h r r" '((lambda () (interactive) (load-file "/home/fs/.emacs.d/init.el")) :wk "Reload emacs config")
)

Window move

(global-unset-key (kbd "C-j"))

(global-set-key (kbd "C-h") 'windmove-left)  ;; Alt-h для перехода влево
(global-set-key (kbd "C-l") 'windmove-right) ;; Alt-l для перехода вправо
(global-set-key (kbd "C-k") 'windmove-up)    ;; Alt-k для перехода вверх
(global-set-key (kbd "C-j") 'windmove-down)  ;; Alt-j для перехода вниз

Evil Mode

https://github.com/emacs-evil/evil

Setup

(use-package evil
  :ensure t
  :init
  (setq evil-want-integration t)
  (setq evil-want-keybinding nil)
  (setq evil-vsplit-window-right t)
  (setq evil-split-window-below t)
  (setq evil-want-C-u-scroll t)
  :config
  (evil-mode 1)
  (define-key evil-normal-state-map "p" 'evil-paste-after)
  (setq evil-kill-on-visual-paste nil)

  (define-key evil-normal-state-map (kbd ",") 'evil-scroll-up)
  (define-key evil-normal-state-map (kbd ".") 'evil-scroll-down)
  (define-key evil-normal-state-map (kbd "'") 'evil-execute-macro)
)

(use-package evil-collection
  :after evil
  :ensure t
  :config
  (setq evil-collection-mode-list '(dashboard dired ibuffer))
  (evil-collection-init))

(use-package evil-surround
  :ensure t
  :config
  (global-evil-surround-mode 1)
  (setq-default evil-surround-pairs-alist '((?\( . ("(" . ")"))
                                            (?\[ . ("[" . "]"))
                                            (?\{ . ("{" . "}"))
                                            (?\" . ("\"" . "\""))
                                            (?\` . ("`" . "`"))
                                            (?\' . ("'" . "'"))
                                            (?\) . ("(" . ")"))
                                            (?\] . ("[" . "]"))
                                            (?\} . ("{" . "}")))))

KeyBing

(use-package key-chord
  :ensure t
  :config
  (key-chord-mode 1)
  (key-chord-define evil-insert-state-map "jk" 'evil-normal-state)
  (key-chord-define evil-insert-state-map "kj" 'evil-normal-state))

(spc-leader
  "l l" 'evil-scroll-line-to-center)

Ivy

пакет для Emacs, который предоставляет интерфейс для интерактивного выбора (completion) и навигации. Это часть экосистемы swiper и counsel и часто используется для упрощения работы с различными функциями Emacs

Setup

(use-package ivy
  :ensure t
  :config
  (ivy-mode 1)  ;; Включение Ivy
  :bind (:map ivy-minibuffer-map
              ("C-l" . ivy-immediate-done)  ;; Завершить без проверки
              ("RET" . ivy-done)            ;; Завершить выбор
              ("<return>" . ivy-done)       ;; Завершить выбор
              ("C-j" . ivy-next-line)       ;; Перейти к следующей строке
              ("C-k" . ivy-previous-line))  ;; Перейти к предыдущей строке
  :custom
  (ivy-use-virtual-buffers t)  ;; Показывать виртуальные буферы (например, недавние файлы)
  (ivy-count-format "(%d/%d) "))  ;; Показывать счетчик выбора

Counsel

(use-package counsel
  :ensure t
  :config
  ;; Настройка команды fzf для counsel
  (setq counsel-fzf-cmd
        (concat
         "find . -type f -not -path '*/.*' 2>&1 | "
         "grep -v 'Permission denied' | "
         "grep -v './env/' | "
         "grep -v './fonts/' | "
         "grep -v './__pycache__/' | "
         "grep -v 'site-packages' | "
         "grep -v '.pyc' | "
         "grep -v '_minted' | "
         "fzf -f '%s'"))
  ;; Включение counsel для различных функций
  :bind (("M-x" . counsel-M-x)                ;; Улучшенная команда M-x
         ))

показывать ошибки при rg поиске

(with-eval-after-load 'counsel
  (advice-add 'counsel-rg
              :around
              (lambda (func &rest args)
                (cl-flet ((filter-func (code) (if (= code 2) 0 code)))
                  (unwind-protect
                      (progn (advice-add 'process-exit-status :filter-return #'filter-func)
                             (apply func args))
                    (advice-remove 'process-exit-status #'filter-func))))))

dired

setup

(require 'dired)
(setq dired-listing-switches "-alXGh --group-directories-first"
      dired-recursive-copies 'always
      dired-recursive-deletes 'top
      global-auto-revert-non-file-buffers t
      auto-revert-verbose nil
      dired-dwim-target t
      wdired-allow-to-change-permissions t)

открыть файл в вертикально разделенном экране

(defun dired-open-split-horizontal ()
  "In dired, open current file in another window if exists, otherwise split window horizontally."
  (interactive)
  ;; Сохраняем путь текущего файла
  (let ((current-file (dired-get-file-for-visit)))
    ;; Проверяем, есть ли другое окно
    (if (one-window-p)
        (split-window-horizontally))
    ;; Переключаемся на другое окно
    (other-window 1)
    ;; Открываем файл или каталог, используя сохраненный путь
    (find-file current-file))
    (other-window 1)
)

(define-key dired-mode-map (kbd "s") 'dired-open-in-split-window)

(evil-define-key 'normal dired-mode-map (kbd "s") 'dired-open-split-horizontal)
(evil-define-key 'normal dired-mode-map (kbd "h") 'dired-up-directory)

dired subtree

(require 'dired-subtree)

(evil-define-key 'normal dired-mode-map (kbd "i") 'dired-subtree-insert)
(evil-define-key 'normal dired-mode-map (kbd "r") 'dired-subtree-remove)

открыть pcmanfm

(defun dired-open-pcmanfm ()
  "Open the current directory in Dired with PCManFM."
  (interactive)
  (let ((current-dir (dired-current-directory)))
    (start-process "pcmanfm" nil "pcmanfm" current-dir)))

функция для копирования текущего пути

(defun copy-current-file-path-to-clipboard ()
  "Copy the current buffer file name to the clipboard."
  (interactive)
  (let ((filename (if (equal major-mode 'dired-mode)
                      default-directory
                    (buffer-file-name))))
    (when filename
      (kill-new filename)
      (message "Copied buffer file name '%s' to the clipboard." filename))))

KeyBind

(spc-leader
  "d" '(:ignore t :wk "dired")
  "d o" '(dired :wk "open dired")

  "d c" '(:ignore t :wk "copy/crete")
  "d c c" '(dired-do-copy :wk "dired copy")
  "d c d" '(dired-create-directory :wk "create dir")
  "d c f" '(dired-create-empty-file :wk "crete file")
  "d c p" '(copy-current-file-path-to-clipboard :wk "copy file path to clipboard")
  "d r" '(dired-do-rename :wk "renema & move")

  "d p" '(:ignore t :wk "permissions")
  "d p p" '(dired-do-chmod :wk "chmod")
  "d p o" '(dired-do-chown :wk "chown")

  "d h" '(dired-hide-details-mode :wk "hide/show deteils")
)

Image Viewer

(setq imagemagick-enabled-types '("PNG" "JPEG" "GIF" "TIFF"))
(setq image-use-external-converter t)

openwith

(use-package openwith
  :ensure t
  :config
  (openwith-mode t)
  ;; :defer t
  )

(defun activate-openwith()
    (setq openwith-associations
        (list (list (openwith-make-extension-regexp '("pdf" "djvu"))
                    "atril" '(file))
              ;; (list (openwith-make-extension-regexp '("flac" "mp3" "wav"))
              ;;       "vlc" '(file))
              ;; (list (openwith-make-extension-regexp '("bmp" "jpeg" "jpg" "png" "webp"))
              ;;       "nsxiv -t " '(file))
              (list (openwith-make-extension-regexp '("mpv" "mkv" "mp4" "mov"))
                    "mpv" '(file))
              (list (openwith-make-extension-regexp '("doc" "docx" "odt"))
                    "libreoffice" '("--writer" file))
              (list (openwith-make-extension-regexp '("ods" "xls" "xlsx"))
                    "libreoffice" '("--calc" file))
              (list (openwith-make-extension-regexp '("odp" "pps" "ppt" "pptx"))
                    "libreoffice" '("--impress" file))
              ))
)

;; Отключить автоматическое открытие изображений в Emacs
(setq auto-mode-alist (rassq-delete-all 'image-mode auto-mode-alist))

;; Функция для отключения openwith-mode в org-mode
(defun disable-openwith-in-org-mode ()
  "Disable openwith-mode in org-mode."
  (when openwith-mode
    (openwith-mode -1)))

;; Добавляем хук для отключения openwith-mode в org-mode
(add-hook 'org-mode-hook 'disable-openwith-in-org-mode)
;; Добавляем хук для активации openwith-mode в dired-mode
(add-hook 'dired-mode-hook 'activate-openwith)


;; setup open when make frame
(defun setup/openwith ()
  "Activate openwith in Dired mode."
  (when (derived-mode-p 'dired-mode)
    (activate-openwith)))

(add-hook 'after-make-frame-functions
          (lambda (_frame)
            (with-current-buffer (current-buffer)
              (setup/openwith))))

org-download

(require 'org-download)
(defun my-org-download-set-dir ()
        "Set `org-download-image-dir` to the directory of the current
        buffer's file."
        (setq-local org-download-image-dir (concat (file-name-directory
        (buffer-file-name)) "/images/" (file-name-base buffer-file-name) "/") ))

(add-hook 'org-mode-hook 'my-org-download-set-dir)
(add-hook 'dired-mode-hook 'org-download-enable)

perspective

(use-package perspective
  :ensure t
  :config
  (setq persp-mode-prefix-key nil
        persp-suppress-no-prefix-key-warning t)
  (persp-mode))

(spc-leader
  "w" '(:ignore t :wk "workspace")
  "w i" '(persp-switch :wk "switch workspace")
  "w n" '(persp-next :wk "next workspace")
  "w p" '(persp-prev :wk "prev workspace")
  "w k" '(persp-kill :wk "kill workspace")
  "w r" '(persp-rename :wk "rename workspace")

  "w l" '(persp-state-load :wk "state load")
  "w s" '(persp-state-save :wk "state save")

  "w 1" '((lambda () (interactive) (persp-switch-by-number 1)) :wk "1")
  "w 2" '((lambda () (interactive) (persp-switch-by-number 2)) :wk "2")
  "w 3" '((lambda () (interactive) (persp-switch-by-number 3)) :wk "3")
  "w 4" '((lambda () (interactive) (persp-switch-by-number 4)) :wk "4")
  "w 5" '((lambda () (interactive) (persp-switch-by-number 5)) :wk "5")
  "w 6" '((lambda () (interactive) (persp-switch-by-number 6)) :wk "6")
  "w 7" '((lambda () (interactive) (persp-switch-by-number 7)) :wk "7")
  "w 8" '((lambda () (interactive) (persp-switch-by-number 8)) :wk "8")
  "w 9" '((lambda () (interactive) (persp-switch-by-number 9)) :wk "9")
)

anzu

улучшенный интерфейс для поиска и замены текста

(use-package anzu
  :ensure t
  :config
)

(use-package evil-anzu
  :ensure t
  :after (evil anzu)
  :config
  (setq anzu-search-threshold 0)
  (setq anzu-cons-mode-line-p nil)
  (global-anzu-mode 1))

doom-modeline

(use-package doom-modeline
  :ensure t
  :hook (after-init . doom-modeline-mode)  ;; Включает doom-modeline после инициализации Emacs
)

NeoTree

Setup

(use-package neotree
  :init
  :ensure t
  :bind ("<f8>" . neotree-toggle)
  :config
  ;; Отображать файлы и папки на том же уровне
  (setq-default neo-smart-open t)
  ;; Вертикальное расположение окна neotree
  (setq neo-window-position 'left)

  ;; Активация пакетов
  (use-package all-the-icons :ensure t)
  (setq neo-theme (if (display-graphic-p) 'icons 'arrow))
  (setq neo-window-fixed-size nil)
  (setq neo-smart-open t)
  (setq neo-window-width 50)
  )

(add-hook 'neotree-mode-hook
          (lambda ()
            (define-key evil-normal-state-local-map (kbd "q") 'neotree-hide)
            (define-key evil-normal-state-local-map (kbd "RET") 'neotree-enter)
            (define-key evil-normal-state-local-map (kbd "g") 'neotree-refresh)
            (define-key evil-normal-state-local-map (kbd "f") 'neotree-create-node)
            ))

KeyBind

(spc-leader
  "c c" '(neotree-show :wk "toggle neoTree")
)

file (copy file, open file in dired)

Dired function

(defun open-current-directory-in-dired ()
  "Open the current directory of the current file in Dired.
If a Dired buffer is already opened, navigate to that buffer."
  (interactive)
  (let ((dir (file-name-directory (or buffer-file-name default-directory))))
    (if (get-buffer-window (dired-noselect dir))
        (switch-to-buffer-other-window (dired-noselect dir))
      (dired-jump nil dir))))

transpose-frame

(use-package transpose-frame
  :ensure t
  :bind (
    ("C-t" . transpose-frame)
))
(spc-leader
  "f" '(:ignore t :wk "file/frame")
  "f t" '(transpose-frame :wk "transpose-frame")
  "f c" '(copy-file :wk "copy file")
  "f o" '(open-current-directory-in-dired :wk "open in dired"))

bm-marks / org tangle

(spc-leader
  "m" '(:ignore t :wk "marks")
  "m a" '(bm-toggle :wk "toggle mark")
  ;; "m n" '(bm-next :wk "next mark")
  "m n" '(lambda () (interactive) (bm-next) (recenter) :wk "next mark")
  "m p" '(lambda () (interactive) (bm-previous) (recenter) :wk "prev mark")
  ;; "m p" '(bm-previous :wk "prev mark")
  "m l" '(bm-show :wk "list marks")
  "m g" '(lambda () (interactive) (bm-show-goto-bookmark) (recenter) :wk "goto bookmark")
  "m c" '(bm-remove-all-all-buffers :wk "claer mark")

  "m 8" '(org-babel-tangle :wk "org-babel-tangle"))

(setq bm-marker 'bm-marker-left)
(setq bm-highlight-style nil)
(setq bm-highlight-style 'bm-highlight-only-fringe)
(custom-set-faces
 '(bm-face ((t (:background "yellow" :foreground "black" :weight bold)))))

project / projectile

setup projectile

(use-package projectile
  :ensure t
  :init
  (projectile-mode +1)
  :config
  (setq projectile-completion-system 'ivy))

KeyBind

add and switch project

(defun projectile/open-and-switch-project (directory)
  " - "
  (interactive (list (read-directory-name "What directory? ")))
  (let (
    (projectile-file-path (concat directory "/.projectile"))
    (git-directory-path (concat directory "/.git")))
    (unless (file-directory-p git-directory-path)
      (unless (file-exists-p projectile-file-path)
        (make-empty-file projectile-file-path)))
    (projectile-add-known-project directory)))

Search M-x commands with fzf

(use-package fzf
  :ensure t
  :init (setenv "FZF_DEFAULT_COMMAND" "fd --type f")
)

hot keys

(spc-leader
  "," '(find-file :wk "find file")
  "SPC" '(counsel-fzf :wk "fzf find file")
  "." '(swiper :wk "swiper")

  "p" '(:ignore t :wk "projectile")
  "p a" '(projectile/open-and-switch-project :wk "add project and switch")
  "p s" '(projectile-switch-project :wk "switch project")
  "p g" '(counsel-rg :wk "project tile grep")
  ;; "p g" '(lambda () (interactive) (counsel-rg) (recenter) :wk "project tile grep")

  "b i" '(projectile-ibuffer :wk "Switch buffer")
  "b n" '(projectile-next-project-buffer :wk "next project buffer")
  "b p" '(projectile-previous-project-buffer :wk "previous project buffer"))

buffer & bookmarks & harpoon

(spc-leader
  ;; buffer
  "b" '(:ignore t :wk "buffer")
  ;; "b i" '(counsel-ibuffer :wk "Switch ibuffer")
  "b i" '(ibuffer :wk "Switch ibuffer")
  "b c" '(counsel-ibuffer :wk "counsel Switch ibuffer")
  "b b" '(projectile-switch-to-buffer :wk "Switch buffer")
  "b m" '(rename-buffer :wk "rename buffer")

  "b k" '(:ignore t :wk "kill buffer")
  "b k t" '(kill-this-buffer :wk "Kill this buffer")
  "b k k" '(kill-buffer :wk "Kill buffer in imenu")

  ;; bookmark
  "b s" '(bookmark-set :wk "set bookmarks")
  "b d" '(bookmark-delete :wk "delete bookmarks")
  "b l" '(list-bookmarks :wk "list bookmarks")
  "b j" '(bookmark-jump :wk "list jump")
  "b a" '(bookmark-set :wk "bookmarks set")
  "b r" '(revert-buffer :wk "Reload buffer"))

(spc-leader
  )

(spc-leader
  "TAB" '(:ignore t :wk "?")
  "TAB TAB" '(comment-line :wk "comment line")
)

(spc-leader
  "h" '(:ignore t :wk "help & harpoon")
  "h a" '(harpoon-add-file :wk "add to harpoon")
  "h c" '(harpoon-clear :wk "harboon clear")
  "h l" '(harpoon-toggle-quick-menu :wk "toggle menu")
  "h m" '(harpoon-quick-menu-hydra :wk "quick menu")

  "h 1" '(harpoon-go-to-1 :wk "1")
  "h 2" '(harpoon-go-to-2 :wk "2")
  "h 3" '(harpoon-go-to-3 :wk "3")
  "h 4" '(harpoon-go-to-4 :wk "4")
  "h 5" '(harpoon-go-to-5 :wk "5")

  "h d" '(harpoon-delete-item :wk "delete item")
)

Sudo Edit & code (sudo edit/split/perfect margin/json)

Perfect margin settings

;; (setq perfect-margin-visible-width 150)
(setq perfect-margin-visible-width 180)

KeyBind

(use-package sudo-edit
  :ensure t)

(spc-leader
  "c" '(:ignore t :wk "code")
  "c s" '(sudo-edit :wk "sudo-edit")
  "c u" '(comment-line :wk "comment line")

  "s" '(:ignore t :wk "split window")
  "s h" '(split-window-right :wk "split window horizontaly")
  "s v" '(split-window-below :wk "split window verticalty")

  "c p" '(perfect-margin-mode :wk "center")
  "c j" '(json-pretty-print :wk "json")
)

Magit

(require 'magit)
  (spc-leader
    "g" '(:ignore t :wk "git")
    "g g" '(magit :wk "magit")
    "g a" '(magit-stage-buffer-file :wk "add curent file")
    "g u" '(magit-unstage-buffer-file :wk "unstage current file")

    "g l" '(:ignore t :wk "log")
    "g l g" '(magit-log-current :wk "log")
    "g l l" '(magit-log-buffer-file :wk "log buffer")

    "g c" '(magit-commit-create t :wk "commit")

    "g b" '(:ignore t :wk "branch")
    "g b b" '(magit-branch-checkout t :wk "checkout")
    "g b c" '(magit-branch-create t :wk "create branch")
    "g b p" '(magit-pull-branch t :wk "pull")

    "g s" '(:ignore t :wk "stash")
    "g s s" '(magit-stash t :wk "stash")
    "g s p" '(magit-stash-pop t :wk "stash pop")

    "g d" '(:ignore t :wk "diff")
    "g d d" '(magit-diff-buffer-file :wk "log buffer")
    "g d g" '(magit-diff-unstaged :wk "diff unstaged buffer")
    "g d s" '(magit-diff-staged :wk "diff staged buffer")

    "g f" '(magit-fetch :wk "fetch")
  )

ORG settings

org hot key

(spc-leader
  "o" '(:ignore t :wk "org hot key")
  "o c" '(org-time-stamp :wk "calendar paste date")
  "o l" '(org-shiftmetaright :wk "move metric right")
  "o h" '(org-shiftmetaleft :wk "move metric left")
  "o t" '(org-tree-to-indirect-buffer :wk "tree to inderect buffer")
  "o o" '(org-cycle-global :wk "org cycle global")
  "o ;" '(org-cycle :wk "org cycle global")
  "o i" '(org-display-inline-images :wk "display image")

  "o m" '(org-babel-execute-src-block :wk "org babel execute")
  "o e" '(org-edit-src-code :wk "org babel execute")
  "o r" '(org-reset-checkbox-state-subtree :wk "reset checkboxs")
  "o g" '(org-agenda :wk "org agenda")
  "o m" '(eval-buffer :wk "eval buffer")
  "o k" '(org-ctrl-c-minus :wk "eval buffer")

  "h RET" '(org-meta-return :wk "org return (insert lists))")
)

(with-eval-after-load 'org
  (define-key org-mode-map (kbd "M-h") nil))

Org Temo chet sheet

Typing the below + TAB Expands to …
<a '#+BEGIN_EXPORT ascii' … '#+END_EXPORT
<c '#+BEGIN_CENTER' … '#+END_CENTER'
<C '#+BEGIN_COMMENT' … '#+END_COMMENT'
<e '#+BEGIN_EXAMPLE' … '#+END_EXAMPLE'
<E '#+BEGIN_EXPORT' … '#+END_EXPORT'
<h '#+BEGIN_EXPORT html' … '#+END_EXPORT'
<l '#+BEGIN_EXPORT latex' … '#+END_EXPORT'
<q '#+BEGIN_QUOTE' … '#+END_QUOTE'
<s '#+BEGIN_SRC' … '#+END_SRC'
<v '#+BEGIN_VERSE' … '#+END_VERSE'

toc

(require 'toc-org nil t)
   (add-hook 'org-mode-hook 'toc-org-enable)
   (add-hook 'org-mode-hook 'org-indent-mode)
   ; (setq toc-org-max-depth 2)

(use-package org-bullets
  :ensure t
  :hook (org-mode . org-bullets-mode))

(use-package which-key
  :ensure t
  :config
  (which-key-mode 1)
  (setq which-key-min-display-lines 13))

(require 'org-tempo)
;;(electric-indent-mode -1)
(setq org-edit-src-content-indentation 0)

org babel execute

;; Разрешить выполнение кода в org-mode
(org-babel-do-load-languages
 'org-babel-load-languages
 '((python . t)
   (shell . t)))

(setq org-src-tab-acts-natively t)
;; Отключить запросы на подтверждение выполнения кода
(setq org-confirm-babel-evaluate nil)

org agenda

(custom-set-variables
'(org-agenda-files
   '("~/Documents/work.org" "/home/fs/Documents/dates.org" "/home/fs/Documents/time.org")))

Org Image

(setq org-image-actual-width '(500))

org level size

;; Установка стилей для заголовков
(custom-set-faces
 '(org-level-1 ((t (:height 1.5 :weight bold))))
 '(org-level-2 ((t (:height 1.3 :weight bold))))
 '(org-level-3 ((t (:height 1.2))))
 '(org-level-4 ((t (:height 1.1)))))

org level hide

Скрывает заголовки, у которых есть подчёркивание после звёздочек.

(defun my/org-hide-matching-headlines ()
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward "^\\*+ _" nil t)
      (outline-hide-subtree))))

(add-hook 'org-mode-hook #'my/org-hide-matching-headlines)

PROGRAMMING

snipets

(use-package yasnippet
  :ensure t
  :config
  (yas-global-mode 1))

python

(defun load-python-config ()
  (org-babel-load-file
    (expand-file-name
     "lan/python-cf.org"
     user-emacs-directory)))

(add-hook 'python-mode-hook 'load-python-config)

go

(defun load-go-config ()
  (org-babel-load-file
    (expand-file-name
     "lan/go-cf.org"
     user-emacs-directory)))

(add-hook 'go-mode-hook 'load-go-config)

Emacs-lisp

(use-package highlight-function-calls
  :ensure t
  :config
  (add-hook 'emacs-lisp-mode-hook 'highlight-function-calls-mode))

decorations

colorthemes

(use-package doom-themes
  :ensure t)

(custom-set-faces
'(line-number ((t (:foreground "white"))))               ; Цвет отображения номера строки
'(line-number-current-line ((t (:foreground "white"))))) ; Цвет текущей строки
;; '(org-block-background ((t (:background "#1b1b1b"))))
;; '(line-number ((t (:foreground "black"))))               ; Цвет отображения номера строки
;; '(line-number-current-line ((t (:foreground "black"))))) ; Цвет текущей строки
;; (load-theme 'doom-1337 t)
;; (load-theme 'doom-nord t)
;; (load-theme 'doom-nord-aurora t)
;; (load-theme 'doom-nord-light t)
;; (load-theme 'doom-ayu-light t)
;; (load-theme 'doom-city-lights t)
;; (load-theme 'doom-one-light t)
;; (load-theme 'doom-gruvbox-light t)
;; (load-theme 'doom-gruvbox t)
;; (load-theme 'doom-ayu-dark t)
;; (load-theme 'doom-dracula t)
;; (load-theme 'doom-tomorrow-night t)
;; (load-theme 'doom-henna t)
(load-theme 'doom-one t)
;; (load-theme 'doom-opera t)
;; (load-theme 'doom-monokai-pro t)
;; (load-theme 'doom-spacegrey t)
;; (load-theme 'doom-tokyo-night t)
;; (load-theme 'doom-xcode t)
;; (load-theme 'doom-solarized-light t)
;; (load-theme 'doom-solarized-dark t)
;; (load-theme 'solarized-gruvbox-light t)
;; (load-theme 'solarized-gruvbox-dark t)

;; (add-to-list 'custom-theme-load-path "~/.emacs.d/everforest-theme")
;; (load-theme 'everforest-hard-dark t)

;; (add-to-list 'custom-theme-load-path "~/.emacs.d/atom-one-dark-theme")
;; (load-theme 'atom-one-dark t)

;; (add-to-list 'custom-theme-load-path "~/.emacs.d/iceberg-theme.el")
;; (load-theme 'iceberg t)


;; (set-frame-parameter nil 'alpha-background 100)
;; (set-frame-parameter nil 'alpha-background 92)

(let ((al 90))  ;; Прозрачность %
  (set-frame-parameter (selected-frame) 'alpha `(,al . ,al))   ;; Прозрачность для текущего фрейма
  (add-to-list 'default-frame-alist `(alpha . (,al . ,al))))   ;; Прозрачность для всех новых фреймов

diff

состоянии изменений git

(global-diff-hl-mode +1)

fonts

; Makes commented text and keywords italics.
; This is working in emacsclient but not emacs.
; Your font must have an italic face available.
(set-face-attribute 'font-lock-comment-face nil
  :slant 'italic)
(set-face-attribute 'font-lock-keyword-face nil
  :slant 'italic)

; Firacode Nerd Font
; JetBrainsMonoNL Nerd Font
; CaskaydiaCove Nerd Font

(defun set-small-font-wayland ()
  (interactive)
  (set-face-attribute 'default nil
                      :font "JetBrainsMonoNL Nerd Font"
                      :height 110
                      :weight 'medium))

(defun set-small-font ()
  (interactive)
  (set-face-attribute 'default nil
                      :font "JetBrainsMonoNL Nerd Font"
                      :height 110
                      :weight 'medium))

(defun set-big-font ()
  (interactive)
  (set-face-attribute 'default nil
                      :font "JetBrainsMonoNL Nerd Font"
                      :height 130
                      :weight 'medium))

(defun set-large-font ()
  (interactive)
  (set-face-attribute 'default nil
                      :font "JetBrainsMonoNL Nerd Font"
                      :height 200
                      :weight 'medium))
;; (set-small-font-wayland)
(set-small-font)
;; (set-big-font)
(spc-leader
  "c f" '(:ignore t :wk "font")
  "c f s" '(set-small-font :wk "small font")
  "c f b" '(set-big-font :wk "big font")
  "c f l" '(set-large-font :wk "l font"))

;; This sets the default font on all graphical frames created after restarting Emacs.
;; Does the same thing as 'set-face-attribute default' above, but emacsclient fonts
;; are not right unless I also add this method of setting the default font.
(add-to-list 'default-frame-alist '(font . "JetBrainsMonoNL Nerd Font"))

;; Uncomment the following line if line spacing needs adjusting.
(setq-default line-spacing 0.12)

ligature

(use-package ligature
  :config
  ;; Enable the "www" ligature in every possible major mode
  (ligature-set-ligatures 't '("www"))
  ;; Enable traditional ligature support in eww-mode, if the
  ;; `variable-pitch' face supports it
  (ligature-set-ligatures 'eww-mode '("ff" "fi" "ffi"))
  ;; Enable all Cascadia Code ligatures in programming modes
  (ligature-set-ligatures 'prog-mode '("|||>" "<|||" "<==>" "<!--" "####" "~~>" "***" "||=" "||>"
                                       ":::" "::=" "=:=" "===" "==>" "=!=" "=>>" "=<<" "=/=" "!=="
                                       "!!." ">=>" ">>=" ">>>" ">>-" ">->" "->>" "-->" "---" "-<<"
                                       "<~~" "<~>" "<*>" "<||" "<|>" "<$>" "<==" "<=>" "<=<" "<->"
                                       "<--" "<-<" "<<=" "<<-" "<<<" "<+>" "</>" "###" "#_(" "..<"
                                       "..." "+++" "/==" "///" "_|_" "www" "&&" "^=" "~~" "~@" "~="
                                       "~>" "~-" "**" "*>" "*/" "||" "|}" "|]" "|=" "|>" "|-" "{|"
                                       "[|" "]#" "::" ":=" ":>" ":<" "$>" "==" "=>" "!=" "!!" ">:"
                                       ">=" ">>" ">-" "-~" "-|" "->" "--" "-<" "<~" "<*" "<|" "<:"
                                       "<$" "<=" "<>" "<-" "<<" "<+" "</" "#{" "#[" "#:" "#=" "#!"
                                       "##" "#(" "#?" "#_" "%%" ".=" ".-" ".." ".?" "+>" "++" "?:"
                                       "?=" "?." "??" ";;" "/*" "/=" "/>" "//" "__" "~~" "(*" "*)"
                                       "\\\\" "://"))
  ;; Enables ligature checks globally in all buffers. You can also do it
  ;; per mode with `ligature-mode'.
  (global-ligature-mode t))

icons

(require 'all-the-icons)
(require 'all-the-icons-dired)
(add-hook 'dired-mode-hook 'all-the-icons-dired-mode)

rainbow mode

This minor mode sets background color to strings that match color names, e.g. #0000ff is displayed in white with a blue background.

(require 'rainbow-mode)
(add-hook 'org-mode-hook 'rainbow-mode)
(add-hook 'prog-mode-hook 'rainbow-mode)

Nyan-mode

(use-package nyan-mode
  :ensure t
  :init
  :config
  (setq nyan-wavy-trail t)
  (setq nyan-animate-nyancat t)
  (nyan-mode 1)) ;; Включить анимацию

evil-snipe

(use-package evil-snipe
  :ensure t
  :after evil
  :config
  (evil-snipe-mode +1)
  (evil-snipe-override-mode +1)
  (setq evil-snipe-smart-case t)) ; логическое значение, не число

org chckbox hl

(defface org-checkbox-done-text
     '((t (:inherit org-done)))
     "Face for the text part of a checked org-mode checkbox.")

 (font-lock-add-keywords
  'org-mode
  `(("^[ \t]*\\(?:[-+*]\\|[0-9]+[).]\\)[ \t]+\\(\\(?:\\[@\\(?:start:\\)?[0-9]+\\][ \t]*\\)?\\[\\(?:X\\|\\([0-9]+\\)/\\2\\)\\][^\n]*\n\\)" 1 'org-checkbox-done-text prepend))
  'append)

hl-todo

(require 'hl-todo)
(add-hook 'prog-mode-hook 'hl-todo-mode)

Programs

emms

;; Функция для отображения только названия треков в плейлисте
(defun my-emms-track-simple-description (track)
  "Return a simple description of the TRACK with only the title."
  (let ((name (emms-track-get track 'info-title)))
    (if name
        name
      (emms-track-simple-description track))))


(use-package emms
  :init
  (setq emms-track-description-function 'my-emms-track-simple-description)
  :ensure t
  :config
  (require 'emms-setup)
  (emms-all)  ;; Загружает все основные модули Emms
  (emms-default-players)  ;; Определяет плееры
  (setq emms-source-file-default-directory "~/Music/")  ;; Укажите свою папку с музыкой

  ;; Отображение текущего трека в mode-line
  (use-package emms-mode-line
    :config
    (emms-mode-line 1))

  ;; Включить отображение времени проигрывания
  (use-package emms-playing-time
    :config
    (emms-playing-time 1))

  (with-eval-after-load 'emms
    (define-key emms-playlist-mode-map (kbd "l") 'emms-seek-forward)
    (define-key emms-playlist-mode-map (kbd "h") 'emms-seek-backward)
    (define-key emms-playlist-mode-map (kbd "s") 'emms-pause)
    (define-key emms-playlist-mode-map (kbd "C-c k") 'emms-playlist-clear)

    (define-key emms-playlist-mode-map (kbd "j") 'next-line)
    (define-key emms-playlist-mode-map (kbd "C-j") 'next-line)
    (define-key emms-playlist-mode-map (kbd "k") 'previous-line)
    (define-key emms-playlist-mode-map (kbd "C-k") 'previous-line)

    (define-key emms-playlist-mode-map (kbd "C-u") 'scroll-down-command)
    (define-key emms-playlist-mode-map (kbd "C-d") 'scroll-up-command)

    (define-key emms-playlist-mode-map (kbd "d") 'emms-playlist-mode-kill-track)

    (define-key emms-playlist-mode-map (kbd "/") 'evil-search-forward)
    (define-key emms-playlist-mode-map (kbd "C-n") 'evil-search-next)
    (define-key emms-playlist-mode-map (kbd "C-p") 'evil-search-previous)
  )
)

;; Включаем Evil mode в плейлисте EMMS
(add-hook 'emms-playlist-mode-hook 'evil-normalize-keymaps)

(spc-leader
  "e" '(:ignore t :wk "music")
  "e d" '(emms-add-dired :wk "add dired tree to playlist")
  "e t" '(emms-add-directory-tree :wk "dir tree to playlist")
  "e r" '(emms :wk "emms")
  "e a" '(emms-toggle-repeat-track :wk "repeat track")
  "e s" '(emms-pause :wk "stop")
  "e k" '(emms-next :wk "next")
  "e j" '(emms-previous :wk "previous")
  ;; "e w" '(emms :wk "save playlist")
  "e i" '(emms-seek-forward :wk "seek-forward 10s")
  "e u" '(emms-seek-backward :wk "seek-backward 10s")

  "e p" '(:ignore t :wk "music playlist load/save")
  "e p s" '(emms-playlist-save :wk "save playlist")
  "e p l" '(emms-play-m3u-playlist :wk "load playlist")
)

Latex (pdf)

Warning

PLEASE READ THIS WARNING *

The following (inessential) packages failed to install properly:

yb-book

You can fix this by running this command: tlmgr update all reinstall-forcibly-removed to complete the installation.

However, if the problem was a failure to download (by far the most common cause), check that you can connect to the chosen mirror in a browser; you may need to specify a mirror explicitly. **

Install

чтобы экспорт работал кректно надо установить pygments pip install pygments но для arch linux sudo pacman -S python-pygments

установка из стандартных репозиториев арча не дает результатов, нужно устанавливать в ручную https://tug.org/texlive/quickinstall.html

setting

(setq org-latex-pdf-process
      '("xelatex -interaction nonstopmode %f"
        "xelatex -interaction nonstopmode %f"))

настройка каталога PATH

;; Указываем путь к каталогу LaTeX
(setenv "PATH" (concat "/usr/local/texlive/2024/bin/x86_64-linux:" (getenv "PATH")))
(setq exec-path (append '("/usr/local/texlive/2024/bin/x86_64-linux") exec-path))
(executable-find "mktexlsr")

(setq org-latex-compiler "xelatex")  ;; Используйте "lualatex", если хотите использовать LuaTeX

включить подсветку синтаксиса

;; Использовать minted для подсветки синтаксиса при экспорте в PDF через LaTeX
(setq org-latex-listings 'minted)

;; Добавить настройки minted в preamble
(setq org-latex-packages-alist '(("" "minted")))

Настройка процесса экспорта в PDF для Org Mode

(setq org-latex-pdf-process
      '("xelatex -interaction nonstopmode -output-directory %o %f"
        "xelatex -interaction nonstopmode -output-directory %o %f"))

Cheat sheet

дефолтный header
#+LATEX_HEADER: \hypersetup{colorlinks=true, linkcolor=black}     ;; убрать красную подсветку из ссылок
#+LATEX_HEADER: \usepackage{fontspec}                             ;; подтержка русского языка
#+LATEX_HEADER: \setmainfont{Noto Sans}                           ;; шрифт
#+LATEX_CLASS_OPTIONS: [7pt]                                      ;; размер шрифта
отступы от границ
#+LATEX_HEADER: \usepackage[a4paper, left=2cm, right=2cm, top=2.5cm, bottom=2.5cm]{geometry}

a4paper — формат бумаги (можно поменять на letterpaper или другой, если требуется). left=2cm, right=2cm, top=2.5cm, bottom=2.5cm — отступы от левой, правой, верхней и нижней границы страницы, соответственно. можно изменить эти значения на нужные размеры в сантиметрах (или дюймах, используя in).

Terminal

Open terminal with random buffer name

(defun run-buffer-random (command)
  "Open a shell and rename its buffer to shell-<randomname>."
  (let ((random-name (format "shell-%s" (make-temp-name ""))) ; Генерируем случайное имя
        (shell-buffer (funcall command))) ; Запускаем shell
    (with-current-buffer shell-buffer
      (rename-buffer random-name t)))) ; Переименовываем буфер

(defun open-eshell-on-right ()
  "Open a terminal in a new right split window with a randomly named buffer."
  (interactive)
  (let ((term-buffer (generate-new-buffer (format "eshell-%s" (make-temp-name "")))))
    (set-window-buffer (split-window-right) term-buffer)
    (select-window (get-buffer-window term-buffer))
    (eshell term-buffer)))

(defun rand-eshell ()
  (interactive)
  (run-buffer-random #'eshell)) ; Передаем функцию как объект

(defun rand-shell ()
  (interactive)
  (run-buffer-random #'vterm)) ; Передаем функцию как объект

(defun default-terminal ()
  (interactive)
  (run-buffer-random #'eshell))

scripts

fuzzy cd by main dirs
(defun counsel-find-dirs ()
  "Search directories with `find` and display results in Ivy."
  (interactive)
  (let* ((paths '("/home/fs/Desktop/pet"
                  "/home/fs/Desktop/tmp"
                  "/home/fs/Desktop/work"))
         (find-command (concat "find "
                               (mapconcat #'shell-quote-argument paths " ")
                               " -maxdepth 2 -type d ! -readable -prune -o -print"))
         (results (split-string (shell-command-to-string find-command) "\n" t)))
    (ivy-read "Select directory: " results
              :action (lambda (dir)
                        (when (file-directory-p dir)
                          (dired dir))))))
цвета
(add-hook 'eshell-preoutput-filter-functions
          'ansi-color-apply)

(setenv "TERM" "xterm-256color")

open terminal

(spc-leader
  "t" '(:ignore t :wk "terminal")
  "t e" '(rand-eshell :wk "run emacs shell")
  "t s" '(rand-shell :wk "run standart shell")
  "t t" '(open-eshell-on-right :wk "eshell on right")
)

Vterm

(use-package eshell-vterm
  :load-path "site-lisp/eshell-vterm"
  :demand t
  :after eshell
  :config
  (eshell-vterm-mode))
Vterm paste
(with-eval-after-load 'evil
  (add-hook 'vterm-mode-hook
            (lambda ()
              ;; Назначение hjkl как стрелок в normal state
              (evil-define-key 'normal vterm-mode-map
                "p" 'vterm-yank
                "h" (lambda () (interactive) (vterm-send-key "<left>"))
                "j" (lambda () (interactive) (vterm-send-key "<down>"))
                "k" (lambda () (interactive) (vterm-send-key "<up>"))
                "l" (lambda () (interactive) (vterm-send-key "<right>"))))))

EXWM

setup windows hotkey

ace window (для перемещения по окнам)

(use-package ace-window
  :ensure t
  :bind (
    ("M-s" . ace-swap-window))
  :config
  (setq aw-swap-other-window t))

setup wm

;; (org-babel-load-file
;;     (expand-file-name
;;      "lib/ex.org"
;;      user-emacs-directory))

Apps

(org-babel-load-file
    (expand-file-name
     "lib/app.el"
     user-emacs-directory))

Text Processor

(org-babel-load-file
    (expand-file-name
     "lib/text-processor.el"
     user-emacs-directory))

Image Processor

(org-babel-load-file
    (expand-file-name
     "lib/image.el"
     user-emacs-directory))

scripts

add projectile project

(defun create-empty-projectile-file ()
  "Create an empty .projectile file in the current directory."
  (interactive)
  (let ((projectile-file ".projectile"))
    (if (file-exists-p projectile-file)
        (message ".projectile file already exists in this directory.")
      (write-region "" nil projectile-file)
      (message ".projectile file created successfully."))))

REST

(defun send-easy-http ()
  (interactive)
  (let (
	(output-buffer (get-buffer-create "*Rest Output*"))
	(command (concat "/home/fs/bin/http " buffer-file-name " " (projectile-project-root))))
    (save-buffer)
	(unless (get-buffer-window output-buffer)
	    (split-window-right)
	    (other-window 1)
	    (switch-to-buffer output-buffer)
	    (other-window -1))
	(with-current-buffer output-buffer
	    (js-mode)
        (erase-buffer)
        (shell-command command output-buffer)
        (goto-char (point-max)))
	(message command)))

(use-package restclient
  :ensure t
  :mode ("\\.http\\'" . restclient-mode))

(spc-leader
  "r" '(:ignore t :wk "rest")
  "r s" '(send-easy-http :wk "send http")
  "r a" '(create-empty-projectile-file :wk "create projectile file")
)

insert some text

insert results output

(defun insert-results-output ()
  (interactive)
  (insert " :results output")
)

insert org babel tangle

(defun insert-org-tangle ()
  (interactive)
  (insert " :tangle change_file.ext")
)

insert latex header

(defun insert-latex-header ()
  (interactive)
  (insert "#+LATEX_HEADER: \\hypersetup{colorlinks=true, linkcolor=black}\n")
  (insert "#+LATEX_HEADER: \\usepackage{fontspec}\n")
  (insert "#+LATEX_HEADER: \\setmainfont{Noto Sans}\n")
  (insert "#+LATEX_CLASS_OPTIONS: [11pt]\n")
)

keybind

(spc-leader
  "i c" '(insert-results-output :wk " :results output")
  "i m  " '(insert-org-tangle :wk " :tangle change_file.ext")
  "i l  " '(insert-latex-header :wk "latex header")
)