А у вас на митап вход только по пропускам, или орков без билетиков тоже пускают?

hangout вмещает 10 человек - я кину ссылку в slack

Ага можно не спешить

@nicola Мне кажется будет хорошей идеей тебе подглядывать в чат YT-live если там будут появляться вопросы - и озвучивать раз в 10-15 мин

тогда можно и в hangout-е не появляться

Давай ты мне поможешь ;)

Хорошая идея

Запости в канале спеке, но спрошу еще заодно тут. У меня есть

(s/def ::user #{"user1" "user2"})
(s/def ::pwd #{"pwd1" "pwd2"})
(s/def ::acc (s/keys :req [::user ::pwd]))

может есть возможность как из связать?

ты проболвал дефолтный генератор - пришли что он возвращает?

ага, рандом как и должно быть

>(gen/sample (s/gen ::acc) 3)
(#:zerol.model-test{:user "user2", :pwd "pwd2"} 
 #:zerol.model-test{:user "user1", :pwd "pwd1"} 
 #:zerol.model-test{:user "user1", :pwd "pwd2”})

а ты чего хочешь?

первые 2 норм, третий для меня не валиден

ну напиши еще доп схему - чтоб его отсеяло

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

ну можно то можно, но это не так легко сделать - у меня индексов то нету. Т.е. если я сделаю кастомный генератор для ::acc и скажу дай мне юзера то найти соответсвующий пароль я легко не смогу, т.е. маппинга нету

а ок, сам ответил себе - если маппинга нету то ничего не поможет и надо его сделать, ок спасиб 🙂

сделай парами, а потом из пар уже юзера/пароли заспекай

ага, так и делаю в итоге

начал спекать свое приложение - крутая штука спека блин. Я и раньше property based testing любил и юзал иногда, но со спекой это просто супер

(def credentials {"user1" "pwd1" "user2" "pwd2"})
(s/def ::credentials (-> credentials seq set))
(s/def ::user (-> credentials keys set)})
(s/def ::pwd (-> credentials vals set)})

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

а кто нибудь emacs на маке юзает? @artemyarulin ? какие биндинги юзаете, мож ergoemacs? не меняли ли C на Cmd?

ага я на маке, да хз - все стандартное, обычный стоковый емакс

че даже C-n C-p стандартные?)

ээ, а чо в них плохого?:)

ну и точнее чо есть лучше? ну окромя вим-мода ессно

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

я юзаю емакс на маке

биндинги емаксовые юзаю во всех программах

ctrl висит на tab и enter

command - meta

@ponimas а Super?

@ponimas погоди, а RET тогда у тебя на чем? 🙂

C-j

C-m

ну и энтер работает как энтер если его без других клавиш нажимать

а Super у меня и на клавиатуре нету и в хоткеях я такого не помню

поправка - сtrl на caps конечно же

я вот думаю что caps с шифтом наверно не оч

или ты шифт вообще не юзаешь?

я про шифт ничего не писал

юзаю конечно

печатать то как то надо

а, все, сорян, я че то шифтом херню гоню)

наверно так же и сделаю, спасиб)

карабинером воспользуйся, если не обновился

что за карабинер?

херовина для ребиндинга клавиш

на сьере не работает

загуглил, вроде пишут уже работает)

не похоже на то

https://github.com/tekezo/Karabiner/issues/660

status - open

ну и на https://pqrs.org/osx/karabiner/ большое красное поле по центру

@savelichalex Я менял на маке Caps Lock -> Control, больше ничего для мака не менял, только выключил несколько биндингов Cmd+<буква>.

Ещё менял для Dvorak, но это уже другое дело.

Когда я пользовался линуксом, то у меня было чёткое разделение: Super для оконного менеджера, Ctrl/Alt - для приложений, а теперь всё как-то слилось. Cmd для всего.

#editors-rus не прижился

блин, только дошло, что Super - это win клавиша

здесь у меня за неё option

А Alt на что вешать?

cmd

А Cmd на что?

а зачем он вообще?

в помойку

Если уметь мозг переключать между контекстами "в емаксе" и "вне емакса", то да. Но у меня мозг слишком тупой для этого.

Cmd-T отлично пойдёт на "создай мне новый буфер без имени"

я тоже тупой, поэтому у меня всё как в емаксе

А как сделать хром как в емаксе? Ctrl-{bpnf} он понимает, но C-x C-f уже как-то нет.

а я не юзаю хром

как раз по этой причине

🙂

fox + keysnail

единственное место, где я испытываю проблемы - сраные приложения на электроне (

причём не работают хоткеи переназначеные макосью

У меня capslock меняет раскладку клавиатуры.)

