mir/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Compare commits

base: mir:a657088042d95c3c45ec2d61bc320d2d902fd6d4
Branches Tags
mir:main
..
compare: mir:75da435772f4eb5650e2d9afa0c5f013bbb224af
Branches Tags
mir:main

No commits in common. "a657088042d95c3c45ec2d61bc320d2d902fd6d4" and "75da435772f4eb5650e2d9afa0c5f013bbb224af" have entirely different histories.
a657088042 ... 75da435772

1 changed files with 9 additions and 8 deletions
Show Stats Expand all files Collapse all files

17
init.el
View File

@ -40,9 +40,10 @@ declarations for color schemes."
(add-to-list 'default-frame-alist '(cursor-color . "white"))
(add-to-list 'default-frame-alist '(fullscreen . maximized)))
;; see also https://emacs.stackexchange.com/questions/7228/nice-tty-window-borders-in-24-4
(let ((display-table (or standard-display-table (make-display-table))))
(set-display-table-slot display-table 'vertical-border (make-glyph-code ?│))
(setq standard-display-table display-table)))
(unless (display-graphic-p)
(let ((display-table (or standard-display-table (make-display-table))))
(set-display-table-slot display-table 'vertical-border (make-glyph-code ?│))
(setq standard-display-table display-table))))
(defun mir/graphical-setup ()
"Commands to run at the beginning of init when on a graphical display.
This prevents errors in termux and speeds up init when editing from the
@ -361,8 +362,8 @@ If the current window occupies the whole frame, split it."
(load-file elpaca-bootstrap-file)
(elpaca 'dash (require 'dash))
(elpaca elpaca-use-package
(elpaca-use-package-mode)
(setq elpaca-use-package-by-default t))
(elpaca-use-package-mode)
(setq elpaca-use-package-by-default t))
;; (elpaca-wait)
)
@ -373,7 +374,7 @@ If the current window occupies the whole frame, split it."
(add-hook 'server-after-make-frame-hook #'mir/graphical-setup)
(if (display-graphic-p)
(add-hook 'elpaca-after-init-hook #'mir/graphical-setup)
;; (add-hook 'after-init-hook #'mir/graphical-setup)
;; (add-hook 'after-init-hook #'mir/graphical-setup)
)
(use-package compat)
@ -967,8 +968,8 @@ Return nil if DIR is not in a hugo project at all."
:diminish lsp-lens-mode
:custom (lsp-completion-provider :none)
:config (defun corfu/lsp-mode-setup-completion ()
(setf (alist-get 'styles (alist-get 'lsp-capf completion-category-defaults))
'(flex))))
(setf (alist-get 'styles (alist-get 'lsp-capf completion-category-defaults))
'(flex))))
;; broken snippets I don't care about...
(use-package yasnippet