Remove ambiguities and convert to specifics

This commit is contained in:
nik gaffney 2022-04-05 12:51:36 +10:00
parent 531957d735
commit 28b053198f
2 changed files with 12 additions and 12 deletions

View file

@ -23,9 +23,11 @@ To install on macOS
brew install style
#+END_SRC
To install from source, download from http://ftp.gnu.org/gnu/diction/
** Configure
The package can be installed from [[https://melpa.org/][MELPA]] or manually via [[https://github.com/zzkt/smog][github]].
The emacs package can be installed from [[https://melpa.org/][MELPA]] or manually via [[https://github.com/zzkt/smog][github]].
#+BEGIN_SRC emacs-lisp
(use-package smog)
@ -49,10 +51,9 @@ e.g. to analyse a text in German and show sentences longer than 23 words…
** Analyse surface detail
=M-x smog-check-buffer= and/or =M-x smog-check-region=
=M-x smog-check=
** Further
- [[https://wiki.christophchamp.com/index.php?title=Style_and_Diction][style]] is written by Michael Haardt with contributions from Jason Petrone, Uschi Stegemeier and Hans Lodder
- [[https://files.eric.ed.gov/fulltext/ED506404.pdf][The Classic Readability Studies]]. William H.DuBay, Editor
- [[https://en.wikipedia.org/wiki/Asemic_writing][Asemic writing]]

View file

@ -36,7 +36,7 @@
;; Measure Of Gobbledygook“). It also summarises word usage and provides
;; information about sentence and paragraph structure.
;;
;; M-x smog-check-buffer
;; M-x smog-check
;;; Code:
@ -132,12 +132,11 @@ Further details can be found in the =style(1)= man page.\n"
"Is the style command installed?"
(let ((program "style"))
(unless (executable-find program)
(message "The program 'style' isn't installed or can't be found."))
(message "The program 'style' isn't installed or can't be found.\nTry installing the 'diction' package for your OS or download the source from http://ftp.gnu.org/gnu/diction/"))
(eq 0 (condition-case nil
(call-process program)
(error (message "The program 'style' test run exit abnormally."))))))
;;;###autoload
(defun smog-check-buffer ()
"Analyse the surface characteristics of a buffer."
(interactive)
@ -166,8 +165,8 @@ Further details can be found in the =style(1)= man page.\n"
(org-update-radio-target-regexp))))))
;;;###autoload
(defun smog-check-region ()
"Analyse the surface characteristics of a selected region."
(defun smog-check ()
"Analyse the readability and word use of a selected region or buffer."
(interactive)
(when (smog--style-installed-p)
(let* ((smog-buffer (current-buffer))