From: Francois Fleuret <francois@fleuret.org>
Date: Fri, 4 Oct 2013 11:58:42 +0000 (+0200)
Subject: Initial commit.
X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=3d7cf3e751b0ef3ef63dffdea8b5d09828c2341a;p=elisp.git

Initial commit.
---

diff --git a/text-counters.el b/text-counters.el
new file mode 100644
index 0000000..484bc94
--- /dev/null
+++ b/text-counters.el
@@ -0,0 +1,40 @@
+;; -*- mode: Emacs-Lisp; mode: rainbow; -*-
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; This program is free software; you can redistribute it and/or         ;;
+;; modify it under the terms of the GNU General Public License as        ;;
+;; published by the Free Software Foundation; either version 3, or (at   ;;
+;; your option) any later version.                                       ;;
+;;                                                                       ;;
+;; This program is distributed in the hope that it will be useful, but   ;;
+;; WITHOUT ANY WARRANTY; without even the implied warranty of            ;;
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU      ;;
+;; General Public License for more details.                              ;;
+;;                                                                       ;;
+;; You should have received a copy of the GNU General Public License     ;;
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.  ;;
+;;                                                                       ;;
+;; Written by and Copyright (C) Francois Fleuret                         ;;
+;; Contact <francois@fleuret.org> for comments & bug reports             ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;; Counts the number of words and characters between the previous and
+;; the next line of '-' (with at least four '-' in each line)
+
+(defun tc/text-counters-string () (interactive)
+  (let ((a (save-excursion
+             (and (re-search-backward "^--.*--*$" nil t)
+                  (match-end 0))))
+        (b (save-excursion
+             (and (re-search-forward "^--.*--*$" nil t)
+                  (match-beginning 0)))))
+
+    (when (and a b)
+      (format "%dw %dc " (count-words a b) (- b a))
+      )))
+
+;; Add the said counters into the modeline
+
+(defun tc/add-text-counters-in-modeline () (interactive)
+  (add-to-list 'mode-line-buffer-identification '(:eval (tc/text-counters-string)))
+  )