diff options
| author | Craig Jennings <c@cjennings.net> | 2026-04-05 06:15:13 -0500 |
|---|---|---|
| committer | Craig Jennings <c@cjennings.net> | 2026-04-05 06:15:13 -0500 |
| commit | 16f67628b09a67882e735586bf7ea56eb7651644 (patch) | |
| tree | b4927a4b7c7e1a24e6b083f1b3679a17a2a83e46 /.cask/30.2/bootstrap/ansi-20230306.1823 | |
| parent | eb01b3d24739e916d9dca33f5f039650a9de8457 (diff) | |
chore: gitignore and untrack build artifacts, vendored assets, personal files
Untrack .cask/, .localrepo/ (61M), emojis/ (7.2M), inbox/, todo.org,
v2mom.org, .time-zones.el. Move test-reporter-spec.org to docs/ (already
gitignored). Reduces tracked repo size significantly.
Diffstat (limited to '.cask/30.2/bootstrap/ansi-20230306.1823')
| -rw-r--r-- | .cask/30.2/bootstrap/ansi-20230306.1823/ansi-autoloads.el | 28 | ||||
| -rw-r--r-- | .cask/30.2/bootstrap/ansi-20230306.1823/ansi-pkg.el | 11 | ||||
| -rw-r--r-- | .cask/30.2/bootstrap/ansi-20230306.1823/ansi.el | 285 |
3 files changed, 0 insertions, 324 deletions
diff --git a/.cask/30.2/bootstrap/ansi-20230306.1823/ansi-autoloads.el b/.cask/30.2/bootstrap/ansi-20230306.1823/ansi-autoloads.el deleted file mode 100644 index b6954883..00000000 --- a/.cask/30.2/bootstrap/ansi-20230306.1823/ansi-autoloads.el +++ /dev/null @@ -1,28 +0,0 @@ -;;; ansi-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*- -;; Generated by the `loaddefs-generate' function. - -;; This file is part of GNU Emacs. - -;;; Code: - -(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path))) - - - -;;; Generated autoloads from ansi.el - -(register-definition-prefixes "ansi" '("ansi-" "with-ansi")) - -;;; End of scraped data - -(provide 'ansi-autoloads) - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; no-native-compile: t -;; coding: utf-8-emacs-unix -;; End: - -;;; ansi-autoloads.el ends here diff --git a/.cask/30.2/bootstrap/ansi-20230306.1823/ansi-pkg.el b/.cask/30.2/bootstrap/ansi-20230306.1823/ansi-pkg.el deleted file mode 100644 index 0d3a9200..00000000 --- a/.cask/30.2/bootstrap/ansi-20230306.1823/ansi-pkg.el +++ /dev/null @@ -1,11 +0,0 @@ -;; -*- no-byte-compile: t; lexical-binding: nil -*- -(define-package "ansi" "20230306.1823" - "Turn string into ansi strings." - '((emacs "24.1") - (cl-lib "0.6")) - :url "http://github.com/rejeep/ansi" - :commit "c79806eacdf96e061abf5334f4c3364a995705d4" - :revdesc "c79806eacdf9" - :keywords '("terminals" "color" "ansi") - :authors '(("Johan Andersson" . "johan.rejeep@gmail.com")) - :maintainers '(("Johan Andersson" . "johan.rejeep@gmail.com"))) diff --git a/.cask/30.2/bootstrap/ansi-20230306.1823/ansi.el b/.cask/30.2/bootstrap/ansi-20230306.1823/ansi.el deleted file mode 100644 index 3cde7837..00000000 --- a/.cask/30.2/bootstrap/ansi-20230306.1823/ansi.el +++ /dev/null @@ -1,285 +0,0 @@ -;;; ansi.el --- Turn string into ansi strings -*- lexical-binding: t; -*- - -;; Copyright (C) 2010-2013 Johan Andersson - -;; Author: Johan Andersson <johan.rejeep@gmail.com> -;; Maintainer: Johan Andersson <johan.rejeep@gmail.com> -;; Package-Version: 20230306.1823 -;; Package-Revision: c79806eacdf9 -;; Keywords: terminals color ansi -;; URL: http://github.com/rejeep/ansi -;; Package-Requires: ((emacs "24.1") (cl-lib "0.6")) - -;; 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, 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 GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, -;; Boston, MA 02110-1301, USA. - -;;; Commentary: - -;; Turns simple strings to ansi strings. - -;; Turning a string into an ansi string can be to add color to a -;; text, add color in the background of a text or adding a style, -;; such as bold, underscore or italic. - -;;; Code: - -(require 'cl-lib) - -(defgroup ansi nil - "Turn string into ansi strings." - :group 'lisp) - -(defcustom ansi-inhibit-ansi nil - "If non-nil, no apply ANSI code. -This variable affects `with-ansi', `with-ansi-princ'." - :group 'ansi - :type 'boolean) - - - -(defconst ansi-colors - '((black . 30) - (red . 31) - (green . 32) - (yellow . 33) - (blue . 34) - (magenta . 35) - (cyan . 36) - (white . 37)) - "List of text colors.") - -(defconst ansi-bright-colors - '((bright-black . 90) - (bright-red . 91) - (bright-green . 92) - (bright-yellow . 93) - (bright-blue . 94) - (bright-magenta . 95) - (bright-cyan . 96) - (bright-white . 97)) - "List of text colors.") - -(defconst ansi-on-colors - '((on-black . 40) - (on-red . 41) - (on-green . 42) - (on-yellow . 43) - (on-blue . 44) - (on-magenta . 45) - (on-cyan . 46) - (on-white . 47)) - "List of colors to draw text on.") - -(defconst ansi-on-bright-colors - '((on-bright-black . 100) - (on-bright-red . 101) - (on-bright-green . 102) - (on-bright-yellow . 103) - (on-bright-blue . 104) - (on-bright-magenta . 105) - (on-bright-cyan . 106) - (on-bright-white . 107)) - "List of colors to draw text on.") - -(defconst ansi-styles - '((bold . 1) - (dark . 2) - (italic . 3) - (underscore . 4) - (blink . 5) - (rapid . 6) - (contrary . 7) - (concealed . 8) - (strike . 9)) - "List of styles.") - -(defvar ansi-csis - '((up . "A") - (down . "B") - (forward . "C") - (backward . "D") - (next-line . "E") - (previous-line . "F") - (column . "G") - (kill . "K")) - "CSI (Control Sequence Introducer) sequences") - -(defconst ansi-reset 0 "Ansi code for reset.") - - - -(defun ansi--concat (&rest sequences) - "Concat string elements in SEQUENCES." - (apply #'concat (cl-remove-if-not 'stringp sequences))) - -(defun ansi--code (effect) - "Return code for EFFECT." - (or - (cdr (assoc effect ansi-colors)) - (cdr (assoc effect ansi-bright-colors)) - (cdr (assoc effect ansi-on-colors)) - (cdr (assoc effect ansi-on-bright-colors)) - (cdr (assoc effect ansi-styles)))) - -(defun ansi--is-alias (effect) - "Return non-nil if EFFECT is available in DSL." - (or - (car (assoc effect ansi-colors)) - (car (assoc effect ansi-bright-colors)) - (car (assoc effect ansi-on-colors)) - (car (assoc effect ansi-on-bright-colors)) - (car (assoc effect ansi-styles)) - (car (assoc effect ansi-csis)))) - -(defun ansi--char (effect) - "Return char for EFFECT." - (cdr (assoc effect ansi-csis))) - -(defmacro ansi--define (effect) - "Define ansi function with EFFECT." - (let ((fn-name (intern (format "ansi-%s" (symbol-name effect))))) - `(defun ,fn-name (format-string &rest objects) - ,(format "Add '%s' ansi effect to text." effect) - (apply 'ansi-apply ',effect format-string objects)))) - -(cl-eval-when (compile eval load) - (defun ansi--substitute (body) - (if (listp body) - (if (ansi--is-alias (car body)) - `(,(intern (format "ansi-%s" (symbol-name (car body)))) - ,@(mapcar (lambda (x) (ansi--substitute x)) (cdr body))) - (mapcar (lambda (x) (ansi--substitute x)) body)) - body))) - -(defmacro with-ansi (&rest body) - "Shortcut names (without ansi- prefix) can be used in this BODY." - `(ansi--concat ,@(ansi--substitute (mapcar #'macroexpand-all body)))) - -(defmacro with-ansi-princ (&rest body) - "Shortcut names (without ansi- prefix) can be used in this BODY and princ." - `(princ (with-ansi ,@body))) - -(defun ansi-apply (effect-or-code format-string &rest objects) - "Apply EFFECT-OR-CODE to text. -FORMAT-STRING and OBJECTS are processed same as `apply'." - (let ((code (if (numberp effect-or-code) - effect-or-code - (ansi--code effect-or-code))) - (text (apply 'format format-string objects))) - (if ansi-inhibit-ansi - text - (format "\e[%dm%s\e[%sm" code text ansi-reset)))) - -(defun ansi-csi-apply (effect-or-char &optional reps) - "Apply EFFECT-OR-CHAR REPS (1 default) number of times." - (if ansi-inhibit-ansi "" - (let ((char (if (symbolp effect-or-char) - (ansi--char effect-or-char) - effect-or-char))) - (format "\u001b[%d%s" (or reps 1) char)))) - -(defun ansi-up (&optional n) - "Move N steps (1 step default) up." - (ansi-csi-apply 'up n)) - -(defun ansi-down (&optional n) - "Move N steps (1 step default) down." - (ansi-csi-apply 'down n)) - -(defun ansi-forward (&optional n) - "Move N steps (1 step default) forward." - (ansi-csi-apply 'forward n)) - -(defun ansi-backward (&optional n) - "Move N steps (1 step default) backward." - (ansi-csi-apply 'backward n)) - -(defun ansi-next-line (&optional n) - "Moves cursor to beginning of the line N (default 1) lines down." - (ansi-csi-apply 'next-line n)) - -(defun ansi-previous-line (&optional n) - "Moves cursor to beginning of the line N (default 1) lines up." - (ansi-csi-apply 'previous-line n)) - -(defun ansi-column (&optional n) - "Moves the cursor to column N (default 1)" - (ansi-csi-apply 'column n)) - -(defun ansi-kill (&optional n) - "Erase part of the line. - -If N is 0 (or missing), clear from cursor to the end of the line. - -If N is 1, clear from cursor to beginning of the line. - -If N is 2, clear entire line. Cursor position does not change." - (ansi-csi-apply 'kill n)) - - - -(ansi--define black) -(ansi--define red) -(ansi--define green) -(ansi--define yellow) -(ansi--define blue) -(ansi--define magenta) -(ansi--define cyan) -(ansi--define white) - -(ansi--define bright-black) -(ansi--define bright-red) -(ansi--define bright-green) -(ansi--define bright-yellow) -(ansi--define bright-blue) -(ansi--define bright-magenta) -(ansi--define bright-cyan) -(ansi--define bright-white) - -(ansi--define on-black) -(ansi--define on-red) -(ansi--define on-green) -(ansi--define on-yellow) -(ansi--define on-blue) -(ansi--define on-magenta) -(ansi--define on-cyan) -(ansi--define on-white) - -(ansi--define on-bright-black) -(ansi--define on-bright-red) -(ansi--define on-bright-green) -(ansi--define on-bright-yellow) -(ansi--define on-bright-blue) -(ansi--define on-bright-magenta) -(ansi--define on-bright-cyan) -(ansi--define on-bright-white) - -(ansi--define bold) -(ansi--define dark) -(ansi--define italic) -(ansi--define underscore) -(ansi--define blink) -(ansi--define rapid) -(ansi--define contrary) -(ansi--define concealed) -(ansi--define strike) - -(provide 'ansi) - -;;; ansi.el ends here |
