SM
С early-init.el даже дольше грузится, 4.20
ну у меня сначала вот так было
Size: a a a
2020 December 08
SM
То, что в use-package emacs откладывать нельзя?
DL
То, что в use-package emacs откладывать нельзя?
во-первых нет, во-вторых, а смысл?
SM
во-первых нет, во-вторых, а смысл?
полсекунды загрузки
DL
полсекунды загрузки
покажи, что у тебя там?
DL
потому что у меня оно меньше 5мс
SM
(use-package emacs
:hook (proced-mode . nix-proced-readable-mode)
:config
;; User's configuration directory
(defconst user-init-dir
(cond ((boundp 'user-emacs-directory) user-emacs-directory)
((boundp 'user-init-directory) user-init-directory)
(t "@emacsConfigDir@")))
;; backup in one place. flat, no tree structure
(setq backup-directory-alist '(("" . "@emacsConfigDir@/backup")))
(setq auto-save-file-name-transforms
`((".*" "@emacsConfigDir@/auto-save-list/" t)))
(setq-default indent-tabs-mode nil)
(setq-default tab-always-indent 'complete)
;; Allow sentences ending with one space
(setq-default sentence-end-double-space nil)
(setq compilation-scroll-output 'first-error)
(setq dired-listing-switches "-alh")
(add-to-list 'default-frame-alist '(font . "Source Code Pro Medium-13"))
(electric-indent-mode 1)
(show-paren-mode 1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(tool-bar-mode -1)
;; Setup Splash Screen
(setq inhibit-startup-screen t)
(org-agenda-list)
(setq initial-buffer-choice '(lambda () (get-buffer org-agenda-buffer-name)))
(delete-other-windows))
DL
омгушки-воробушки
SM
так, надо бы на ix.io залить куда-то
S
так, надо бы на ix.io залить куда-то
Я уже это видел, скууушна :(
DL
(use-package emacs
:hook (proced-mode . nix-proced-readable-mode)
:config
;; User's configuration directory
(defconst user-init-dir
(cond ((boundp 'user-emacs-directory) user-emacs-directory)
((boundp 'user-init-directory) user-init-directory)
(t "@emacsConfigDir@")))
;; backup in one place. flat, no tree structure
(setq backup-directory-alist '(("" . "@emacsConfigDir@/backup")))
(setq auto-save-file-name-transforms
`((".*" "@emacsConfigDir@/auto-save-list/" t)))
(setq-default indent-tabs-mode nil)
(setq-default tab-always-indent 'complete)
;; Allow sentences ending with one space
(setq-default sentence-end-double-space nil)
(setq compilation-scroll-output 'first-error)
(setq dired-listing-switches "-alh")
(add-to-list 'default-frame-alist '(font . "Source Code Pro Medium-13"))
(electric-indent-mode 1)
(show-paren-mode 1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(tool-bar-mode -1)
;; Setup Splash Screen
(setq inhibit-startup-screen t)
(org-agenda-list)
(setq initial-buffer-choice '(lambda () (get-buffer org-agenda-buffer-name)))
(delete-other-windows))
короче гляди, что-то из этого не нужно вообще, что-то можно сделать иначе (типа меню/скролл/итп), что-то должно быть в отдельных секциях u-p
SM
омгушки-воробушки
ну да, куча чёрт знает когда скопипащенных откуда-то опций
SM
ещё почему-то грузятся yasnippet и telega, хотя у них defer выставлен
DL
для начала, менюшки и прочее ненужное:
это в
добавляешь после где-нибудь
:custom
(default-frame-alist '((menu-bar-lines 0)
(tool-bar-lines 0)
(vertical-scroll-bars)))
это в
emacs оставляешь, а это(use-package frame
:bind
("C-z" . nil)
:custom
(initial-frame-alist '((vertical-scroll-bars))))
добавляешь после где-нибудь
DL
то, что setq-ится, можно переписать на :custom тоже, только надо смотреть через M-x describe-variable из какого пакета оно
SM
для начала, менюшки и прочее ненужное:
это в
добавляешь после где-нибудь
:custom
(default-frame-alist '((menu-bar-lines 0)
(tool-bar-lines 0)
(vertical-scroll-bars)))
это в
emacs оставляешь, а это(use-package frame
:bind
("C-z" . nil)
:custom
(initial-frame-alist '((vertical-scroll-bars))))
добавляешь после где-нибудь
окей, спасибо
DL
backup-directory-alist → files
DL
всякие
-mode обычно тоже в отдельных пакетах, их смотреть через M-x describe-functionDL
org-agenda-list и прочее наверное лучше запихнуть во чтото типа after-init-hook и вообще в секцию орга
DL
короче, единственное, что у меня в :config там остаётся, это
и то, это очень опциональные штуки
:config
;; Terminal emacs doesn't have it
(when (fboundp 'set-fontset-font)
;; a workaround for old charsets
(set-fontset-font "fontset-default" 'cyrillic
(font-spec :registry "iso10646-1" :script 'cyrillic))
;; TODO: is it possible to not hardcode fonts?
(set-fontset-font t 'symbol
(font-spec :family
(if (eq system-type 'darwin)
"Apple Color Emoji"
"Symbola"))
nil 'prepend))
и то, это очень опциональные штуки