diff options
| author | Alex Kost <alezost@gmail.com> | 2018-07-21 23:34:42 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2018-07-27 12:14:24 +0300 |
| commit | 9838e5e1be5875cdcdfca3d4a7e4dc665866b38e (patch) | |
| tree | e520462ff1e6d259b63ef9432363746ea438c420 /build-farm-build.el | |
| parent | Complete jobset names when possible (diff) | |
| download | emacs-build-farm-9838e5e1be5875cdcdfca3d4a7e4dc665866b38e.tar.gz | |
Move and rename some info faces
* build-farm-build.el (build-farm-build-info-project)
(build-farm-build-info-jobset, build-farm-build-info-job)
(build-farm-build-info-system): Move and rename to...
* build-farm.el (build-farm-info-project)
(build-farm-info-jobset, build-farm-info-job)
(build-farm-info-system): ... this.
Diffstat (limited to 'build-farm-build.el')
| -rw-r--r-- | build-farm-build.el | 28 |
1 files changed, 4 insertions, 24 deletions
diff --git a/build-farm-build.el b/build-farm-build.el index 1b75bc0..65ef9c3 100644 --- a/build-farm-build.el +++ b/build-farm-build.el @@ -244,26 +244,6 @@ See `build-farm-build-status-alist'." (system format build-farm-build-info-insert-system) (priority format (format)))) -(defface build-farm-build-info-project - '((t)) - "Face for project names." - :group 'build-farm-build-info-faces) - -(defface build-farm-build-info-jobset - '((t)) - "Face for jobsets." - :group 'build-farm-build-info-faces) - -(defface build-farm-build-info-job - '((t)) - "Face for jobs." - :group 'build-farm-build-info-faces) - -(defface build-farm-build-info-system - '((t)) - "Face for system names." - :group 'build-farm-build-info-faces) - (cl-defun build-farm-build-info-insert-builds-button (&key project jobset job system) "Insert 'Builds' button for PROJECT, JOBSET, JOB, SYSTEM." @@ -302,25 +282,25 @@ See `build-farm-build-status-alist'." (defun build-farm-build-info-insert-project (project entry) "Insert PROJECT for build ENTRY at point." - (bui-format-insert project 'build-farm-build-info-project) + (bui-format-insert project 'build-farm-info-project) (bui-insert-indent) (build-farm-build-info-insert-button entry)) (defun build-farm-build-info-insert-jobset (jobset entry) "Insert JOBSET for build ENTRY at point." - (bui-format-insert jobset 'build-farm-build-info-jobset) + (bui-format-insert jobset 'build-farm-info-jobset) (bui-insert-indent) (build-farm-build-info-insert-button entry)) (defun build-farm-build-info-insert-job (job entry) "Insert JOB for build ENTRY at point." - (bui-format-insert job 'build-farm-build-info-job) + (bui-format-insert job 'build-farm-info-job) (bui-insert-indent) (build-farm-build-info-insert-button entry)) (defun build-farm-build-info-insert-system (system entry) "Insert SYSTEM for build ENTRY at point." - (bui-format-insert system 'build-farm-build-info-system) + (bui-format-insert system 'build-farm-info-system) (bui-insert-indent) (build-farm-build-info-insert-button entry)) |