;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\305\306\307\310\311\312\313\314\313\315& \210\316\317\320\321\311\306%\210\300\322!\210\300\323!\210\300\324!\210\300\325!\210\300\326!\207" [require browse-url dash ivy s custom-declare-group ivy-gitlab nil "Ivy interface for Emacs." :group gitlab :link (url-link :tag "Github" "https://github.com/nlamirault/emacs-gitlab") (emacs-commentary-link :tag "Commentary" "emacs-gitlab") custom-declare-face ivy-gitlab--title ((((class color) (background light)) :foreground "red" :weight semi-bold) (((class color) (background dark)) :foreground "green" :weight semi-bold)) "Face of Gitlab information" gitlab-api gitlab-session gitlab-projects gitlab-issues gitlab-ui] 10) (defalias 'ivy-gitlab--list-projects #[nil "\303!\203\n\304\305!\210\306 \307\310\311\n\"\210 *\207" [gitlab-token-id gitlab-projects-alist projects s-blank\? error "You must set gitlab-token-id to your private token." gitlab-list-all-projects nil mapc #[(p) "\303\304\305\306\307\"\310\311#\"\312\306\313\"\314\306\315\"\316\306\317\"\257B\211\n\235\203(\n\202- \nB\211)\207" [p #1=#:x gitlab-projects-alist format "%s" propertize assoc-default name_with_namespace face ivy-gitlab--title :page web_url :name name :project-id id] 10]] 3]) (defalias 'ivy-gitlab--list-project-issues #[(project-id) "\304!\203\n\305\306!\210\307 !\310\311\312 \"\210\n*\207" [gitlab-token-id project-id gitlab-project-issues-alist issues s-blank\? error "You must set gitlab-token-id to your private token." gitlab-list-project-issues nil mapc #[(i) "\303\304\305\306\"\307\310\305\311\"\312\"\313\314#\305\315\"$\316\305\317\"\320\305\306\"\321\310\305\311\"\312\"\257B\211\n\235\2036\n\202; \nB\211)\207" [i #1=#:x gitlab-project-issues-alist format "#%-4s %s :%s:" assoc-default iid propertize decode-coding-string title utf-8 face ivy-gitlab--title state :project-id project_id :issue-id :name] 11]] 3]) (defalias 'ivy-gitlab--project-names #[nil "\303!\203\n\304\305!\210\306 \307\310\311\n\"\210 *\207" [gitlab-token-id gitlab-project-names-alist projects s-blank\? error "You must set gitlab-token-id to your private token." gitlab-list-all-projects nil mapc #[(p) "\303\304\"\303\305\"B\211\n\235\203\n\202 \nB\211)\207" [p #1=#:x gitlab-project-names-alist assoc-default id name_with_namespace] 5]] 3]) (defalias 'ivy-gitlab--list-all-issues #[nil "\304!\203\n\305\306!\210\307 \310\311 \312\313 \"\210\n+\207" [gitlab-token-id project-names gitlab-all-issues-alist issues s-blank\? error "You must set gitlab-token-id to your private token." gitlab-list-all-issues nil ivy-gitlab--project-names mapc #[(i) "\304\305\306\307\"\310\311\306\312\"\313\"\314\315#\306\316\"\306\211\317\" \"%\320\306\317\"\321\306\307\"\322\311\306\312\"\313\"\257B\211 \235\203= \202B\n B\211)\207" [i project-names #1=#:x gitlab-all-issues-alist format "#%-4s %s :%s: -- %s" assoc-default iid propertize decode-coding-string title utf-8 face ivy-gitlab--title state project_id :project-id :issue-id :name] 11]] 3]) (defalias 'ivy-gitlab--list-projects-action-default #[(project) "\301\302A\303\"!\207" [project browse-url plist-get :page] 4]) (defalias 'ivy-gitlab--list-issues-action-default #[(issue) "\301\302\303A\304\"\303A\305\"\"!\207" [issue browse-url gitlab-projects--get-issue-link plist-get :project-id :issue-id] 6]) (defalias 'ivy-gitlab--list-project-issues-action-default #[(project) "\301\302\303\304A\305\"!\306\307\310\311&\207" [project ivy-read "Issues: " ivy-gitlab--list-project-issues plist-get :project-id :action ivy-gitlab--list-issues-action-default :caller ivy-gitlab--list-project-issues-action-default] 7]) #@33 List Gitlab projects using Ivy. (defalias 'ivy-gitlab-list-projects #[nil "\300\301\302 \303\304\305\306&\207" [ivy-read "Projects: " ivy-gitlab--list-projects :action ivy-gitlab--list-projects-action-default :caller ivy-gitlab-list-projects] 7 (#$ . 3792) nil]) #@39 List Gitlab project issues using Ivy. (defalias 'ivy-gitlab-list-project-issues #[nil "\300\301\302 \303\304\305\306&\207" [ivy-read "Projects: " ivy-gitlab--list-projects :action ivy-gitlab--list-project-issues-action-default :caller ivy-gitlab-list-project-issues] 7 (#$ . 4062) nil]) #@35 List Gitlab all issues using Ivy. (defalias 'ivy-gitlab-list-all-issues #[nil "\300\301\302 \303\304\305\306&\207" [ivy-read "Issues: " ivy-gitlab--list-all-issues :action ivy-gitlab--list-issues-action-default :caller ivy-gitlab--list-all-issues-action-default] 7 (#$ . 4356) nil]) (provide 'ivy-gitlab)