;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310%\210\303\311\312\313\307\310%\210\303\314\315\316\307\310%\210\303\317\320\321\307\310%\207" [require ansi-color tabulated-list custom-declare-face gitlab--title ((((class color) (background light)) :foreground "red" :weight semi-bold) (((class color) (background dark)) :foreground "green" :weight semi-bold)) "face of Gitlab information" :group helm-gitlab gitlab--red-face ((((class color)) :foreground "#cd4d40")) "Red color.." gitlab--green-face ((((class color)) :foreground "#61b361")) "Green color." gitlab--yellow-face ((((class color)) :foreground "#e7e24c")) "Yellow color."] 6) (defalias 'colorize-dot #[(color) "\301\230\203\f\302\303\304\305#\207\306\230\203\302\303\304\307#\207\310\230\203$\302\303\304\311#\207\312\313Q\207" [color "red" propertize "●" face gitlab--red-face "yellow" gitlab--yellow-face "green" gitlab--green-face "Unknown: '" "' "] 4]) #@34 Name of helm-gitlab mode buffer. (defconst helm-gitlab--buffer-name "*helm-gitlab*" (#$ . 1031)) #@14 List format. (defconst gitlab-list-format [("Key" 15 t :right-align t) ("Value" 40 t)] (#$ . 1134)) #@25 Sort table on this key. (defconst gitlab-list-sort-key '("Name") (#$ . 1240)) #@30 Mode hook for `gitlab-mode'. (defvar gitlab-mode-hook nil (#$ . 1324)) (defvar gitlab-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [gitlab-mode-hook variable-documentation put "Hook run after entering Gitlab mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp gitlab-mode-map definition-name gitlab-mode] 4) (defvar gitlab-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [gitlab-mode-abbrev-table gitlab-mode-map variable-documentation put purecopy "Keymap for `gitlab-mode'." boundp gitlab-mode-syntax-table definition-name gitlab-mode (lambda (#1=#:def-tmp-var) (defvar gitlab-mode-syntax-table #1#)) make-syntax-table "Syntax table for `gitlab-mode'." (lambda (#1#) (defvar gitlab-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `gitlab-mode'." derived-mode-parent tabulated-list-mode] 5) #@234 Special mode for Gitlab buffers. In addition to any hooks its parent mode `tabulated-list-mode' might have run, this mode runs the hook `gitlab-mode-hook', as the final or penultimate step during initialization. \{gitlab-mode-map} (defalias 'gitlab-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2036 \321 =\203<\322\f\323 \"\210)\324\"\325\"\204V\"#=\204V\326\"\325#C#\210\327 !\210\330\f!\210\"#\331 \210\332 \210\307$\312\311\327 !\210%&\333'()\334 \210\335 \210\336\337!\210\340\341!\210)\340\341!\207" [delay-mode-hooks major-mode mode-name gitlab-mode-map gitlab-mode-syntax-table parent make-local-variable t tabulated-list-mode gitlab-mode "Gitlab" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table buffer-disable-undo kill-all-local-variables gitlab-list-entries tabulated-list-init-header tabulated-list-print hl-line-mode 1 run-mode-hooks gitlab-mode-hook gitlab-mode-abbrev-table local-abbrev-table truncate-lines gitlab-list-format tabulated-list-format tabulated-list-entries gitlab-list-sort-key tabulated-list-sort-key] 6 (#$ . 2550) nil]) (provide 'gitlab-ui)