;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require tabulated-list forge] 2) (defconst forge--tablist-columns-type '(repeat (list :tag "Column" (string :tag "Header Label") (choice :tag "Value source" function (symbol :tag "Object slot")) (integer :tag "Column Width") (choice :tag "Sort predicate" (const :tag "Don't sort" nil) (const :tag "Default" t) function) (plist :tag "Properties" :key-type (choice :tag "Property" (const :right-align) (const :pad-right) symbol) :value-type (sexp :tag "Value"))))) (defvar forge--tabulated-list-columns nil nil) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local forge--tabulated-list-columns put permanent-local t] 4) (defvar forge--tabulated-list-query nil nil) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local forge--tabulated-list-query put permanent-local t] 4) (defalias 'forge--tablist-refresh #[0 "\304\305\306\"!\307 \210\305\310\n \"\211\207" [forge--tabulated-list-columns tabulated-list-format forge--tabulated-list-query tabulated-list-entries vconcat mapcar #[257 "\211\242\243\211\242\243\211\242\243\211\242\243\211\242\243\300\nBBB\207" [nil] 16 "\n\n(fn ARG0)"] tabulated-list-init-header #[257 "\301\302\"\303\304\305\306\"\"!D\207" [forge--tabulated-list-columns eieio-oref id vconcat mapcar make-closure #[257 "\211\242\243\211\242\243\211\242\243\211\242\243\211\242\243\301\211\211\211\302\f!\203& \300!\202? \242\303=\203:\304\305\300! A@\"\202?\304\300 \"\211;\203E\207\211\204K\306\207\307\310\"\207" [V0 nil functionp repository eieio-oref forge-get-repository "" format "%s"] 19 "\n\n(fn ARG0)"]] 7 "\n\n(fn OBJ)"]] 4]) (provide 'forge-tablist)