Господа, а вот как бы сделать идиоматично следующую штуку: есть у меня поток событий двух видов: {заголовок_уровень: N} и "контент". Это такое распластанное представление дерева (разобранный markdown). Хочется из него собрать обратно дерево. Дубовое решение - держать стек заголовков, и контент с того момента, когда пришёл последний и когда приходит новый - дампать новый узел с контентом и чистить стэк. Но это как-то императивненько.

Мм, первым делом надо прилепить контент к предыдущему заголовку. Значит задача упрощается до потока событий вида {заголовок_уровень: N}.

🦆

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

@misha Почему? Можно считать, что не стрим, а коллекция. Т.е. никто с другой стороны не сидит и не пишет markdown быстрее, чем я его процессю :) Это конечный документ.

тогда да

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

test.check рулит. Сделал для прилепления контента к заголовку трансдюсер с состоянием, написал пропертю, запустил тест.чек, нашёл, где налажал. Если бы не написал пропертю - никогда бы не нашёл.

@dottedmag через схему или просто либу заюзал?

@artemyarulin В этот раз просто либу. Я же сделал просто трансдюсер, какой к нему спек?

хм, давно не трогал трансдюсеры. Там разве какие есть проблемы покрыть спекой?

это функция да, все равно ж есть логика, какие данные могет, какие нет, 3 разных arity

Как покрыть спекой такой инвариант? "На выходе будут элементы в том же порядке, что и на входе, но при этом разбитые на подпоследовательности во всех точках, где данная функция выдаёт на элементе истинное значение"

т.е. 1 0 0 1 1 0 1 0 1 1 0 -> (1 0 0) (1) (1 0) (1 0) (1) (1 0)

(s/def ::x any?)

две вещи проверить

Ну и вот. Проперти - для поведения, спеки - для форматов данных.

тот же порядок - flatten

а каждую подпоследовательность - на первом месте 1, остальные 0

в чем проблема?

@malch Ну вот @artemyarulin пытается это на спек натянуть.

спеки не только для формата данных

отлично натягивается

Попробуй?

http://clojure.org/guides/spec#_spec_ing_functions

тебе нужно :fn

А, в :fn запихнуть.

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

Я не хочу проверять свойство на одном вызове функции, это глупо. Я хочу прогнать весь массив через (transduce) и проверять результаты.

А писать спеку на левую функцию, которая вызовет transduce на моём sut/split-by бессмысленно.

окей

Можно сделать arity sut/split-by, которая будет принимать коллекцию (как map может вернуть трансдюсер, а может и ножичком по горлу и применить коллекцию к функции) и её потестить.

Но всё равно 1-arity будет неотспекана.

тут я соглашусь в принципе

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

Не то, чтобы сложно - наоборот, проще, потому что инварианты проще. Но эти инварианты ничего толком не говорят о том, что функция делает.

А ещё там внутри состояние, так что один вызовом не обойтись.

Кстати, ты не проверяешь, что “все кроме первого в подпоследовательности = 0"

сорри, вижу уже

Проверяю. Это split-by-splits-at-every-truth

ага

а подскажите заодно как мапу с одним ключом задестрактить проще всего, сейчас делаю

(let [[k v] (first {:a :b})]
  [k v])

короче ничо нету?

(let [{:keys [x]} m]
  x)

не то?

неа, я название ключа не знаю

*значение

тогда проще ничего не вижу сходу

а почему ты ключ не знаешь?

ну вот выбрал так в моем дслчике что у меня вектор и внутри кейворды означают одно, а если мапа из одного ключа это другое типа (model ::user ::pwd ::email {:req ::req})

ну мучайся тогда

нужно просто 2 сущности разных, кейворды и символы обычно берут (как в оме например), но меня бесит все эти ‘ (sym), поэтому героически буду решать проблемы которые себе сделал 🙂

а по спеке еще

(s/def :io.http/method #{"GET" "POST" "HEAD" "OPTIONS"})
(s/def :io.http/headers map?)
(s/def :io.http/url string?)

А у меня библиотека, которая возвращает эвенты именно в виде мапы с одним ключом, хаха.

отвечаю сам себе (s/def :io.http.headers (s/map-of #{:k1 :k2 :k3} string?)

Кстати, про состояние тулзов в Clojure.

M-x el-get-install cider, M-x cider-jack-in. Всё вроде бы работает, но REPL не появляется.

Лезу в *Messages* - херня какая-то. Читаю код - вчера закоммитили баг.

В Wiki CIDER написано Never-the-less, installing from MELPA is the recommended way of obtaining CIDER, as the master branch is normally quite stable and "stable" (tagged) builds are released somewhat infrequently.

@artemyarulin тебе k, v или оба из {k v}?

(let [[[k v]] (seq {:a 1 :b 2})]
  [k v])

может [k v] удобнее, чем {k v}?

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

случайно кста нашел ifn?, мож кто тоже не знал

>(fn? +)
true
> (fn? {})
false
> (ifn? +)
true
> (ifn? {})
true