если нужно передавать имплицитный контекст

например, пишешь ты реагент

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

компонент может устанавливать динамическую переменную

а атом в дерефе её подхватывать и оповещать потом компонент в случае своего обновления

@artemyarulin: ^^^

https://github.com/reagent-project/reagent/blob/master/src/reagent/ratom.cljs#L9

@ul: О, прикольная идея

надо обдумать

только надо помнить о том, что если выполнение кода откладывается (например, возвращается ленивая последовательность), то в момент выполнения биндинг будет не тот, что во время создания

т.е. надёжного способа что-то забиндить по лексическому скоупу нет

но, в принципе, если помнить про ловушки, то всё норм

вон реагент работает и никто не жалуется

Ага, но как понимаю если что-то можно сделать без них - то лучше без

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

но иногда ведь хочется немножко магии)

например, те же реактивные выражения

там эта техника в целом к месту

потому что непонятно, как там явно указатель на родительское выражение передавать

хм, ок - буду иметь ввиду, спасиб

у меня глупый вопрос. В проекте почему-то есть одновременно figwheel-sidecap и weasel. Я сейчас почитал доку и вижу, что есть figwheel-sidecap.repl-options, который дает мне репл (и много всего еще). Вопрос -- нужен ли мне после этого weasel?

хм, ну я вижу, что figwheel можно прямо к piggieback прикрутить одной строкой в конфиге

пожалуй, weasel не нужен

не нужен

начиная вроде с версии 4

или пятой

спасибо, ты подкрепил мою уверенность

всем привет. не могу сообразить как решить такое - дан вектор [:da :da :net .....] надо получить такое [[:da :da ] [:net ....]] Подскажите как такое решается

> (group-by identity x)
{:da [:da :da], :net [:net]}
> (partition-by identity x)
((:da :da) (:net))

ну тут таки недостаточно данных ) для этого примера это таки

(partition 2  [:da :da :net :net] )
((:da :da) (:net :net))

мой косяк. неверно описал. По другому объясню

@prepor:

> (partition 2 [:net :da :net])
((:net :da))

есть последовательность. в начале у нее может быть сволько угодно :da затем последовательность чего угодно из списка (:da :net :neznayu)

нужно разбить последовательность на 2 части

1 - :da

2 - все остальное

split-by

чтобы проще писать - на цифрах - [1 1 2 3 4 1 1 2] должно вернуть [[1 1] [2 3 4 1 1 2]]

или split-with

чот такое )

> (take-while #(= :da %) x)
(:da :da)
> (drop-while #(= :da %) x)
(:net :neznayu)

или так

(где x (def x [:da :da :net :neznayu]))

да, split-with получше будет

> Returns a vector of [(take-while pred coll) (drop-while pred coll)]

именно )

круто! split-with то что надо

мужики - спасибо

> #(= :da %) можно так: > #{:da}

а вообще из белгорода есть кто?

прикольно видеть keywords с транслитом

да нет там транслита. там :lxmWS - мне проще что-то не относящееся к задаче написать

ааа ок, сорян. /me задумался, умеет ли кложура utf и могу ли я написать (def переменная :мой-ключ)

умеет

так все лиспы работающие с утф умеют

на def еще можно макрос написать

и получаетяс 1С

по виду. не по семантике

крутяк, надо будет потролить коллег

потролить - это на китайском написать

правда за такое меня оштрафовали однажды

а меня за то, что я отлаживал alert-ами, выводил какие-то матюки, а потом не убрал и отправил на прод ^_^

не меня но моего другана сильно выели за то что он по запарке хотел удалить тестового аккаунта на проде и написав DELETE FROM Users осознал что забыл указать WHERE блок

Тут недавно коллега миграции накатил на новый проект, но на старую базу. Дропнулось всё за три года. 😢

Админ из бэкапов восстанавливал, но там какие-то сложности были. То ли база большая-пребольша, то ли ещё что.

Базу mysql - та ещё какашка.

меня вредителем за меньшее называли

http://i.imgur.com/4bSEWfY.gif

Когда чуть не забыл where в запросе

чет туплю, есть вот такой код

(ns blabla.main
  (:require
    [blabla.some-ns]
    ))

(ns blabla.some-test
  (:require
    [blabla.some-ns]
    ))

вангую что ты ошибся с названиями файликов

ща еще раз проверю методом орлиного глаза

вангую что проблема с _ <> -

не, чтото еще, в именах файлов _ в неймспейсах -

выпиливаю в тесте неймспейс этот из require все ок, добавляю фейлится

покажи код!

и дерево файликов

tree command for the rescue!

@andfadeev у тебя файл с тестом называется так же - blabla.clj

100%

я неделю назад на эти же грабли наступил

файл называется billing_mailer/core_test.clj в нем неймспейс (ns billing-mailer.core-test)

блин в cursive все норм, в емаксе не компилится тест

а в консоли?

lein whatever

в консоли все норм

все нашел в чем дело, кто объяснит почему? в тесте было так (:require [blabla.some-ns :refer :all]) и сидер не эвалил этот неймспейс, убрал :refer :all стало все ок

чот ты не договариваешь!

код значит не покажешь?

и tree?

видишь ли первом твоем "упрощении" не было никаких ":refer :all", а теперь это стало источником проблемы. может ты и еще что-то упростил

так что что б помочь нужно видеть пациента!

Ребят, у меня вопрос про параллельные вычисления в ФП. Допустим, у меня есть ThreadPool, в котором крутятся воркеры и расфигачивают какой-то массив данных (простой pmap по вектору с урлами, например). + Есть отдельный воркер, который кидает запрос на авторизацию, например. В какой-то момент, когда мы получили 403 в воркере, мне нужно их всех заблокировать, получить новую сессию (общую для всех), передать ее в остановленные воркеры и продолжить работу. Как только опять нужен новый токен, провернуть то же самое. Я сделал так: у меня есть (def session (agent nil)), в котором хранится токен. И есть функция (defn get-session [] (locking lock @session)). В каждом джобе мы делаем get-session, и если дальше получили отказ авторизации, то делаем (send-off session (fn [_] (locking lock (fetch-new-session!)))) и ретраим джоб – он блокируется, пока agent не закончит работу. Как это правильно сделать без mutable конструкций типа agent? И вообще, как такое обычно делается? Без core.async. Мне кажется, @prepor знает точно

> Без core.async. и > @prepor знает точно не согласуются

ха-ха! мне просто кажется, что это классическая задача, и интересно, как в fp такое решается без csp, с простыми тредами или фьючурсами. монаду какую-нибудь сделать или еще что-то.

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

ну смотри, у тебя должен быть некий "мастер ключей". у него всего из двух методов "дай ключ" (блокирующий) и "мой ключ сломан, наверно стоит обновить".

http://community.haskell.org/%7Esimonmar/papers/haxl-icfp14.pdf и видео соответствующее можно посмотреть ещё %)

вся логика (и стейт) о том что есть ключ, как их обновлять и параллельность этого дело (ее отсутствие точнее) сосредоточено в нем

о, класс, спасибо за ссылку!

а как ты уже реализуешь этот блокиурющий апи на get-key, кор асинк или мьютексы или еще что — другое дело

никакой прямой связи с фп-методологиями я тут не вижу, просто дизайн интерфейсов компонентов (я не про тот компонент!). в частности как тебе тут haxl поможет я не знаю )

