Defining words from Noah Webster's 1913 dictionary

This commit is contained in:
Howard Abrams 2022-09-16 15:38:59 -07:00
parent 8c609f899e
commit 4927f5e5b2

View file

@ -694,10 +694,9 @@ According to [[http://endlessparentheses.com/ispell-and-apostrophes.html][Artur
The end result? No misspellings. Isnt this nice? The end result? No misspellings. Isnt this nice?
Of course I need a thesaurus, and I'm installing [[https://github.com/SavchenkoValeriy/emacs-powerthesaurus][powerthesaurus]]: Of course I need a thesaurus, and I'm installing [[https://github.com/SavchenkoValeriy/emacs-powerthesaurus][powerthesaurus]]:
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package powerthesaurus (use-package powerthesaurus
:bind ("M-T" . powerthesaurus-lookup-dwim) :bind ("s-t" . powerthesaurus-lookup-dwim)
:config :config
(ha-local-leader :keymaps 'text-mode-map (ha-local-leader :keymaps 'text-mode-map
"s t" '("thesaurus" . powerthesaurus-lookup-dwim) "s t" '("thesaurus" . powerthesaurus-lookup-dwim)
@ -706,8 +705,8 @@ Of course I need a thesaurus, and I'm installing [[https://github.com/SavchenkoV
"s r" '("related" . powerthesaurus-lookup-related-dwim) "s r" '("related" . powerthesaurus-lookup-related-dwim)
"s S" '("sentence" . powerthesaurus-lookup-sentences-dwim))) "s S" '("sentence" . powerthesaurus-lookup-sentences-dwim)))
#+end_src #+end_src
The key-bindings, keystrokes, and key-connections work well with ~M-T~ (notice the Shift), but to jump to specifics, we use a leader. Since the /definitions/ do not work, so let's use abo-abo's [[https://github.com/abo-abo/define-word][define-word]] project:
The key-bindings, keystrokes, and key-connections work well with ~M-T~ (notice the Shift), but to jump to specifics, we use a leader. Since the /definitions/ do not work, so let's use abo-abo's [[https://github.com/abo-abo/define-word][define-word]] project:
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package define-word (use-package define-word
:config :config
@ -715,6 +714,28 @@ The key-bindings, keystrokes, and key-connections work well with ~M-T~ (notice t
"s d" '("define this" . define-word-at-point) "s d" '("define this" . define-word-at-point)
"s D" '("define word" . define-word))) "s D" '("define word" . define-word)))
#+end_src #+end_src
After my enamoring of Noah Websters 1913 dictionary (originally due to reading [[https://janusworx.com/blog/thank-god-for-noah/][this essay]] by Mario Jason Braganza who referred to James Somers original [[https://jsomers.net/blog/dictionary][2014 blog entry]]), I easily followed the instructions from [[https://github.com/ponychicken/WebsterParser][WebsterParser]], a Github project, with the dictionary:
1. Download [[https://github.com/ponychicken/WebsterParser/releases/latest/download/websters-1913.dictionary.zip][the dictionary]] file.
2. Unzip the archive … have a *Finder* window open to the =.dictionary= file.
3. Open the =Dictionary.app= program.
4. Select the menu entry, *Dictionary > File > Open Dictionaries Folder*
5. Drag the downloaded =Websters-1913.dictionary= file into the folder
6. Select the menu entry, *Dictionary > Dictionary > Preferences*
7. Check the now last dictionary in the list
If you want to always see Websters results by default, go to the Dictionary apps preferences and drag Websters to the top of the list.
Now that this illuminating dictionary is part of my MacOS =Dictionary.app=, I decided to use the [[https://github.com/xuchunyang/osx-dictionary.el][osx-dictionary]] package instead of the =define-word=:
#+begin_src emacs-lisp
(when (equal system-type 'darwin)
(use-package osx-dictionary
:bind ("s-d" . osx-dictionary-search-word-at-point)
:config
(ha-local-leader :keymaps 'text-mode-map
"s d" '("define this" . osx-dictionary-search-word-at-point)
"s D" '("define word" . osx-dictionary-search-input))))
#+end_src
** Grammar and Prose Linting ** Grammar and Prose Linting
Flagging cliches, weak phrasing and other poor grammar choices. Flagging cliches, weak phrasing and other poor grammar choices.
*** Writegood *** Writegood