.emacs tweaks for GUI

This commit is contained in:
Nathan Schneider
2024-12-26 15:37:24 -07:00
parent 0cefa547f4
commit 8eeebb70ff
+11 -39
View File
@@ -12,6 +12,17 @@
(add-to-list 'load-path "~/.emacs.d/lisp/") (add-to-list 'load-path "~/.emacs.d/lisp/")
;; SOME BASIC PREFERENCES ;; SOME BASIC PREFERENCES
;; GUI only
;; Fonts
(add-to-list 'default-frame-alist
'(font . "Iosevka Extended-18"))
;; Colors
;; (set-background-color "#f6f6f6")
;; this is identical with the highlight color
;; Remove startup screen
(setq inhibit-startup-screen t)
;; Revert buffers when the underlying file has changed ;; Revert buffers when the underlying file has changed
(global-auto-revert-mode 1) (global-auto-revert-mode 1)
;; turns off the menus at top ;; turns off the menus at top
@@ -27,33 +38,6 @@
(global-visual-line-mode t) (global-visual-line-mode t)
;; load word-count tools, use "wc" command to get instant count ;; load word-count tools, use "wc" command to get instant count
(load "wc-mode") (load "wc-mode")
;; but normally don't initialize because it's too CPU-intensive on large files
;; (add-hook 'text-mode-hook 'wc-mode)
;; enable apsell as default spell checker
(setq-default ispell-program-name "aspell")
;; set window margins
;; (a bit buggy on multiple-window startup, but resolves)
(add-hook 'window-configuration-change-hook
(lambda ()
(set-window-margins (car
(get-buffer-window-list
(current-buffer) nil t)) 2 2)))
;; Set markdown-mode as default for markdown files
;; (can always opt out into text-mode)
(autoload 'markdown-mode "markdown-mode" "Major mode for editing Markdown files" t)
(add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode))
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))
;; Turn on Flyspell
(dolist (hook '(text-mode-hook))
(add-hook hook (lambda ()
(flyspell-mode 1)
(set-variable 'flyspell-issue-message-flag nil)
(flyspell-buffer))))
;; 4-space tabs as default
(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)
;; BACKUP CONTROL
;; source: http://is.gd/ag5KOC ;; source: http://is.gd/ag5KOC
(setq backup-directory-alist '(("." . "~/.emacs.d/backup")) (setq backup-directory-alist '(("." . "~/.emacs.d/backup"))
backup-by-copying t ; Don't delink hardlinks backup-by-copying t ; Don't delink hardlinks
@@ -143,15 +127,3 @@
(shell-command (concat "xdg-open " tmp-out-file)) (shell-command (concat "xdg-open " tmp-out-file))
) )
) )
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(package-selected-packages '(ellama lua-mode wc-mode markdown-mode)))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
)