;; Time-stamp: <2024-05-26 11h27 CEST (00c25734)>

;; -----------------------------------------------------------------------------
;; Spelling

(use-package spell-fu
  :ensure t
  :config
  (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:]]+\\)*\\)"
                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)))
(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)
                            (company-mode 1)))

(add-hook 'text-mode-hook (lambda ()
                            ;; (set-input-method "Adga")
                            (subword-mode 1)
                            (electric-pair-local-mode 1)
                            (turn-on-auto-fill)
                            (siege-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))))


;; -----------------------------------------------------------------------------
;; 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))


;; -----------------------------------------------------------------------------
;; Deft

;; (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

(defun vi-open-line-above ()
  "Insert a newline above the current line and put point at beginning."
  (interactive)
  (unless (bolp)
    (beginning-of-line))
  (newline)
  (forward-line -1)
  (indent-according-to-mode))

(defun vi-open-line-below ()
  "Insert a newline below the current line and put point at beginning."
  (interactive)
  (unless (eolp)
    (end-of-line))
  (newline-and-indent))

(global-set-key (kbd "M-o") 'vi-open-line-below)
(global-set-key (kbd "C-o") 'vi-open-line-above)

(global-set-key (kbd "M-C-+") 'text-scale-increase)
(global-set-key (kbd "M-C--") 'text-scale-decrease)