Changeset 0d11196 in dotfiles


Ignore:
Timestamp:
May 24, 2023, 8:08:21 PM (20 months ago)
Author:
Mikhail Kirillov <mikhail.kirillov@…>
Branches:
master
Children:
6650241
Parents:
733c9a0
Message:

Update emacs config

File:
1 edited

Legend:

Unmodified
Added
Removed

  • emacs/.emacs.d/.emacs-config.org

    r733c9a0 r0d11196  
    125125      (package-install 'auctex)
    126126      (package-install 'rmsbolt)
    127       (package-install 'beginend)
     127      ;; (package-install 'beginend)
    128128      ;; (package-install 'composer)
    129129      (package-install 'cinspect)
    … …  
    140140      (package-install 'debbugs)
    141141      ;;(package-install 'deft)
    142       (package-install 'direnv)
     142      ;; (package-install 'direnv)
    143143      (package-install 'dumb-jump)
    144144      (package-install 'docker)
    … …  
    148148      (package-install 'org-sql)
    149149      ;;(package-install 'eglot)
    150       (package-install 'eglot-java)
    151       (package-install 'mastodon)
    152       (package-install 'exec-path-from-shell)
     150      ;; (package-install 'eglot-java)
     151      ;; (package-install 'mastodon)
     152      ;; (package-install 'exec-path-from-shell)
    153153      (package-install 'expand-region)
    154       (package-install 'flymake-php)
    155       (package-install 'flycheck)
    156       (package-install 'phpactor)
     154      ;; (package-install 'flymake-php)
     155      ;; (package-install 'flycheck)
     156      ;; (package-install 'phpactor)
    157157      ;;(package-install 'robe)
    158158      (package-install 'geiser)
    159159      (package-install 'geiser-guile)
    160160      (package-install 'guix)
    161       (package-install 'git-gutter)
    162       (package-install 'gnuplot)
     161      ;; (package-install 'git-gutter)
     162      ;; (package-install 'gnuplot)
    163163      ;;(package-install 'swiper)
    164164      ;;(package-install 'sqlite3)
    165165      (package-install 'org-roam)
    166166      ;; (package-install 'org-roam-ui)
    167       (package-install 'org-download)
    168       (package-install 'org-babel-eval-in-repl)
     167      ;; (package-install 'org-download)
     168      ;; (package-install 'org-babel-eval-in-repl)
    169169      ;;(package-install 'ob-php)
    170       (package-install 'on-screen)
     170      ;; (package-install 'on-screen)
    171171      ;;(package-install 'nix-mode)
    172172      (package-install 'pdf-tools)
    … …  
    182182      ;;(package-install 'phps-mode)
    183183      (package-install 'realgud)
    184       (package-install 'kiwix)
     184      ;; (package-install 'kiwix)
    185185      ;;(package-install 'sml-mode)
    186186      (package-install 'sly)
    … …  
    189189      ;;(package-install 'treemacs)
    190190      (package-install 'undo-tree)
    191       (package-install 'yasnippet)
    192       (package-install 'yasnippet-snippets)
    193       (package-install 'vimrc-mode)
    194       (package-install 'flymake-phpcs)
    195       (package-install 'flymake-phpstan)
    196       (package-install 'no-littering)
     191      ;; (package-install 'yasnippet)
     192      ;; (package-install 'yasnippet-snippets)
     193      ;; (package-install 'vimrc-mode)
     194      ;; (package-install 'flymake-phpcs)
     195      ;; (package-install 'flymake-phpstan)
     196      ;; (package-install 'no-littering)
    197197      (package-install 'web-mode)
    198       (package-install 'which-key)
    199       (package-install 'reverse-im)
     198      ;; (package-install 'which-key)
     199      ;; (package-install 'reverse-im)
    200200      (package-install 'imenu-list)
    201       (package-install 'isearch-mb)
     201      ;; (package-install 'isearch-mb)
    202202      (package-install 'visual-fill-column)
    203       (package-install 'browse-kill-ring)
    204       (package-install 'corfu)
    205       (package-install 'inf-ruby)
     203      ;; (package-install 'browse-kill-ring)
     204      ;; (package-install 'corfu)
     205      ;; (package-install 'inf-ruby)
    206206      (package-install 'yaml-mode)
    207       (package-install 'geben)
     207      ;; (package-install 'geben)
    208208      (package-install 'link-hint)
    209209      (package-install 'whole-line-or-region)
    210       (package-install 'psysh)
    211       (package-install 'restclient)))
     210      ;; (package-install 'psysh)
     211      ;; (package-install 'restclient)
     212      ))
    212213#+end_src
    213214
    … …  
    256257стал использовать, потому что иксы замыливают этот пиксельный шрифт, что
    257258делает его использование крайне неприятным.
    258 #+begin_src emacs-lisp :tangle init.el 
     259#+begin_src emacs-lisp :tangle nil
    259260  ;; Do not resize the frame at this early stage.
    260261  (setq frame-inhibit-implied-resize t)
    … …  
    412413  ;; Information about me
    413414  (setq user-full-name "Mikhail Kirillov"
    414         user-mail-address "w96k.ru@gmail.com")
     415        user-mail-address "w96k@runbox.com")
    415416#+END_SRC
    416417
    … …  
    445446** Назначение шрифтов
    446447А также отступа между строк
    447 #+BEGIN_SRC emacs-lisp :tangle init.el
     448#+BEGIN_SRC emacs-lisp :tangle nil
    448449  ;;; Set font
    449450  (setq-default line-spacing 0)
    … …  
    463464  (define-key global-map
    464465    (kbd "<f7>") 'global-display-line-numbers-mode)
    465  
     466
    466467  (define-key global-map
    467468    (kbd "<f6>") 'whitespace-mode)
    … …  
    470471** Скроллинг
    471472Помечает на время часть старого буфера при скроллинге.
    472 #+BEGIN_SRC emacs-lisp :tangle init.el
     473#+BEGIN_SRC emacs-lisp :tangle nil
    473474  (when (package-loaded? "on-screen")
    474475    (on-screen-global-mode t))
    … …  
    566567** Файловый менеджер
    567568#+BEGIN_SRC emacs-lisp :tangle init.el
    568   (setq dired-async-mode t)
    569569  ;; Show files in KiB
    570570  (setq dired-listing-switches "-hlap"
    … …  
    650650
    651651** Better Isearch
    652 #+begin_src emacs-lisp :tangle init.el
     652#+begin_src emacs-lisp :tangle nil
    653653  (when (package-loaded? "isearch-mb")
    654654    (progn
    … …  
    676676    (setq vc-command-messages t)
    677677
    678     ;;(load "git-dwim-autoloads")
    679 
    680678    (global-set-key "\C-xvB" 'git-branch-next-action)
    681 
    682     ;; Fix for transient to behave like a normal buffer
    683   ;; (with-eval-after-load 'transient
    684   ;;   (setq
    685   ;;    transient--buffer-name "*transient*"
    686   ;;    ;; transient-detect-key-conflicts t
    687   ;;    ;; transient-highlight-mismatched-keys t
    688   ;;    ;; transient--debug t
    689   ;;    transient-enable-popup-navigation t
    690   ;;    transient-mode-line-format mode-line-format
    691   ;;    transient-display-buffer-action '(display-buffer-below-selected))
    692 
    693   ;;   (let ((map transient-base-map))
    694   ;;     (define-key map (kbd "C-g") 'transient-quit-all)
    695   ;;     (define-key map (kbd "C-q") 'transient-quit-one)
    696   ;;     (define-key map (kbd "DEL") 'transient-quit-one))
    697 
    698   ;;   (define-key transient-map (kbd "C-h") nil)
    699 
    700   ;;   (let ((map transient-popup-navigation-map))
    701   ;;     (define-key map (kbd "<tab>") 'transient-forward-button)
    702   ;;     (define-key map (kbd "<backtab>") 'transient-backward-button ))
    703 
    704   ;;   (transient-suffix-put 'transient-common-commands
    705   ;;                    "C-g" :command 'transient-quit-all)
    706   ;;   (transient-suffix-put 'transient-common-commands
    707   ;;                    "C-q" :command 'transient-quit-one)
    708 
    709   ;;   (defun al/transient-fix-window ()
    710   ;;     "Return `transient--window' to a 'normal' state."
    711   ;;     (set-window-dedicated-p transient--window nil)
    712   ;;     (set-window-parameter transient--window 'no-other-window nil)
    713   ;;     (with-selected-window transient--window
    714   ;;       (setq
    715   ;;        window-size-fixed nil
    716   ;;        cursor-in-non-selected-windows t
    717   ;;        cursor-type (default-value 'cursor-type)
    718   ;;        mode-line-buffer-identification
    719   ;;        (list ""
    720   ;;         (symbol-name (oref transient--prefix command))
    721   ;;         " " (default-value 'mode-line-buffer-identification)))))
    722 
    723   ;;   (define-derived-mode al/transient-mode special-mode "al/transient"
    724   ;;     (setq buffer-read-only nil)
    725   ;;     (al/transient-fix-window))
    726 
    727   ;;   (defun al/transient-push-keymap (map)
    728   ;;     (with-demoted-errors "al/transient-push-keymap: %S"
    729   ;;       (internal-push-keymap (symbol-value map) 'al/transient-mode-map)))
    730 
    731   ;;   (defun al/transient-pop-keymap (map)
    732   ;;     (with-demoted-errors "al/transient-pop-keymap: %S"
    733   ;;       (internal-pop-keymap (symbol-value map) 'al/transient-mode-map)))
    734 
    735   ;;   (defun al/transient-fix-show (&rest _)
    736   ;;     (transient--debug 'al/transient-fix-show)
    737   ;;     (al/transient-fix-window)
    738   ;;     (select-window transient--window))
    739 
    740   ;;   (defun al/transient-fix-init (&rest _)
    741   ;;     (transient--debug 'al/transient-fix-init)
    742   ;;     (with-current-buffer transient--buffer-name
    743   ;;       (al/transient-mode)))
    744 
    745   ;;   (defun al/transient-fix-pre/post-command (fun &rest args)
    746   ;;     (transient--debug 'al/transient-fix-pre/post-command)
    747   ;;     ;; Do anything only for transient commands.
    748   ;;     (when (or (get this-command 'transient--prefix)
    749   ;;          (string-match-p "\\`transient"
    750   ;;                          (symbol-name this-command))
    751   ;;          (and transient--transient-map
    752   ;;               (string= (buffer-name) transient--buffer-name)
    753   ;;               (lookup-key transient--transient-map
    754   ;;                           (this-single-command-raw-keys))))
    755   ;;       (apply fun args)))
    756 
    757   ;;   (defun al/transient-fix-delete-window (fun &rest args)
    758   ;;     (unless (eq transient--exitp 'suspend)
    759   ;;       (apply fun args)))
    760 
    761   ;;   (advice-add 'transient--minibuffer-setup :override #'ignore)
    762   ;;   (advice-add 'transient--minibuffer-exit :override #'ignore)
    763   ;;   (advice-add 'transient--push-keymap :override #'al/transient-push-keymap)
    764   ;;   (advice-add 'transient--pop-keymap :override #'al/transient-pop-keymap)
    765   ;;   (advice-add 'transient--pre-command :around #'al/transient-fix-pre/post-command)
    766   ;;   (advice-add 'transient--post-command :around #'al/transient-fix-pre/post-command)
    767   ;;   (advice-add 'transient--show :after #'al/transient-fix-show)
    768   ;;   (advice-add 'transient--init-transient :after #'al/transient-fix-init)
    769   ;;   (advice-add 'transient--delete-window :around #'al/transient-fix-delete-window))
    770679
    771680    ;; Use magit only when built-in VC fails
    … …  
    852761
    853762** Подсвечивание парных скобок
    854 #+BEGIN_SRC emacs-lisp :tangle init.el
    855   ;;; Show pair for a parenthesis
    856   (show-paren-mode)
    857 #+END_SRC
    858 
    859763** Ввод парных скобок и кавычек (electric)
    860764#+BEGIN_SRC emacs-lisp :tangle init.el
    … …  
    862766  (electric-pair-mode)
    863767  (add-hook 'prog-mode-hook 'electric-pair-mode)
    864   ;; (add-hook 'prog-mode-hook 'rainbow-identifiers-mode)
     768  (add-hook 'prog-mode-hook 'rainbow-identifiers-mode)
    865769#+END_SRC
    866770
    867771** Kill-ring
    868 #+BEGIN_SRC emacs-lisp :tangle init.el
     772#+BEGIN_SRC emacs-lisp :tangle nil
    869773  (when (package-loaded? "browse-kill-ring") 
    870774    (define-key global-map (kbd "C-M-y") 'browse-kill-ring))
    … …  
    873777** Tags
    874778Для прыжков и поиска функций/классов и т.д.
    875 #+BEGIN_SRC emacs-lisp :tangle init.el
     779#+BEGIN_SRC emacs-lisp :tangle nil
    876780  (setq path-to-ctags "~/.guix-profile/bin/ctags")
    877781 
    … …  
    900804*** Автодополнение кода и документация
    901805По большей части я использую дефолтный Completion Buffer и Corfu
    902 #+begin_src elisp :tangle init.el
     806#+begin_src elisp :tangle nil
    903807  (when (package-loaded? "corfu")
    904808    (progn
    … …  
    1051955
    1052956** Линтеры
    1053 #+BEGIN_SRC emacs-lisp :tangle init.el
     957#+BEGIN_SRC emacs-lisp :tangle nil
    1054958  ;; (add-hook 'php-mode-hook 'flymake-php-load)
    1055959   ;; (add-hook 'php-mode-hook 'flymake-phpstan-turn-on)
    … …  
    1073977
    1074978** Сессия
    1075 #+BEGIN_SRC emacs-lisp :tangle init.el
    1076   (desktop-save-mode 0)
     979#+BEGIN_SRC emacs-lisp :tangle nil
     980  (desktop-save-mode 1)
    1077981#+END_SRC
    1078982** Скроллинг
    … …  
    11391043          (cmucl ("cmucl" "-quiet"))
    11401044          (sbcl ("/opt/sbcl/bin/sbcl") :coding-system utf-8-unix)))
    1141 
    11421045#+END_SRC
    11431046
    … …  
    11481051
    11491052** Ruby
    1150 #+BEGIN_SRC emacs-lisp :tangle init.el
     1053#+BEGIN_SRC emacs-lisp :tangle nil
    11511054  (when (package-loaded? "inf-ruby")
    11521055    (add-hook 'ruby-mode-hook 'inf-ruby-minor-mode))
    … …  
    11931096Необходимо скачать и распаковать мануал PHP (в формате html) в
    11941097директорию ~~/.emacs.d/php-manual/~.
    1195 #+begin_src emacs-lisp :tangle init.el
     1098#+begin_src emacs-lisp :tangle nil
    11961099  ;; (add-to-list 'load-path "~/.emacs.d/site-lisp/realgud-xdebug/")
    11971100  ;; (require 'realgud-xdebug)
    … …  
    13611264Need to install lsp-server called sqls
    13621265https://emacs-lsp.github.io/lsp-mode/page/lsp-sqls/
    1363 #+BEGIN_SRC emacs-lisp :tangle init.el
     1266#+BEGIN_SRC emacs-lisp :tangle nil
    13641267  ;; Empty for now (was using emacsql)
    13651268  (setq lsp-sqls-server "~/go/bin/sqls")
    … …  
    13721275
    13731276The main way to interact with SQL is using org-mode
    1374 #+begin_src emacs-lisp :tangle init.el
     1277#+begin_src emacs-lisp :tangle nil
    13751278  (when (package-loaded? "org-sql")
    13761279    (setq org-sql-files "~/projects/profile24/org"))
    … …  
    13861289         (sql-server "localhost")
    13871290         (sql-user "dbuser")
    1388          (sql-password "mangoworms")
    1389          (sql-database "profile24")
     1291         (sql-password "123456")
     1292         (sql-database "testdb")
    13901293         (sql-port 3306))))
    13911294#+end_src
    … …  
    14051308      (setq web-mode-enable-css-colorization t)
    14061309      (setq web-mode-enable-block-face t)
    1407       (setq web-mode-enable-current-element-highlight t)
    1408       (setq web-mode-enable-current-column-highlight t)))
     1310      (setq web-mode-enable-current-element-highlight t)))
    14091311#+END_SRC
    14101312
    … …  
    15521454* Коммуникации
    15531455** Telega
    1554 #+BEGIN_SRC emacs-lisp :tangle init.el
     1456#+BEGIN_SRC emacs-lisp :tangle nil
    15551457  (when (package-loaded? "telega")
    15561458    (setq telega-filter-custom-show-folders t
    … …  
    15631465
    15641466** Mastodon
    1565 #+begin_src emacs-lisp :tangle init.el
     1467#+begin_src emacs-lisp :tangle nil
    15661468  (when (package-loaded? "mastodon")
    15671469    (setq mastodon-active-user "w96k"
    … …  
    15741476** Минорные твики дефолтного имакса
    15751477*** Короткие ответы на вопросы
    1576 #+begin_src emacs-lisp
     1478#+begin_src emacs-lisp :tangle init.el
    15771479  (if (boundp 'use-short-answers)
    15781480    (setq use-short-answers t)
    … …  
    15881490
    15891491*** Подсвечивать текущую строку
    1590 #+begin_src emacs-lisp :tangle init.el
     1492#+begin_src emacs-lisp :tangle nil
    15911493  (global-hl-line-mode 1)
    15921494#+end_src
    … …  
    15991501
    16001502*** Автодополнение в echo при M-x и других командах
    1601 #+begin_src emacs-lisp :tangle init.el
     1503#+begin_src emacs-lisp :tangle nil
    16021504  (icomplete-mode 1)
    16031505#+end_src
    … …  
    16131515
    16141516*** Переключение буферов
    1615 #+BEGIN_SRC emacs-lisp :tangle nil
     1517#+BEGIN_SRC emacs-lisp :tangle init.el
    16161518  (global-set-key (kbd "M-o")  'mode-line-other-buffer)
    16171519#+END_SRC
    … …  
    16191521*** Минорные твики
    16201522#+begin_src emacs-lisp :tangle init.el
    1621 
    1622   (setq redisplay-dont-pause t)
     1523  ;; (setq redisplay-dont-pause t)
    16231524
    16241525  (setq select-enable-clipboard t
    … …  
    16381539  ;; (set-window-buffer nil (current-buffer))
    16391540
    1640     (setq default-directory "~/"
     1541  (setq default-directory "~/"
    16411542        delete-seleciton-mode t
    16421543        inhibit-startup-message t
    … …  
    16551556
    16561557*** Переменная PATH в eshell
    1657 #+BEGIN_SRC emacs-lisp :tangle init.el
     1558#+BEGIN_SRC emacs-lisp :tangle nil
    16581559  (setq exec-path-from-shell-variables
    16591560        '("PATH" "MANPATH"))
    … …  
    16771578По неизвестным причинам навигация в меню при помощи биндов Emacs
    16781579не работает
    1679 #+BEGIN_SRC emacs-lisp :tangle nil
     1580#+BEGIN_SRC emacs-lisp :tangle init.el
    16801581  ;; GTK menu doesn't allow emacs-style navigation
    16811582  (define-key global-map (kbd "<f10>") 'tmm-menubar)
    … …  
    16891590   backup-by-copying t
    16901591   backup-directory-alist
    1691    '(("." . "~/.emacs.d/backups/"))
     1592   '(("~/.emacs.d/backups/"))
    16921593   version-control nil)
    16931594#+END_SRC
    … …  
    17501651** Tramp
    17511652#+begin_src emacs-lisp :tangle nil
    1752     (add-to-list 'tramp-remote-path 'tramp-own-remote-path)
     1653  (add-to-list 'tramp-remote-path 'tramp-own-remote-path)
    17531654#+end_src
    17541655
    … …  
    17871688
    17881689** Nix
    1789 #+begin_src emacs-lisp
     1690#+begin_src emacs-lisp :tangle nil
    17901691  (package-loaded? "nix")
    17911692#+end_src
    … …  
    17961697#+end_src
    17971698** Direnv
    1798 #+BEGIN_SRC emacs-lisp :tangle init.el
     1699#+BEGIN_SRC emacs-lisp :tangle nil
    17991700  (when (package-loaded? "direnv")
    18001701      (direnv-mode))
Note: See TracChangeset for help on using the changeset viewer.