ShadowJs? Сам не пробовал, поумничаю

Помню как полгода назад был бугурд по поводу одной книги про clean architecture. Одной из главных претензий был оверинженеринг на протоколах и не кложавей. Что поменялось?

Без претензий. Просто любопытно...

Нашел. Оказывается в последних версия ClojureScript можно так

подскажите, а можно с объявления спеки получить кейворд? Я имею ввиду следующее:

(s/def ::id pos-int?)

мне нужно получить :id

то есть я хочу в конечно итоге толучить возможность ссылаться на описанные спекой филды. Например:

(def my-fields [:my-specs/id :my-specs/name]

при попытке использовать неописанный спекой филд я получу ошибку в компайл тайме

Это можно сделать, но не совсем понятно первое - что значит получить :id ? Сделать форму, которая определяет спеку и возвращает ее идентификатор ? Чтобы можно было сразу объявить и использовать ?

Или просто проверить что такая спека существует где-то в другом месте ?

(def my-fields [:my-specs/id :my-specs/name]

Это имеешь в виду?
https://clojure.org/guides/spec#_specing_functions

(s/and (s/cat :start int? :end int?)
       #(< (:start %) (:end %)))

Там выше есть еще примеры с s/keys :req

я хочу получить возможность обращаться к обявленным спекам и конвертировать имя этой спеки в кейворд. То есть мне нужен, как бы enum, значения которого я буду использовать из вне. Попробую объяснить примером:

;; my-specs.clj

(s/def ::id int?)
(s/def ::name string?)


;; my-some-module.clj
(require [my-specs :as ms])

(def fields
  [:ms/id
   :ms/name])

;; => [::my-specs/id ::my-specs/name]

но это не работает

И если я попробовал бы использовать несуществующий кейворд, я бы получил ошибку в компайл тайме, например

;; my-some-module2.clj
(require [my-specs :as ms])

(def fields
  [:ms/id
   :ms/first-name]) ;; <= error

но почему :ms/id а не ::ms/id ? Это так и задумано или опечатка ?

В общем нужна функция, которая проверит что все кейворды в коллекции имеют спеку ?

;; my-specs.clj

(s/def ::id int?)
(s/def ::name string?)


;; my-some-module.clj
(require [my-specs :as ms])

(def fields
  [:ms/id
   :ms/name])

;; => [::my-specs/id ::my-specs/name]

;; my-some-module2.clj
(require [my-specs :as ms])

(def fields
  [:ms/id
   :ms/first-name]) ;; <= error

(spec/def ::id int?)
(spec/def ::name string?)

(defmacro checking [coll]
  (let [no-spec (filter #(not (spec/get-spec %)) coll)]
    (when (seq no-spec)
      (throw (Exception. (str "Invalid keywords detected: " (seq no-spec)))))

    coll))

(def fields
  (checking
    [::id ::name]))

вот так я понял эту задачу. Но вообще вот это какая-то дорога не туда

А просто список Спек нельзя получить ?

спасибо за spec/registry

там была другая крайность, а так протоколы и рекорды нужны, особенно в библиотеках, чтобы другие чуваки могли расширять