Commits

Michele Bini  committed b9e58f3

Added dotted-fringe.el

  • Participants

Comments (0)

Files changed (1)

File dotted-fringe.el

+;;; dotted-fringe.el --- Delicate fringe icons for emacs
+
+;; Copyright (c) 2011 Michele Bini
+
+;; 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 of the License, 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/>.
+
+;; FiXME: the following depends on a fringe width of 8 pixels
+
+;;; Empty lines
+
+;; (define-fringe-bitmap 'empty-line (vector 2 2 4 5 4 2 2) 8 8 '(center t))
+;; (define-fringe-bitmap 'empty-line (vector 0 0 0 8) 8 4 '(top t))
+;; (define-fringe-bitmap 'empty-line (vector 0 8 0 0 0 8 0 0) 8 8 '(top t))
+(define-fringe-bitmap 'empty-line (vector 0 4 0 0) 8 4 '(top t))
+
+;;; Top and bottom of buffer
+
+;; Thin lines:
+;; (define-fringe-bitmap 'top-left-angle (vector 255 1 1 1 1 1 1 1) 8 8 'top)
+;; (define-fringe-bitmap 'bottom-left-angle (vector 1 1 1 1 1 1 1 255) 8 8 'bottom)
+;; (define-fringe-bitmap 'top-right-angle (vector 1 1 1 1 1 1 1 1) 8 8 'bottom)
+
+;; More delicate, dotted lines:
+(define-fringe-bitmap 'top-left-angle (vector 85 0 1 0 1 0 0 0) 8 8 'top)
+(define-fringe-bitmap 'top-right-angle (vector 0 1 0 1 0 1 0 1) 8 8 'bottom)
+(define-fringe-bitmap 'bottom-left-angle (vector 0 0 0 1 0 1 0 85) 8 8 'bottom)
+(define-fringe-bitmap 'left-bracket (vector 85 0 1 0 0 1 0 85) 8 8 'center)
+
+;; Delicate arrows:
+;; (define-fringe-bitmap 'up-arrow (vector 8 20 34 65 0 0 0 0) 8 8 'top)
+;; (define-fringe-bitmap 'down-arrow (vector 0 0 0 0 65 34 20 8) 8 8 'bottom)
+
+;;; Arrows
+
+;; Delicate, more visible but asymmetryc arrows:
+(define-fringe-bitmap 'up-arrow (vector 1 0 5 0 17 0 65 0) 8 8 'top)
+(define-fringe-bitmap 'down-arrow (vector 0 65 0 17 0 5 0 1) 8 8 'bottom)
+
+;; Replacements for curly arrow for wrapped lines
+(define-fringe-bitmap 'left-curly-arrow (vector 5 0 5 0 0 0 0 0) 8 8 'top)
+(define-fringe-bitmap 'right-curly-arrow (vector 0 0 0 0 0 160 0 160) 8 8 'bottom)
+
+;; Left and right arrows for truncated lines
+(define-fringe-bitmap 'right-arrow (vector 0 16 4 1 4 16 0 0) 8 8 'center)
+(define-fringe-bitmap 'left-arrow (vector 0 8 32 128 32 8 0 0) 8 8 'center)
+
+
+(provide 'dotted-fringe)
+;; dotted-fringe.el ends here