f8a6d6d40f
Provide a standalone public-API-only Ebox playground demonstrating Grid layout and buffer lifecycle with tests and bilingual README documentation.
58 lines
1.9 KiB
EmacsLisp
58 lines
1.9 KiB
EmacsLisp
;;; ebox-playground.el --- Public Ebox layout examples -*- lexical-binding: t; -*-
|
|
|
|
;; SPDX-License-Identifier: GPL-3.0-or-later
|
|
;; Author: Ebox contributors
|
|
;; Version: 0.1.0
|
|
;; Package-Requires: ((emacs "29.1") (ebox "1.0.1"))
|
|
;; URL: https://github.com/ginqi7/ebox-playground
|
|
|
|
;;; Commentary:
|
|
|
|
;; This package is intentionally small and public-only. It demonstrates the
|
|
;; Ebox contract without reaching into ebox-- internals. ETAF's application
|
|
;; examples live in the sibling `etaf-playground' package.
|
|
|
|
;;; Code:
|
|
|
|
(require 'ebox)
|
|
|
|
(defconst ebox-playground-buffer-name "*Ebox Playground*"
|
|
"Default buffer name used by `ebox-playground-open'.")
|
|
|
|
;;;###autoload
|
|
(defun ebox-playground-view ()
|
|
"Return a public Ebox example layout node without buffer side effects."
|
|
(ebox-grid
|
|
:width '(640)
|
|
:grid-template-columns '((200) 1fr)
|
|
:grid-template-rows '(1 1 1)
|
|
:gap '(1 (12))
|
|
:padding '(1 2)
|
|
:border '((1) solid "#687386")
|
|
(ebox-create :content "Ebox Playground" :face 'bold)
|
|
(ebox-create :content "A pixel-precise two-dimensional layout")
|
|
(ebox-create :content "Row / column / flex / grid share the public node contract")
|
|
(ebox-create :content "Fixed and fractional tracks")
|
|
(ebox-create :content "Placement" :grid-column 1 :grid-row 3)
|
|
(ebox-create :content "No private calls" :grid-column 2 :grid-row 3)))
|
|
|
|
;;;###autoload
|
|
(defun ebox-playground-open (&optional buffer-name)
|
|
"Render the public Ebox example into BUFFER-NAME and return its buffer."
|
|
(interactive)
|
|
(ebox-render-to-buffer (or buffer-name ebox-playground-buffer-name)
|
|
(ebox-playground-view)))
|
|
|
|
;;;###autoload
|
|
(defun ebox-playground-close (&optional buffer-name)
|
|
"Kill the playground BUFFER-NAME and return its former buffer."
|
|
(interactive)
|
|
(let ((buffer (get-buffer (or buffer-name ebox-playground-buffer-name))))
|
|
(when buffer
|
|
(kill-buffer buffer))
|
|
buffer))
|
|
|
|
(provide 'ebox-playground)
|
|
|
|
;;; ebox-playground.el ends here
|