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

Compare commits

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

2 Commits
75da435772 ... a657088042

Author SHA1 Message Date
Miranda Marquez
a657088042 re-indent 2024-07-28 17:35:28 -08:00
Miranda Marquez
a2d1cd84a3 make pretty terminal box glyph actually work 2024-07-28 17:34:47 -08:00
1 changed files with 8 additions and 9 deletions
Show Stats Expand all files Collapse all files

17
init.el
View File

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