;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (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" [", "] 1 #1#] "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" [" "] 1 #1#] "Specify a regexp which separates each column." (regexp :tag "Column Separator") delimit-columns-format #[0 "\300\207" [t] 1 #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: \"::\"\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: \": : \"\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: \" : :\"\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: \"::\"\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 #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 #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 #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 (#$ . 4581) nil])#@12 (fn STR) (defalias 'delimit-columns-str #[257 "\211;\203\207\300\207" [""] 2 (#$ . 4720)])#@646 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 !\315X\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 (#$ . 4821) "*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 (#$ . 6285) "*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\210iZ)B\262T\262\202 iZB\262\nGV\203R\310\307\"\307V\203QS\262\211\nHI\210\202=\210\211\205lS\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 (#$ . 7140)])#@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#\203iW\204K\306\224b\210\202i\306\224`|\210\312\n\205`\313HiZZ\314\"!\210T\262\202,\n\205x\313HiZZ\314\"\203\242T\211\262W\203\242X\203\242\312!\210\n\205\235\313H\314\"\262\202}\n\315\267\202\300\261\266\202\311\211\261\266\202\311\261\266` ]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 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 169 padding 180)) delimit-columns-end delimit-columns-extra delimit-columns-after delimit-columns-str-after] 11 (#$ . 7594)])#@15 (fn SPACES) (defalias 'delimit-columns-format #[257 "\304\267\202 \n \261\207 \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 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 6 separator 12 padding 19))] 5 (#$ . 8544)]) (provide 'delim-col)