;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\207" [require browse-url tabulated-list vc-git gitlab-projects gitlab-issues] 2) #@29 Display current project id. (defalias 'print-current-project-id #[nil "\300\301\302\303\206 `\304\"\262P!\207" [message "Current ID is: " nil get-text-property tabulated-list-id] 6 (#$ . 242) nil]) #@27 Display current issue id. (defalias 'print-current-issue-id #[nil "\300\301\302\303\304\305\306\206\f`\307\"\262\"\"!\207" [message format "Current ID is: %d" assoc-default id nil get-text-property tabulated-list-id] 9 (#$ . 449) nil]) #@47 Make button with TEXT propertized with PROPS. (defalias 'project-make-button #[(text &rest props) "\304 \203 \202 \305\306Q\304 \203\307\202\310\311\312\n\313 \314\315 &*\207" [text button-face button-text props display-graphic-p "[" "]" (:box (:line-width 2 :color "dark grey") :background "light grey" :foreground "black") link apply insert-text-button face follow-link t] 8 (#$ . 694)]) #@20 Action for BUTTON. (defalias 'gitlab-project-clone-button-action #[(button) "\306\307\310\"!\311\312 \"\311\313 \"\314\315\f@\"\316\317\n \"!\2038\320\321!\210\322\317\n \"!\323\324\325\324\326 %\210)\202L\327\n \"\210\323\324\325\324\330 \322\317\n \"!&\210\331\324\332\"\210eb,\207" [button project name repo query-replace-defaults target-dir gitlab-get-project button-get project-id assoc-default path ssh_url_to_repo read-directory-name "Clone to directory:" file-directory-p expand-file-name message "Target directory exists and is not empty. Trying to pull." file-name-as-directory vc-git-command nil 0 "pull" make-directory "clone" revert-buffer t default-directory] 10 (#$ . 1101) nil]) #@33 Got to web page of the project. (defalias 'gitlab-goto-project #[nil "\301\302\303\206`\304\"\262!\305\306\307\"!)\207" [project gitlab-get-project nil get-text-property tabulated-list-id browse-url assoc-default web_url] 5 (#$ . 1812) nil]) #@21 Doc string PROJECT. (defalias 'gitlab-show-project-description #[(project) "\306\211\223\210\307 B\310\nB\311 \312 \313\f!\2119\306\211:;r9q\210\314\315<\"\314\316<\"\314\317<\"\320\314\321<\"!=>?\322c\210\323\314\324<\"!\210\323\325!\210\326c\210\323\314\327<\"!\210\323\330!\210\331c\210\323\314\332<\"!\210\330c\210\333\334\335\336\337#\340\261\210=\341\230\203\214\334\342\343!\344\345#c\210\202\257=\346\230\203\237\334\342\347!\344\345#c\210\202\257=\350\230\203\257\334\342\351!\344\345#c\210\352c\210\353\354\355\356\357%\210\330c\210\360\334\361\336\337#\340?\205\314?\325\261\210>\205\351\362\334\363\336\337#\340\261\210\364>\365>#\210\325c-;r q\210\366 \306\":)\367\370!\203\370:;\"\202;.\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame #1=#:vbuffer-or-name #2=#:buffer nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup assoc-default description web_url id number-to-string visibility_level " Name: " princ name "\n" " Path: " path_with_namespace "\n\n" " Repository: " ssh_url_to_repo " " propertize "Status" font-lock-face bold ": " "0" capitalize "Private" font-lock-faces font-lock-builtin-face "10" "Internal" "20" "Public" " -- " project-make-button "Clone to / Pull" action gitlab-project-clone-button-action project-id " " "Summary" " " "Homepage" help-insert-xref-button help-url temp-buffer-window-show functionp help-window-setup standard-output #3=#:window #4=#:value project status homepage desc] 8 (#$ . 2066) nil]) #@99 Describe the current project. If optional arg BUTTON is non-nil, describe its associated project. (defalias 'gitlab-describe-project #[(&optional button) "\301\302\303\206`\304\"\262!\211\203\305!\202\306\307!)\207" [project gitlab-get-project nil get-text-property tabulated-list-id gitlab-show-project-description user-error "No project here"] 6 (#$ . 3690) nil]) #@65 From projects buffer, opens issues buffer for project at point. (defalias 'gitlab-issues-for-project #[(&optional project-id) "\303\206\304\305\206\f`\306\"\262!\211\2031\307\310\304\"\210\311 \210\312\313\314\315 \"!!\316\317!\210\320\321!\2024\322\323!)\207" [project-id project tabulated-list-entries gitlab-get-project nil get-text-property tabulated-list-id pop-to-buffer "*Gitlab issues*" gitlab-issues-mode create-issues-entries gitlab-list-project-issues assoc-default id tabulated-list-print t tabulated-list-sort 1 user-error "No project here"] 6 (#$ . 4072) nil]) #@23 Show Gitlab projects. (defalias 'gitlab-show-projects #[nil "\301\302\303\"\210\304 \210\305\306 !\307\310!\207" [tabulated-list-entries pop-to-buffer "*Gitlab projects*" nil gitlab-projects-mode create-projects-entries gitlab-list-all-projects tabulated-list-print t] 3 (#$ . 4663) nil]) #@59 Create entries for 'tabulated-list-entries from PROJECTS. (defalias 'create-projects-entries #[(projects) "\301\302\"\207" [projects mapcar #[(p) "\305\306\304\"!\306\303\"\203\306\303\"\202\306\302\"\306\302\"\306\301\"\307=\203)\310\202-\306\301\"\211\311\306\312\"\306\312 \"\306\312\n\"\313\314\315 #$,D\207" [p description namespace owner id number-to-string assoc-default nil "" vector name replace-regexp-in-string " \\|\n" " "] 10]] 3 (#$ . 4959)]) #@31 Got to web page of the issue. (defalias 'gitlab-goto-issue #[nil "\300\301\302\303\304\206\n`\305\"\262\"!\207" [browse-url assoc-default web_url nil get-text-property tabulated-list-id] 7 (#$ . 5441) nil]) #@23 Close issue at point. (defalias 'gitlab-close-issue #[nil "\301\302\206`\303\"\262\304\305\306\"\305\307\"\301\211\211\211\211\310&\210\311\305\306\"!)\207" [issue nil get-text-property tabulated-list-id gitlab-edit-issue assoc-default project_id id "close" gitlab-issues-for-project] 9 (#$ . 5657) nil]) #@24 Reopen issue at point. (defalias 'gitlab-open-issue #[nil "\301\302\206`\303\"\262\304\305\306\"\305\307\"\301\211\211\211\211\310&\210\311\305\306\"!)\207" [issue nil get-text-property tabulated-list-id gitlab-edit-issue assoc-default project_id id "reopen" gitlab-issues-for-project] 9 (#$ . 5977) nil]) #@57 Create entries for 'tabulated-list-entries from ISSUES. (defalias 'create-issues-entries #[(issues) "\301\302\"\207" [issues mapcar #[(i) "\303\304\302\"!\304\301\"\305\304\306\"\307\310\304\311\"\"\304\312 \"\304\313\"$*D\207" [i author id number-to-string assoc-default vector state format "%s" project_id name title] 8]] 3 (#$ . 6298)]) #@21 Show Gitlab issues. (defalias 'gitlab-show-issues #[nil "\301\302\303\"\210\304 \210\305\306 !\307\310!\207" [tabulated-list-entries pop-to-buffer "*Gitlab issues*" nil gitlab-issues-mode create-issues-entries gitlab-list-all-issues tabulated-list-print t] 3 (#$ . 6653) nil]) (defvar gitlab-projects-mode-hook nil) #@47 Keymap for `gitlab-projects-mode' major mode. (defvar gitlab-projects-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210)\207" [map make-keymap define-key "v" print-current-project-id "w" gitlab-goto-project "d" gitlab-describe-project] 4) (#$ . 6976)) (define-key gitlab-projects-mode-map "i" 'gitlab-issues-for-project) (defvar gitlab-projects-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-projects-mode-hook variable-documentation put "Hook run after entering Gitlab projects 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-projects-mode-map definition-name gitlab-projects-mode] 4) (defvar gitlab-projects-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#\210\303\311\323\324#\207" [gitlab-projects-mode-abbrev-table gitlab-projects-mode-map variable-documentation put purecopy "Keymap for `gitlab-projects-mode'." boundp gitlab-projects-mode-syntax-table definition-name gitlab-projects-mode (lambda (#1=#:def-tmp-var) (defvar gitlab-projects-mode-syntax-table #1#)) make-syntax-table "Syntax table for `gitlab-projects-mode'." (lambda (#1#) (defvar gitlab-projects-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `gitlab-projects-mode'." derived-mode-parent tabulated-list-mode custom-mode-group gitlab] 5) #@260 Major mode for browsing Gitlab projects. In addition to any hooks its parent mode `tabulated-list-mode' might have run, this mode runs the hook `gitlab-projects-mode-hook', as the final or penultimate step during initialization. \{gitlab-projects-mode-map} (defalias 'gitlab-projects-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!\332\"\333C#\334 \210)\335\336!\207" [delay-mode-hooks major-mode mode-name gitlab-projects-mode-map gitlab-projects-mode-syntax-table parent make-local-variable t tabulated-list-mode gitlab-projects-mode "Gitlab projects" 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 [("Name" 25 t) ("Owner" 25 t) ("Namespace" 25 t) ("Description" 0 nil)] 2 "Name" tabulated-list-init-header run-mode-hooks gitlab-projects-mode-hook gitlab-projects-mode-abbrev-table local-abbrev-table tabulated-list-format tabulated-list-padding tabulated-list-sort-key] 6 (#$ . 8666) nil]) (defvar gitlab-issues-mode-hook nil) #@45 Keymap for `gitlab-issues-mode' major mode. (defvar gitlab-issues-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210)\207" [map make-keymap define-key "v" print-current-issue-id "w" gitlab-goto-issue] 4) (#$ . 9971)) (byte-code "\301\302\303#\210\301\304\305#\207" [gitlab-issues-mode-map define-key "c" gitlab-close-issue "o" gitlab-open-issue] 4) (defvar gitlab-issues-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-issues-mode-hook variable-documentation put "Hook run after entering Gitlab issues 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-issues-mode-map definition-name gitlab-issues-mode] 4) (defvar gitlab-issues-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#\210\303\311\323\324#\207" [gitlab-issues-mode-abbrev-table gitlab-issues-mode-map variable-documentation put purecopy "Keymap for `gitlab-issues-mode'." boundp gitlab-issues-mode-syntax-table definition-name gitlab-issues-mode (lambda (#1=#:def-tmp-var) (defvar gitlab-issues-mode-syntax-table #1#)) make-syntax-table "Syntax table for `gitlab-issues-mode'." (lambda (#1#) (defvar gitlab-issues-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `gitlab-issues-mode'." derived-mode-parent tabulated-list-mode custom-mode-group gitlab] 5) #@254 Major mode for browsing Gitlab issues. In addition to any hooks its parent mode `tabulated-list-mode' might have run, this mode runs the hook `gitlab-issues-mode-hook', as the final or penultimate step during initialization. \{gitlab-issues-mode-map} (defalias 'gitlab-issues-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!\332\"\333C#\334 \210)\335\336!\207" [delay-mode-hooks major-mode mode-name gitlab-issues-mode-map gitlab-issues-mode-syntax-table parent make-local-variable t tabulated-list-mode gitlab-issues-mode "Gitlab issues" 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 [("State" 10 t) ("Project" 8 t) ("Author" 20 t) ("Title" 0 t)] 2 "Title" tabulated-list-init-header run-mode-hooks gitlab-issues-mode-hook gitlab-issues-mode-abbrev-table local-abbrev-table tabulated-list-format tabulated-list-padding tabulated-list-sort-key] 6 (#$ . 11642) nil]) (provide 'gitlab-mode)