DL
блин, ничего не понять
я пошёл макроэкспандить, ага
Size: a a a
2021 March 24
IG
wtf is going on
DL
(if-some
[[_ lang attr] (re-matches #"\A(\w\w)\$(.+)" field)]
{:kind :translation, :lang (keyword lang), :attr (keyword attr)}
(if-some
[[_ tag attr] (re-matches #"\A(es|vs)#(.+)" field)]
{:kind :nested, :tag (keyword tag), :attr (keyword attr)}
(if (re-matches #"[^\$#]+" field)
{:kind :root, :attr (keyword field)}
(throw (ex-info "Unexpected field format" {:field field})))))
DL
ну т.е. мы выигрываем пачку пробелов :D
DS
самые лютые лесенки у меня были когда я писал код для работы с железяками через ком-порт,. там можно в принципе было какой-то макрос прикрутить, или через экспешны переписать, но я не стал. Решил до конца уж идти.
DS
У человека глаз заточен на определенные паттерны, а все эти кастомные стрелки сразу все восприятие ломают
DS
выглядит как будто первый раз в жизни кложа-код открыл )
DL
(defn- parse-field [field]
(<<-
(if-some [[_ lang attr] (re-matches #"\A(\w\w)\$(.+)" field)]
{:kind :translation
:lang (keyword lang)
:attr (keyword attr)})
(if-some [[_ tag attr] (re-matches #"\A(es|vs)#(.+)" field)]
{:kind :nested
:tag (keyword tag)
:attr (keyword attr)})
(if (re-matches #"[^\$#]+" field)
{:kind :root
:attr (keyword field)})
(throw (ex-info "Unexpected field format" {:field field}))))
(<<-
(if-some [[_ lang attr] (re-matches #"\A(\w\w)\$(.+)" field)]
{:kind :translation
:lang (keyword lang)
:attr (keyword attr)})
(if-some [[_ tag attr] (re-matches #"\A(es|vs)#(.+)" field)]
{:kind :nested
:tag (keyword tag)
:attr (keyword attr)})
(if (re-matches #"[^\$#]+" field)
{:kind :root
:attr (keyword field)})
(throw (ex-info "Unexpected field format" {:field field}))))
а вообще это выглядит как явный `cond`
MK
а вообще это выглядит как явный `cond`
нет, там if-some, а он делает local-binding, cond это не умеет и не должен
DS
вся эта погоня за краткостью кода идет сильно в ущерб читаемости, как и погоня за DRY
ST
(defn- parse-field [field]
(<<-
(if-some [[_ lang attr] (re-matches #"\A(\w\w)\$(.+)" field)]
{:kind :translation
:lang (keyword lang)
:attr (keyword attr)})
(if-some [[_ tag attr] (re-matches #"\A(es|vs)#(.+)" field)]
{:kind :nested
:tag (keyword tag)
:attr (keyword attr)})
(if (re-matches #"[^\$#]+" field)
{:kind :root
:attr (keyword field)})
(throw (ex-info "Unexpected field format" {:field field}))))
(<<-
(if-some [[_ lang attr] (re-matches #"\A(\w\w)\$(.+)" field)]
{:kind :translation
:lang (keyword lang)
:attr (keyword attr)})
(if-some [[_ tag attr] (re-matches #"\A(es|vs)#(.+)" field)]
{:kind :nested
:tag (keyword tag)
:attr (keyword attr)})
(if (re-matches #"[^\$#]+" field)
{:kind :root
:attr (keyword field)})
(throw (ex-info "Unexpected field format" {:field field}))))
если ничего не напутал:
(defn- parse-field [field]
(or (when-some [[_ lang attr] (re-matches #"\A(\w\w)\$(.+)" field)]
{:kind :translation
:lang (keyword lang)
:attr (keyword attr)})
(when-some [[_ lang attr] (re-matches #"\A(\w\w)\$(.+)" field)]
{:kind :translation
:lang (keyword lang)
:attr (keyword attr)})
(when (re-matches #"[^\$#]+" field)
{:kind :root
:attr (keyword field)})
(throw (ex-info "Unexpected field format" {:field field}))))
AK
он simple, но использовать let (и прочие аналогичные формы) в тредмакросах - зло
А почему?
DL
А почему?
выше стюарта процитировал даже со скрином
MK
если ничего не напутал:
(defn- parse-field [field]
(or (when-some [[_ lang attr] (re-matches #"\A(\w\w)\$(.+)" field)]
{:kind :translation
:lang (keyword lang)
:attr (keyword attr)})
(when-some [[_ lang attr] (re-matches #"\A(\w\w)\$(.+)" field)]
{:kind :translation
:lang (keyword lang)
:attr (keyword attr)})
(when (re-matches #"[^\$#]+" field)
{:kind :root
:attr (keyword field)})
(throw (ex-info "Unexpected field format" {:field field}))))
да, я не тот пример дал, тут нет зависимости по переменным и можно так сделать
MK
еще раз
я не про то, обычный код VS <<-
я про cond-let, let-else VS <<-
вы не то сравниваете
я не про то, обычный код VS <<-
я про cond-let, let-else VS <<-
вы не то сравниваете
DL
да, я не тот пример дал, тут нет зависимости по переменным и можно так сделать
тут можно и не только так сделать, можно запилить хэшмапу {регулярка обработчик} и по ней пройтись, всяко проще будет. или на мультиметодах
DL
еще раз
я не про то, обычный код VS <<-
я про cond-let, let-else VS <<-
вы не то сравниваете
я не про то, обычный код VS <<-
я про cond-let, let-else VS <<-
вы не то сравниваете
let-else читабельней
MK
let-else читабельней
для его расширения тебе нужно что-то делать
<<- работает с чем угодно
<<- работает с чем угодно
DL
для его расширения тебе нужно что-то делать
<<- работает с чем угодно
<<- работает с чем угодно
а мне не нужно его расширять
AK
(defn- parse-field [field]
(<<-
(if-some [[_ lang attr] (re-matches #"\A(\w\w)\$(.+)" field)]
{:kind :translation
:lang (keyword lang)
:attr (keyword attr)})
(if-some [[_ tag attr] (re-matches #"\A(es|vs)#(.+)" field)]
{:kind :nested
:tag (keyword tag)
:attr (keyword attr)})
(if (re-matches #"[^\$#]+" field)
{:kind :root
:attr (keyword field)})
(throw (ex-info "Unexpected field format" {:field field}))))
(<<-
(if-some [[_ lang attr] (re-matches #"\A(\w\w)\$(.+)" field)]
{:kind :translation
:lang (keyword lang)
:attr (keyword attr)})
(if-some [[_ tag attr] (re-matches #"\A(es|vs)#(.+)" field)]
{:kind :nested
:tag (keyword tag)
:attr (keyword attr)})
(if (re-matches #"[^\$#]+" field)
{:kind :root
:attr (keyword field)})
(throw (ex-info "Unexpected field format" {:field field}))))
Слишком много смыслов в одной фкнкции.