51 lines
1.8 KiB
EmacsLisp
51 lines
1.8 KiB
EmacsLisp
;;; test.el --- Visual QA: Emacs Bars -*- lexical-binding: t; -*-
|
|
;;
|
|
;; GPU: emacs --no-init-file -l qa/11-bars/test.el
|
|
;; Vanilla: EMACS_GPU_DISABLE=1 emacs --no-init-file -l qa/11-bars/test.el
|
|
|
|
;; Enable all bars
|
|
(tool-bar-mode 1)
|
|
(scroll-bar-mode 1)
|
|
(tab-bar-mode 1)
|
|
|
|
;; Open a few tabs to make the tab-bar useful
|
|
(tab-new)
|
|
(tab-rename "Tab-A")
|
|
(tab-new)
|
|
(tab-rename "Tab-B")
|
|
(tab-new)
|
|
(tab-rename "QA")
|
|
(tab-bar-select-tab 3)
|
|
|
|
(let ((buf (get-buffer-create "*QA: Bars*")))
|
|
(with-current-buffer buf
|
|
(erase-buffer)
|
|
(setq buffer-read-only nil)
|
|
|
|
;; Header-line
|
|
(setq header-line-format
|
|
(propertize " Header-line: verify it is above this text "
|
|
'face '(:background "steel blue" :foreground "white")))
|
|
|
|
(insert (propertize "=== Emacs Bars QA ===\n\n" 'face '(:weight bold :height 1.3)))
|
|
(insert "Bars enabled: tool-bar, scroll-bar, tab-bar, header-line.\n\n")
|
|
|
|
(insert (propertize "Checklist:\n" 'face '(:weight bold)))
|
|
(insert " 1. Mode-line shows buffer name + major mode + position\n")
|
|
(insert " 2. C-x 2 to split — active mode-line brighter than inactive\n")
|
|
(insert " 3. Hover mouse over mode-line buttons — highlight must appear\n")
|
|
(insert " 4. Header-line visible in blue above this text\n")
|
|
(insert " 5. Tab-bar shows Tab-A, Tab-B, QA — click to switch\n")
|
|
(insert " 6. Hover over each tab — highlight on hover\n")
|
|
(insert " 7. Tool-bar shows icons with raised relief\n")
|
|
(insert " 8. Drag scroll-bar thumb — buffer scrolls to matching position\n\n")
|
|
|
|
(insert (make-string 65 ?─) "\n")
|
|
(insert "Padding content for the scroll-bar to be meaningful:\n\n")
|
|
(dotimes (i 80)
|
|
(insert (format " Line %3d: The quick brown fox jumps over the lazy dog\n" (1+ i))))
|
|
|
|
(goto-char (point-min))
|
|
(setq buffer-read-only t))
|
|
(switch-to-buffer buf)))
|