dotfiles: .elisp/show-wspace.el annotate

annotate .elisp/show-wspace.el @ 207:c965d5dbd868

emacs localfuncs: add list rotation and string-joining functions I sometimes use

author	Augie Fackler <durin42@gmail.com>
date	Tue, 11 May 2010 15:32:19 -0500
parents	c30d68fbd368
children

rev	line source
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	1 ;;; show-wspace.el --- Highlight whitespace of various kinds.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	2 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	3 ;; Filename: show-wspace.el
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	4 ;; Description: Highlight whitespace of various kinds.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	5 ;; Author: Peter Steiner <unistein@isbe.ch>, Drew Adams
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	6 ;; Maintainer: Drew Adams
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	7 ;; Copyright (C) 2000-2008, Drew Adams, all rights reserved.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	8 ;; Created: Wed Jun 21 08:54:53 2000
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	9 ;; Version: 21.0
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	10 ;; Last-Updated: Tue Jan 01 13:59:36 2008 (-28800 Pacific Standard Time)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	11 ;; By: dradams
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	12 ;; Update #: 264
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	13 ;; URL: http://www.emacswiki.org/cgi-bin/wiki/show-wspace.el
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	14 ;; Keywords: highlight, whitespace
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	15 ;; Compatibility: GNU Emacs 20.x, GNU Emacs 21.x, GNU Emacs 22.x
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	16 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	17 ;; Features that might be required by this library:
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	18 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	19 ;; None
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	20 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	21 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	22 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	23 ;;; Commentary:
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	24 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	25 ;; Highlight whitespace of various kinds.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	26 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	27 ;; To use this library:
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	28 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	29 ;; Add this to your initialization file (~/.emacs or ~/_emacs):
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	30 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	31 ;; (require 'show-wspace) ; Load this library.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	32 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	33 ;; Then you can use commands `toggle-*' (see below) to turn the
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	34 ;; various kinds of whitespace highlighting on and off in Font-Lock
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	35 ;; mode.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	36 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	37 ;; If you want to always use a particular kind of whitespace
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	38 ;; highlighting, by default, then add the corresponding
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	39 ;; `show-ws-highlight-*' function (see below) to the hook
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	40 ;; `font-lock-mode-hook'. Then, whenever Font-Lock mode is turned on,
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	41 ;; whitespace highlighting will also be turned on.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	42 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	43 ;; For example, you can turn on tab highlighting by default by adding
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	44 ;; function `show-ws-highlight-tabs' to `font-lock-mode-hook' in your
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	45 ;; .emacs file, as follows:
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	46 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	47 ;; (add-hook 'font-lock-mode-hook 'show-ws-highlight-tabs)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	48 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	49 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	50 ;; Faces defined here:
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	51 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	52 ;; `show-ws-hard-space', `show-ws-tab', `show-ws-trailing-whitespace'.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	53 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	54 ;; Commands defined here:
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	55 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	56 ;; `show-ws-toggle-show-hard-spaces', `show-ws-toggle-show-tabs',
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	57 ;; `show-ws-toggle-show-trailing-whitespace',
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	58 ;; `toggle-show-hard-spaces-show-ws' (alias),
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	59 ;; `toggle-show-tabs-show-ws' (alias),
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	60 ;; `toggle-show-trailing-whitespace-show-ws' (alias).
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	61 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	62 ;; Non-interactive functions defined here:
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	63 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	64 ;; `show-ws-highlight-hard-spaces', `show-ws-highlight-tabs',
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	65 ;; `show-ws-highlight-trailing-whitespace'.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	66 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	67 ;; Internal variables defined here:
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	68 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	69 ;; `show-ws-highlight-hard-spaces-p', `show-ws-highlight-tabs-p',
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	70 ;; `show-ws-highlight-trailing-whitespace-p'.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	71 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	72 ;; Drew Adams wrote the `toggle-' commands and `-p' variables.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	73 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	74 ;; Peter Steiner wrote the original code that did the equivalent of
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	75 ;; the `show-ws-highlight-*' commands here in his `hilite-trail.el'.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	76 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	77 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	78 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	79 ;;; Change log:
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	80 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	81 ;; 2007/09/25 dadams
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	82 ;; Renamed to use prefix show-ws-. Thx to Cyril Brulebois.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	83 ;; 2006/11/11 dadams
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	84 ;; Corrected doc strings. Clarified: hard space is non-breaking space, \240.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	85 ;; Included hard space in highlight-trailing-whitespace.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	86 ;; 2006/04/06 dadams
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	87 ;; highlight-*: Use font-lock-add-keywords. Thanks to Karl Chen.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	88 ;; 2006/02/20 dadams
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	89 ;; Mentioned in Commentary how to use non-interactively.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	90 ;; 2006/01/07 dadams
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	91 ;; Added :link for sending bug report.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	92 ;; 2006/01/06 dadams
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	93 ;; Added defgroup and use it.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	94 ;; 2005/12/30 dadams
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	95 ;; Removed require of def-face-const.el.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	96 ;; Renamed faces, without "-face".
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	97 ;; 2005/01/25 dadams
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	98 ;; Removed ###autoload for defvars.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	99 ;; 2004/06/10 dadams
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	100 ;; Fixed minor bug in highlight-* functions.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	101 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	102 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	103 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	104 ;; This program is free software; you can redistribute it and/or modify
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	105 ;; it under the terms of the GNU General Public License as published by
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	106 ;; the Free Software Foundation; either version 2, or (at your option)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	107 ;; any later version.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	108
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	109 ;; This program is distributed in the hope that it will be useful,
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	110 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	111 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	112 ;; GNU General Public License for more details.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	113
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	114 ;; You should have received a copy of the GNU General Public License
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	115 ;; along with this program; see the file COPYING. If not, write to
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	116 ;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	117 ;; Floor, Boston, MA 02110-1301, USA.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	118 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	119 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	120 ;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	121 ;;; Code:
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	122
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	123 (and (< emacs-major-version 20) (eval-when-compile (require 'cl))) ;; when, push
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	124
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	125 ;;;;;;;;;;;;;;;;;;;;;;;;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	126
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	127 (defgroup Show-Whitespace nil
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	128 "Highlight whitespace of various kinds."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	129 :prefix "show-ws-"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	130 :group 'convenience :group 'matching
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	131 :link `(url-link :tag "Send Bug Report"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	132 ,(concat "mailto:" "drew.adams" "@" "oracle" ".com?subject=\
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	133 show-wspace.el bug: \
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	134 &body=Describe bug here, starting with `emacs -q'. \
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	135 Don't forget to mention your Emacs and library versions."))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	136 :link '(url-link :tag "Other Libraries by Drew"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	137 "http://www.emacswiki.org/cgi-bin/wiki/DrewsElispLibraries")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	138 :link '(url-link :tag "Download"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	139 "http://www.emacswiki.org/cgi-bin/wiki/show-wspace.el")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	140 :link '(url-link :tag "Description"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	141 "http://www.emacswiki.org/cgi-bin/wiki/ShowWhiteSpace#ShowWspace")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	142 :link '(emacs-commentary-link :tag "Commentary" "show-wspace")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	143 )
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	144
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	145 (defface show-ws-tab '((t (:background "LemonChiffon")))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	146 "*Face for highlighting tab characters (`C-i') in Font-Lock mode."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	147 :group 'Show-Whitespace :group 'font-lock :group 'faces)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	148
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	149 (defface show-ws-trailing-whitespace '((t (:background "Gold")))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	150 "*Face for highlighting whitespace at line ends in Font-Lock mode."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	151 :group 'Show-Whitespace :group 'font-lock :group 'faces)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	152
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	153 (defface show-ws-hard-space '((t (:background "PaleGreen")))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	154 "*Face for highlighting non-breaking spaces (`\240')in Font-Lock mode."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	155 :group 'Show-Whitespace :group 'font-lock :group 'faces)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	156
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	157
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	158 (defvar show-ws-highlight-tabs-p nil
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	159 "Non-nil means font-lock mode highlights TAB characters (`C-i').")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	160
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	161 (defvar show-ws-highlight-trailing-whitespace-p nil
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	162 "Non-nil means font-lock mode highlights whitespace at line ends.")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	163
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	164 (defvar show-ws-highlight-hard-spaces-p nil
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	165 "Non-nil means font-lock mode highlights non-breaking spaces (`\240').")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	166
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	167 ;;;###autoload
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	168 (defalias 'toggle-show-tabs-show-ws 'show-ws-toggle-show-tabs)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	169 ;;;###autoload
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	170 (defun show-ws-toggle-show-tabs ()
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	171 "Toggle highlighting of TABs, using face `show-ws-tab'."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	172 (interactive)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	173 (if show-ws-highlight-tabs-p
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	174 (remove-hook 'font-lock-mode-hook 'show-ws-highlight-tabs)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	175 (add-hook 'font-lock-mode-hook 'show-ws-highlight-tabs))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	176 (setq show-ws-highlight-tabs-p (not show-ws-highlight-tabs-p))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	177 (font-lock-mode) (font-lock-mode)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	178 (message "TAB highlighting is now %s." (if show-ws-highlight-tabs-p "ON" "OFF")))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	179
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	180 ;;;###autoload
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	181 (defalias 'toggle-show-hard-spaces-show-ws 'show-ws-toggle-show-hard-spaces)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	182 ;;;###autoload
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	183 (defun show-ws-toggle-show-hard-spaces ()
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	184 "Toggle highlighting of non-breaking space characters (`\240').
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	185 Uses face `show-ws-hard-space'."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	186 (interactive)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	187 (if show-ws-highlight-hard-spaces-p
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	188 (remove-hook 'font-lock-mode-hook 'show-ws-highlight-hard-spaces)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	189 (add-hook 'font-lock-mode-hook 'show-ws-highlight-hard-spaces))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	190 (setq show-ws-highlight-hard-spaces-p (not show-ws-highlight-hard-spaces-p))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	191 (font-lock-mode) (font-lock-mode)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	192 (message "Hard (non-breaking) space highlighting is now %s."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	193 (if show-ws-highlight-hard-spaces-p "ON" "OFF")))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	194
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	195 ;;;###autoload
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	196 (defalias 'toggle-show-trailing-whitespace-show-ws
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	197 'show-ws-toggle-show-trailing-whitespace)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	198 ;;;###autoload
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	199 (defun show-ws-toggle-show-trailing-whitespace ()
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	200 "Toggle highlighting of trailing whitespace.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	201 Uses face `show-ws-trailing-whitespace'."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	202 (interactive)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	203 (if show-ws-highlight-trailing-whitespace-p
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	204 (remove-hook 'font-lock-mode-hook 'show-ws-highlight-trailing-whitespace)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	205 (add-hook 'font-lock-mode-hook 'show-ws-highlight-trailing-whitespace))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	206 (setq show-ws-highlight-trailing-whitespace-p
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	207 (not show-ws-highlight-trailing-whitespace-p))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	208 (font-lock-mode) (font-lock-mode)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	209 (message "Trailing whitespace highlighting is now %s."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	210 (if show-ws-highlight-trailing-whitespace-p "ON" "OFF")))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	211
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	212 (defun show-ws-highlight-tabs ()
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	213 "Highlight tab characters (`C-i')."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	214 (font-lock-add-keywords nil '(("[\t]+" (0 'show-ws-tab t)))))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	215 (defun show-ws-highlight-hard-spaces ()
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	216 "Highlight hard (non-breaking) space characters (`\240')."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	217 (font-lock-add-keywords nil '(("[\240]+" (0 'show-ws-hard-space t)))))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	218 (defun show-ws-highlight-trailing-whitespace ()
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	219 "Highlight whitespace characters at line ends."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	220 (font-lock-add-keywords
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	221 nil '(("[\240\040\t]+$" (0 'show-ws-trailing-whitespace t)))))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	222
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	223 ;;;;;;;;;;;;;;;;;;;;;;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	224
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	225 (provide 'show-wspace)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	226
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	227 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	228 ;;; show-wspace.el ends here

Mercurial > dotfiles

annotate .elisp/show-wspace.el @ 207:c965d5dbd868