Emacs. Desire. Конфигурация

Конфигурация для пакета desire.

1 Каталоги конфигурации

2 Установка переменных

3 Верхняя строка

• В строке задаём язык программирования, режимы.

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  

4 Заголовок

• В файле rc.packages.el находится список используемых пакетов.

• Заголовок файла:

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; rc.packages.el
  
  ;;; Commentary:
  
  ;;
  ;;  File id
  ;;
  ;;      Copyright (C)  2002-2026 Dmitry S. Kulyabov
  ;;      Keywords:      rc.packages
  ;;      Author:        Dmitry S. Kulyabov <yamadharma@gmail.com>
  ;;      Maintainer:    Dmitry S. Kulyabov <yamadharma@gmail.com>
  ;;
  ;;      This code is free software in terms of GNU Gen. pub. Lic. v3 or later
  ;;
  
  ;;;  Description:
  
  ;;; Change Log:
  
  ;;; Code:
  

  Распечатка 1: rc.packages.el

• Файл:

;; (desire-conf 'tiny)
(desire-conf 'personal)
;;
;; Mule
;;
(desire-conf 'mule)
;;(desire-conf 'mule-fontset)
;; ----------------------------------------------------------------------
;;
;;{{{ Xemacs

(if (string-match "XEmacs" emacs-version)
    (desired 'xemacs))

;;}}}

5 Управление пакетами

• Emacs. Управление пакетами

;;; Package management

5.1 Встроенный пакетный менеджер

• Emacs. Управление пакетами. package

5.1.1 Подключение

• Файл: rc.packages.el

;;;; Packaging
(desire 'package)

5.1.2 Загрузка

• Файл: packages/package/loaddefs.ecf

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Set up the package
  
  ;;; Code:
  
  (setopt warning-suppress-log-types '((package reinitialization)))
  
  (setopt package-enable-at-startup nil
        package-user-dir (concat home-data-path "elpa/")
        package-gnupghome-dir (expand-file-name "gpg" package-user-dir))
  
  (require 'package)
  
  ;;;
  

5.1.3 Настройка

• Файл: packages/package/desire.ecf

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  
  ;;; Code:
  
  ;;;
  

5.1.4 Компиляция пакетов

• Файл: packages/package/desire.ecd/native-compile.ecf

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Set up the package
  
  ;;; Code:
  
  ;;;; Supports ahead-of-time native compilation when installing a package
  (setopt package-native-compile t)
  
  ;;;
  

5.1.5 Обновлять встроенные пакеты

• Файл: packages/

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Set up the package
  
  ;;; Code:
  
  ;;;; Upgrade built-in packages
  (setopt package-install-upgrade-built-in t)
  
  ;;;
  

5.1.6 Репозитории

• Файл: packages/package/desire.ecd/repos.ecf

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Set up repos
  
  ;;; Code:
  
  ;;;; Repos
  ;;;; Comment/uncomment these two lines to enable/disable MELPA and MELPA Stable as desired
  
  (setopt package-archives
        '(("gnu" . "https://elpa.gnu.org/packages/")
          ("nongnu" . "https://elpa.nongnu.org/nongnu/")
          ("gnu-devel" . "https://elpa.gnu.org/devel/")
          ("melpa" . "https://melpa.org/packages/")
          ("melpa-stable" . "https://stable.melpa.org/packages/")))
  
  ;;;; Mirror for some Emacs package archives
  ;;;; https://github.com/d12frosted/elpa-mirror
  ;; (setopt package-archives
  ;;       '(("melpa" . "https://raw.githubusercontent.com/d12frosted/elpa-mirror/master/melpa/")
  ;; 	("melpa-stable" . "https://raw.githubusercontent.com/d12frosted/elpa-mirror/master/stable-melpa")
  ;;         ("gnu" . "https://raw.githubusercontent.com/d12frosted/elpa-mirror/master/gnu/")
  ;; 	("nongnu" . "https://raw.githubusercontent.com/d12frosted/elpa-mirror/master/nongnu")))
  
  ;;;; https://gitlab.com/d12frosted/elpa-mirror/
  ;; (setopt package-archives
  ;;       '(("melpa" . "https://gitlab.com/d12frosted/elpa-mirror/-/tree/master/melpa")
  ;; 	("melpa-stable" . "https://gitlab.com/d12frosted/elpa-mirror/-/tree/master/stable-melpa")
  ;;         ("gnu" . "https://gitlab.com/d12frosted/elpa-mirror/-/tree/master/gnu")
  ;; 	("nongnu" . "https://gitlab.com/d12frosted/elpa-mirror/-/tree/master/nongnu")))
  
  (unless package--initialized
    (package-initialize))
  
  ;;;; Refreshing the content or the list-packages in case it is empty
  (when (not package-archive-contents)
    (package-refresh-contents))
  
  ;;;; Dirty hack
  (setopt package-check-signature nil)
  ;;;; Network timeout
  (setopt url-request-timeout 10)  ; 10 секунд
  
  (desire 'gnu-elpa-keyring-update)
  
  ;;;
  

5.2 Пакетный менеджер quelpa

• Необходим для emacs-29 и старше.
• Начиная с emacs-30 можно использовать package-vc.
• Подключение:

  ;;; Build and install your Emacs Lisp packages on-the-fly and directly from source
  ;; (desire 'quelpa)
  

  Распечатка 2: rc.packages.el
• Загружаем:

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Build and install your Emacs Lisp packages on-the-fly directly from source
  ;; https://github.com/quelpa/quelpa
  
  (require 'quelpa)
  
  ;;;
  

  Распечатка 3: packages/quelpa/loaddefs.ecf
• Асинхронные операции:

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Build and install your Emacs Lisp packages on-the-fly directly from source
  ;; https://github.com/quelpa/quelpa
  
  ;;; If non-nil, quelpa operation will not block Emacs input
  ;; (setopt quelpa-async-p t)
  
  ;;;
  

  Распечатка 4: packages/quelpa/desire.ecf
• Обновление пакетов:

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Build and install your Emacs Lisp packages on-the-fly directly from source
  ;; https://github.com/quelpa/quelpa
  
  ;;; To run quelpa-upgrade-all at most every 14 days
  ;; (setopt quelpa-upgrade-interval 14)
  ;; (add-hook #'after-init-hook #'quelpa-upgrade-all-maybe)
  
  ;;;
  

  Распечатка 5: packages/quelpa/personal.ecf

5.3 Пакетный менеджер straight

;;; A declarative package management system with a command line interface
(desire 'straight)

5.4 Автообновление пакетов

;;; Auto update packages
(desire 'auto-package-update)

;;;}}}

6 Компиляция файлов

6.1 compile-angel

• Подключим пакет:

  ;;; compile-angel.el
  (desire 'compile-angel)
  

  Распечатка 6: rc.packages.el
• Настроим начальную конфигурацию:

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Compile Emacs Lisp libraries automatically.
  ;;; https://github.com/jamescherti/compile-angel.el
  
  ;; (require 'compile-angel)
  
  ;;;
  

  Распечатка 7: packages/compile-angel/loaddefs.ecf
• Настроим основные параметры:

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Compile Emacs Lisp libraries automatically.
  ;;; https://github.com/jamescherti/compile-angel.el
  
  ;;; Ensure Emacs loads the most recent byte-compiled files.
  (setopt load-prefer-newer t)
  
  ;;; Ensure JIT compilation is enabled for improved performance by
  ;;; native-compiling loaded .elc files asynchronously
  (setopt native-comp-jit-compilation t)
  (setopt native-comp-deferred-compilation t) ; Deprecated in Emacs > 29.1
  
  ;;; Enable/Disable byte compilation and native compilation
  (setopt compile-angel-enable-byte-compile t)
  (setopt compile-angel-enable-native-compile t)
  
  ;;; Enable verbose (Set it to t while debugging)
  (setopt compile-angel-verbose nil)
  
  ';; Display the *Compile-Log* buffer (Set it to t while writing elisp)
  (setopt compile-angel-display-buffer nil)
  
  ;;; Perform byte/native compilation of .el files only once during initial loading
  ;;; (Setting this to nil will try to compile each time an .el file is loaded)
  (setopt compile-angel-on-load-mode-compile-once t)
  
  ;;; Ignore certain files, for example, for users of the `dir-config` package:
  (setopt compile-angel-excluded-files-regexps '("/\\.dir-config\\.el$"))
  
  ;;; Function that determines if an .el file should be compiled. It takes one
  ;;; argument (an EL file) and returns t if the file should be compiled,
  ;;; (By default, `compile-angel-predicate-function` is set to nil, which
  ;;; means that the predicate function is not called.)
  (setopt compile-angel-predicate-function
        #'(lambda(el-file)
         ;; Show a message
         (message "PREDICATE: %s" el-file)
         ;; Return t (Compile all)
         t))
  
  ;; Ensure that quitting only occurs once Emacs finishes native compiling,
  ;; preventing incomplete or leftover compilation files in `/tmp`.
  (setopt native-comp-async-query-on-exit t)
  (setopt confirm-kill-processes t)
  
  ;;; Show buffer when there is a warning.
  ;;; (NOT RECOMMENDED, except during development).
  ;; (setopt warning-minimum-level :warning)
  ;; (setopt byte-compile-verbose t)
  ;; (setopt byte-compile-warnings t)
  ;; (setopt native-comp-async-report-warnings-errors t)
  ;; (setopt native-comp-warning-on-missing-source t)
  
  ;;; Non-nil means to natively compile packages as part of their installation.
  (setopt package-native-compile t)
  
  (add-hook 'emacs-lisp-mode-hook #'compile-angel-on-save-local-mode)
  
  (compile-angel-on-save-mode)
  (compile-angel-on-load-mode)
  
  ;;;
  

  Распечатка 8: packages/compile-angel/desire.ecf

7 Системные настройки

;; (desire 'esup)

7.1 Разные настройки

• Покидал сюда разные настройки, которые не знаю, куда разместить.
• Подключение:

  (desire-conf 'site-stuff)
  

  Распечатка 9: rc.packages.el
• Подключение:

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  
  ;;; Code:
  

  Распечатка 10: packages/site-stuff.ecf
• Изменение поведения C-g:

  ;;;; Make C-g a bit more helpful
  ;;;;; https://protesilaos.com/codelog/2024-11-28-basic-emacs-configuration/
  
  (defun ecf/keyboard-quit-dwim ()
    "Do-What-I-Mean behaviour for a general `keyboard-quit'.
  
  The generic `keyboard-quit' does not do the expected thing when
  the minibuffer is open.  Whereas we want it to close the
  minibuffer, even without explicitly focusing it.
  
  The DWIM behaviour of this command is as follows:
  
  - When the region is active, disable it.
  ​- When a minibuffer is open, but not focused, close the minibuffer.
  ​- When the Completions buffer is selected, close it.
  ​- In every other case use the regular `keyboard-quit'."
    (interactive)
    (cond
     ((region-active-p)
      (keyboard-quit))
     ((derived-mode-p 'completion-list-mode)
      (delete-completion-window))
     ((> (minibuffer-depth) 0)
      (abort-recursive-edit))
     (t
      (keyboard-quit))))
  
  (define-key global-map (kbd "C-g") #'ecf/keyboard-quit-dwim)
  

  Распечатка 11: packages/site-stuff.ecf
• Оформление интерфейса:

  ;;;; Scroll bar mode
  (set-scroll-bar-mode 'left)
  (scroll-bar-mode -1)
  
  ;;;; Disable the toolbar
  (tool-bar-mode -1)
  
  ;;;; Menu bar
  (menu-bar-mode 1)
  

  Распечатка 12: packages/site-stuff.ecf

;;; Automatic decompression, hooks for tar-mode
;;;
;;(require 'jka-compr)
(auto-compression-mode t)

(require 'icomplete) ; Interactive completion in minibuffer.

;; Strip hostname from domain when posting news
                                      ;(setopt gnus-use-generic-from t)

                                      ;(auto-compression-mode t)
;; Time in 24 hour format, plus day and date.
;;
(add-hook 'write-file-hooks 'time-stamp)
                                      ; (require 'mc)


(setopt max-specpdl-size 1000)


;;; Set the fringe a little wider to ensure the text isn’t too close to the window border
;; (fringe-mode 16 . nil)

;; Strip iccc encoding when paste from clipboard
                                      ;(defun fix-rus-letter ()
                                      ;  (interactive)
                                      ;  (goto-char (point-min))
                                      ;  (while (search-forward-regexp ".%/1..koi8-r." nil t)
                                      ;    (replace-match ""))
                                      ;)

;;; Показывает пробелы и табы в конце строк
(setopt show-trailing-whitespace t)

;;; Prevent horizontal window splitting for Emacs 23
;; (setopt split-width-threshold 9999)

(setopt inhibit-startup-message t)

(fset 'yes-or-no-p 'y-or-n-p)

;;; Отключить создание резервных копий
(custom-set-variables '(make-backup-files nil "Отключить создание резервных копий"))

;;; Cursor
(custom-set-variables '(cursor-type 'bar "Внешний вид курсора — вертикальная черта"))
;; Отключить мерцание курсора
(blink-cursor-mode 0)

;;; Highlight Current Line
(global-hl-line-mode 1)

;;; Warnings
;;; Disable report warnings and errors from asynchronous native compilation
(setopt native-comp-async-report-warnings-errors nil)

;;; Not to warn you about anything except problems
;;; :debug | :warning | :error | :emergency
(setopt warning-minimum-level :error)

;;; Don't pop up UI dialogs when prompting
(setopt use-dialog-box nil)

;;; Revert buffers when the underlying file has changed
(global-auto-revert-mode 1)
;;; Revert Dired and other buffers
(setopt global-auto-revert-non-file-buffers t)

;;; Make searches case insensitive
(setopt case-fold-search t)

;;; Tab completion in minibuffer: case insensitive
(setopt completion-ignore-case  t)

;;;

7.2 Разное

;;{{{ Window System

(if (null window-system)
    ()
  (progn
    (desire-conf 'window-system)
                                        ;    (desire-conf  'faces)
                                        ;    (desire-conf  'multi-frame)
    )
  )


;; (if (null window-system)
;;  ()
;;  (desire-conf 'window-system)
;; )

;; (desire-conf 'window-system)
;; (desire-conf 'test)

;; (if (eq window-system 'w32)
;;  (progn
;;    (desired 'window-system)
;;    (desired 'window-system-w32)
;;  )
;; )

;; (if (and window-system
;;	 (member window-system '(x gtk))
;;	 (x-display-color-p)
;;    )
;;    (progn
;;      (desired 'window-system)
;;      (desire-conf  'faces)
;;      (desire-conf  'multi-frame)
;;    )
;; )

;;}}}
;;{{{ Serve

;;; Gnuserv
;;(desire-conf 'gnuserv nil "gnuserv")
;; Rely on dtemacs to do this, otherwise a race condition can cause
;; dtemacs to fail.
;; (gnuserv-start)

;;; Emacs daemon
;; (desire-conf 'emacs-daemon)

;;; Emacs server
(desire 'server)

;;}}}

(desire 'general)

(desire 'exec-path-from-shell)
(desire 'compat)

(desire 'async)

7.3 Тьюнинг сборщика мусора

• Подключение:

  (desire 'gcmh)
  

  Распечатка 13: rc.packages.el
• Загрузка:

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; The Garbage Collector Magic Hack
  ;; https://gitlab.com/koral/gcmh
  
  ;;; Code:
  
  (require 'gcmh)
  
  ;;; https://github.com/doomemacs/doomemacs/issues/3108
  (setopt gcmh-high-cons-threshold 33554432)  ; 32mb, or 64mb, or *maybe* 128mb, BUT NOT 512mb
  
  (gcmh-mode 1)
  
  ;;;
  

  Распечатка 14: packages/gcmh.ecf

8 Общие настройки мод

9 Поддержка LSP

• Emacs. Поддержка LSP

9.1 Начало

• Файл rc.packages.el:

  ;;; LSP mode {{{
  

  Распечатка 15: rc.packages.el

9.2 emacs-lsp-booster

• Включаем поддержку emacs-lsp-booster:

  (desired 'emacs-lsp-booster :precondition-system-executable "emacs-lsp-booster")
  

  Распечатка 16: rc.packages.el

9.3 Eglog

9.3.1 Eglot

• Файл rc.packages.el:

  (desire 'eglot)
  

  Распечатка 17: rc.packages.el
• Начальная загрузка:

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; A client for Language Server Protocol servers
  ;;; https://github.com/joaotavora/eglot
  
  ;;;
  

  Распечатка 18: packages/eglot/loaddefs.ecf
• Загрузка самого пакета:

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; A client for Language Server Protocol servers
  ;;; https://github.com/joaotavora/eglot
  
  (require 'eglot)
  
  ;;; Control blocking of LSP connection attempts
  (setopt eglot-sync-connect nil)
  
  (setopt eglot-connect-timeout 10)
  (setopt eglot-autoshutdown t)
  (setopt eglot-send-changes-idle-time 0.5)
  
  ;;; Disable `eglot-auto-display-help-buffer` because :select t in its popup rule causes eglot to steal focus too often.
  (setopt eglot-auto-display-help-buffer nil)
  
  ;;; Disable any debug logging and may speed things up
  (setopt eglot-events-buffer-size 0)
  
  ;;;
  

  Распечатка 19: packages/eglot/desire.ecf
• Загрузка emacs-lsp-booster:

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Boost eglot using lsp-booster
  ;;; https://github.com/jdtsmith/eglot-booster
  
  (desire 'eglot-booster :recipe '(:fetcher github :repo "jdtsmith/eglot-booster" :branch "main" :files ("*.el")))
  (require 'eglot-booster)
  (eglot-booster-mode)
  
  ;;;
  

  Распечатка 20: packages/eglot/emacs-lsp-booster.ecf

9.3.2 Дополнительные пакеты

1. LaTeX

   • Загрузим поддержку LSP для LaTeX:

     ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
     ;;; A client for Language Server Protocol servers
     ;;; https://github.com/joaotavora/eglot
     
     (require 'eglot)
     
     ;;; Switch to texlab
     (when (executable-find "texlab")
       (setf (alist-get '(latex-mode plain-tex-mode context-mode texinfo-mode bibtex-mode tex-mode)
                        eglot-server-programs
                        nil nil #'equal)
             '("texlab")))
     
     (add-hook 'tex-mode-hook #'eglot-ensure)
     (add-hook 'latex-mode-hook #'eglot-ensure)
     (add-hook 'LaTeX-mode-hook #'eglot-ensure)
     (add-hook 'bibtex-mode-hook #'eglot-ensure)
     (add-hook 'plain-tex-mode-hook #'eglot-ensure)
     (add-hook 'context-mode-hook #'eglot-ensure)
     (add-hook 'texinfo-mode-hook #'eglot-ensure)
     
     ;;;
     

     Распечатка 21: packages/auctex/eglot.ecf

9.4 Lsp-mode

9.4.1 Собственно lsp-mode

• Подключим lsp-mode:

  ;; (desire 'lsp-mode)
  

  Распечатка 22: rc.packages.el
• Первоначальная конфигурация:

  ;;; Language Server Protocol support for Emacs  -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;; https://emacs-lsp.github.io/
  ;; https://github.com/emacs-lsp/lsp-mode
  
  ;;;
  

  Распечатка 23: packages/lsp-mode/loaddefs.ecf
• Конфигурация:

  ;;; Language Server Protocol support for Emacs  -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;; https://emacs-lsp.github.io/
  ;; https://github.com/emacs-lsp/lsp-mode
  
  (require 'lsp-mode)
  
  ;;; https://emacs-lsp.github.io/lsp-ui/
  (desire 'lsp-ui)
  
  ;;; set prefix for lsp-command-keymap (few alternatives - "C-l", "C-c l")
  (setopt lsp-keymap-prefix "C-l")
  
  ;;;
  

  Распечатка 24: packages/lsp-mode/desire.ecf

9.4.2 Дополнительные пакеты

1. LaTeX (texlab)

   • Загрузим поддержку LSP для LaTeX:

     ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
     ;;; Emacs lsp-mode client for LaTeX, on texlab
     ;; https://github.com/ROCKTAKEY/lsp-latex
     
     ;;; Code:
     
     (require 'lsp-mode)
     (desire 'lsp-latex :precondition-system-executable "texlab")
     
     ;;;
     

     Распечатка 25: packages/auctex/lsp-mode.ecf
   • Загрузка lsp-latex:

     ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
     ;;; Emacs lsp-mode client for LaTeX, on texlab
     ;; https://github.com/ROCKTAKEY/lsp-latex
     
     ;;; Code:
     
     (require 'lsp-latex)
     
     ;;;; "texlab" executable must be located at a directory contained in `exec-path'.
     ;;;; If you want to put "texlab" somewhere else, you can specify the path to "texlab" as follows:
     ;; (setopt lsp-latex-texlab-executable "/path/to/texlab")
     
     ;;;
     

     Распечатка 26: packages/lsp-latex/loaddefs.ecf
   • Настройка lsp-latex:

     ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
     ;;; Emacs lsp-mode client for LaTeX, on texlab
     ;;; https://github.com/ROCKTAKEY/lsp-latex
     
     ;;; Code:
     
     (add-hook 'tex-mode-hook #'lsp)
     (add-hook 'latex-mode-hook #'lsp)
     (add-hook 'LaTeX-mode-hook #'lsp)
     (add-hook 'LaTeX-mode-hook #'lsp)
     
     ;;;; For YaTeX
     (with-eval-after-load "yatex"
       (add-hook 'yatex-mode-hook #'lsp))
     
     ;;;; For bibtex
     (with-eval-after-load "bibtex"
       (add-hook 'bibtex-mode-hook #'lsp))
     
     ;;;
     

     Распечатка 27: packages/lsp-latex/desire.ecf

2. lsp-treemacs

   • Подключение интеграции treemacs и lsp-mode:

     ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
     ;;; lsp-mode ❤️ treemacs
     ;;; https://github.com/emacs-lsp/lsp-treemacs
     
     ;;; Code:
     
     (require 'lsp-mode)
     
     (desire 'lsp-treemacs)
     (require 'lsp-treemacs)
     
     ;;; Enable bidirectional synchronization of lsp workspace folders and treemacs projects
     (lsp-treemacs-sync-mode 1)
     
     ;;;
     

     Распечатка 28: packages/treemacs/lsp-mode.ecf

3. which-key

   • Подключение интеграции treemacs и lsp-mode:

     ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
     ;;; lsp which-key integration
     ;; https://emacs-lsp.github.io/lsp-mode/page/keybindings/
     
     ;;; Code:
     
     (with-eval-after-load 'lsp-mode
       (add-hook 'lsp-mode-hook #'lsp-enable-which-key-integration))
     
     ;;;
     

     Распечатка 29: packages/which-key/lsp-mode.ecf

10 Сессии

;;{{{ Session Management

(desire 'savehist)

;;}}}

11 Утилиты

(desire 'uniquify)

(desire-conf 'keys)
(desire-conf 'dialog)
(desire-conf 'mouse)

11.1 xclip

• Emacs. xclip
• Подключение:

  (desire 'xclip)
  

  Распечатка 30: rc.packages.el
• Загрузка:

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Copy&paste GUI clipboard from text terminal
  ;; https://elpa.gnu.org/packages/xclip.html
  
  ;;; Code:
  
  (require 'xclip)
  

  Распечатка 31: packages/xclip.ecf
• Какие-то шаманства:

  ;; (when (getenv "WAYLAND_DISPLAY")
  ;;   ;; Without this, copy and pasting from other wayland apps into
  ;;   ;; emacs-pgtk doesn't work.
  ;;   ;; https://www.emacswiki.org/emacs/CopyAndPaste#h5o-4
  ;;   (setopt wl-copy-process nil)
  ;;   (defun wl-copy (text)
  ;;     (setopt wl-copy-process (make-process :name "wl-copy"
  ;;                                         :buffer nil
  ;;                                    :command '("wl-copy" "-f" "-n")
  ;;                                    :connection-type 'pipe
  ;;                                    :noquery t))
  ;;     (process-send-string wl-copy-process text)
  ;;     (process-send-eof wl-copy-process))
  
  ;;   (defun wl-paste ()
  ;;     (if (and wl-copy-process (process-live-p wl-copy-process))
  ;;         nil ; should return nil if we're the current paste owner
  ;;       (shell-command-to-string "wl-paste -n | tr -d \r")))
  ;;   (setopt interprogram-cut-function 'wl-copy)
  ;;   (setopt interprogram-paste-function 'wl-paste))
  

  Распечатка 32: packages/xclip.ecf
• Явное включение для оконного режима (https://github.com/doomemacs/doomemacs/issues/5219):

  (add-hook 'window-setup-hook #'xclip-mode)
  

  Распечатка 33: packages/xclip.ecf
• Необходима строчка 'text/plain\;charset=utf-8 в x-select-request-type (https://github.com/doomemacs/doomemacs/issues/5219):

  (setopt x-select-request-type nil)
  
  ;;;
  

  Распечатка 34: packages/xclip.ecf

11.2 which-key

• Подключение:

  (desire 'which-key)
  

  Распечатка 35: rc.packages.el
• Загрузка:

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Emacs package that displays available keybindings in popup
  ;;; https://github.com/justbur/emacs-which-key
  
  (require 'which-key)
  
  ;;;
  

  Распечатка 36: packages/which-key/loaddefs.ecf
• Конфигурация:

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Emacs package that displays available keybindings in popup
  ;; https://github.com/justbur/emacs-which-key
  
  ;;; Code:
  
  ;;;; Key-Based replacement
  (which-key-add-key-based-replacements "C-x C-f" "find files")
  (which-key-add-major-mode-key-based-replacements
   'org-mode
   "C-c C-c" "Org C-c C-c"
   "C-c C-a" "Org Attach")
  
  ;;;; Key and Description replacement
  (add-to-list 'which-key-replacement-alist '(("TAB" . nil) . ("↹" . nil)))
  (add-to-list 'which-key-replacement-alist '(("RET" . nil) . ("⏎" . nil)))
  (add-to-list 'which-key-replacement-alist '(("DEL" . nil) . ("⇤" . nil)))
  (add-to-list 'which-key-replacement-alist '(("SPC" . nil) . ("␣" . nil)))
  
  ;; Set the special keys. These are automatically truncated to one character and
  ;; have which-key-special-key-face applied. Disabled by default. An example
  ;; setting is
  ;; (setopt which-key-special-keys '("SPC" "TAB" "RET" "ESC" "DEL"))
  (setopt which-key-special-keys nil)
  
  
  ;;;; Sorting Options
  ;;;;; Default
  (setopt which-key-sort-order 'which-key-key-order)
  ;;;;; Same as default, except single characters are sorted alphabetically
  ;; (setopt which-key-sort-order 'which-key-key-order-alpha)
  ;;;;; Same as default, except all prefix keys are grouped together at the end
  ;; (setopt which-key-sort-order 'which-key-prefix-then-key-order)
  ;;;;; Same as default, except all keys from local maps shown first
  ;; (setopt which-key-sort-order 'which-key-local-then-key-order)
  ;;;;; Sort based on the key description ignoring case
  ;; (setopt which-key-sort-order 'which-key-description-order)
  
  ;;;; Popup Type Options
  ;;;; minibuffer | side-window | frame | custom
  (setopt which-key-popup-type 'minibuffer)
  
  ;;;;; Set the time delay (in seconds) for the which-key popup to appear
  (setopt which-key-idle-delay 1.0)
  (setopt which-key-idle-secondary-delay 0.05)
  
  ;;;; Set the maximum length (in characters) for key descriptions (commands or prefixes)
  (setopt which-key-max-description-length 27)
  
  ;;;; Use additional padding between columns of keys
  (setopt which-key-add-column-padding 0)
  
  ;;;; The maximum number of columns to display in the which-key buffer
  (setopt which-key-max-display-columns nil)
  
  
  ;;;; Use unicode
  (setopt which-key-dont-use-unicode nil)
  
  ;;;; Set the separator used between keys and descriptions
  (setopt which-key-separator " → " )
  (setopt which-key-unicode-correction 3)
  
  ;;;; Set the prefix string that will be inserted in front of prefix commands
  (setopt which-key-prefix-prefix "+" )
  
  ;;;; Show the key prefix on the left, top, or bottom (nil means hide the prefix)
  (setopt which-key-show-prefix 'left)
  
  ;;;; Set to t to show the count of keys shown vs. total keys in the mode line
  (setopt which-key-show-remaining-keys nil)
  
  ;;;; Show actual combinations
  (setopt which-key-computer-remaps t)
  
  ;;;; Like [C-h m]
  (setopt which-key-show-major-mode t)
  
  ;;;; Enable globally
  (which-key-mode)
  
  ;;;
  

  Распечатка 37: packages/which-key/desire.ecf

11.3 Разное

;; (desire 'keycast)

;; ----------------------------------------------------------------------

(desire 'pcache)
(desire 'persistent-soft)

(desire 'alert)

(desire 'rg :precondition-system-executable "rg")

• В файле используется фолдинг по тройной скобке.

12 Оформление интерфейса

• Файл rc.packages.el:

;;;; User interface

12.1 Шрифты

• Emacs. Шрифты

12.1.1 Идентификатор раздела

• Файл: rc.packages.el

  ;;;;; Fonts
  

12.1.2 Шрифт Iosevka

• Шрифт. Iosevka

1. Подключение

   • Файл: rc.packages.el

     (desired 'iosevka)
     

2. Интеграция: fontset

   • Файл: packages/fontset/iosevka.ecf

     ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
     ;;; Set Iosevka font
     ;; https://be5invis.github.io/Iosevka/
     
     ;;; Code:
     
     (add-to-list 'default-frame-alist '(font . "Iosevka Nerd Font-12" ))
     (add-to-list 'initial-frame-alist '(font . "Iosevka Nerd Font-12" ))
     
     (set-face-attribute 'default nil
                         :font "Iosevka Nerd Font"
                         :height 120)
     
     (set-face-attribute 'fixed-pitch nil
                         :font "Iosevka Nerd Font"
                         :height 120)
     
     (set-face-attribute 'variable-pitch nil
                         :font "Iosevka Aile"
                         :height 120)
     
     (dolist (charset '(latin cyrillic greek))
       (set-fontset-font 't charset
                         (font-spec :family "Iosevka Nerd Font" :size 12.0)))
     
     ;;;
     

3. Интеграция: fontaine

   • Файл: packages/fontaine/iosevka.ecf

     ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
     ;;; Set Iosevka font
     ;; https://be5invis.github.io/Iosevka/
     
     ;;; Code:
     
     (setopt fontaine-presets
             '((regular-editing
                :default-family "Iosevka Nerd Font"
                :default-weight normal
                :default-height 120
                :fixed-pitch-family "Iosevka Nerd Font"
                :fixed-pitch-height 1.0
                :variable-pitch-family "Iosevka Aile"
                :variable-pitch-height 1.0
                :bold-weight bold
                :italic-slant italic
                :line-spacing 1)
     
               (presentation
                :inherit regular-editing
                :default-height 180)
     
               (compact
                :inherit regular-editing
                :default-height 90
                :line-spacing 0)))
     
     ;;;; Apply
     (fontaine-set-preset 'regular-editing)
     (fontaine-mode 1)
     
     ;;;
     

4. Интеграция: ligature

   • Файл: packages/ligature/iosevka.ecf

     ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
     ;;; Set Iosevka font
     ;; https://be5invis.github.io/Iosevka/
     
     ;;; Code:
     
     (ligature-set-ligatures
      '(prog-mode org-mode)
      '("<---" "<--"  "<<-" "<-" "->" "-->" "--->" "<->" "<-->" "<--->" "<---->" "<!--"
        "<==" "<===" "<=" "=>" "=>>" "==>" "===>" ">=" "<=>" "<==>" "<===>" "<====>" "<!---"
        "<~~" "<~" "~>" "~~>" "::" ":::" "==" "!=" "===" "!=="
        ":=" ":-" ":+" "<*" "<*>" "*>" "<|" "<|>" "|>" "+:" "-:" "=:" "<******>" "++" "+++"))
     
     ;;; Enables ligature checks globally in all buffers. You can also do it per mode with `ligature-mode'.
     (global-ligature-mode t)
     
     ;; (global-ligature-mode -1)  ; отключить
     ;; (global-ligature-mode 1)   ; включить заново
     
     ;;;
     

5. Интеграция: org-modern

   • Файл: packages/org-modern/iosevka.ecf

     ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
     ;;; Set Iosevka font
     ;; https://be5invis.github.io/Iosevka/
     
     ;;; Code:
     
     ;;;; Choose fonts
     
     (set-face-attribute 'org-modern-symbol nil
                         :family "Iosevka Nerd Font")
     
     ;;;
     

12.1.3 Лигатуры

1. Подключение

   • Файл: rc.packages.el

     (desire 'ligature)
     

2. Загрузка

   • Файл: packages/ligature/loaddefs.ecf

     ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
     ;;; Display typographical ligatures in Emacs
     ;; https://github.com/mickeynp/ligature.el
     
     ;;; Code:
     
     (require 'ligature)
     
     ;;;; For every 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"))
     
     (ligature-set-ligatures '(prog-mode org-mode) '("->" "=>" "!=" "==" ">=" "<="))
     
     ;;; Enables ligature checks globally in all buffers. You can also do it per mode with `ligature-mode'.
     ;; (global-ligature-mode t)
     
     ;;;
     

12.1.4 Разное

;; (desire-conf 'font-lock)
;; (desire-conf 'font-lock-jit)
;; (desire-conf 'font-lock-lazy)
;; (desire-conf 'font-lock-fast)
;; (desire-conf 'faces)
;; (desire-conf 'color-theme nil "color-theme")
;; (desire-conf 'fira-code-mode nil "fira-code-mode" t) ;; Simple minor mode for Fira Code ligatures

12.1.5 unicode-fonts

(desire 'unicode-fonts)

• Загрузка:

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Configure Unicode fonts for Emacs
  ;; https://github.com/rolandwalker/unicode-fonts
  
  ;;; Code:
  
  ;;;; Requires font-utils
  (desire 'font-utils)
  
  ;;;; Requires ucs-utils
  (desire 'ucs-utils)
  
  ;;;; Uses if present
  (desire 'persistent-soft)
  
  ;;;; Load package
  (require 'unicode-fonts)
  
  ;;;
  

  Распечатка 39: packages/unicode-fonts/loaddefs.ecf
• Настройка:

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Configure Unicode fonts for Emacs
  ;; https://github.com/rolandwalker/unicode-fonts
  
  ;;; Code:
  
  ;;; ligature support
  (setopt unicode-fonts-enable-ligatures t)
  
  ;;; By default ligatures will be enabled in all programing modes.
  (setopt unicode-fonts-ligature-modes '(prog-mode))
  
  ;;; You can enable ligatures for specific modes.
  ;; (setopt unicode-fonts-ligature-modes '(php-mode js-mode))
  
  ;;; To enable only for text modes you can use text-mode
  ;; (setopt unicode-fonts-ligature-modes '(text-mode))
  
  ;;; Configure the ligature set
  ;; (setopt unicode-fonts-ligature-set '("|||>" "<|||" "<==>" "<!--" "####" "~~>" "***" "||=" "||>"
  ;; 				   ":::" "::=" "=:=" "===" "==>" "=!=" "=>>" "=<<" "=/=" "!=="
  ;; 				   "!!." ">=>" ">>=" ">>>" ">>-" ">->" "->>" "-->" "---" "-<<"
  ;; 				   "<~~" "<~>" "<*>" "<||" "<|>" "<$>" "<==" "<=>" "<=<" "<->"
  ;; 				   "<--" "<-<" "<<=" "<<-" "<<<" "<+>" "</>" "###" "#_(" "..<"
  ;; 				   "..." "+++" "/==" "///" "_|_" "www" "&&" "^=" "~~" "~@" "~="
  ;; 				   "~>" "~-" "**" "*>" "*/" "||" "|}" "|]" "|=" "|>" "|-" "{|"
  ;; 				   "[|" "]#" "::" ":=" ":>" ":<" "$>" "==" "=>" "!=" "!!" ">:"
  ;; 				   ">=" ">>" ">-" "-~" "-|" "->" "-<" "<~" "<*" "<|" "<:" "<$"
  ;; 				   "<=" "<>" "<-" "<<" "<+" "</" "#{" "#[" "#:" "#=" "#!" "##"
  ;; 				   "#(" "#?" "#_" "%%" ".=" ".-" ".." ".?" "+>" "++" "?:" "?="
  ;; 				   "?." "??" ";;" "/*" "/**" "/=" "/>" "__" "~~" "(*" "*)"
  ;; 				   "://"))
  
  ;; (setopt ecf-unicode-font (font-spec :family "Iosevka" :size 12))
  
  ;; (when ecf-unicode-font
  ;;   (let ((ecf-unicode-font-family (plist-get (font-face-attributes ecf-unicode-font) :family)))
  ;;     (dolist (unicode-block unicode-fonts-block-font-mapping)
  ;;       (push ecf-unicode-font-family (cadr unicode-block)))))
  
  (unicode-fonts-setup)
  
  ;;;
  

  Распечатка 40: packages/unicode-fonts/desire.ecf

12.2 Наборы иконок

;;;;; Icons

12.2.1 all-the-icons

;; (desire 'all-the-icons)

1. Интеграция

   1. treemacs

      • Файл: packages/treemacs/all-the-icons.ecf

      ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
      ;;; all-the-icons integration for treemacs
      
      ;;; Code:
      
      (desire 'treemacs-all-the-icons)
      (require 'treemacs-all-the-icons)
      
      ;;;
      

12.2.2 nerd-icons

• Загрузка пакета:

  (desire 'nerd-icons)
  

  Распечатка 42: rc.packages.el

1. Интеграция

   1. tab-line

      • Emacs. Пакет tab-line
      • Поддержка nerd-icons в tab-line:
        • https://github.com/lucius-martius/tab-line-nerd-icons
      • Пакет применяет иконки из nerd-icons к вкладкам tab-line.
      • Минорный режим tab-line-nerd-icons-global-mode добавляет к функции по умолчанию tab-line-tab-name-format-default иконки для форматирования имён вкладок.

        ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
        ;;; Emacs package that uses the nerd-icons package to apply appropriate icons to tab-line tabs
        ;;;; https://github.com/lucius-martius/tab-line-nerd-icons
        
        ;;; Code:
        
        (desire 'tab-line-nerd-icons)
        (require 'tab-line-nerd-icons)
        
        ;;;; Enable
        (tab-line-nerd-icons-global-mode)
        
        ;;;
        

        Распечатка 43: packages/tab-line/nerd-icons.ecf

   2. corfu

      • Nerd-icon для corfu
      • https://github.com/LuigiPiucco/nerd-icons-corfu

        ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
        ;;; Icons for corfu via nerd-icons
        ;;;; https://github.com/LuigiPiucco/nerd-icons-corfu
        
        ;;; Code:
        
        (desire 'nerd-icons-corfu)
        (require 'nerd-icons-corfu)
        
        (add-to-list 'corfu-margin-formatters #'nerd-icons-corfu-formatter)
        
        ;;;; Tuning
        (setopt nerd-icons-corfu-mapping
              '((array :style "cod" :icon "symbol_array" :face font-lock-type-face)
                (boolean :style "cod" :icon "symbol_boolean" :face font-lock-builtin-face)
             ;; Remember to add an entry for `t', the library uses that as default.
                (t :style "cod" :icon "code" :face font-lock-warning-face)))
        
        ;;;
        

        Распечатка 44: packages/corfu/nerd-icons.ecf

   3. marginalia

      • Nerd-icon для дополнения
      • https://github.com/LuigiPiucco/nerd-icons-corfu

        ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
        ;;; Use nerd-icons for completion
        ;;;; https://github.com/rainstormstudio/nerd-icons-completion
        
        ;;; Code:
        
        (desire 'nerd-icons-completion)
        (require 'nerd-icons-completion)
        
        (nerd-icons-completion-mode)
        (add-hook 'marginalia-mode-hook #'nerd-icons-completion-marginalia-setup)
        
        ;;;
        

        Распечатка 45: packages/marginalia/nerd-icons.ecf

   4. dired

      • Nerd-icon для dired
      • https://github.com/rainstormstudio/nerd-icons-dired

        ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
        ;;; Use nerd-icons for Dired
        ;;;; https://github.com/rainstormstudio/nerd-icons-dired
        
        (desire 'nerd-icons-dired)
        (require 'nerd-icons-dired)
        
        (add-hook 'dired-mode-hook 'nerd-icons-dired-mode)
        
        ;;;
        

        Распечатка 46: packages/dired/nerd-icons.ecf

   5. treemacs

      • Файл: packages/treemacs/nerd-icons.ecf

      ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
      ;;; Nerd-icons theme for treemacs
      ;;; https://github.com/rainstormstudio/treemacs-nerd-icons
      
      ;;; Code:
      
      (desire 'treemacs-nerd-icons)
      (require 'treemacs-nerd-icons)
      (treemacs-load-theme "nerd-icons")
      
      ;;;
      

12.3 Табы

;;; Tabs

12.3.1 centaur-tabs

• Emacs. Пакет Centaur tabs
• Подключение:

  ;; (desire 'centaur-tabs)
  

  Распечатка 48: rc.packages.el

12.3.2 tab-bar

• Emacs. Пакет tab-bar

1. Подключение

   • Файл: rc.packages.el

     (desire 'tab-bar)
     

2. Загрузка

   • Файл: packages/tab-bar/loaddefs.ecf

   ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
   ;;; Emacs Tab Bar
   
   ;;; Code:
   
   (require 'tab-bar)
   
   ;;;
   

3. Настройка

   1. Основная

      • Файл: packages/tab-bar/desire.ecf

      ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
      ;;; Emacs Tab Bar
      
      ;;; Code:
      
      (tab-bar-mode 1)
      (setopt tab-bar-show 1)
      
      (setopt tab-bar-new-tab-to 'right)
      
      ;; (setopt tab-bar-new-tab-choice "*dashboard*")
      ;; (setopt tab-bar-new-tab-choice #'ibuffer)
      
      (setopt tab-bar-tab-hints t)
      ;; (setq tab-bar-select-tab-modifiers "super") ;; FIXME
      
      (setopt tab-bar-format '(tab-bar-format-history tab-bar-format-tabs tab-bar-separator))
      
      ;;;
      

   2. Заголовки

      • Файл: packages/tab-bar/desire.ecd/title.ecf

      ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
      ;;; Emacs Tab Bar
      
      ;;; Code:
      
      (setopt tab-bar-close-button-show t)
      
      (setopt tab-bar-tab-hints t)
      
      (defvar ecf/circle-numbers-alist
        '((0 . "⓪")
          (1 . "①")
          (2 . "②")
          (3 . "③")
          (4 . "④")
          (5 . "⑤")
          (6 . "⑥")
          (7 . "⑦")
          (8 . "⑧")
          (9 . "⑨"))
        "Alist of integers to strings of circled unicode numbers.")
      
      (defun ecf/tab-bar-tab-name-format-default (tab i)
        (let ((current-p (eq (car tab) 'current-tab))
              (tab-num (if (and tab-bar-tab-hints (< i 10))
                           (alist-get i ecf/circle-numbers-alist) "")))
          (propertize
           (concat tab-num
                   " "
                   (alist-get 'name tab)
                   (or (and tab-bar-close-button-show
                            (not (eq tab-bar-close-button-show
                                     (if current-p 'non-selected 'selected)))
                            tab-bar-close-button)
                       "")
                   " ")
           'face (funcall tab-bar-tab-face-function tab))))
      (setopt tab-bar-tab-name-format-function #'ecf/tab-bar-tab-name-format-default)
      
      ;;;
      

4. Клавиатурные сочетания

   • Файл: packages/tab-bar/desire.ecd/keybinding.ecf

   ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
   ;;; Emacs Tab Bar key bindings
   
   ;;; Code:
   
   (general-define-key
    ;;;; Select the previous available tab
    ;; "C-{"  'tab-bar-switch-to-prev-tab
    "s-{" 'tab-bar-switch-to-prev-tab
   ;;;; Select the next available tab
    ;; "C-}" 'tab-bar-switch-to-next-tab
    "s-}" 'tab-bar-switch-to-next-tab)
   
    ;; "s-t" 'tab-bar-new-tab
    ;; "s-w" 'tab-bar-close-tab
   
   ;;;
   

5. Интеграция

   1. tab-bar-lost-commands

      • Emacs. tab-bar. Пакет tab-bar-lost-commands
      • Файл: packages/tab-bar/desire.ecd/tab-bar-lost-commands.ecf

        ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
        ;;; The "lost commands" of the tab bar
        ;; https://github.com/fritzgrabo/tab-bar-lost-commands
        
        ;;; Code:
        
        (general-define-key
         "M-s-{" 'tab-bar-lost-commands-switch-to-first-tab
         "M-s-}" 'tab-bar-lost-commands-switch-to-last-tab
         "C-s-{" 'tab-bar-lost-commands-move-tab-backward
         "C-s-}" 'tab-bar-lost-commands-move-tab-forward
         "C-M-s-{" 'tab-bar-lost-commands-move-tab-first
         "C-M-s-}" 'tab-bar-lost-commands-move-tab-last)
        
        (general-define-key
         :keymaps 'tab-prefix-map
         "<return>" 'tab-bar-lost-commands-switch-to-or-create-tab)
        
        ;;;
        

   2. vim-tab-bar

      • Файл: packages/tab-bar/desire.ecd/vim-tab-bar.ecf

      ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
      ;;; A Vim-Inspired Tab-Bar That Automatically Adapts to Any Emacs Theme
      ;; https://github.com/jamescherti/vim-tab-bar.el
      
      ;;; Code
      
      (desire 'vim-tab-bar)
      (vim-tab-bar-mode)
      
      ;;;; Show the tab groups
      (setq vim-tab-bar-show-groups t)
      
      ;;;
      

12.3.3 tab-line

• Emacs. Пакет tab-line

1. Подключение

   • Файл: rc.packages.el

     (desire 'tab-line)
     

2. Загрузка

   • Файл: packages/tab-line/loaddefs.ecf

     ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
     ;;; Emacs Tab Line
     
     ;;; Code:
     
     (require 'tab-line)
     
     ;;;
     

3. Настройка

   • Файл: packages/tab-line/desire.ecf

     ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
     ;;; Emacs Tab Line
     
     ;;; Code:
     
     ;;; Show the tabline in the top of the frame
     (global-tab-line-mode t)
     
     ;;; Do not show add-new button
     (setopt tab-line-new-button-show nil)
     
     ;;; Do not show close button
     (setopt tab-line-close-button-show nil)
     
     ;;; Change the separator between tabs
     (setopt tab-line-separator "")
     
     ;;;
     

4. Клавиатурные сочетания

   • Файл: packages/tab-line/desire.ecd/keybinding.ecf

     ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
     ;;; Emacs Tab Line
     
     ;;; Code
     
     (general-define-key
      "C-<prior>" 'tab-line-switch-to-prev-tab
      "C-<iso-lefttab>" 'tab-line-switch-to-prev-tab
      "s-[" 'tab-line-switch-to-prev-tab
      "C-<next>" 'tab-line-switch-to-next-tab
      "C-<tab>" 'tab-line-switch-to-next-tab
      "s-]" 'tab-line-switch-to-next-tab)
     
      ;;;
     

5. Intuitive Tabs in Emacs

   • Emacs. tab-line. Пакет intuitive-tab-line-mode
   • Файл: packages/tab-line/desire.ecd/intuitive-tab-line.ecf

     ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
     ;;; Intuitive Tabs in Emacs
     ;; https://github.com/thread314/intuitive-tab-line-mode
     
     ;;; Code:
     
     (desire 'intuitive-tab-line :recipe '(:fetcher github :repo "thread314/intuitive-tab-line-mode" :branch "master"))
     (require 'intuitive-tab-line)
     
     ;;;; Show all user-created buffers as tabs
     ;; (setopt tab-line-tabs-function 'intuitive-tab-line-buffers-list)
     
     (setopt tab-line-switch-cycling t)
     
     (general-define-key
      ;; "C-S-<prior>" 'intuitive-tab-line-shift-tab-left
      ;; "C-S-<next>" 'intuitive-tab-line-shift-tab-right
      "C-s-[" 'intuitive-tab-line-shift-tab-left
      "C-s-]" 'intuitive-tab-line-shift-tab-right
      )
     
     (recentf-mode 1)
     (general-define-key
      "C-S-t" 'recentf-open-most-recent-file)
     
     ;;;;
     

12.4 Нумерация строк

• Emacs. Нумерация строк

12.4.1 display-line-numbers

• Подключаем моду:

  (desire 'display-line-numbers)
  

  Распечатка 49: rc.packages.el
• Файл настройки:

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Interface for display-line-numbers
  

  Распечатка 50: packages/display-line-numbers.ecf
• Глобальная настройка:

  ;;; Global
  ;; (global-display-line-numbers-mode 1)
  

  Распечатка 51: packages/display-line-numbers.ecf
• Глобальная настройка:

  ;;; Per mode
  (add-hook 'prog-mode-hook #'display-line-numbers-mode)
  (add-hook 'text-mode-hook #'display-line-numbers-mode)
  

  Распечатка 52: packages/display-line-numbers.ecf
• Завершение:

  ;;;
  

  Распечатка 53: packages/display-line-numbers.ecf

12.4.2 nlinum

• Подключаем моду:

  ;; (desire 'nlinum)
  

  Распечатка 54: rc.packages.el
• Загрузка пакета:

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Show line numbers in the margin
  ;;; https://elpa.gnu.org/packages/nlinum.html
  
  (require 'nlinum)
  

  Распечатка 55: packages/nlinum.ecf
• Глобальная настройка:

  ;;; Global settings
  ;; (global-nlinum-mode 1)
  

  Распечатка 56: packages/nlinum.ecf
• Настройка по модам:

  ;;; Per mode configuration
  (add-hook 'prog-mode-hook #'nlinum-mode)
  (add-hook 'text-mode-hook #'nlinum-mode)
  

  Распечатка 57: packages/nlinum.ecf
• Завершение:

  ;;;
  

  Распечатка 58: packages/nlinum.ecf

12.5 shr-tag-pre-highlight : раскрашивание eww

• Загрузка.

  ;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Syntax highlighting code block in HTML for shr/eww
  ;; https://github.com/xuchunyang/shr-tag-pre-highlight.el
  
  ;;; Code:
  
  (require 'shr-tag-pre-highlight)
  
  (add-to-list 'shr-external-rendering-functions '(pre . shr-tag-pre-highlight))
  
  ;;;
  

  Распечатка 59: packages/shr-tag-pre-highlight.ecf

12.6 shrface : функциональность Org-mode для eww

• Emacs. Пакет shrface

12.6.1 Основной пакет : shrface

• Подключение.

  (desire 'shrface)
  

  Распечатка 60: rc.packages.el

• Объявления.

  ;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Extend eww/nov with org-mode features, archive web pages to org files with shr
  ;; https://github.com/chenyanming/shrface
  
  ;;; Code:
  
  ;;;
  

  Распечатка 61: packages/shrface/loaddefs.ecf

• Загрузка.

  ;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Extend eww/nov with org-mode features, archive web pages to org files with shr
  ;; https://github.com/chenyanming/shrface
  
  ;;; Code:
  
  (require 'shrface)
  
  ;;;
  

  Распечатка 62: packages/shrface/desire.ecf

• Настройка.

  ;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Extend eww/nov with org-mode features, archive web pages to org files with shr
  ;; https://github.com/chenyanming/shrface
  
  ;;; Code:
  
  (defvar shrface-general-rendering-functions
    (append '((title . eww-tag-title)
              (form . eww-tag-form)
              (input . eww-tag-input)
              (button . eww-form-submit)
              (textarea . eww-tag-textarea)
              (select . eww-tag-select)
              (link . eww-tag-link)
              (meta . eww-tag-meta)
              (code . shrface-tag-code)
              (pre . shrface-shr-tag-pre-highlight))
            shrface-supported-faces-alist))
  
  (defvar shrface-nov-rendering-functions
    (append '((img . nov-render-img)
              (svg . nov-render-svg)
              (title . nov-render-title)
              (pre . shrface-shr-tag-pre-highlight)
              (code . shrface-tag-code)
              (form . eww-tag-form)
              (input . eww-tag-input)
              (button . eww-form-submit)
              (textarea . eww-tag-textarea)
              (select . eww-tag-select)
              (link . eww-tag-link)
              (meta . eww-tag-meta))
            shrface-supported-faces-alist))
  
  (defvar shrface-anki-rendering-functions
    (append '((img . anki-render-img)
              (pre . shrface-shr-tag-pre-highlight)
              (code . shrface-tag-code)
              (form . eww-tag-form)
              (input . eww-tag-input)
              (button . eww-form-submit)
              (textarea . eww-tag-textarea)
              (select . eww-tag-select)
              (link . eww-tag-link)
              (meta . eww-tag-meta))
            shrface-supported-faces-alist))
  
  (setq shr-cookie-policy nil)
  (if (string-equal system-type "android")
      (setq shrface-bullets-bullet-list '("▼" "▽" "▿" "▾"))
    (setq shrface-bullets-bullet-list '("▼" "▽" "▿" "▾")))
  (add-hook 'outline-view-change-hook 'shrface-outline-visibility-changed)
  
  (desire 'shr-tag-pre-highlight)
  (require 'shr-tag-pre-highlight)
  
  (setq shr-tag-pre-highlight-lang-modes
        '(("ocaml" . tuareg) ("elisp" . emacs-lisp) ("ditaa" . artist)
          ("asymptote" . asy) ("dot" . fundamental) ("sqlite" . sql)
          ("calc" . fundamental) ("C" . c) ("cpp" . c++) ("C++" . c++)
          ("screen" . shell-script) ("shell" . sh) ("bash" . sh)
          ("rust" . rustic)
          ("rust" . rustic)
          ("awk" . bash)
          ("json" . "js")
          ;; Used by language-detection.el
          ("emacslisp" . emacs-lisp)
          ;; Used by Google Code Prettify
          ("el" . emacs-lisp)))
  
  ;;;
  

  Распечатка 63: packages/shrface/desire.ecd/config.ecf

• Функции.

  ;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Extend eww/nov with org-mode features, archive web pages to org files with shr
  ;; https://github.com/chenyanming/shrface
  
  ;;; Code:
  
  (defun shrface-eww-setup ()
    (unless shrface-toggle-bullets
      (shrface-regexp)
      (setq-local imenu-create-index-function #'shrface-imenu-get-tree))
    ;; workaround to show annotations in eww
    (shrface-show-all-annotations))
  
  (defun shrface-anki-setup ()
    (unless shrface-toggle-bullets
      (shrface-regexp)
      (setq-local imenu-create-index-function #'shrface-imenu-get-tree)))
  
  (defun shrface-anki-advice (orig-fun &rest args)
    (require 'eww)
    (let ((shrface-org nil)
          (shr-bullet (concat (char-to-string shrface-item-bullet) " "))
          (shr-table-vertical-line "")
          (shr-width 90)
          (shr-indentation 3)
          (anki-shr-rendering-functions shrface-anki-rendering-functions)
          (shrface-toggle-bullets nil)
          (shrface-href-versatile t))
      (apply orig-fun args)))
  
  (defun shrface-shr-tag-pre-highlight (pre)
    "Highlighting code in PRE."
    (let* ((shr-folding-mode 'none)
           (shr-current-font 'default)
           (code (with-temp-buffer
                   (shr-generic pre)
                   ;; (indent-rigidly (point-min) (point-max) 2)
                   (buffer-string)))
           (lang (or (shr-tag-pre-highlight-guess-language-attr pre)
                     (let ((sym (language-detection-string code)))
                       (and sym (symbol-name sym)))))
           (mode (and lang
                      (shr-tag-pre-highlight--get-lang-mode lang))))
      (shr-ensure-newline)
      (shr-ensure-newline)
      (setq start (point))
      (insert
       ;; (propertize (concat "#+BEGIN_SRC " lang "\n") 'face 'org-block-begin-line)
       (or (and (fboundp mode)
                (with-demoted-errors "Error while fontifying: %S"
                  (shr-tag-pre-highlight-fontify code mode)))
           code)
       ;; (propertize "#+END_SRC" 'face 'org-block-end-line )
       )
      (shr-ensure-newline)
      (setq end (point))
      (pcase (frame-parameter nil 'background-mode)
        ('light
         (add-face-text-property start end '(:background "#D8DEE9" :extend t)))
        ('dark
         (add-face-text-property start end '(:background "#292b2e" :extend t))))
      (shr-ensure-newline)
      (insert "\n")))
  
  (defun shrface-nov-render-html ()
    (require 'eww)
    (let ((shrface-org nil)
          (shr-bullet (concat (char-to-string shrface-item-bullet) " "))
          (shr-table-vertical-line "|")
          (shr-width 7000) ;; make it large enough, it would not fill the column (use visual-line-mode/writeroom-mode instead)
          (shr-indentation 0) ;; remove all unnecessary indentation
          (tab-width 8)
          (shr-external-rendering-functions shrface-nov-rendering-functions)
          (shrface-toggle-bullets nil)
          (shrface-href-versatile t)
          (shr-use-fonts nil)           ; nil to use default font
          (shr-map nov-mode-map))
  
      ;; HACK: `shr-external-rendering-functions' doesn't cover
      ;; every usage of `shr-tag-img'
      (cl-letf (((symbol-function 'shr-tag-img) 'nov-render-img))
        (shr-render-region (point-min) (point-max)))
      ;; workaround, need a delay to update the header line
      (run-with-timer 0.01 nil 'shrface-update-header-line)
      ;; workaround, show annotations when document updates
      (shrface-show-all-annotations)))
  
  (defun shrface-remove-blank-lines-at-the-end (start end)
    "A fix for `shr--remove-blank-lines-at-the-end' which will remove image at the end of the document."
    (save-restriction
      (save-excursion
        (narrow-to-region start end)
        (goto-char end)
        (when (and (re-search-backward "[^ \n]" nil t)
                   (not (eobp)))
          (forward-line 1)
          (delete-region (point) (min (1+ (point)) (point-max)))))))
  
  (defun shrface-nov-setup ()
    (unless shrface-toggle-bullets
      (shrface-regexp))
    (set-visited-file-name nil t)
    (setq tab-width 8)
    (if (string-equal system-type "android")
        (setq-local touch-screen-enable-hscroll nil)))
  
  (defun shrface-wallabag-setup ()
    (unless shrface-toggle-bullets
      (shrface-regexp)
      (setq-local imenu-create-index-function #'shrface-imenu-get-tree))
    (if (string-equal system-type "android")
        (setq-local touch-screen-enable-hscroll nil)))
  
  (defun shrface-wallabag-render-html (beg end)
    ;; workaround, show annotations when document updates
    (shrface-render-region beg end)
    (shrface-update-header-line)
    (paw-annotation-mode 1)
    (visual-line-mode 1))
  
  (defun shrface-render-region (beg end)
    (require 'eww)
    (let ((shrface-org nil)
          (shr-bullet (concat (char-to-string shrface-item-bullet) " "))
          ;; make it large enough, it would not fill the column
          ;; I uses visual-line-mode, writeroom-mode for improving the reading experience instead
          (shr-width 7000)
          (shr-indentation (if (string-equal system-type "android") 0 0))
          (shr-table-vertical-line "|")
          (shr-external-rendering-functions shrface-general-rendering-functions)
          (shrface-toggle-bullets nil)
          (shrface-href-versatile t)
          (shr-use-fonts nil))
      (shr-render-region beg end)))
  
  (defun shrface-render-advice (orig-fun &rest args)
    (require 'eww)
    (let ((shrface-org nil)
          (shr-bullet (concat (char-to-string shrface-item-bullet) " "))
          (shr-table-vertical-line "|")
          (shr-width 65)
          (shr-indentation 0)
          (shr-external-rendering-functions shrface-general-rendering-functions)
          (shrface-toggle-bullets nil)
          (shrface-href-versatile t)
          (shr-use-fonts nil))
      ;; workaround, need a delay to update the header line
      (run-with-timer 0.01 nil 'shrface-update-header-line)
      (apply orig-fun args)))
  
  (defun shrface-elfeed-advice (orig-fun &rest args)
    (require 'eww)
    (let ((shrface-org nil)
          (shr-bullet (concat (char-to-string shrface-item-bullet) " "))
          ;; make it large enough, it would not fill the column
          ;; I uses visual-line-mode, writeroom-mode for improving the reading experience instead
          (shr-width 7000)
          (shr-indentation 0)
          (shr-table-vertical-line "|")
          (shr-external-rendering-functions shrface-general-rendering-functions)
          (shrface-toggle-bullets nil)
          (shrface-href-versatile t)
          (shr-use-fonts nil))
      (apply orig-fun args)
      (with-current-buffer "*elfeed-entry*"
        (shrface-show-all-annotations))))
  
  (defun shrface-show-all-annotations()
    (when (bound-and-true-p paw-annotation-mode)
      (paw-clear-annotation-overlay)
      (paw-show-all-annotations)
      (if paw-annotation-show-wordlists-words-p
          (paw-focus-find-words :wordlist t))
      (if paw-annotation-show-unknown-words-p
          (paw-focus-find-words))))
  
  ;;;
  

  Распечатка 64: packages/shrface/desire.ecd/advice.ecf

12.6.2 Поддержка nov

• Настройка:

  ;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Extend eww/nov with org-mode features, archive web pages to org files with shr
  ;; https://github.com/chenyanming/shrface
  
  ;;; Code:
  
  (require 'shrface)
  
  (add-hook 'nov-mode-hook #'eldoc-mode)
  (add-hook 'nov-mode-hook #'org-indent-mode)
  (add-hook 'nov-mode-hook #'eldoc-box-hover-mode)
  (add-hook 'nov-mode-hook #'shrface-nov-setup)
  
  (setopt nov-render-html-function #'shrface-nov-render-html)
  (advice-add 'shr--remove-blank-lines-at-the-end :override #'shrface-remove-blank-lines-at-the-end)
  
  (define-key nov-mode-map (kbd "<tab>") 'shrface-outline-cycle)
  (define-key nov-mode-map (kbd "S-<tab>") 'shrface-outline-cycle-buffer)
  (define-key nov-mode-map (kbd "C-t") 'shrface-toggle-bullets)
  (define-key nov-mode-map (kbd "C-j") 'shrface-next-headline)
  (define-key nov-mode-map (kbd "C-k") 'shrface-previous-headline)
  (define-key nov-mode-map (kbd "M-l") 'shrface-links-consult) ; or 'shrface-links-helm or 'shrface-links-counsel
  (define-key nov-mode-map (kbd "M-h") 'shrface-headline-consult) ; or 'shrface-headline-helm or 'shrface-headline-counsel
  
  ;;;
  

  Распечатка 65: packages/nov/shrface.ecf

12.6.3 Поддержка eww

• Настройка:

  ;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Extend eww/nov with org-mode features, archive web pages to org files with shr
  ;; https://github.com/chenyanming/shrface
  
  ;;; Code:
  
  (require 'shrface)
  
  (advice-add 'eww-display-html :around #'shrface-render-advice)
  (add-hook 'eww-after-render-hook #'org-indent-mode)
  (add-hook 'eww-after-render-hook #'eldoc-mode)
  (add-hook 'eww-after-render-hook #'eldoc-box-hover-mode)
  (add-hook 'eww-after-render-hook #'shrface-eww-setup)
  
  (define-key eww-mode-map (kbd "<tab>") 'shrface-outline-cycle)
  (define-key eww-mode-map (kbd "S-<tab>") 'shrface-outline-cycle-buffer)
  (define-key eww-mode-map (kbd "C-t") 'shrface-toggle-bullets)
  (define-key eww-mode-map (kbd "C-j") 'shrface-next-headline)
  (define-key eww-mode-map (kbd "C-k") 'shrface-previous-headline)
  (define-key eww-mode-map (kbd "M-l") 'shrface-links-consult) ; or 'shrface-links-helm or 'shrface-links-counsel
  (define-key eww-mode-map (kbd "M-h") 'shrface-headline-consult) ; or 'shrface-headline-helm or 'shrface-headline-counsel
  
  ;;;
  

  Распечатка 66: packages/eww/shrface.ecf

12.6.4 Поддержка anki

• Настройка:

  ;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Extend eww/nov with org-mode features, archive web pages to org files with shr
  ;; https://github.com/chenyanming/shrface
  
  ;;; Code:
  
  (require 'shrface)
  
  (add-hook 'anki-mode-hook #'org-indent-mode)
  (advice-add 'anki-render-html :around #'shrface-anki-advice)
  (advice-add 'anki-render-region :around #'shrface-anki-advice)
  (add-hook 'anki-mode-hook #'eldoc-mode)
  (add-hook 'anki-mode-hook #'eldoc-box-hover-mode)
  (add-hook 'anki-mode-hook #'shrface-anki-setup)
  
  ;;;
  

  Распечатка 67: packages/anki/shrface.ecf

12.6.5 Поддержка calibredb

• Настройка:

  ;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Extend eww/nov with org-mode features, archive web pages to org files with shr
  ;; https://github.com/chenyanming/shrface
  
  ;;; Code:
  
  (require 'shrface)
  
  (advice-add 'calibredb-show-entry :around #'shrface-render-advice)
  
  ;;;
  

  Распечатка 68: packages/calibredb/shrface.ecf

12.6.6 Поддержка wallabag

• Настройка:

  ;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Extend eww/nov with org-mode features, archive web pages to org files with shr
  ;; https://github.com/chenyanming/shrface
  
  ;;; Code:
  
  (require 'shrface)
  
  ;; (add-hook 'wallabag-entry-mode-hook #'org-indent-mode)
  (add-hook 'wallabag-entry-mode-hook #'eldoc-mode)
  (add-hook 'wallabag-entry-mode-hook #'eldoc-box-hover-mode)
  (add-hook 'wallabag-entry-mode-hook #'shrface-wallabag-setup)
  (advice-add 'wallabag-entry-quit :after #'(lambda (&rest args)
                                              (interactive)
                                              (if (get-buffer "*Ilist*")
                                                  (kill-buffer "*Ilist*"))))
  
  (setq wallabag-render-html-function #'shrface-wallabag-render-html)
  
  ;;;
  

  Распечатка 69: packages/wallabag/shrface.ecf

12.6.7 Поддержка mu4e

• Настройка:

  ;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Extend eww/nov with org-mode features, archive web pages to org files with shr
  ;; https://github.com/chenyanming/shrface
  
  ;;; Code:
  
  (require 'shrface)
  
  (advice-add 'mu4e-shr2text :around #'shrface-render-advice)
  
  (define-key mu4e-view-mode-map (kbd "<tab>") 'shrface-outline-cycle)
  (define-key mu4e-view-mode-map (kbd "S-<tab>") 'shrface-outline-cycle-buffer)
  (define-key mu4e-view-mode-map (kbd "C-t") 'shrface-toggle-bullets)
  (define-key mu4e-view-mode-map (kbd "C-j") 'shrface-next-headline)
  (define-key mu4e-view-mode-map (kbd "C-k") 'shrface-previous-headline)
  (define-key mu4e-view-mode-map (kbd "M-l") 'shrface-links-consult) ; or 'shrface-links-helm or 'shrface-links-counsel
  (define-key mu4e-view-mode-map (kbd "M-h") 'shrface-headline-consult) ; or 'shrface-headline-helm or 'shrface-headline-counsel
  
  ;;;
  

  Распечатка 70: packages/mu4e/shrface.ecf

12.6.8 Поддержка elfeed

• Настройка:

  ;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; Extend eww/nov with org-mode features, archive web pages to org files with shr
  ;; https://github.com/chenyanming/shrface
  
  ;;; Code:
  
  (require 'shrface)
  
  (add-hook 'elfeed-show-mode-hook #'org-indent-mode)
  (add-hook 'elfeed-show-mode-hook #'eldoc-mode)
  (add-hook 'elfeed-show-mode-hook #'eldoc-box-hover-mode)
  (add-hook 'elfeed-show-mode-hook #'shrface-wallabag-setup)
  (advice-add 'elfeed-insert-html :around #'shrface-elfeed-advice)
  
  ;;;
  

  Распечатка 71: packages/elfeed/shrface.ecf

12.7 Universal Sidecar

12.7.1 Подключение

• Файл: rc.packages.el

  ;; (desire 'universal-sidecar)
  

12.7.2 Загрузка

• Файл: packages/universal-sidecar/loaddefs.ecf

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; A universal "sidecar" buffer for emacs, inspired by the `org-roam-mode` buffer
  ;; https://git.sr.ht/~swflint/emacs-universal-sidecar
  
  ;;; Code:
  
  (require 'universal-sidecar)
  
  ;;;
  

12.7.3 Конфигурация

• Файл: packages/universal-sidecar/desire.ecf

  ;;; -*- mode: emacs-lisp; lexical-binding: t; coding: utf-8-unix; -*-
  ;;; A universal "sidecar" buffer for emacs, inspired by the `org-roam-mode` buffer
  ;; https://git.sr.ht/~swflint/emacs-universal-sidecar
  
  ;;; Code:
  
  ;;;; Enable universal-sidecar globally or in specific modes
  ;; (universal-sidecar-global-mode t)
  
  ;;;; Enable universal-sidecar in specific modes
  (add-hook 'prog-mode-hook #'universal-sidecar-mode)
  
  ;;;; Configure the sections to display in the sidecar
  (setopt universal-sidecar-sections
        '(
          buffer-git-status ; Shows Git status for the current buffer
          buffer-info-section ; Displays basic buffer information
          ;; Add other sections as needed, e.g.,
          ;; org-cite-overlay-sidecar ; For Org-cite citations if using org-cite-overlay
          ))
  
  ;;;; Insinuate universal-sidecar to automatically refresh
  ;;;; This advises relevant functions to update the sidecar
   (universal-sidecar-insinuate)
  
  ;;;; Optionally, configure refresh behavior
  ;; (setopt universal-sidecar-enable-timer t) ; Enable idle timer for refreshing
  ;; (setopt universal-sidecar-refresh-time 5) ; Set refresh time in seconds
  
  ;;;