{"header":{"message":"add ascii-table package","description":null,"timestamp":"2024-01-25T00:29:23.920986955Z","authors":[{}]},"hash":"XJMTMJQQ2US4ORAM6EAIHCG7RM65NZBU6GYU54PEZARVWM323XIAC","authors":[{"login":"jaredj","key":"2VZC6TMHGNzBK2kTuuZDLUpQu7iMdL9h1N9vVJPh2Y6e"}],"deps":{"hashes":[["XJMTMJQQ2US4ORAM6EAIHCG7RM65NZBU6GYU54PEZARVWM323XIAC","add ascii-table package"],["AA",null],["TSHPLAIW6L73G6TPVVZ64TCXNUPA3SBMRTGALNLBAKG6ARHGLJRAC","initial commit: git commit 5e25bf3ff2 plus vc-pijul"]],"deps":["TSHPLAIW6L73G6TPVVZ64TCXNUPA3SBMRTGALNLBAKG6ARHGLJRAC"],"known":[]},"hunks":[{"FileAdd":{"meta":{"basename":"ascii-table-20221230.1244","metadata":576},"context":[{"change":2,"pos":642063}],"contents":[]}},{"FileAdd":{"meta":{"basename":"ascii-table.el","metadata":0},"context":[{"change":0,"pos":37}],"contents":[{"Add":";;; ascii-table.el --- Interactive ASCII table -*- lexical-binding: t -*-"},{"Add":";;"},{"Add":";; SPDX-License-Identifier: ISC"},{"Add":";; Author: Lassi Kortela "},{"Add":";; URL: https://github.com/lassik/emacs-ascii-table"},{"Add":";; Package-Version: 20221230.1244"},{"Add":";; Package-Commit: c71f54b85edc6bd42abdc79dd82248958c8a24f9"},{"Add":";; Package-Requires: ((emacs \"24.3\"))"},{"Add":";; Version: 0.1.0"},{"Add":";; Keywords: help tools"},{"Add":";;"},{"Add":";; This file is not part of GNU Emacs."},{"Add":";;"},{"Add":";;; Commentary:"},{"Add":";;"},{"Add":";; Show a character map of the ubiquitous 7-bit ASCII character set"},{"Add":";; (128 characters in total)."},{"Add":";;"},{"Add":";; Do `M-x ascii-table` to bring up a window with the ASCII table. Press 'b'"},{"Add":";; for binary, 'o' for octal, 'd' for decimal and 'x' for hexadecimal."},{"Add":";; Press TAB to change the way control characters are shown."},{"Add":";;"},{"Add":";;; Code:"},{"Add":""},{"Add":"(require 'cl-lib)"},{"Add":""},{"Add":"(defvar ascii-table-base 16"},{"Add":" \"Number base used for character codes in the ASCII table."},{"Add":""},{"Add":"Valid values are 2 (binary), 8 (octal), 10 (decimal), and"},{"Add":"16 (hex). Another word for 'base' is 'radix'.\")"},{"Add":""},{"Add":"(defvar ascii-table-control nil"},{"Add":" \"Use ^A notation for control characters in the ASCII table?"},{"Add":""},{"Add":"If non-nil, control characters use caret notation (^A .. ^?)."},{"Add":"Otherwise their names NUL .. DEL are shown.\")"},{"Add":""},{"Add":"(defvar ascii-table-escape nil"},{"Add":" \"Use backslash notation for control characters in the ASCII table?\")"},{"Add":""},{"Add":"(defun ascii-table--binary (codepoint)"},{"Add":" \"Internal helper to format CODEPOINT in binary.\""},{"Add":" (cl-assert (<= 0 codepoint #x7F))"},{"Add":" (string (+ ?0 (logand 1 (lsh codepoint -6)))"},{"Add":" (+ ?0 (logand 1 (lsh codepoint -5)))"},{"Add":" (+ ?0 (logand 1 (lsh codepoint -4)))"},{"Add":" (+ ?0 (logand 1 (lsh codepoint -3)))"},{"Add":" (+ ?0 (logand 1 (lsh codepoint -2)))"},{"Add":" (+ ?0 (logand 1 (lsh codepoint -1)))"},{"Add":" (+ ?0 (logand 1 (lsh codepoint -0)))))"},{"Add":""},{"Add":"(defun ascii-table--class-face (class)"},{"Add":" \"Internal helper to get face for character CLASS.\""},{"Add":" (cl-case class"},{"Add":" (control font-lock-keyword-face)"},{"Add":" (punct font-lock-preprocessor-face)"},{"Add":" (space font-lock-string-face)"},{"Add":" (digit font-lock-function-name-face)"},{"Add":" (upper font-lock-variable-name-face)"},{"Add":" (lower font-lock-variable-name-face)"},{"Add":" (t nil)))"},{"Add":""},{"Add":"(defun ascii-table--character-class (codepoint)"},{"Add":" \"Internal helper to classify CODEPOINT.\""},{"Add":" (cond ((< codepoint #x00) nil)"},{"Add":" ((< codepoint #x09) 'control)"},{"Add":" ((< codepoint #x0e) 'space)"},{"Add":" ((< codepoint #x20) 'control)"},{"Add":" ((= codepoint #x20) 'space)"},{"Add":" ((< codepoint #x30) 'punct)"},{"Add":" ((< codepoint #x3a) 'digit)"},{"Add":" ((< codepoint #x41) 'punct)"},{"Add":" ((< codepoint #x47) 'upper)"},{"Add":" ((< codepoint #x5b) 'upper)"},{"Add":" ((< codepoint #x61) 'punct)"},{"Add":" ((< codepoint #x67) 'lower)"},{"Add":" ((< codepoint #x7b) 'lower)"},{"Add":" ((< codepoint #x7f) 'punct)"},{"Add":" ((= codepoint #x7f) 'control)"},{"Add":" (t nil)))"},{"Add":""},{"Add":"(defun ascii-table--control-caret (codepoint)"},{"Add":" \"Internal helper to format CODEPOINT in caret notation.\""},{"Add":" (cond ((< codepoint #x00) nil)"},{"Add":" ((< codepoint #x20) (string ?^ (+ ?@ codepoint)))"},{"Add":" ((= codepoint #x7F) \"^?\")"},{"Add":" (t nil)))"},{"Add":""},{"Add":"(defun ascii-table--control-name (codepoint)"},{"Add":" \"Internal helper to get the control character name of CODEPOINT.\""},{"Add":" (cond ((< codepoint #x00) nil)"},{"Add":" ((< codepoint #x20)"},{"Add":" (elt [\"NUL\" \"SOH\" \"STX\" \"ETX\" \"EOT\" \"ENQ\" \"ACK\" \"BEL\""},{"Add":" \"BS\" \"HT\" \"LF\" \"VT\" \"FF\" \"CR\" \"SO\" \"SI\""},{"Add":" \"DLE\" \"DC1\" \"DC2\" \"DC3\" \"DC4\" \"NAK\" \"SYN\" \"ETB\""},{"Add":" \"CAN\" \"EM\" \"SUB\" \"ESC\" \"FS\" \"GS\" \"RS\" \"US\"]"},{"Add":" codepoint))"},{"Add":" ((= codepoint #x7F) \"DEL\")"},{"Add":" (t nil)))"},{"Add":""},{"Add":"(defun ascii-table--control-escape (codepoint)"},{"Add":" \"Internal helper to get the C backslash escape of CODEPOINT.\""},{"Add":" (cond ((<= #x07 codepoint #x0D)"},{"Add":" (string ?\\\\ (elt \"abtnvfr\" (- codepoint #x07))))"},{"Add":" ((= codepoint #x1B) \"\\\\e\")"},{"Add":" (t nil)))"},{"Add":""},{"Add":"(defun ascii-table--table (codepoints/row)"},{"Add":" \"Internal helper to compute the cells in the ASCII table."},{"Add":""},{"Add":"CODEPOINTS/ROW is how many ASCII characters to show in each row."},{"Add":""},{"Add":"Each character takes two cells: one for the character number, and"},{"Add":"one for the name or other representation.\""},{"Add":" (let* ((codepoints 128)"},{"Add":" (rows (ceiling codepoints codepoints/row))"},{"Add":" (cols (* 2 codepoints/row))"},{"Add":" (table (make-vector (* 2 rows cols) (cons \"\" nil))))"},{"Add":" (cl-do"},{"Add":" ((codepoint 0 (1+ codepoint)))"},{"Add":" ((= codepoint codepoints) table)"},{"Add":" (let* ((code (cl-ecase ascii-table-base"},{"Add":" (2 (ascii-table--binary codepoint))"},{"Add":" (8 (format \"%03o\" codepoint))"},{"Add":" (10 (format \"%d\" codepoint))"},{"Add":" (16 (format \"%02X\" codepoint))))"},{"Add":" (name (or (and ascii-table-escape"},{"Add":" (ascii-table--control-escape codepoint))"},{"Add":" (cl-ecase ascii-table-control"},{"Add":" ((nil) (ascii-table--control-name codepoint))"},{"Add":" (caret (ascii-table--control-caret codepoint)))"},{"Add":" (string codepoint)))"},{"Add":" (face (ascii-table--class-face"},{"Add":" (ascii-table--character-class codepoint)))"},{"Add":" (row (mod codepoint rows))"},{"Add":" (col (truncate codepoint rows))"},{"Add":" (cell (* 2 (+ (* codepoints/row row) col))))"},{"Add":" (aset table (+ 0 cell) (cons code 'font-lock-comment-face))"},{"Add":" (aset table (+ 1 cell) (cons name face))))))"},{"Add":""},{"Add":"(defun ascii-table--column-widths (table cols)"},{"Add":" \"Internal helper to compute column widths needed for TABLE."},{"Add":""},{"Add":"Assume the table is formatted using COLS columns.\""},{"Add":" (let* ((cells (length table))"},{"Add":" (widths (make-vector cols 0)))"},{"Add":" (cl-do"},{"Add":" ((cell 0 (1+ cell)))"},{"Add":" ((= cell cells) widths)"},{"Add":" (let* ((col (mod cell cols))"},{"Add":" (pair (aref table cell))"},{"Add":" (contents (car pair))"},{"Add":" (width (length contents)))"},{"Add":" (aset widths col (max (aref widths col) width))))))"},{"Add":""},{"Add":"(defun ascii-table--width-limit ()"},{"Add":" \"Internal helper to get narrowest window width for ASCII table.\""},{"Add":" (let ((min-width nil))"},{"Add":" (let ((ascii-table-buffer (get-buffer \"*ASCII*\")))"},{"Add":" (when ascii-table-buffer"},{"Add":" (walk-windows"},{"Add":" (lambda (w)"},{"Add":" (when (eq ascii-table-buffer (window-buffer w))"},{"Add":" (let ((width (window-width w)))"},{"Add":" (setq min-width (or (and min-width (min min-width width))"},{"Add":" width)))))"},{"Add":" nil t)))"},{"Add":" (or min-width (window-width))))"},{"Add":""},{"Add":"(defun ascii-table--revert (&optional _arg _noconfirm)"},{"Add":" \"Redisplay the *ASCII* buffer, i.e. refresh the ASCII table.\""},{"Add":" (let ((inhibit-read-only t))"},{"Add":" (cl-assert (equal major-mode 'ascii-table-mode))"},{"Add":" (cl-assert (null (buffer-file-name)))"},{"Add":" (erase-buffer)"},{"Add":" (insert \"ASCII Table\""},{"Add":" \" (\""},{"Add":" (cl-ecase ascii-table-base"},{"Add":" (2 \"binary\")"},{"Add":" (8 \"octal\")"},{"Add":" (10 \"decimal\")"},{"Add":" (16 \"hex\"))"},{"Add":" \")\\n\\n\")"},{"Add":" (cl-dolist (codepoints/row '(8 7 6 5 4 3 2 1))"},{"Add":" (let* ((table (ascii-table--table codepoints/row))"},{"Add":" (cols (* 2 codepoints/row))"},{"Add":" (rows (truncate (truncate (length table) 2) cols))"},{"Add":" (widths (ascii-table--column-widths table cols))"},{"Add":" (width (+ (cl-reduce #'+ widths)"},{"Add":" (* 2 (length widths))))"},{"Add":" (width-limit (ascii-table--width-limit)))"},{"Add":" (when (< width width-limit)"},{"Add":" (cl-dotimes (row rows)"},{"Add":" (cl-dotimes (col cols)"},{"Add":" (let* ((cell (+ col (* row cols)))"},{"Add":" (pair (aref table cell))"},{"Add":" (contents (car pair))"},{"Add":" (face (cdr pair))"},{"Add":" (col-width (aref widths col))"},{"Add":" (pad-amount (max 0 (- col-width (length contents))))"},{"Add":" (pad (make-string pad-amount ? ))"},{"Add":" (right-justify-p (= 0 (mod col 2))))"},{"Add":" (unless (= col 0) (insert \" \"))"},{"Add":" (when right-justify-p"},{"Add":" (insert pad))"},{"Add":" (let ((start (point)))"},{"Add":" (insert contents)"},{"Add":" (let* ((end (point))"},{"Add":" (overlay (make-overlay start end)))"},{"Add":" (overlay-put overlay 'face face)))"},{"Add":" (unless right-justify-p"},{"Add":" (insert pad))))"},{"Add":" (insert \"\\n\"))"},{"Add":" (cl-return))))"},{"Add":" (goto-char (point-min))))"},{"Add":""},{"Add":"(defun ascii-table--revert-if-active ()"},{"Add":" \"Redisplay the *ASCII* buffer if it exists.\""},{"Add":" (let ((buffer (get-buffer \"*ASCII*\")))"},{"Add":" (when buffer (with-current-buffer buffer (ascii-table--revert)))))"},{"Add":""},{"Add":"(defun ascii-table--set-base (base)"},{"Add":" \"Internal helper to change the ASCII number base to BASE.\""},{"Add":" (setq ascii-table-base (cl-case base ((2 8 16) base) (t 10)))"},{"Add":" (ascii-table--revert-if-active))"},{"Add":""},{"Add":"(defun ascii-table-toggle-control ()"},{"Add":" \"Toggle the way control characters are shown in the ASCII table."},{"Add":""},{"Add":"Changes between ^A notation and control character names.\""},{"Add":" (interactive)"},{"Add":" (setq ascii-table-control (if ascii-table-control nil 'caret))"},{"Add":" (ascii-table--revert-if-active))"},{"Add":""},{"Add":"(defun ascii-table-toggle-escape ()"},{"Add":" \"Toggle whether C backslash escapes are shown in the ASCII table.\""},{"Add":" (interactive)"},{"Add":" (setq ascii-table-escape (not ascii-table-escape))"},{"Add":" (ascii-table--revert-if-active))"},{"Add":""},{"Add":"(defun ascii-table-base-binary ()"},{"Add":" \"Switch ASCII table to binary (base 2).\""},{"Add":" (interactive)"},{"Add":" (ascii-table--set-base 2))"},{"Add":""},{"Add":"(defun ascii-table-base-octal ()"},{"Add":" \"Switch ASCII table to octal (base 8).\""},{"Add":" (interactive)"},{"Add":" (ascii-table--set-base 8))"},{"Add":""},{"Add":"(defun ascii-table-base-decimal ()"},{"Add":" \"Switch ASCII table to decimal (base 10).\""},{"Add":" (interactive)"},{"Add":" (ascii-table--set-base 10))"},{"Add":""},{"Add":"(defun ascii-table-base-hex ()"},{"Add":" \"Switch ASCII table to hexadecimal (base 16).\""},{"Add":" (interactive)"},{"Add":" (ascii-table--set-base 16))"},{"Add":""},{"Add":"(defvar ascii-table-mode-map"},{"Add":" (let ((map (make-sparse-keymap)))"},{"Add":" (set-keymap-parent map special-mode-map)"},{"Add":" (define-key map (kbd \"b\") 'ascii-table-base-binary)"},{"Add":" (define-key map (kbd \"e\") 'ascii-table-toggle-escape)"},{"Add":" (define-key map (kbd \"d\") 'ascii-table-base-decimal)"},{"Add":" (define-key map (kbd \"o\") 'ascii-table-base-octal)"},{"Add":" (define-key map (kbd \"x\") 'ascii-table-base-hex)"},{"Add":" (define-key map (kbd \"TAB\") 'ascii-table-toggle-control)"},{"Add":" map)"},{"Add":" \"Keymap for `ascii-table-mode'.\")"},{"Add":""},{"Add":"(define-derived-mode ascii-table-mode special-mode \"ASCII\""},{"Add":" \"Major mode that shows an interactive ASCII table."},{"Add":""},{"Add":"\\\\{ascii-table-mode-map}\""},{"Add":" (setq-local revert-buffer-function 'ascii-table--revert)"},{"Add":" (ascii-table--revert))"},{"Add":""},{"Add":";;;###autoload"},{"Add":"(defun ascii-table ()"},{"Add":" \"Show an interactive ASCII table in the other window.\""},{"Add":" (interactive)"},{"Add":" (switch-to-buffer-other-window (get-buffer-create \"*ASCII*\"))"},{"Add":" (ascii-table-mode))"},{"Add":""},{"Add":"(provide 'ascii-table)"},{"Add":""},{"Add":";;; ascii-table.el ends here"}]}},{"FileAdd":{"meta":{"basename":"ascii-table-pkg.el","metadata":0},"context":[{"change":0,"pos":37}],"contents":[{"Add":";;; Generated package description from ascii-table.el -*- no-byte-compile: t -*-"},{"Add":"(define-package \"ascii-table\" \"20221230.1244\" \"Interactive ASCII table\" '((emacs \"24.3\")) :commit \"c71f54b85edc6bd42abdc79dd82248958c8a24f9\" :authors '((\"Lassi Kortela\" . \"lassi@lassi.io\")) :maintainers '((\"Lassi Kortela\" . \"lassi@lassi.io\")) :maintainer '(\"Lassi Kortela\" . \"lassi@lassi.io\") :keywords '(\"help\" \"tools\") :url \"https://github.com/lassik/emacs-ascii-table\")"}]}},{"FileAdd":{"meta":{"basename":"ascii-table-autoloads.el","metadata":0},"context":[{"change":0,"pos":37}],"contents":[{"Add":";;; ascii-table-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*-"},{"Add":";;"},{"Add":";;; Code:"},{"Add":""},{"Add":"(add-to-list 'load-path (directory-file-name"},{"Add":" (or (file-name-directory #$) (car load-path))))"},{"Add":""},{"Add":"\f"},{"Add":";;;### (autoloads nil \"ascii-table\" \"ascii-table.el\" (0 0 0 0))"},{"Add":";;; Generated autoloads from ascii-table.el"},{"Add":""},{"Add":"(autoload 'ascii-table \"ascii-table\" \"\\"},{"Add":"Show an interactive ASCII table in the other window.\" t nil)"},{"Add":""},{"Add":"(register-definition-prefixes \"ascii-table\" '(\"ascii-table-\"))"},{"Add":""},{"Add":";;;***"},{"Add":"\f"},{"Add":";; Local Variables:"},{"Add":";; version-control: never"},{"Add":";; no-byte-compile: t"},{"Add":";; no-update-autoloads: t"},{"Add":";; coding: utf-8"},{"Add":";; End:"},{"Add":";;; ascii-table-autoloads.el ends here"}]}}],"owner":"jaredj","repo":"dot-emacs","token":"JN/b1rNg7k6VPK+TdAZqCEwLYoyYsUI3HaPIyRbtoGA=","login":null}

…

Dependencies

Change contents