76 lines
4.0 KiB
EmacsLisp
76 lines
4.0 KiB
EmacsLisp
;;; test.el --- Visual QA: Face Decorations -*- lexical-binding: t; -*-
|
|
;;
|
|
;; GPU: emacs --no-init-file -l qa/05-decorations/test.el
|
|
;; Vanilla: EMACS_GPU_DISABLE=1 emacs --no-init-file -l qa/05-decorations/test.el
|
|
|
|
(let ((buf (get-buffer-create "*QA: Decorations*")))
|
|
(with-current-buffer buf
|
|
(erase-buffer)
|
|
(setq buffer-read-only nil)
|
|
|
|
(insert (propertize "=== Face Decorations QA ===\n\n"
|
|
'face '(:weight bold :height 1.3)))
|
|
|
|
;; Underlines
|
|
(insert (propertize "── Underline styles " 'face 'shadow) (make-string 44 ?─) "\n")
|
|
(insert (propertize "Single (default color) — The quick brown fox\n"
|
|
'face '(:underline t)))
|
|
(insert (propertize "Single (cornflower blue) — The quick brown fox\n"
|
|
'face '(:underline (:color "cornflower blue"))))
|
|
(insert (propertize "Double (default color) — The quick brown fox\n"
|
|
'face '(:underline (:style double))))
|
|
(insert (propertize "Double (red) — The quick brown fox\n"
|
|
'face '(:underline (:style double :color "red"))))
|
|
(insert (propertize "Wave (orange) — The quick brown fox\n"
|
|
'face '(:underline (:style wave :color "orange"))))
|
|
(insert (propertize "Dots (default color) — The quick brown fox\n"
|
|
'face '(:underline (:style dots))))
|
|
(insert (propertize "Dashes (default color) — The quick brown fox\n"
|
|
'face '(:underline (:style dashes))))
|
|
(insert "\n")
|
|
|
|
;; Continuity across face boundaries
|
|
(insert (propertize "── Wave continuity across face changes (must not reset) " 'face 'shadow)
|
|
(make-string 7 ?─) "\n")
|
|
(insert (propertize "This is " 'face '(:underline (:style wave :color "red"))))
|
|
(insert (propertize "one continuous " 'face '(:underline (:style wave :color "red") :weight bold)))
|
|
(insert (propertize "wave-underlined " 'face '(:underline (:style wave :color "red") :slant italic)))
|
|
(insert (propertize "line.\n" 'face '(:underline (:style wave :color "red"))))
|
|
(insert "\n")
|
|
|
|
;; Overline
|
|
(insert (propertize "── Overline " 'face 'shadow) (make-string 51 ?─) "\n")
|
|
(insert (propertize "Overline (default color) — The quick brown fox\n"
|
|
'face '(:overline t)))
|
|
(insert (propertize "Overline (forest green) — The quick brown fox\n"
|
|
'face '(:overline "forest green")))
|
|
(insert "\n")
|
|
|
|
;; Strike-through
|
|
(insert (propertize "── Strike-through " 'face 'shadow) (make-string 45 ?─) "\n")
|
|
(insert (propertize "Strike-through (default) — The quick brown fox\n"
|
|
'face '(:strike-through t)))
|
|
(insert (propertize "Strike-through (red) — The quick brown fox\n"
|
|
'face '(:strike-through "red")))
|
|
(insert "\n")
|
|
|
|
;; Combined
|
|
(insert (propertize "── Combined decorations " 'face 'shadow) (make-string 40 ?─) "\n")
|
|
(insert (propertize "Underline + overline — The quick brown fox\n"
|
|
'face '(:underline t :overline t)))
|
|
(insert (propertize "All three (U + O + S) — The quick brown fox\n"
|
|
'face '(:underline t :overline t :strike-through t)))
|
|
(insert "\n")
|
|
|
|
;; Colors on colored text
|
|
(insert (propertize "── Decorations on colored text " 'face 'shadow) (make-string 33 ?─) "\n")
|
|
(insert (propertize "Red text, blue underline — The quick brown fox\n"
|
|
'face '(:foreground "red" :underline (:color "cornflower blue"))))
|
|
(insert (propertize "Green bold, wave red under — The quick brown fox\n"
|
|
'face '(:foreground "forest green" :weight bold
|
|
:underline (:style wave :color "red"))))
|
|
|
|
(goto-char (point-min))
|
|
(setq buffer-read-only t))
|
|
(switch-to-buffer buf))
|