;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable gited-show-trunk-ci-status funcall function #[0 "\300\207" [nil] 1] "Show CI status for the last commit in the trunk branch.\nA list of elements (TOPLEVEL_DIR . CI-URI).\nTOPLEVEL_DIR is the toplevel directory for the local Git repository.\nCI_URI is the URI to access the Continous Integration system.\n\nSupported CI are Gitlab, Travis and CircleCI: for Gitlab, you need to provide\nall but the commit hash, for instance, in the case of the Emacs Gitlab CI,\nthe value is\n`https://gitlab.com/emacs-ci/emacs/commit/'.\nFor Travis, the format is as follows:\n`https://api.travis-ci.org/calancha/Gited.svg?branch=master'.\nFor circleci:\n`https://circleci.com/gh/calancha/foo/tree/master'." :type (repeat (choice (cons :tag "Show trunk CI status" (string :tag "gited-toplevel-dir" :value #1="") (string :tag "gited-ci-uri" :value #1#)))) :group gited] 8) #@59 Status of the last commit in the trunk branch for the CI. (defvar gited-trunk-ci-status nil (#$ . 1350)) (byte-code "\300\301!\210\302\301\303\304#\210\305\306\307\310\311\312\311\313&\207" [make-variable-buffer-local gited-trunk-ci-status put permanent-local t custom-declare-face gited-trunk-ci-status-fail ((t (:foreground "Red"))) "Face for trunk branch with last commit fail in the CI." :group gited font-lock-highlighting-faces] 8) (defvar gited-trunk-ci-status-fail-face 'gited-trunk-ci-status-fail) (custom-declare-face 'gited-trunk-ci-status-running '((t (:foreground "LightSkyBlue"))) "Face for trunk branch with last commit running in the CI." :group 'gited :group 'font-lock-highlighting-faces) (defvar gited-trunk-ci-status-running-face 'gited-trunk-ci-status-running) (custom-declare-face 'gited-trunk-ci-status-success '((((background dark)) (:foreground "green")) (t (:foreground "white" :background "forest green"))) "Face for trunk branch with last commit succeded in the CI." :group 'gited :group 'font-lock-highlighting-faces) (defvar gited-trunk-ci-status-success-face 'gited-trunk-ci-status-success) (custom-declare-face 'gited-trunk-ci-status-unknown '((((background dark)) (:foreground "orange")) (t (:foreground "black"))) "Face for trunk branch with last commit status in the CI unknown." :group 'gited :group 'font-lock-highlighting-faces) (defvar gited-trunk-ci-status-unknown-face 'gited-trunk-ci-status-unknown) (custom-declare-face 'gited-trunk-ci-status-pending '((((background dark)) (:foreground "hotpink")) (t (:foreground "deeppink"))) "Face for trunk branch with last commit status in the CI pending." :group 'gited :group 'font-lock-highlighting-faces) (defvar gited-trunk-ci-status-pending-face 'gited-trunk-ci-status-pending) #@137 Parse the status of the trunk last commit in the Gitlab CI. `gited-buffer' is passed as the last element of ARGS list. (fn &rest ARGS) (defalias 'gited-parse-ci-status #[128 "\303b\210r\304!@q\210)\305 \"A\306\307\"\203\310\202$\306\311\"\205$\312\306\307\"\203/\313\202B\306\314\"\203:\315\202B\306\316\"\205B\317\306\307\"\203M\320\202`\306\314\"\203X\321\202`\306\316\"\205`\321\306\307\"\203k\322\202s\306\311\"\205s\323\212\324\325\326#)\203\201\327\202\254\212\324\325\326#)\203\217\330\202\254\212\324\325\326#)\203\235\331\202\254\212\324\325\326#)\203\253\332\202\254\333\334\335!\210r\304!@q\210\211\336 )\207" [gited-toplevel-dir gited-show-trunk-ci-status gited-trunk-ci-status 1 last assoc string-match "gitlab" "ci-status-icon-success" "\\(travis-ci\\)\\|\\(circleci\\)" "passing" "ci-status-icon-failed" "travis-ci" "failed" "circleci" "failing" "ci-status-icon-pending" "pending" "ci-status-icon-running" "running" re-search-forward nil t success failed running pending unknown message "Parse CI status done!" gited--show-trunk-ci-status] 11 (#$ . 3124)]) (defalias 'gited-trunk-ci-last-commit-uri #[0 "\302 \"A\303\304\"\203\211\202$\303\305\"\203 \306\307\310 #\202$\311\312\"\207" [gited-toplevel-dir gited-show-trunk-ci-status assoc string-match "\\(travis-ci\\)\\|\\(circleci\\)" "gitlab" format "%s%s" gited--last-trunk-commit user-error "Dont know this CI service uri '%s'"] 5]) #@77 Return the status of the Gitlab CI for the last commit in the trunk branch. (defalias 'gited--trunk-ci-status #[0 "\301 \302\303C#\207" [gited-buffer gited-trunk-ci-last-commit-uri url-retrieve gited-parse-ci-status] 5 (#$ . 4588)]) #@70 Return the status of the CI for the last commit in the trunk branch. (defalias 'gited-trunk-ci-status #[0 "\300\301!\204\n\302\303!\210\304 \207" [derived-mode-p gited-mode user-error "Not a Gited buffer" gited--trunk-ci-status] 2 (#$ . 4829)]) (defalias 'gited--show-trunk-ci-status #[0 "\212\303\304 !\210\305T!\210\306`\307 \n\310=\203\311\2029\n\312=\203$\313\2029\n\314=\203.\315\2029\n\316=\2038\317\2029\320\321\322$\210\321\323\324\325\n\326 #$\266\203*\207" [gited-commit-idx inhibit-read-only gited-trunk-ci-status gited-goto-branch gited-trunk-branch gited--move-to-column t point-at-eol success gited-trunk-ci-status-success failed gited-trunk-ci-status-fail running gited-trunk-ci-status-running pending gited-trunk-ci-status-pending gited-trunk-ci-status-unknown put-text-property face help-echo format "CI status %S: %s" gited-trunk-ci-last-commit-uri] 11]) #@35 Last commit hash in trunk branch. (defvar gited-last-trunk-commit "" (#$ . 5725)) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local gited-last-trunk-commit put permanent-local t] 4) #@72 Run `gited-trunk-ci-status' after remote fetching or reverting buffer. (defalias 'gited-pull-callback #[0 "\205-\303 \"\242\205-\304\303 \"@!\304 !\232\205-\305 \n\232\203'\306 \202+\211\307 \262\207" [gited-show-trunk-ci-status gited-toplevel-dir gited-last-trunk-commit assoc directory-file-name gited--last-trunk-commit gited--show-trunk-ci-status gited-trunk-ci-status] 4 (#$ . 5939)]) (provide 'gited-ci)