summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2018-07-21 23:34:42 +0300
committerAlex Kost <alezost@gmail.com>2018-07-27 12:14:24 +0300
commit9838e5e1be5875cdcdfca3d4a7e4dc665866b38e (patch)
treee520462ff1e6d259b63ef9432363746ea438c420
parentComplete jobset names when possible (diff)
downloademacs-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.
-rw-r--r--build-farm-build.el28
-rw-r--r--build-farm.el23
2 files changed, 27 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))
diff --git a/build-farm.el b/build-farm.el
index 96e654a..af6f63c 100644
--- a/build-farm.el
+++ b/build-farm.el
@@ -61,6 +61,29 @@
:group 'faces)
+;;; Faces and buttons
+
+(defface build-farm-info-project
+ '((t))
+ "Face for projects in 'info' buffers."
+ :group 'build-farm-faces)
+
+(defface build-farm-info-jobset
+ '((t))
+ "Face for jobsets in 'info' buffers."
+ :group 'build-farm-faces)
+
+(defface build-farm-info-job
+ '((t))
+ "Face for jobs in 'info' buffers."
+ :group 'build-farm-faces)
+
+(defface build-farm-info-system
+ '((t))
+ "Face for system names in 'info' buffers."
+ :group 'build-farm-faces)
+
+
;;; System types
;; XXX I don't like this hard-coding very much. But it looks like there