;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require s gitlab-http] 2) #@115 Get all issues created by authenticated user. PAGE: current page number PER-PAGE: number of items on page max 100 (defalias 'gitlab-list-issues #[(page per-page) "\305\306\307 !B\211\235\203\210\202\nB)\303\307 !B\211\235\203)\210\202-\fB)\310\311\312\313$)\207" [params per-page #1=#:x page #2=#:x nil per_page number-to-string perform-gitlab-request "GET" "issues" 200] 6 (#$ . 155)]) #@27 Get a list of all issues. (defalias 'gitlab-list-all-issues #[nil "\305\306\307\310 \"\211G\f _Y\203)\310 \"\311 \n\"\211GT\202 -\207" [page per-page issues all-issues all-issues-count 1 100 nil gitlab-list-issues vconcat] 4 (#$ . 566) nil]) #@106 Retrieve URI to retrieve an issue. PROJECT-ID : The ID of a project ISSUE-ID : The ID of a project issue (defalias 'gitlab--get-issue-uri #[(project-id issue-id) "\302\303\304\305\306\"!\307 $\207" [project-id issue-id s-concat "projects/" url-hexify-string format "%s" "/issues/"] 6 (#$ . 831)]) #@200 Get a list of project issues. PROJECT-ID : The ID of a project PAGE: current page number PER-PAGE: number of items on page max 100 PARAMS: an alist for query parameters. Exple: '((state . "opened")) (defalias 'gitlab-list-project-issues #[(project-id &optional page per-page params) " \203\306\307\n!B\211\235\203\210\202 B)\n\2036\301\307 !B\211\235\2031\210\2025\fB)\310\311\312\313\314\315\316 \"!\317#\320$)\207" [params page per-page #1=#:x #2=#:x project-id per_page number-to-string perform-gitlab-request "GET" s-concat "projects/" url-hexify-string format "%s" "/issues" 200] 9 (#$ . 1136)]) #@139 Get a list of all PROJECT-ID issues. PROJECT-ID : The ID of a project PAGE: current page number PER-PAGE: number of items on page max 100 (defalias 'gitlab-list-all-project-issues #[(project-id &optional page per-page) "\306\307\310\311  #\211G  _Y\203+\311  #\312\f\n\"\211GT\202\f-\207" [page per-page issues project-id all-issues all-issues-count 1 100 nil gitlab-list-project-issues vconcat] 5 (#$ . 1766) nil]) #@101 Gets a single project issue. PROJECT-ID : The ID of a project ISSUE-ID : The ID of a project issue (defalias 'gitlab-get-issue #[(project-id issue-id) "\302\303\304\305\306\307\"!\306\307 \"\"\310\311$\207" [project-id issue-id perform-gitlab-request "GET" gitlab--get-issue-uri url-hexify-string format "%s" nil 200] 7 (#$ . 2205)]) #@217 Create a project issue. PROJECT-ID the ID or NAMESPACE%2FPROJECT_NAME of a project TITLE issue title DESCRIPTION issue description ASSIGNEE assignee ID MILESTONE milestone ID LABELS comma-separated list label names (defalias 'gitlab-create-issue #[(project-id title &optional description assignee milestone labels) "\306\307\310\311$\210\312\313\314\315\316\314\317\"!\"\314\320 \n\205\314\321\n\" \205%\314\322 \"\f\205-\314\323\f\" \2055\314\324 \"R#\325$\207" [project-id title description assignee milestone labels lwarn (gitlab) :debug "Create ISSUE in project: %s" perform-gitlab-request "POST" format "projects/%s/issues" url-hexify-string "%s" "title=%s%s" "&description=%s" "&assignee_id=%s" "&milestone_id=%s" "&labels=%s" 201] 12 (#$ . 2548)]) #@260 Create a project issue. PROJECT-ID the ID or NAMESPACE%2FPROJECT_NAME of a project ISSUE-ID : The ID of a project issue TITLE issue title DESCRIPTION issue description ASSIGNEE-ID assignee ID MILESTONE-ID milestone ID LABELS comma-separated list label names (defalias 'gitlab-edit-issue #[(project-id issue-id &optional title description assignee-id milestone-id labels state-event) "\306\307\310\311$\210\312\313\314\315\316\314\317\"! #\314\317\n\205\314\320\n\" \205%\314\321 \"\f\205-\314\322\f\" \2055\314\323 \"\205?\314\324\"\205I\314\325\"\260\"\326$\207" [project-id issue-id title description assignee-id milestone-id lwarn (gitlab) :debug "UPDATE ISSUE in project: %s\n" perform-gitlab-request "PUT" format "projects/%s/issues/%s" url-hexify-string "%s" "&title=%s" "&description=%s" "&assignee_id=%s" "&milestone_id=%s" "&labels=%s" "&state_event=%s" 200 labels state-event] 13 (#$ . 3318)]) (provide 'gitlab-issues)