cdm-mode tweaks, latex and spelling fixes, selectrum work-arounds

1 files changed, 88 insertions, 42 deletions

diff --git a/emacs/inits/23-text-related.el b/emacs/inits/23-text-related.el
index 75eb869..7cfb4df 100644
--- a/emacs/inits/23-text-related.el
+++ b/emacs/inits/23-text-related.el
@@ -1,4 +1,4 @@
-;; Time-stamp: <2020-04-13 14:36:53 (tslil@bison)>
+;; Time-stamp: <2020-04-23 13:54:24 (tslil@bison)>
 
 ;; -----------------------------------------------------------------------------
 ;; Spelling
@@ -6,12 +6,56 @@
 (use-package spell-fu
   :ensure t
   :config
-  (setq ispell-dictionary "british"
+  (setq ispell-dictionary "en_GB-ise-w_accents"
         ispell-personal-dictionary "~/.aspell.en.pws")
 
   ;; The default was this "\\b\\([[:alpha:]][[:alpha:]']*\\)\\b", but that
   ;; didn't play well with ``LaTeX's quoting system''.
-  (setq-default spell-fu-word-regexp "\\([[:alpha:]]+\\('[[:alpha:]]\\)*\\)"))
+  (setq-default spell-fu-word-regexp "\\([[:alpha:]]+\\('[[:alpha:]]\\)*\\)"
+                spell-fu-faces-exclude '(font-latex-math-face
+                                         font-latex-sedate-face
+                                         font-lock-keyword-face
+                                         font-lock-function-name-face
+                                         font-lock-variable-name-face)))
+
+;; (defun flyspell-correct-selectrum (candidates word)
+;;   (let* ((save "[SAVE]")
+;;          (accept-session "[ACCEPT (session)]")
+;;          (accept-buffer "[ACCEPT (buffer)]")
+;;          (skip "[SKIP]")
+;;          (selectrucm-should-sort nil)
+;;          (result (selectrum-completing-read
+;;                   (format "Correcting '%s': " word)
+;;                   (append candidates
+;;                           (list save accept-session accept-buffer skip)))))
+;;     (cond
+;;      ((string= result save)
+;;       (cons 'save word))
+;;      ((string= result accept-session)
+;;       (cons 'session word))
+;;      ((string= result accept-buffer)
+;;       (cons 'buffer word))
+;;      ((string= result skip)
+;;       (cons 'skip word))
+;;      (t
+;;       result))))
+
+;; (use-package flyspell-correct
+;;   :ensure t
+;;   :defer t
+;;   :config
+;;   (setq flyspell-correct-interface #'flyspell-correct-selectrum))
+
+;; (use-package flyspell
+;;   :ensure t
+;;   :bind (:map flyspell-mode-map
+;;               ("M-$" . flyspell-correct-wrapper)
+;;               ("C-," . nil)
+;;               ("C-." . nil)
+;;               ("C-\"" . nil))
+;;   :init
+;;   (setq ispell-dictionary "british"
+;;         flyspell-default-dictionary "british"))
 
 (setq sentence-end-double-space nil)
 
@@ -19,6 +63,7 @@
                             (electric-pair-local-mode 1)
                             (turn-on-auto-fill)
                             (spell-fu-mode 1)
+                            ;; (flyspell-mode 1)
                             (company-mode 1)))
 
 (add-hook 'text-mode-hook (lambda ()
@@ -28,6 +73,7 @@
                             (turn-on-auto-fill)
                             (siege-mode 1)
                             (spell-fu-mode 1)
+                            ;; (flyspell-mode 1)
                             ))
 
 (use-package dictionary :ensure t :defer t)
@@ -53,8 +99,7 @@
   :ensure t
   :defer t
   :commands (deft)
-  :bind (("C-z" . deft-take-note)
-         ("C-c C-z" . deft))
+  :bind (("C-c C-z" . deft))
   :config
   (setq deft-default-extension "org"
         deft-directory "~/store/notes"
@@ -65,43 +110,44 @@
                                  (case-fn . downcase))
         deft-org-mode-title-prefix t)
 
-  (defvar deft-take-note-pre-grab
-    '((region-thing . (let ((r (if (region-active-p)
-                                   (buffer-substring (region-beginning) (region-end))
-                                 (thing-at-point 'line))))
-                        (if r (concat r "\n") "")))
-      (bfn . (let ((f (buffer-file-name))
-                   (b (buffer-name))) (if f f (concat b " (no file associated)")))))
-    "List of pairs of symbol names and (functions evaluating to)
-  strings evaluated before the buffer is created, and made
-  available for deft-take-note-default-contents.")
-
-  (defvar deft-take-note-post-grab '()
-    "List of pairs of symbol names and (functions evaluating to)
-  strings evaluated after the buffer is created, and made
-  available for deft-take-note-default-contents.")
-
-  (defvar deft-take-note-default-contents '(region-thing bfn "\n")
-    "List with string literals and symbols defined in the pre and
-  post grab lists to be inserted into the buffer.")
-
-  (defun deft-take-note ()
-    (interactive)
-    (let ((pre-alist (mapcar #'(lambda (elt) `(,(car elt) . ,(eval (cdr elt))))
-                             deft-take-note-pre-grab)))
-      (let ((bn (concat (format-time-string "%Y%m%d-%H:%M:%S.%N-%Z") "."
-                        deft-default-extension)))
-        (switch-to-buffer bn)
-        (set-visited-file-name (expand-file-name
-                                (concat deft-directory "/" bn)))
-        (let ((complete-alist
-               (append pre-alist
-                       (mapcar #'(lambda (elt) `(,(car elt) . ,(eval (cdr elt))))
-                               deft-take-note-post-grab))))
-          (mapc #'(lambda (elt) (if (eq (type-of elt) 'string)
-                                    (insert elt)
-                                  (insert (cdr (assoc elt complete-alist)))))
-                deft-take-note-default-contents))))))
+  ;; (defvar deft-take-note-pre-grab
+  ;;   '((region-thing . (let ((r (if (region-active-p)
+  ;;                                  (buffer-substring (region-beginning) (region-end))
+  ;;                                (thing-at-point 'line))))
+  ;;                       (if r (concat r "\n") "")))
+  ;;     (bfn . (let ((f (buffer-file-name))
+  ;;                  (b (buffer-name))) (if f f (concat b " (no file associated)")))))
+  ;;   "List of pairs of symbol names and (functions evaluating to)
+  ;; strings evaluated before the buffer is created, and made
+  ;; available for deft-take-note-default-contents.")
+
+  ;; (defvar deft-take-note-post-grab '()
+  ;;   "List of pairs of symbol names and (functions evaluating to)
+  ;; strings evaluated after the buffer is created, and made
+  ;; available for deft-take-note-default-contents.")
+
+  ;; (defvar deft-take-note-default-contents '(region-thing bfn "\n")
+  ;;   "List with string literals and symbols defined in the pre and
+  ;; post grab lists to be inserted into the buffer.")
+
+  ;; (defun deft-take-note ()
+  ;;   (interactive)
+  ;;   (let ((pre-alist (mapcar #'(lambda (elt) `(,(car elt) . ,(eval (cdr elt))))
+  ;;                            deft-take-note-pre-grab)))
+  ;;     (let ((bn (concat (format-time-string "%Y%m%d-%H:%M:%S.%N-%Z") "."
+  ;;                       deft-default-extension)))
+  ;;       (switch-to-buffer bn)
+  ;;       (set-visited-file-name (expand-file-name
+  ;;                               (concat deft-directory "/" bn)))
+  ;;       (let ((complete-alist
+  ;;              (append pre-alist
+  ;;                      (mapcar #'(lambda (elt) `(,(car elt) . ,(eval (cdr elt))))
+  ;;                              deft-take-note-post-grab))))
+  ;;         (mapc #'(lambda (elt) (if (eq (type-of elt) 'string)
+  ;;                                   (insert elt)
+  ;;                                 (insert (cdr (assoc elt complete-alist)))))
+  ;;               deft-take-note-default-contents)))))
+  )
 
 ;; -----------------------------------------------------------------------------
 ;; Useful keybinds