ага, понятно. ну подход правильный – главное. я почитаю, в общем, спасибо!

haxl inspired кложа либа от нашего соотечественника если что тут https://github.com/kachayev/muse

haxl в презе затрагивает похожие темы — кэш, "схлопывание" реквестов в один и тд. про авторизацию они чот не говорили, да, хотя для них это тоже нужно. https://github.com/facebook/Haxl/blob/master/example/facebook/FB/DataSource.hs здесь протухания ключа, кажется, никак не хэндлят

> как в fp такое решается без csp, с простыми тредами или фьючурсами. в "FP" нету ни csp, ни тредов, ни фьючерсов, непонятно откуда кстати ограничение на коре.асинк — им бы было проще, думаю, с очередью задач, которая отдаёт (key, task) и умеет если чо перезапросить key

а ограничение на core.async оттуда, что мне интересен скорее подход, чем имплементация, вне рамок модели акторов или csp. буду разбираться с haxl и muse. там в muse есть еще ссылка на подобную либу от твиттера на scala (с finagle, видимо) – stitch – ее тоже надо посмотреть.

качаев в презе, вроде как, говорил, что stitch не опенсорс

аа, да, там ссылка-то на видео.

убийцу storm они тоже не заопенсорсили, гады

Книжицы и статьи - http://steshaw.org/plt/

Помощь группы: я хочу написать компонент где стиль на garden смешан с hiccup - а потом извлечь стиль с иерархией селекторов

(defcomponent [props]
    [:div.class (style {attr: val} [:&:hover ...] ) 
        [:div.child (style ...)]])

-> :style [:div.class {attr: val} [:&:hover ...]
                       [:div.child .....]]
-> :hiccup [:div.class [:div.child ...]]

сделать это в макросе или в функции?

кто-нибудь дерево из дерева извлекал - зиперы?

Не совсем понял что хочется, но зипперы обход дерева делают.

мне нужно из одного дерева два получить

те структура почти сохраняется - а часть нод идет в одно дерево, а другая в другое

Хотя, наверное, волкер лучше.

За один обход?

да пофиг, можно за два

наверно волкером и попробую

Волкером да, попробуй.

Зиппер немного другое.

формально обход может удалять из дерева стили и строить паралельно дерево стилей

Ну просто на выходе новое дерево получишь.

Без стилей.

С параллельным деревом стилей - хз. Может, просто за второй проход отдельной функцией дерево стилей сделать.

сложность с фазой в которой это делать, поскольку если есть [div1 (style1) (for [x xs] [div2 (style 2)])] - надо получить [div1 (style1) [div2 (style 2)]] и [div1 (for [x xs] [div2 ])]

наверно это можно и в макросе забубенить

главное чтоб валидные экспрешенны собрались

Ну если делается без макроса, нужно без макроса делать, ИМХО.

Не слышали такое выражение: "Помакросил и бросил"

?

Но можно квазицитирование и не в макросах же использовать.

иначе если xs - нету - стиль будет не полный, а если есть будут дубликаты

вот я и думаю не слишком ли сложно получается

надоело просто css отдельно писать - не DRY

nicola: бери вордпресс, там можно все в одном файле и цсс и пхп и джаваскрипт

это язык программирования такой?

пхп? )