Телеграмм чат группы scheme_ru страница 350

parrot.ru

Рейтинг популярных групп и каналов

В рейтинге участвует:

групп:

каналов:

Виртуальный сервер на SSD - недорого!

Аренда выделенных и виртуальных серверов (VDS/VPS), хостинг, аренда IP-адресов, администрирование, круглосуточная поддержка

qwarta.ru подробнее

Резервное копирование с проверкой на вирусы!!!

Удобный сервис создания резервных копий на любой сервер сети интернет. Отслеживайте изменения, проверяйте на вирусы. Надежно защитите свой бизнес!

go.backupland.com

Выбираете сервер? Любая конфигурация на заказ!

Аренда физических серверов любых конфигураций под любые запросы - 1С бухгалтерия, игровые сервера, нагруженные проекты, интернет-магазины!

qwarta.ru подробнее

Size: a a a

Сообщество Scheme

83 membersпожаловаться на группу

2020 October 16

VL

Valeriy L in Сообщество Scheme

немного оффтопика )
я окончательно решил что xbindkeys >> sxhkd
я короче запилил генерацию паттернов как в sxhkd на схемке и в этоге определять биндинги стало в сотни раз проще)
(правда сама функция довольно большая, и еще я заюзал православный define-macro)

источник

13:35пожаловаться #1

VL

Valeriy L in Сообщество Scheme

выглядит вот так

(with-prefix "s-d"
  (define-key (and s- (or b c h m r s t v))
    (and "bspc desktop --focus " (or B C H M R S T V))))

источник

13:36пожаловаться #2

VL

Valeriy L in Сообщество Scheme

ну ахуенно же

источник

13:36пожаловаться #3

AZ

Aydar Zarifullin in Сообщество Scheme

Alex Peresmeshnik

Ну в питоне с выхлопом в терминал тоже некоторые свистопляски. Но что касается perl - там к этому вопросу подошли максимально "бесшовно" можно прямо как башевые пайпы мастерить изкоробки

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

источник

13:37пожаловаться #4

AP

Alex Peresmeshnik in Сообщество Scheme

Aydar Zarifullin

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

Да я не доказываю, просто как есть пишу. Это чат почему то сразу начинает обратное доказывать, предлагая вместо компактных элегантных решений - целую солянку +)

источник

13:39пожаловаться #5

AZ

Aydar Zarifullin in Сообщество Scheme

Alex Peresmeshnik

Да я не доказываю, просто как есть пишу. Это чат почему то сразу начинает обратное доказывать, предлагая вместо компактных элегантных решений - целую солянку +)

Ну вот я и говорю ты же понимаешь как будет "компактно, элегантно" вот и сделай. А ещё можешь стандартную либу в питоне исправить по ходу (и в руби) (там же тоже не так красиво как в рэкете).

источник

13:41пожаловаться #6

AP

Alex Peresmeshnik in Сообщество Scheme

Aydar Zarifullin

Ну вот я и говорю ты же понимаешь как будет "компактно, элегантно" вот и сделай. А ещё можешь стандартную либу в питоне исправить по ходу (и в руби) (там же тоже не так красиво как в рэкете).

(when (not (access? *config-dir* 4))
(mkdir *config-dir*))

Ну вот это, например, компактно и элегантно? Очевидное решение? )

источник

13:43пожаловаться #7

AZ

Aydar Zarifullin in Сообщество Scheme

Alex Peresmeshnik

(when (not (access? *config-dir* 4))
(mkdir *config-dir*))

Ну вот это, например, компактно и элегантно? Очевидное решение? )

Да, вполне, прекрасно читается

источник

13:44пожаловаться #8

AZ

Aydar Zarifullin in Сообщество Scheme

Alex Peresmeshnik

(when (not (access? *config-dir* 4))
(mkdir *config-dir*))

Ну вот это, например, компактно и элегантно? Очевидное решение? )

Unless кстати можно заюзать

источник

13:44пожаловаться #9

VL

Valeriy L in Сообщество Scheme

Alex Peresmeshnik

(when (not (access? *config-dir* 4))
(mkdir *config-dir*))

Ну вот это, например, компактно и элегантно? Очевидное решение? )

unless*

источник

13:44пожаловаться #10

AP

Alex Peresmeshnik in Сообщество Scheme

Aydar Zarifullin

Да, вполне, прекрасно читается

А теперь прикол в том, что (define *config-dir* "$HOME/.luks-conf"), где теперь взять $HOME? +)

источник

13:44пожаловаться #11

VL

Valeriy L in Сообщество Scheme

снова опоздал

источник

13:44пожаловаться #12

AZ

Aydar Zarifullin in Сообщество Scheme

Alex Peresmeshnik

(when (not (access? *config-dir* 4))
(mkdir *config-dir*))

Ну вот это, например, компактно и элегантно? Очевидное решение? )

И вместо access наверное file-exists? надо

источник

13:45пожаловаться #13

AZ

Aydar Zarifullin in Сообщество Scheme

Alex Peresmeshnik

А теперь прикол в том, что (define *config-dir* "$HOME/.luks-conf"), где теперь взять $HOME? +)

(getenv "$HOME") сработает?

источник

13:48пожаловаться #14

MK

Mikhail Kirillov in Сообщество Scheme

Aydar Zarifullin

(getenv "$HOME") сработает?

Нужно без доллара (в guile)

источник

13:49пожаловаться #15

AZ

Aydar Zarifullin in Сообщество Scheme

Mikhail Kirillov

Нужно без доллара (в guile)

А ну да

источник

13:49пожаловаться #16

AZ

Aydar Zarifullin in Сообщество Scheme

Alex Peresmeshnik

А теперь прикол в том, что (define *config-dir* "$HOME/.luks-conf"), где теперь взять $HOME? +)

источник

13:50пожаловаться #17

ND

Nikita Domnickij in Сообщество Scheme

Alex Peresmeshnik

(when (not (access? *config-dir* 4))
(mkdir *config-dir*))

Ну вот это, например, компактно и элегантно? Очевидное решение? )

https://github.com/racket/racket/blob/d2f8c8336809e6525c87c7ef1b5fc243cfd78892/racket/collects/racket/file.rkt#L123

racket/racket

The Racket repository. Contribute to racket/racket development by creating an account on GitHub.

источник

13:51пожаловаться #18

ND

Nikita Domnickij in Сообщество Scheme

охуеть

источник

13:51пожаловаться #19

AP

Alex Peresmeshnik in Сообщество Scheme

Aydar Zarifullin

(define *config-dir* (string-append (getenv "HOME") "/" ".luks-conf"))

(when (not (access? *config-dir* 4))
(mkdir *config-dir*))

Ну окей, стало компактнее +)
Но с таким все равно не сравнить: (system (format #f "mkdir -p $HOME/~a" ".luks-conf"))

источник

13:52пожаловаться #20