marrub
/
scripts
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

emacs: don't attempt to use flyspell on windows

master
Alison G. Watson 2020-10-02 13:40:33 -06:00
parent 7aa1d3af2a
commit 19717e5cb0
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
emacs/early-init.el
View File

@ -12,8 +12,14 @@
initial-scratch-message nil initial-scratch-message nil
mark-ring-max 1024)) mark-ring-max 1024))
(when (string-equal system-type "windows-nt") (if (eq system-type 'windows-nt)
(setenv "PATH" (concat "C:/emacs/bin;" (getenv "PATH")))) (progn
(setenv "PATH" (concat "C:/emacs/bin;" (getenv "PATH")))
(defalias 'agw-flyspell-mode #'ignore)
(defalias 'agw-flyspell-prog-mode #'ignore))
(progn
(defalias 'agw-flyspell-mode #'flyspell-mode)
(defalias 'agw-flyspell-prog-mode #'flyspell-prog-mode)))
;; important ergonomics ;; important ergonomics
(setq fill-column 80 (setq fill-column 80

8
emacs/init.el
View File

@ -21,13 +21,13 @@
(set-scroll-bar-mode nil) (set-scroll-bar-mode nil)
;; `prog-mode' ;; `prog-mode'
(add-hook 'prog-mode-hook #'flyspell-prog-mode) (add-hook 'prog-mode-hook #'agw-flyspell-prog-mode)
(add-hook 'prog-mode-hook #'prettify-symbols-mode) (add-hook 'prog-mode-hook #'prettify-symbols-mode)
(add-hook 'prog-mode-hook #'subword-mode) (add-hook 'prog-mode-hook #'subword-mode)
(add-hook 'prog-mode-hook #'agw-prog-mode) (add-hook 'prog-mode-hook #'agw-prog-mode)
;; `text-mode' ;; `text-mode'
(add-hook 'text-mode-hook #'flyspell-prog-mode) (add-hook 'text-mode-hook #'agw-flyspell-prog-mode)
(add-hook 'text-mode-hook #'subword-mode) (add-hook 'text-mode-hook #'subword-mode)
(add-hook 'text-mode-hook #'agw-prog-mode) (add-hook 'text-mode-hook #'agw-prog-mode)
@ -153,7 +153,7 @@
(use-package markdown-mode (use-package markdown-mode
:ensure t :ensure t
:hook ((markdown-mode . flyspell-mode)) :hook ((markdown-mode . agw-flyspell-mode))
:mode (("\\.mdwn\\'" . markdown-mode))) :mode (("\\.mdwn\\'" . markdown-mode)))
(use-package ninja-mode (use-package ninja-mode
@ -173,7 +173,7 @@
;; org-mode ;; org-mode
(use-package org (use-package org
:hook ((org-mode . flyspell-mode) :hook ((org-mode . agw-flyspell-mode)
(org-mode . agw-org-mode)) (org-mode . agw-org-mode))
:init :init
(setq org-fontify-whole-heading-line t (setq org-fontify-whole-heading-line t