summary refs log tree commit diff stats
path: root/init.el
diff options
context:
space:
mode:
Diffstat (limited to 'init.el')
-rw-r--r--init.el106
1 files changed, 67 insertions, 39 deletions
diff --git a/init.el b/init.el index 1224930..99d9115 100644 --- a/init.el +++ b/init.el
@@ -413,45 +413,73 @@ like a dumbass."
413 (defun unfocused@save-buffers () 413 (defun unfocused@save-buffers ()
414 (save-some-buffers t)))) 414 (save-some-buffers t))))
415 415
416(setup flyspell 416;; (setup flyspell
417 ;; follow the directions here: https://old.reddit.com/r/emacs/comments/dgj0ae 417;; ;; follow the directions here: https://old.reddit.com/r/emacs/comments/dgj0ae
418 ;; in short: 418;; ;; in short:
419 ;; - download hunspell from GitHub and put in ~/usr/bin 419;; ;; - download hunspell from GitHub and put in ~/usr/bin
420 ;; - download LibreOffice English dictionaries and put in 420;; ;; - download LibreOffice English dictionaries and put in
421 ;; ~/usr/share/hunspell 421;; ;; ~/usr/share/hunspell
422 (setq-default 422;; (setq-default
423 flyspell-issue-message-flag nil 423;; flyspell-issue-message-flag nil
424 ispell-program-name "hunspell" 424;; ispell-program-name "hunspell"
425 ispell-dictionary "en_US" 425;; ispell-dictionary "default"
426 ispell-personal-dictionary "~/.hunspell_personal" 426;; ispell-personal-dictionary "~/.hunspell_personal"
427 ispell-local-dictionary-alist '(("en_US" 427;; ispell-local-dictionary-alist '(("default"
428 "[[:alpha:]]" "[^[:alpha:]]" 428;; "[[:alpha:]]" "[^[:alpha:]]"
429 "[']" nil 429;; "[']" nil
430 ("-d" "en_US") nil utf-8))) 430;; ("-d" "en_US") nil utf-8)))
431 431
432 (acdw/system 432;; (acdw/system
433 (:work (setenv "DICPATH" (expand-file-name "~/usr/share/hunspell")))) 433;; (:work (let ((dicpath (expand-file-name "~/usr/share/hunspell/")))
434 434;; (setenv "DICPATH" dicpath))))
435 (when (boundp 'ispell-hunspell-dictionary-alist) 435
436 (setq-default 436;; ;; new variable `ispell-hunspell-dictionary-alist' is defined in Emacs
437 ispell-hunspell-dictionary-alist ispell-local-dictionary-alist)) 437;; ;; If it's nil, Emacs tries to automatically set up the dictionaries.
438 (:needs ispell-program-name) ; don't proceed if not installed 438;; (when (boundp 'ispell-hunspell-dictionary-alist)
439 439;; (setq ispell-hunspell-dictionary-alist ispell-local-dictionary-alist))
440 (unless (file-exists-p ispell-personal-dictionary) 440
441 (write-region "" nil ispell-personal-dictionary nil 0)) 441;; (:needs ispell-program-name) ; don't proceed if not installed
442 442
443 (when (executable-find ispell-program-name) 443;; (unless (file-exists-p ispell-personal-dictionary)
444 (add-hook 'text-mode-hook #'flyspell-mode) 444;; (write-region "" nil ispell-personal-dictionary nil 0))
445 (add-hook 'prog-mode-hook #'flyspell-prog-mode)) 445
446 446;; (when (executable-find ispell-program-name)
447 (:when-loaded 447;; (add-hook 'text-mode-hook #'flyspell-mode)
448 (setup (:straight flyspell-correct) 448;; (add-hook 'prog-mode-hook #'flyspell-prog-mode))
449 (:with-map flyspell-mode-map 449
450 (:bind "C-;" flyspell-correct-wrapper 450;; (:when-loaded
451 ;; Remove all other binds 451;; (setup (:straight flyspell-correct)
452 "C-," nil 452;; (:with-map flyspell-mode-map
453 "C-." nil 453;; (:bind "C-;" flyspell-correct-wrapper
454 "C-M-i" nil))))) 454;; ;; Remove all other binds
455;; "C-," nil
456;; "C-." nil
457;; "C-M-i" nil)))))
458
459;; (setup flyspell
460;; (:option
461;; flyspell-issue-message-flag nil
462;; ispell-program-name "aspell"
463;; ispell-dictionary "en_US"
464;; ispell-personal-dictionary "~/.dictionary"
465;; ispell-extra-args '("--sug-mode=ultra" "--lang=en_US"))
466
467;; (:needs ispell-program-name)
468
469;; (unless (file-exists-p ispell-personal-dictionary)
470;; (write-region "" nil ispell-personal-dictionary nil 0))
471
472;; (add-hook 'text-mode-hook #'flyspell-mode)
473;; (add-hook 'prog-mode-hook #'flyspell-prog-mode)
474
475;; (:when-loaded
476;; (setup (:straight flyspell-correct)
477;; (:with-map flyspell-mode-map
478;; (:bind "C-;" flyspell-correct-wrapper
479;; ;; Remove other binds
480;; "C-," nil
481;; "C-." nil
482;; "C-M-i" nil)))))
455 483
456(setup frames 484(setup frames
457 (:option frame-title-format '("%b@" 485 (:option frame-title-format '("%b@"