geekinney/etaf-playground
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

build: adopt ETAF 0.2.1 for Research Shelf

Browse Source
This commit is contained in:
Kinneyzhang 2026-09-05 05:25:30 +08:00
parent 5fc4025bc1
commit 4ea698645d
4 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.md
View File

@ -19,7 +19,7 @@ into the right-hand preview. Saving a source file also refreshes by default.
`etaf-playground-register-example` is available when a companion needs a `etaf-playground-register-example` is available when a companion needs a
non-conventional root or feature name. non-conventional root or feature name.
ETAF Playground 0.2.1 declares ETAF 0.1.1, ETAF UI 0.1.0, and ETAF SQLite ETAF Playground 0.2.2 declares ETAF 0.2.1, ETAF UI 0.1.0, and ETAF SQLite
0.1.0 so the bundled Research Shelf companion has a complete install closure. 0.1.0 so the bundled Research Shelf companion has a complete install closure.
Preview placement uses the standard Emacs `display-buffer` action stored in Preview placement uses the standard Emacs `display-buffer` action stored in

2
README.zh-CN.md
View File

@ -18,7 +18,7 @@ ETAF Playground 是通用的应用构建工作区：左侧编辑同一个应用
也会刷新。若 root 或 feature 不遵循命名约定，可在 companion 中调用 也会刷新。若 root 或 feature 不遵循命名约定，可在 companion 中调用
`etaf-playground-register-example` 注册覆盖。 `etaf-playground-register-example` 注册覆盖。
ETAF Playground 0.2.1 会声明 ETAF 0.1.1、ETAF UI 0.1.0 与 ETAF SQLite ETAF Playground 0.2.2 会声明 ETAF 0.2.1、ETAF UI 0.1.0 与 ETAF SQLite
0.1.0，保证内置 Research Shelf companion 的安装依赖闭包完整。 0.1.0，保证内置 Research Shelf companion 的安装依赖闭包完整。
预览位置使用标准 Emacs `display-buffer` action，由 预览位置使用标准 Emacs `display-buffer` action，由

8
etaf-playground.el
View File

@ -3,8 +3,8 @@
;; SPDX-License-Identifier: GPL-3.0-or-later ;; SPDX-License-Identifier: GPL-3.0-or-later
;; Author: ETAF contributors ;; Author: ETAF contributors
;; Version: 0.2.1 ;; Version: 0.2.2
;; Package-Requires: ((emacs "29.1") (etaf "0.1.1") (etaf-sqlite "0.1.0") (etaf-ui "0.1.0")) ;; Package-Requires: ((emacs "29.1") (etaf "0.2.1") (etaf-sqlite "0.1.0") (etaf-ui "0.1.0"))
;; Keywords: tools, convenience, ui ;; Keywords: tools, convenience, ui
;;; Commentary: ;;; Commentary:
@ -34,7 +34,7 @@
(require 'button) (require 'button)
(define-error 'etaf-playground-dependency-error (define-error 'etaf-playground-dependency-error
"ETAF Playground requires TP 1.0.1 or newer with tp-transaction") "ETAF Playground requires TP 2.0.0 or newer with tp-transaction")
(defun etaf-playground--ensure-runtime () (defun etaf-playground--ensure-runtime ()
"Load ETAF runtime dependencies or report an actionable TP mismatch." "Load ETAF runtime dependencies or report an actionable TP mismatch."
@ -43,7 +43,7 @@
(file-missing (file-missing
(if (member "tp-transaction" condition) (if (member "tp-transaction" condition)
(signal 'etaf-playground-dependency-error (signal 'etaf-playground-dependency-error
(list :required-package '(tp "1.0.1") (list :required-package '(tp "2.0.0")
:missing-feature 'tp-transaction :missing-feature 'tp-transaction
:original-condition condition)) :original-condition condition))
(signal (car condition) (cdr condition)))))) (signal (car condition) (cdr condition))))))

16
tests/etaf-playground-tests.el
View File

@ -70,14 +70,14 @@
(playground (etaf-playground-test--package-description (playground (etaf-playground-test--package-description
(expand-file-name (expand-file-name
"etaf-playground/etaf-playground.el" workspace)))) "etaf-playground/etaf-playground.el" workspace))))
(should (equal (package-desc-version tp) '(1 0 1))) (should (equal (package-desc-version tp) '(2 0 0)))
(should (equal (package-desc-version ebox) '(2 0 1))) (should (equal (package-desc-version ebox) '(3 0 0)))
(should (member '(tp (1 0 1)) (package-desc-reqs ebox))) (should (member '(tp (1 0 1)) (package-desc-reqs ebox)))
(should (equal (package-desc-version etaf) '(0 1 1))) (should (equal (package-desc-version etaf) '(0 2 1)))
(should (member '(ebox (2 0 1)) (package-desc-reqs etaf))) (should (member '(ebox (3 0 0)) (package-desc-reqs etaf)))
(should (member '(tp (1 0 1)) (package-desc-reqs etaf))) (should (member '(tp (2 0 0)) (package-desc-reqs etaf)))
(should (equal (package-desc-version playground) '(0 2 1))) (should (equal (package-desc-version playground) '(0 2 2)))
(should (member '(etaf (0 1 1)) (package-desc-reqs playground))) (should (member '(etaf (0 2 1)) (package-desc-reqs playground)))
(should (member '(etaf-ui (0 1 0)) (should (member '(etaf-ui (0 1 0))
(package-desc-reqs playground))) (package-desc-reqs playground)))
(should (member '(etaf-sqlite (0 1 0)) (should (member '(etaf-sqlite (0 1 0))
@ -98,7 +98,7 @@
(should-error (etaf-playground--ensure-runtime) (should-error (etaf-playground--ensure-runtime)
:type 'etaf-playground-dependency-error))) :type 'etaf-playground-dependency-error)))
(should (equal (plist-get (cdr condition) :required-package) (should (equal (plist-get (cdr condition) :required-package)
'(tp "1.0.1"))) '(tp "2.0.0")))
(should (eq (plist-get (cdr condition) :missing-feature) (should (eq (plist-get (cdr condition) :missing-feature)
'tp-transaction)))))) 'tp-transaction))))))