diff options
author | Tom Willemsen | 2011-03-23 11:14:27 +0100 |
---|---|---|
committer | Tom Willemsen | 2011-03-23 11:14:27 +0100 |
commit | 0d342f0aee3f2f800e486c0051dabe718a7b2841 (patch) | |
tree | 1f55afabb8f4876dbe564f7ed5d8e573ddc78df3 /emacs.d/nxhtml/util/ocr-user.el | |
parent | d4510153b17625a3dd2f1852cc6392fc26efecf6 (diff) | |
download | dotfiles-0d342f0aee3f2f800e486c0051dabe718a7b2841.tar.gz dotfiles-0d342f0aee3f2f800e486c0051dabe718a7b2841.zip |
I don't like nxhtml
Diffstat (limited to 'emacs.d/nxhtml/util/ocr-user.el')
-rw-r--r-- | emacs.d/nxhtml/util/ocr-user.el | 86 |
1 files changed, 0 insertions, 86 deletions
diff --git a/emacs.d/nxhtml/util/ocr-user.el b/emacs.d/nxhtml/util/ocr-user.el deleted file mode 100644 index 0bcd1d9..0000000 --- a/emacs.d/nxhtml/util/ocr-user.el +++ /dev/null @@ -1,86 +0,0 @@ -;;; ocr-user.el --- Input looong OCR number more safely -;; -;; Author: Lennart Borgman (lennart O borgman A gmail O com) -;; Created: 2008-06-18T23:00:25+0200 Wed -;; Version: -;; Last-Updated: -;; URL: -;; Keywords: -;; Compatibility: -;; -;; Features that might be required by this library: -;; -;; None -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;;; Commentary: -;; -;; I just get mad at entering OCR numbers more than twenty digits long -;; so I wrote this litte minor mode that colors up the digits three by -;; tree. -;; -;; To use it do -;; -;; M-x ocr-user-mode -;; -;; Crazy? Yeah, I get crazy by entering these digits. You would not -;; like to meet me when I have done that! -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;;; Change log: -;; -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;; 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 2, 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; see the file COPYING. If not, write to -;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth -;; Floor, Boston, MA 02110-1301, USA. -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;;; Code: - -(defconst ocr-keywords - `(( - ,(concat - ;;"\\<\\(?:" - "\\(?1:[0-9]\\{3\\}\\)" - "\\(?2:[0-9]\\{3\\}\\)?" - ;;"\\)+" - ) - (0 (progn - (put-text-property (match-beginning 1) (match-end 1) - 'face '(:background "LightBlue1")) - (when (match-beginning 2) - (put-text-property (match-beginning 2) (match-end 2) - 'face '(:background "PaleGreen1")))))))) - -;; 23456 -;; 1234567890 -;; 346789238 -;;;###autoload -(define-minor-mode ocr-user-mode - "Color up digits three by three." - :group 'convenience - (if ocr-user-mode - (font-lock-add-keywords nil ocr-keywords) - (font-lock-remove-keywords nil ocr-keywords)) - (font-lock-fontify-buffer)) - - -(provide 'ocr-user) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; ocr-user.el ends here |