my-bitmaps.el (1666B)
1 ;;; my-bitmaps.el --- Some custom fringe bitmaps -*- lexical-binding: t; -*- 2 3 ;; Copyright (C) 2020 Jamie Beardslee 4 5 ;; Author: Jamie Beardslee <jdb@jamzattack.xyz> 6 ;; Keywords: 7 8 ;; This program is free software; you can redistribute it and/or modify 9 ;; it under the terms of the GNU General Public License as published by 10 ;; the Free Software Foundation, either version 3 of the License, or 11 ;; (at your option) any later version. 12 13 ;; This program is distributed in the hope that it will be useful, 14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 16 ;; GNU General Public License for more details. 17 18 ;; You should have received a copy of the GNU General Public License 19 ;; along with this program. If not, see <https://www.gnu.org/licenses/>. 20 21 ;;; Commentary: 22 23 ;; 24 25 ;;; Code: 26 27 (defun my-bitmaps-enable () 28 "Enable some custom bitmaps." 29 (interactive) 30 (define-fringe-bitmap 'right-curly-arrow 31 [#b00110000 32 #b00011000 33 #b00001100 34 #b00000110 35 #b01001100 36 #b01111000 37 #b01110000 38 #b01111000]) 39 (define-fringe-bitmap 'left-curly-arrow 40 [#b00001100 41 #b00011000 42 #b00110000 43 #b01100000 44 #b00110010 45 #b00011110 46 #b00001110 47 #b00011110]) 48 (define-fringe-bitmap 'right-arrow 49 [#b01100000 50 #b00110000 51 #b00011000 52 #b00001100 53 #b00001100 54 #b00011000 55 #b00110000 56 #b01100000]) 57 (define-fringe-bitmap 'left-arrow 58 [#b00000110 59 #b00001100 60 #b00011000 61 #b00110000 62 #b00110000 63 #b00011000 64 #b00001100 65 #b00000110])) 66 67 (provide 'my-bitmaps) 68 ;;; my-bitmaps.el ends here