Current File : //usr/local/share/emacs/27.2/lisp/delim-col.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\312\314& \210\315\316\317\320\321DD\322\323\324\312\303&\210\315\325\317\320\326DD\327\323\330\312\303&\210\315\331\317\320\332DD\333\323\334\312\303&\210\315\335\317\320\336DD\337\323\340\312\303&\210\315\341\317\320\342DD\343\323\344\312\303&\210\315\345\317\320\346DD\347\323\350\312\303&\210\315\351\317\320\352DD\353\323\354\312\303&\210\315\355\317\320\356DD\357\323\360\312\303&\210\315\361\317\320\362DD\363\323\364\312\303&\210\315\365\317\320\366DD\367\323\370\312\303&\207" [require rect custom-declare-group columns nil "Prettify columns." :link (emacs-library-link :tag "Source Lisp File" "delim-col.el") :prefix "delimit-columns-" :group convenience text custom-declare-variable delimit-columns-str-before funcall function #[0 "\300\207" [#1=""] 1 #1#] "Specify a string to be inserted before all columns." :type (string :tag "Before All Columns") delimit-columns-str-separator #[0 "\300\207" [#2=", "] 1 #2#] "Specify a string to be inserted between each column." (string :tag "Between Each Column") delimit-columns-str-after #[0 "\300\207" [#1#] 1 #1#] "Specify a string to be inserted after all columns." (string :tag "After All Columns") delimit-columns-before #[0 "\300\207" [#1#] 1 #1#] "Specify a string to be inserted before each column." (string :tag "Before Each Column") delimit-columns-after #[0 "\300\207" [#1#] 1 #1#] "Specify a string to be inserted after each column." (string :tag "After Each Column") delimit-columns-separator #[0 "\300\207" [#3=" "] 1 #3#] "Specify a regexp which separates each column." (regexp :tag "Column Separator") delimit-columns-format #[0 "\300\207" [t] 1] "Specify how to format columns.\n\nFor examples below, consider:\n\n + columns `ccc' and `dddd',\n + the maximum column length for each column is 6,\n + and the following settings:\n (setq delimit-columns-before \"<\")\n (setq delimit-columns-after \">\")\n (setq delimit-columns-separator \":\")\n\nValid values are:\n\n nil no formatting. That is, `delimit-columns-after' is followed by\n `delimit-columns-separator'.\n For example, the result is: \"<ccc>:<dddd>:\"\n\n t align columns. That is, `delimit-columns-after' is followed by\n `delimit-columns-separator' and then followed by spaces.\n For example, the result is: \"<ccc>: <dddd>: \"\n\n `separator' align separators. That is, `delimit-columns-after' is followed\n by spaces and then followed by `delimit-columns-separator'.\n For example, the result is: \"<ccc> :<dddd> :\"\n\n `padding' format column by filling with spaces before\n `delimit-columns-after'. That is, spaces are followed by\n `delimit-columns-after' and then followed by\n `delimit-columns-separator'.\n For example, the result is: \"<ccc >:<dddd >:\"\n\nAny other value is treated as t." (choice :menu-tag "Column Formatting" :tag "Column Formatting" (const :tag "No Formatting" nil) (const :tag "Column Alignment" t) (const :tag "Separator Alignment" separator) (const :tag "Column Padding" padding)) delimit-columns-extra #[0 "\300\207" [t] 1] "Non-nil means that lines will have the same number of columns.\n\nThis has effect only when there are lines with different number of columns." (boolean :tag "Lines With Same Number Of Column") delimit-columns-start #[0 "\300\207" [0] 1] "Specify column number to start prettifying.\n\nSee also `delimit-columns-end' for documentation.\n\nThe following relation must hold:\n 0 <= delimit-columns-start <= delimit-columns-end\n\nThe column number starts at 0 and is relative to the beginning of\nthe selected region. So if you select a text region, the first\ncolumn (column 0) is located at the beginning of line. If you\nselect a text rectangle, the first column (column 0) is located\nat the left corner." (integer :tag "Column Start") delimit-columns-end #[0 "\300\207" [1000000] 1] "Specify column number to end prettifying.\n\nSee also `delimit-columns-start' for documentation.\n\nThe following relation must hold:\n 0 <= delimit-columns-start <= delimit-columns-end\n\nThe column number starts at 0 and is relative to the beginning of\nthe selected region. So if you select a text region, the first\ncolumn (column 0) is located at the beginning of line. If you\nselect a text rectangle, the first column (column 0) is located\nat the left corner." (integer :tag "Column End")] 12)
(defvar delimit-columns-max nil)
(defvar delimit-columns-limit nil)
#@32 Customize the `columns' group.
(defalias 'delimit-columns-customize #[0 "\300\301!\207" [customize-group columns] 2 (#$ . 4896) nil])
#@12
(fn STR)
(defalias 'delimit-columns-str #[257 "\211;\203 \207\300\207" [""] 2 (#$ . 5036)])
#@647 Prettify all columns in a text region.
START and END delimit the text region.
If you have, for example, the following columns:
a b c d
aaaa bb ccc ddddd
Depending on your settings (see below), you then obtain the
following result:
[ a , b , c , d ]
[ aaaa, bb , ccc , ddddd ]
See the `delimit-columns-str-before',
`delimit-columns-str-after', `delimit-columns-str-separator',
`delimit-columns-before', `delimit-columns-after',
`delimit-columns-separator', `delimit-columns-format' and
`delimit-columns-extra' variables for customization of the
look.
(fn START END)
(defalias 'delimit-columns-region #[514 "\203 \306\"\207\307 !\307\n!\307 !\307\f!\307
!\310!\203$ \202% \311\250\2030 \2021 \312\313 \314 !\315 X\205\230 \212\nb\210\316 \210\203z \212`W\203y \317`\315\210!\210\320u\210\202f )`W\203\215 \321`\315\210!\210\320u\210\202z \315\211\223\210\211\315\211\223). \207" [rectangle-mark-mode delimit-columns-str-before delimit-columns-str-separator delimit-columns-str-after delimit-columns-before delimit-columns-after delimit-columns-rectangle delimit-columns-str natnump 0 1000000 make-marker copy-marker nil beginning-of-line delimit-columns-rectangle-max 1 delimit-columns-rectangle-line delimit-columns-start delimit-columns-end delimit-columns-max delimit-columns-limit delimit-columns-format] 14 (#$ . 5138) "*r"])
#@170 Prettify all columns in a text rectangle.
See `delimit-columns-region' for what this entails.
START and END delimit the corners of the text rectangle.
(fn START END)
(defalias 'delimit-columns-rectangle #[514 "\306!\306 !\306\n!\306 !\306\f!\307
!\203
\202 \310\250\203% \202& \311\312 \313 !\314
X\205n \203Z \212\315\316\f\314$\210)\212\315\317\f\314$\210)\314\211\223\210\211\314\211\223. \207" [delimit-columns-str-before delimit-columns-str-separator delimit-columns-str-after delimit-columns-before delimit-columns-after delimit-columns-start delimit-columns-str natnump 0 1000000 make-marker copy-marker nil operate-on-rectangle delimit-columns-rectangle-max delimit-columns-rectangle-line delimit-columns-end delimit-columns-max delimit-columns-limit delimit-columns-format] 16 (#$ . 6604) "*r"])
#@45
(fn STARTPOS &optional BEGEXTRA ENDEXTRA)
(defalias 'delimit-columns-rectangle-max #[769 "`\303\223\210b\210\304\303\211i\262\305 \306#\203* \212\307\224b\210iZB\262)T\262\202 iZB\262\nGV\203R \310\307\"\307V\203Q S\262\211\nHI\210\202= \210\211\205l S\262\n\nH@]I\210\211A\262\202S \207" [delimit-columns-limit delimit-columns-separator delimit-columns-max nil 1 re-search-forward move 0 make-vector] 12 (#$ . 7460)])
#@45
(fn STARTPOS &optional BEGEXTRA ENDEXTRA)
(defalias 'delimit-columns-rectangle-line #[769 "G\306\307 `\307\223\210b\210\nW\203' ` W\203' \310 \311#\203' T\262\202\f \f
\261\210i\262` W\203i \310 \311#\203i W\204K \306\224b\210\202i \306\224`|\210\312\n\205` \313HiZZ\314\"!\210T\262\202, \n\205x \313HiZZ\314\"\203\242 T\211\262W\203\242 X\203\242 \312!\210\n\205\235 \313H\314\"\262\202} \n\204\261 \261\210\202\313 \n\315=\203\303 \211\261\210\202\313 \261\210\210` ]b\207" [delimit-columns-max delimit-columns-limit delimit-columns-start delimit-columns-separator delimit-columns-str-before delimit-columns-before 0 nil re-search-forward move delimit-columns-format make-string 32 padding delimit-columns-end delimit-columns-extra delimit-columns-after delimit-columns-str-after] 11 (#$ . 7915)])
#@15
(fn SPACES)
(defalias 'delimit-columns-format #[257 "\204\n \n \261\207\304\267\202 \n \261\207\211 \n \261\207 \n \261\207" [delimit-columns-format delimit-columns-after delimit-columns-str-separator delimit-columns-before #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (separator 16 padding 23))] 5 (#$ . 8776)])
(provide 'delim-col)
Mini Shell