diff options
Diffstat (limited to 'emacs/inits/23-text-related.el')
| -rw-r--r-- | emacs/inits/23-text-related.el | 137 |
1 files changed, 30 insertions, 107 deletions
diff --git a/emacs/inits/23-text-related.el b/emacs/inits/23-text-related.el index 797b0d0..7142980 100644 --- a/emacs/inits/23-text-related.el +++ b/emacs/inits/23-text-related.el @@ -1,4 +1,4 @@ -;; Time-stamp: <2023-01-13 12h54 CET (anker)> +;; Time-stamp: <2024-05-26 11h27 CEST (00c25734)> ;; ----------------------------------------------------------------------------- ;; Spelling @@ -17,53 +17,12 @@ 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) (add-hook 'mail-mode-hook (lambda () (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 () @@ -72,18 +31,20 @@ (electric-pair-local-mode 1) (turn-on-auto-fill) (siege-mode 1) - (spell-fu-mode 1) - ;; (flyspell-mode 1) - )) + (spell-fu-mode 1))) (use-package dictionary :ensure t :defer t) +(use-package ereader :ensure t :defer + :mode (("\\.epub$" . nov-mode))) + ;; ----------------------------------------------------------------------------- ;; Markdown (use-package markdown-mode :ensure t :defer t + :mode (("\\.md'" . markdown-mode)) :hook (markdown-mode . (lambda () (auto-fill-mode -1) (visual-line-mode)))) @@ -92,73 +53,35 @@ ;; ----------------------------------------------------------------------------- ;; Org -(use-package org - :defer t - :bind (:map org-mode-map - ("M-h" . nil)) - ;; :hook (org-mode . (lambda () - ;; (activate-input-method default-input-method))) - :config - (setq org-use-sub-superscripts (quote {}) - org-modules nil)) +;; (use-package org +;; :defer t +;; :bind (:map org-mode-map +;; ("M-h" . nil)) +;; ;; :hook (org-mode . (lambda () +;; ;; (activate-input-method default-input-method))) +;; :config +;; (setq org-use-sub-superscripts (quote {}) +;; org-modules nil)) ;; ----------------------------------------------------------------------------- ;; Deft -(use-package deft - :ensure t - :defer t - :commands (deft) - :bind (("C-c C-z" . deft)) - :config - (setq deft-default-extension "org" - deft-directory "~/store/notes" - deft-use-filename-as-title nil - deft-use-filter-string-for-filename t - deft-file-naming-rules '((noslash . "_") - (nospace . "_") - (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))))) - ) +;; (use-package deft +;; :ensure t +;; :defer t +;; :commands (deft) +;; :bind (("C-c C-z" . deft)) +;; :config +;; (setq deft-default-extension "md" +;; deft-directory "~/notes" +;; deft-use-filename-as-title nil +;; deft-use-filter-string-for-filename t +;; deft-file-naming-rules '((noslash . "_") +;; (nospace . "_") +;; (case-fn . downcase)) +;; deft-org-mode-title-prefix t) +;; ) ;; ----------------------------------------------------------------------------- ;; Useful keybinds |