From ec69d93cd04753f03b01090ce6542eaba2c3cb43 Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Tue, 13 Nov 2018 10:49:29 +0100 Subject: [PATCH] Update artbollocks-mode. Signed-off-by: Andreas Gerler --- .../artbollocks-mode-pkg.el | 1 - .../artbollocks-mode-autoloads.el | 13 ++++++------- .../artbollocks-mode-pkg.el | 2 ++ .../artbollocks-mode.el | 13 ++++++++----- 4 files changed, 16 insertions(+), 13 deletions(-) delete mode 100644 elpa/artbollocks-mode-20141212.1332/artbollocks-mode-pkg.el rename elpa/{artbollocks-mode-20141212.1332 => artbollocks-mode-20170524.422}/artbollocks-mode-autoloads.el (58%) create mode 100644 elpa/artbollocks-mode-20170524.422/artbollocks-mode-pkg.el rename elpa/{artbollocks-mode-20141212.1332 => artbollocks-mode-20170524.422}/artbollocks-mode.el (98%) diff --git a/elpa/artbollocks-mode-20141212.1332/artbollocks-mode-pkg.el b/elpa/artbollocks-mode-20141212.1332/artbollocks-mode-pkg.el deleted file mode 100644 index 332ba89e..00000000 --- a/elpa/artbollocks-mode-20141212.1332/artbollocks-mode-pkg.el +++ /dev/null @@ -1 +0,0 @@ -(define-package "artbollocks-mode" "20141212.1332" "Improve your writing (especially about art)" (quote nil)) diff --git a/elpa/artbollocks-mode-20141212.1332/artbollocks-mode-autoloads.el b/elpa/artbollocks-mode-20170524.422/artbollocks-mode-autoloads.el similarity index 58% rename from elpa/artbollocks-mode-20141212.1332/artbollocks-mode-autoloads.el rename to elpa/artbollocks-mode-20170524.422/artbollocks-mode-autoloads.el index 5f3a95e6..c55305a9 100644 --- a/elpa/artbollocks-mode-20141212.1332/artbollocks-mode-autoloads.el +++ b/elpa/artbollocks-mode-20170524.422/artbollocks-mode-autoloads.el @@ -2,9 +2,12 @@ ;; ;;; Code: +(add-to-list 'load-path (directory-file-name + (or (file-name-directory #$) (car load-path)))) + -;;;### (autoloads (artbollocks-mode) "artbollocks-mode" "artbollocks-mode.el" -;;;;;; (21823 48772 0 0)) +;;;### (autoloads nil "artbollocks-mode" "artbollocks-mode.el" (0 +;;;;;; 0 0 0)) ;;; Generated autoloads from artbollocks-mode.el (autoload 'artbollocks-mode "artbollocks-mode" "\ @@ -12,14 +15,10 @@ Highlight passive voice, weasel words and artbollocks jargon in text, and provid \(fn &optional ARG)" t nil) -;;;*** - -;;;### (autoloads nil nil ("artbollocks-mode-pkg.el") (21823 48772 -;;;;;; 360275 0)) +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "artbollocks-mode" '("artbollocks-" "interactive-optional-region"))) ;;;*** -(provide 'artbollocks-mode-autoloads) ;; Local Variables: ;; version-control: never ;; no-byte-compile: t diff --git a/elpa/artbollocks-mode-20170524.422/artbollocks-mode-pkg.el b/elpa/artbollocks-mode-20170524.422/artbollocks-mode-pkg.el new file mode 100644 index 00000000..db595889 --- /dev/null +++ b/elpa/artbollocks-mode-20170524.422/artbollocks-mode-pkg.el @@ -0,0 +1,2 @@ +;;; -*- no-byte-compile: t -*- +(define-package "artbollocks-mode" "20170524.422" "Improve your writing (especially about art)" 'nil :commit "33a41ca4f8206f57e5498a526d3b0ea18d08bb93" :authors '(("Rob Myers , Sacha Chua" . "sacha@sachachua.com")) :maintainer '("Rob Myers , Sacha Chua" . "sacha@sachachua.com") :url "https://github.com/sachac/artbollocks-mode") diff --git a/elpa/artbollocks-mode-20141212.1332/artbollocks-mode.el b/elpa/artbollocks-mode-20170524.422/artbollocks-mode.el similarity index 98% rename from elpa/artbollocks-mode-20141212.1332/artbollocks-mode.el rename to elpa/artbollocks-mode-20170524.422/artbollocks-mode.el index e4193efe..e3f64c71 100644 --- a/elpa/artbollocks-mode-20141212.1332/artbollocks-mode.el +++ b/elpa/artbollocks-mode-20170524.422/artbollocks-mode.el @@ -5,7 +5,7 @@ ;; ;; Author: Rob Myers , Sacha Chua ;; URL: https://github.com/sachac/artbollocks-mode -;; Package-Version: 20141212.1332 +;; Package-Version: 20170524.422 ;; Version: 1.1.2 ;; ;; Based on fic-mode.el @@ -102,7 +102,7 @@ (defface artbollocks-face '((t (:foreground "Purple" :background "White"))) - "The face for weasel-words words" + "The face for jargon words" :group 'artbollocks-mode) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -134,9 +134,11 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun artbollocks-search-for-keyword (regex limit) - "Match REGEX in buffer until LIMIT." + "Match REGEX in buffer until LIMIT. +Search is case-insensitive." (let (match-data-to-set - found) + found + (case-fold-search t)) (save-match-data (while (and (null match-data-to-set) (re-search-forward regex limit t)) @@ -250,7 +252,8 @@ entire buffer, subject to narrowing." (defun artbollocks-flesch-reading-ease (&optional start end) (let ((words (float (artbollocks-count-words start end))) - (sentences (float (artbollocks-count-sentences start end)))) + (sentences (float (artbollocks-count-sentences start end))) + (syllables (float (artbollocks-count-syllables start end)))) (if (and (> sentences 0) (> words 0)) (- 206.834 (* 1.015 (/ words sentences)) -- 2.47.3