GG
получается шаблон это просто способ описать функцию
Size: a a a
2019 May 25
L
просто я еще не достиг просветления :)
L
Вот поподробнее можно, что ты имел в виду
GG
можно влоб написать функцию, а можно придумать хитрый синтаксис, распарсить его и получить функцию
L
Ну у меня сейчас функции как раз влоб написаны
L
Это быстро но не универсально
DD
"Шаблон не надо парсить" - я видимо смотрю на это, как в CMS. Парсим шаблон - вставляем туда данные
представь тэги не как указатель на место в шаблоне, а функции получения нужных данных
L
Ну типа как у меня тут:
L
(defn bay-actions
"Функция формирующая проводку покупки акций"
[content-st dat]
(let [xs (add-dat (parce-cont content-st) dat)]
(str
(add-bay-title)
(add-data-tocen xs)
(add-active-deb xs)
(add-passiv-cred xs)
"Функция формирующая проводку покупки акций"
[content-st dat]
(let [xs (add-dat (parce-cont content-st) dat)]
(str
(add-bay-title)
(add-data-tocen xs)
(add-active-deb xs)
(add-passiv-cred xs)
L
По сути это шаблон проводки, каждая функция формирует отдельную строку
DD
{:fn {:money-flow `(* :quan :price)
:ticker `(to-upper :toc}
:"Активы:Бумаги" [:ticker :money-flow]}
:ticker `(to-upper :toc}
:"Активы:Бумаги" [:ticker :money-flow]}
DD
в ключе :fn описываются операции над входящими данными
DD
дальше идут сылки на результаты этих операций
L
Так это надо переварить
GG
(defn bay-actions
"Функция формирующая проводку покупки акций"
[content-st dat]
(let [xs (add-dat (parce-cont content-st) dat)]
(str
(add-bay-title)
(add-data-tocen xs)
(add-active-deb xs)
(add-passiv-cred xs)
"Функция формирующая проводку покупки акций"
[content-st dat]
(let [xs (add-dat (parce-cont content-st) dat)]
(str
(add-bay-title)
(add-data-tocen xs)
(add-active-deb xs)
(add-passiv-cred xs)
ты тут пытаешься написать все функциями, причем не совсем понятно вообще что они делают
add-bay-title мутабельная?
add-bay-title мутабельная?
L
Еще раз для того кто в танке - т.е. шаблон описывает последовательность применения функций, и он представлен как данные
GG
забей пока на шаблон
опиши результат данными
опиши результат данными
L
(defn add-bay-title
"Добавляет заголовок Покупка"
[]
(str nl "|Bay|Покупка" nl))
"Добавляет заголовок Покупка"
[]
(str nl "|Bay|Покупка" nl))
GG
а потом подумай как его параметризовать