From: Andreas Gerler Date: Tue, 13 Nov 2018 10:45:45 +0000 (+0100) Subject: update visual-ascii-mode. X-Git-Url: http://git.bundesbrandschatzamt.de/?a=commitdiff_plain;h=e174f477ec3246a6cbc64843aa281884dcec0d27;p=emacsconfig.git update visual-ascii-mode. Signed-off-by: Andreas Gerler --- diff --git a/elpa/visual-ascii-mode-20150129.1046/visual-ascii-mode-autoloads.el b/elpa/visual-ascii-mode-20150129.1046/visual-ascii-mode-autoloads.el new file mode 100644 index 00000000..1bc9c9be --- /dev/null +++ b/elpa/visual-ascii-mode-20150129.1046/visual-ascii-mode-autoloads.el @@ -0,0 +1,36 @@ +;;; visual-ascii-mode-autoloads.el --- automatically extracted autoloads +;; +;;; Code: + +(add-to-list 'load-path (directory-file-name + (or (file-name-directory #$) (car load-path)))) + + +;;;### (autoloads nil "visual-ascii-mode" "visual-ascii-mode.el" +;;;;;; (0 0 0 0)) +;;; Generated autoloads from visual-ascii-mode.el + +(autoload 'visual-ascii-mode "visual-ascii-mode" "\ +Visualize ascii code on buffer. + +\(fn &optional ARG)" t nil) + +(autoload 'turn-on-visual-ascii-mode "visual-ascii-mode" "\ +Turn on visual-ascii-mode. + +\(fn)" nil nil) + +(autoload 'global-visual-ascii-mode "visual-ascii-mode" "\ +The globlized visual-ascii-mode" t) + +(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "visual-ascii-mode" '("global-visual-ascii-mode" "visual-ascii-mode"))) + +;;;*** + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; coding: utf-8 +;; End: +;;; visual-ascii-mode-autoloads.el ends here diff --git a/elpa/visual-ascii-mode-20150129.1046/visual-ascii-mode-pkg.el b/elpa/visual-ascii-mode-20150129.1046/visual-ascii-mode-pkg.el new file mode 100644 index 00000000..54b30f62 --- /dev/null +++ b/elpa/visual-ascii-mode-20150129.1046/visual-ascii-mode-pkg.el @@ -0,0 +1,2 @@ +;;; -*- no-byte-compile: t -*- +(define-package "visual-ascii-mode" "20150129.1046" "Visualize ascii code (small integer) on buffer." 'nil :commit "99285a099a17472ddd9f1b4f74e9d092dd8c5947" :keywords '("presentation") :authors '(("Dewdrops" . "v_v_4474@126.com")) :maintainer '("Dewdrops" . "v_v_4474@126.com") :url "https://github.com/Dewdrops/visual-ascii-mode") diff --git a/elpa/visual-ascii-mode-20150129.1046/visual-ascii-mode.el b/elpa/visual-ascii-mode-20150129.1046/visual-ascii-mode.el new file mode 100644 index 00000000..0aa4a1fe --- /dev/null +++ b/elpa/visual-ascii-mode-20150129.1046/visual-ascii-mode.el @@ -0,0 +1,206 @@ +;;; visual-ascii-mode.el --- Visualize ascii code (small integer) on buffer. + +;; Copyright (C) 2015 by Dewdrops + +;; Author: Dewdrops +;; URL: https://github.com/Dewdrops/visual-ascii-mode +;; Package-Version: 20150129.1046 +;; Version: 0.1 +;; Keywords: presentation +;; Package-Requires: + +;; This file is NOT part of GNU Emacs. + +;;; License: +;; + +;; 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 . + +;;; Commentary: +;; +;; Installation: +;; +;; Use Melpa(https://github.com/milkypostman/melpa) or just put +;; visual-ascii-mode.el somewhere in your load-path and add these lines to your +;; .emacs: +;; (require 'visual-ascii-mode) +;; +;; Usage: +;; Type `M-x visual-ascii-mode' to enable visual-ascii-mode in current buffer. + +;;; Code: + + +(defgroup visual-ascii-mode nil + "Visualize ascii code on buffer" + :prefix "visual-ascii-mode" + :group 'Convenience) + +(defcustom visual-ascii-mode-show-unicode nil + "Non-nil means that any integer less than (`max-char') will be recognized as + unicode and be visualized." + :type 'boolean + :group 'visual-ascii-mode) + +(defcustom visual-ascii-mode-display-in-comment nil + "Non-nil means that ascii code inside comment or string will be visualized." + :type 'boolean + :group 'visual-ascii-mode) + +(defcustom visual-ascii-mode-show-unprintable-character t + "This variable controls whether/how to display unprintable characters. + +t means to show control characters in C-what style (which returned by `single-key-description'), +`abbrev' means to use ASCII control code abbreviation, +nil means not to display unprintable character." + :type 'symbol + :group 'visual-ascii-mode) + +(defface visual-ascii-mode-printable-face + '((t (:foreground "white" :background "red"))) + "Face used in visual-ascii-mode for printable characters" + :group 'visual-ascii-mode) + +(defface visual-ascii-mode-unprintable-face + '((t (:foreground "black" :background "DeepSkyBlue"))) + "Face used in visual-ascii-mode for printable characters" + :group 'visual-ascii-mode) + +(defvar visual-ascii-mode/number2ascii + ["NUL" "SOH" "STX" "ETX" "EOT" "ENQ" "ACK" "BEL" "BS" "HT" + "LF" "VT" "FF" "CR" "SO" "SI" "DLE" "DC1" "DC2" "DC3" + "DC4" "NAK" "SYN" "ETB" "CAN" "EM" "SUB" "ESC" "FS" "GS" + "RS" "US" "SPC" "!" "\"" "#" "$" "%" "&" "'" + "(" ")" "*" "+" "," "-" "." "/" "0" "1" + "2" "3" "4" "5" "6" "7" "8" "9" ":" ";" + "<" "=" ">" "?" "@" "A" "B" "C" "D" "E" + "F" "G" "H" "I" "j" "k" "L" "M" "N" "O" + "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" + "Z" "[" "\\" "]" "^" "_" "`" "a" "b" "c" + "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" + "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" + "x" "y" "z" "{" "|" "}" "~" "DEL"]) + +(defvar visual-ascii-mode/number-regexp + "\\b\\(?:0[xX][0-9a-fA-F]+\\|[0-9]+\\)\\b") + +(defvar visual-ascii-mode/overlays nil) + + +(defun visual-ascii-mode/render () + "Render ascii characters." + (dolist (ov visual-ascii-mode/overlays) + (overlay-put ov + 'after-string + (overlay-get ov 'visual-ascii-str)))) + +(defun visual-ascii-mode/cleanup () + "Clean visual-ascii-mode overlays." + (dolist (ov visual-ascii-mode/overlays) + (delete-overlay ov)) + (setq visual-ascii-mode/overlays nil)) + +(defun visual-ascii-mode/handler () + "Handler called in `post-command-hook'." + (visual-ascii-mode/cleanup) + (visual-ascii-mode/populate-overlays (window-start) (window-end)) + (visual-ascii-mode/render)) + +(defun visual-ascii-mode/comment-or-string-p () + "Determine whether inside string/comment cntext." + (memq (syntax-ppss-context (syntax-ppss)) '(comment string))) + +(defun visual-ascii-mode/populate-overlays (beg end) + "Prepare all overlays to be displayed." + (save-excursion + (goto-char beg) + (while (re-search-forward visual-ascii-mode/number-regexp end t) + (when (and (or visual-ascii-mode-display-in-comment + (not (visual-ascii-mode/comment-or-string-p))) + (let ((inhibit-changing-match-data t)) + (save-excursion + (goto-char (match-beginning 0)) + (looking-back "^\\|[^0-9a-zA-Z.+-]"))) + (looking-at-p "$\\|[^0-9a-zA-Z.+-]")) + (visual-ascii-mode/make-overlay (match-beginning 0) + (match-end 0)))))) + +(defun visual-ascii-mode/str2num (s) + "Convert string to integer." + (ignore-errors + (if (string-match-p "0[xX]" s) + (string-to-number (substring s 2) 16) + (string-to-number s)))) + +(defun visual-ascii-mode/make-overlay (beg end) + "Make overlay for the number between BEG and END." + (let ((n (visual-ascii-mode/str2num (buffer-substring-no-properties beg end)))) + (when (and (integerp n) (>= n 0)) + (let ((printable (and + (characterp n) + (aref printable-chars n))) + (desc + (cond + ((and (eq visual-ascii-mode-show-unprintable-character 'abbrev) + (< n 128)) + (aref visual-ascii-mode/number2ascii n)) + ((or (< n 128) + (and visual-ascii-mode-show-unicode + (characterp n)) + (and visual-ascii-mode-show-unprintable-character + ;; 260046848 = 0b1111110000000000000000000000 + (logand 260046848 n) + ;; 4194303 = 0b1111111111111111111111 + (< (logand 4194303 n) 128))) + (single-key-description n))))) + (when desc + (let ((ov (make-overlay beg end)) + (face (if printable + 'visual-ascii-mode-printable-face + 'visual-ascii-mode-unprintable-face))) + (overlay-put ov + 'visual-ascii-str + (propertize desc + 'face face)) + (add-to-list 'visual-ascii-mode/overlays ov))))))) + +;;;###autoload +(define-minor-mode visual-ascii-mode + "Visualize ascii code on buffer." + :lighter "" + (if visual-ascii-mode + (progn + (add-hook 'post-command-hook 'visual-ascii-mode/handler t 'local) + (visual-ascii-mode/populate-overlays (window-start) (window-end)) + (visual-ascii-mode/render)) + (progn + (remove-hook 'post-command-hook 'visual-ascii-mode/handler 'local) + (visual-ascii-mode/cleanup)))) + +;;;###autoload +(defun turn-on-visual-ascii-mode () + "Turn on visual-ascii-mode." + (unless (minibufferp) + (visual-ascii-mode 1))) + +(define-globalized-minor-mode global-visual-ascii-mode + visual-ascii-mode turn-on-visual-ascii-mode) + +;;;###autoload +(autoload 'global-visual-ascii-mode "visual-ascii-mode" + "The globlized visual-ascii-mode" t) + + +(provide 'visual-ascii-mode) +;;; visual-ascii-mode.el ends here diff --git a/elpa/visual-ascii-mode-20150129.246/visual-ascii-mode-autoloads.el b/elpa/visual-ascii-mode-20150129.246/visual-ascii-mode-autoloads.el deleted file mode 100644 index c6a50e12..00000000 --- a/elpa/visual-ascii-mode-20150129.246/visual-ascii-mode-autoloads.el +++ /dev/null @@ -1,30 +0,0 @@ -;;; visual-ascii-mode-autoloads.el --- automatically extracted autoloads -;; -;;; Code: -(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) - -;;;### (autoloads nil "visual-ascii-mode" "visual-ascii-mode.el" -;;;;;; (23247 3476 722467 459000)) -;;; Generated autoloads from visual-ascii-mode.el - -(autoload 'visual-ascii-mode "visual-ascii-mode" "\ -Visualize ascii code on buffer. - -\(fn &optional ARG)" t nil) - -(autoload 'turn-on-visual-ascii-mode "visual-ascii-mode" "\ -Turn on visual-ascii-mode. - -\(fn)" nil nil) - -(autoload 'global-visual-ascii-mode "visual-ascii-mode" "\ -The globlized visual-ascii-mode" t) - -;;;*** - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; End: -;;; visual-ascii-mode-autoloads.el ends here diff --git a/elpa/visual-ascii-mode-20150129.246/visual-ascii-mode-pkg.el b/elpa/visual-ascii-mode-20150129.246/visual-ascii-mode-pkg.el deleted file mode 100644 index ce5dc46c..00000000 --- a/elpa/visual-ascii-mode-20150129.246/visual-ascii-mode-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- no-byte-compile: t -*- -(define-package "visual-ascii-mode" "20150129.246" "Visualize ascii code (small integer) on buffer." 'nil :commit "99285a099a17472ddd9f1b4f74e9d092dd8c5947" :keywords '("presentation") :url "https://github.com/Dewdrops/visual-ascii-mode") diff --git a/elpa/visual-ascii-mode-20150129.246/visual-ascii-mode.el b/elpa/visual-ascii-mode-20150129.246/visual-ascii-mode.el deleted file mode 100644 index 224a2ee6..00000000 --- a/elpa/visual-ascii-mode-20150129.246/visual-ascii-mode.el +++ /dev/null @@ -1,206 +0,0 @@ -;;; visual-ascii-mode.el --- Visualize ascii code (small integer) on buffer. - -;; Copyright (C) 2015 by Dewdrops - -;; Author: Dewdrops -;; URL: https://github.com/Dewdrops/visual-ascii-mode -;; Package-Version: 20150129.246 -;; Version: 0.1 -;; Keywords: presentation -;; Package-Requires: - -;; This file is NOT part of GNU Emacs. - -;;; License: -;; - -;; 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 . - -;;; Commentary: -;; -;; Installation: -;; -;; Use Melpa(https://github.com/milkypostman/melpa) or just put -;; visual-ascii-mode.el somewhere in your load-path and add these lines to your -;; .emacs: -;; (require 'visual-ascii-mode) -;; -;; Usage: -;; Type `M-x visual-ascii-mode' to enable visual-ascii-mode in current buffer. - -;;; Code: - - -(defgroup visual-ascii-mode nil - "Visualize ascii code on buffer" - :prefix "visual-ascii-mode" - :group 'Convenience) - -(defcustom visual-ascii-mode-show-unicode nil - "Non-nil means that any integer less than (`max-char') will be recognized as - unicode and be visualized." - :type 'boolean - :group 'visual-ascii-mode) - -(defcustom visual-ascii-mode-display-in-comment nil - "Non-nil means that ascii code inside comment or string will be visualized." - :type 'boolean - :group 'visual-ascii-mode) - -(defcustom visual-ascii-mode-show-unprintable-character t - "This variable controls whether/how to display unprintable characters. - -t means to show control characters in C-what style (which returned by `single-key-description'), -`abbrev' means to use ASCII control code abbreviation, -nil means not to display unprintable character." - :type 'symbol - :group 'visual-ascii-mode) - -(defface visual-ascii-mode-printable-face - '((t (:foreground "white" :background "red"))) - "Face used in visual-ascii-mode for printable characters" - :group 'visual-ascii-mode) - -(defface visual-ascii-mode-unprintable-face - '((t (:foreground "black" :background "DeepSkyBlue"))) - "Face used in visual-ascii-mode for printable characters" - :group 'visual-ascii-mode) - -(defvar visual-ascii-mode/number2ascii - ["NUL" "SOH" "STX" "ETX" "EOT" "ENQ" "ACK" "BEL" "BS" "HT" - "LF" "VT" "FF" "CR" "SO" "SI" "DLE" "DC1" "DC2" "DC3" - "DC4" "NAK" "SYN" "ETB" "CAN" "EM" "SUB" "ESC" "FS" "GS" - "RS" "US" "SPC" "!" "\"" "#" "$" "%" "&" "'" - "(" ")" "*" "+" "," "-" "." "/" "0" "1" - "2" "3" "4" "5" "6" "7" "8" "9" ":" ";" - "<" "=" ">" "?" "@" "A" "B" "C" "D" "E" - "F" "G" "H" "I" "j" "k" "L" "M" "N" "O" - "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" - "Z" "[" "\\" "]" "^" "_" "`" "a" "b" "c" - "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" - "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" - "x" "y" "z" "{" "|" "}" "~" "DEL"]) - -(defvar visual-ascii-mode/number-regexp - "\\b\\(?:0[xX][0-9a-fA-F]+\\|[0-9]+\\)\\b") - -(defvar visual-ascii-mode/overlays nil) - - -(defun visual-ascii-mode/render () - "Render ascii characters." - (dolist (ov visual-ascii-mode/overlays) - (overlay-put ov - 'after-string - (overlay-get ov 'visual-ascii-str)))) - -(defun visual-ascii-mode/cleanup () - "Clean visual-ascii-mode overlays." - (dolist (ov visual-ascii-mode/overlays) - (delete-overlay ov)) - (setq visual-ascii-mode/overlays nil)) - -(defun visual-ascii-mode/handler () - "Handler called in `post-command-hook'." - (visual-ascii-mode/cleanup) - (visual-ascii-mode/populate-overlays (window-start) (window-end)) - (visual-ascii-mode/render)) - -(defun visual-ascii-mode/comment-or-string-p () - "Determine whether inside string/comment cntext." - (memq (syntax-ppss-context (syntax-ppss)) '(comment string))) - -(defun visual-ascii-mode/populate-overlays (beg end) - "Prepare all overlays to be displayed." - (save-excursion - (goto-char beg) - (while (re-search-forward visual-ascii-mode/number-regexp end t) - (when (and (or visual-ascii-mode-display-in-comment - (not (visual-ascii-mode/comment-or-string-p))) - (let ((inhibit-changing-match-data t)) - (save-excursion - (goto-char (match-beginning 0)) - (looking-back "^\\|[^0-9a-zA-Z.+-]"))) - (looking-at-p "$\\|[^0-9a-zA-Z.+-]")) - (visual-ascii-mode/make-overlay (match-beginning 0) - (match-end 0)))))) - -(defun visual-ascii-mode/str2num (s) - "Convert string to integer." - (ignore-errors - (if (string-match-p "0[xX]" s) - (string-to-number (substring s 2) 16) - (string-to-number s)))) - -(defun visual-ascii-mode/make-overlay (beg end) - "Make overlay for the number between BEG and END." - (let ((n (visual-ascii-mode/str2num (buffer-substring-no-properties beg end)))) - (when (and (integerp n) (>= n 0)) - (let ((printable (and - (characterp n) - (aref printable-chars n))) - (desc - (cond - ((and (eq visual-ascii-mode-show-unprintable-character 'abbrev) - (< n 128)) - (aref visual-ascii-mode/number2ascii n)) - ((or (< n 128) - (and visual-ascii-mode-show-unicode - (characterp n)) - (and visual-ascii-mode-show-unprintable-character - ;; 260046848 = 0b1111110000000000000000000000 - (logand 260046848 n) - ;; 4194303 = 0b1111111111111111111111 - (< (logand 4194303 n) 128))) - (single-key-description n))))) - (when desc - (let ((ov (make-overlay beg end)) - (face (if printable - 'visual-ascii-mode-printable-face - 'visual-ascii-mode-unprintable-face))) - (overlay-put ov - 'visual-ascii-str - (propertize desc - 'face face)) - (add-to-list 'visual-ascii-mode/overlays ov))))))) - -;;;###autoload -(define-minor-mode visual-ascii-mode - "Visualize ascii code on buffer." - :lighter "" - (if visual-ascii-mode - (progn - (add-hook 'post-command-hook 'visual-ascii-mode/handler t 'local) - (visual-ascii-mode/populate-overlays (window-start) (window-end)) - (visual-ascii-mode/render)) - (progn - (remove-hook 'post-command-hook 'visual-ascii-mode/handler 'local) - (visual-ascii-mode/cleanup)))) - -;;;###autoload -(defun turn-on-visual-ascii-mode () - "Turn on visual-ascii-mode." - (unless (minibufferp) - (visual-ascii-mode 1))) - -(define-globalized-minor-mode global-visual-ascii-mode - visual-ascii-mode turn-on-visual-ascii-mode) - -;;;###autoload -(autoload 'global-visual-ascii-mode "visual-ascii-mode" - "The globlized visual-ascii-mode" t) - - -(provide 'visual-ascii-mode) -;;; visual-ascii-mode.el ends here