larstvei/emacs
1
1
Fork 0
mirror of https://github.com/larstvei/dot-emacs.git synced 2024-11-26 07:28:31 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

use-package define-word

Browse Source
This commit is contained in:
larstvei 2023-06-11 22:47:50 +02:00
parent b1521a900b
commit b0856a41e6
1 changed files with 66 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

118
init.org
View File

@ -207,8 +207,7 @@
(let* ((package--builtins nil) (let* ((package--builtins nil)
(packages (packages
'(define-word ; display the definition of word at point '(diff-hl ; Highlight uncommitted changes using VC
diff-hl ; Highlight uncommitted changes using VC
direnv ; direnv integration direnv ; direnv integration
editorconfig ; EditorConfig Emacs Plugin editorconfig ; EditorConfig Emacs Plugin
erlang ; Erlang major mode erlang ; Erlang major mode
@ -723,76 +722,91 @@
* Spelling * Spelling
Flyspell offers on-the-fly spell checking. We can enable flyspell for all ** Flyspell
text-modes with this snippet.
#+begin_src emacs-lisp Flyspell offers on-the-fly spell checking. We can enable flyspell for all
text-modes with this snippet.
(add-hook 'text-mode-hook 'turn-on-flyspell) #+begin_src emacs-lisp
#+end_src (add-hook 'text-mode-hook 'turn-on-flyspell)
To use flyspell for programming there is =flyspell-prog-mode=, that only #+end_src
enables spell checking for comments and strings. We can enable it for all
programming modes using the =prog-mode-hook=.
#+begin_src emacs-lisp To use flyspell for programming there is =flyspell-prog-mode=, that only
enables spell checking for comments and strings. We can enable it for all
programming modes using the =prog-mode-hook=.
(add-hook 'prog-mode-hook 'flyspell-prog-mode) #+begin_src emacs-lisp
#+end_src (add-hook 'prog-mode-hook 'flyspell-prog-mode)
Tell Emacs what program is used for spell checking. #+end_src
#+begin_src emacs-lisp Tell Emacs what program is used for spell checking.
(setq ispell-program-name "aspell")
#+end_src
When working with several languages, we should be able to cycle through the #+begin_src emacs-lisp
languages we most frequently use. Every buffer should have a separate cycle (setq ispell-program-name "aspell")
of languages, so that cycling in one buffer does not change the state in a #+end_src
different buffer (this problem occurs if you only have one global cycle). We
can implement this by using a [[http://www.gnu.org/software/emacs/manual/html_node/elisp/Closures.html][closure]].
#+begin_src emacs-lisp When working with several languages, we should be able to cycle through the
languages we most frequently use. Every buffer should have a separate cycle
of languages, so that cycling in one buffer does not change the state in a
different buffer (this problem occurs if you only have one global cycle). We
can implement this by using a [[http://www.gnu.org/software/emacs/manual/html_node/elisp/Closures.html][closure]].
(defun cycle-languages () #+begin_src emacs-lisp
"Changes the ispell dictionary to the first element in
ISPELL-LANGUAGES, and returns an interactive function that cycles
the languages in ISPELL-LANGUAGES when invoked."
(let ((ispell-languages (list "american" "norsk")))
(ispell-change-dictionary (car ispell-languages))
(lambda ()
(interactive)
;; Rotates the languages cycle and changes the ispell dictionary.
(let ((rotated (nconc (cdr ispell-languages) (list (car ispell-languages)))))
(ispell-change-dictionary (car (setq ispell-languages rotated)))))))
#+end_src (defun cycle-languages ()
"Changes the ispell dictionary to the first element in
ISPELL-LANGUAGES, and returns an interactive function that cycles
the languages in ISPELL-LANGUAGES when invoked."
(let ((ispell-languages (list "american" "norsk")))
(ispell-change-dictionary (car ispell-languages))
(lambda ()
(interactive)
;; Rotates the languages cycle and changes the ispell dictionary.
(let ((rotated (nconc (cdr ispell-languages) (list (car ispell-languages)))))
(ispell-change-dictionary (car (setq ispell-languages rotated)))))))
=flyspell= signals an error if there is no spell-checking tool is installed. #+end_src
We can advice =turn-on-flyspell= and =flyspell-prog-mode= to only try to
enable =flyspell= if a spell-checking tool is available. Also we want to
enable cycling the languages by typing =C-c l=, so we bind the function
returned from =cycle-languages=.
#+begin_src emacs-lisp =flyspell= signals an error if there is no spell-checking tool is installed.
We can advice =turn-on-flyspell= and =flyspell-prog-mode= to only try to
enable =flyspell= if a spell-checking tool is available. Also we want to
enable cycling the languages by typing =C-c l=, so we bind the function
returned from =cycle-languages=.
(defadvice turn-on-flyspell (before check nil activate) #+begin_src emacs-lisp
"Turns on flyspell only if a spell-checking tool is installed."
(when (executable-find ispell-program-name)
(local-set-key (kbd "C-c l") (cycle-languages))))
#+end_src (defadvice turn-on-flyspell (before check nil activate)
"Turns on flyspell only if a spell-checking tool is installed."
(when (executable-find ispell-program-name)
(local-set-key (kbd "C-c l") (cycle-languages))))
#+begin_src emacs-lisp #+end_src
(defadvice flyspell-prog-mode (before check nil activate) #+begin_src emacs-lisp
"Turns on flyspell only if a spell-checking tool is installed."
(when (executable-find ispell-program-name)
(local-set-key (kbd "C-c l") (cycle-languages))))
#+end_src (defadvice flyspell-prog-mode (before check nil activate)
"Turns on flyspell only if a spell-checking tool is installed."
(when (executable-find ispell-program-name)
(local-set-key (kbd "C-c l") (cycle-languages))))
#+end_src
** Define word
This super neat package looks up the word at point. I use it a lot!
#+begin_src emacs-lisp
;; display the definition of word at point
(use-package define-word
:defer t
:bind (("C-c D" . 'define-word-at-point)))
#+end_src
* Org * Org