85 lines
2.2 KiB
EmacsLisp
85 lines
2.2 KiB
EmacsLisp
(require 'tp-tests-utils)
|
|
|
|
;; tp-layer-alist
|
|
;; tp-layer-groups
|
|
|
|
(tp-layer-define 'test1
|
|
'(face link :foreground "orange"))
|
|
|
|
(tp-layer-define 'test2
|
|
'(face link :foreground "cyan"))
|
|
|
|
(tp-layer-group-define 'test-group
|
|
'(test1 display "this is top layer"
|
|
face (:background "red" :foreground "#000"))
|
|
'(test2 display "this is middle layer"
|
|
face (:background "green" :foreground "#000"))
|
|
'(test3 display "this is bottom layer"
|
|
face (:background "cyan" :foreground "#000")))
|
|
|
|
(tp-layer-propertize "emacs" 'test1)
|
|
(tp-layer-group-propertize "emacs" 'test-group)
|
|
|
|
(defun tp-tests-layer-rotate (&optional btn)
|
|
(interactive)
|
|
(let ((inhibit-read-only t))
|
|
(save-excursion
|
|
(goto-char (point-min))
|
|
(tp-layer-rotate (line-beginning-position)
|
|
(line-end-position)))))
|
|
|
|
(pop-buffer-do nil
|
|
(insert (tp-layer-group-propertize "emacs" 'test-group)
|
|
"\n\n")
|
|
(insert-text-button
|
|
" eval (tp-tests-layer-rotate) "
|
|
'action 'tp-tests-layer-rotate
|
|
'face '(:box t)
|
|
'follow-link t))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(pop-buffer-insert nil
|
|
(propertize
|
|
" "
|
|
'display ""
|
|
'face '(:underline (:position t :color "grey")))
|
|
" "
|
|
(propertize
|
|
"hacking"
|
|
'face '(:foreground "cyan"))
|
|
" "
|
|
(propertize
|
|
"emacs"
|
|
'face '(:slant italic :background "orange")))
|
|
|
|
(with-current-buffer pop-buffer-insert-buffer
|
|
(erase-buffer)
|
|
(tp-tests-run))
|
|
|
|
(with-current-buffer pop-buffer-insert-buffer
|
|
(let ((inhibit-read-only 1))
|
|
;; (tp-all (point-min) (point-max))
|
|
(tp-layer-set 'default (point-min) (point-max))
|
|
(tp-layer-push 1
|
|
(point-min) (point-max)
|
|
'( face (:background "green" :foreground "grey")
|
|
display (height 1.2)))
|
|
|
|
(tp-layer-push 2
|
|
(point-min) (point-max)
|
|
'(face (:background "orange" :foreground "#000")))
|
|
|
|
(tp-layer-push 3
|
|
(point-min) (point-max)
|
|
'(face (:weight bold :background "SlateBlue2")))))
|
|
|
|
(with-current-buffer pop-buffer-insert-buffer
|
|
(let ((inhibit-read-only 1))
|
|
;; (tp-layer-demote (point-min) (point-max))
|
|
;; (tp-layer-rotate (point-min) (point-max))
|
|
;; (tp-layer-delete 2 (point-min) (point-max))
|
|
;; (tp-layer-pin 1 (point-min) (point-max))
|
|
;; (tp-layer-pin '3 1 16)
|
|
))
|