Хаксли оказывается сгенерировал утопию про буддизм и психоту: Island.
WOK мозг самки сделан для манипуляций самцами http://www.psmag.com/culture-society/women’s-brains-are-wired-for-compassion-30951/
Предложил тянке поебаться. Она взяла и не захотела. Сраный матриархат!
Предположим, что появилась технология, позволяющая скопировать-сэмулировать любой мозг (или ЦНС) в ЭВМ. При этом знаний о том, как с результирующим пре-киборгом взаимодействовать, нету: ввод-вывод представляет из себя прямой доступ к любым выбранным нейронам. Загрузили ли бы вы туда свой мозг? Для простоты положим, что большее время выключенным его держать нельзя, как и надолго выкручивать скорость эмуляции вниз-вверх.
Написал прибивалку SIGSTOP'ом firefox при переключении на другой воркспейс. Довольно криво, но работает. Очень актуально.
--{{{ Fuck firefox
myLogHook = do
wsname <- gets (currentTag . windowset)
case wsname of
"web" -> fuckFirefox False
_ -> fuckFirefox True
fuckFirefox ye = liftIO $ do
(rc, out, ) <- readProcessWithExitCode' "pgrep" ["firefox"] []
mapM fuckIt $ lines $ out
where fuckIt s = signalProcess (if ye then sigSTOP else sigCONT) (CPid $ read s)
readProcessWithExitCode'
:: FilePath -- ^ command to run
-> [String] -- ^ any arguments
-> String -- ^ standard input
-> IO (ExitCode,String,String) -- ^ exitcode, stdout, stderr
readProcessWithExitCode' cmd args input = do
(Just inh, Just outh, Just errh, pid) <-
createProcess (proc cmd args){ std_in = CreatePipe,
std_out = CreatePipe,
std_err = CreatePipe }
outMVar <- newEmptyMVar
-- fork off a thread to start consuming stdout
out <- hGetContents outh
forkIO $ C.evaluate (length out) >> putMVar outMVar ()
-- fork off a thread to start consuming stderr
err <- hGetContents errh
forkIO $ C.evaluate (length err) >> putMVar outMVar ()
-- now write and flush any input
when (not (null input)) $ do hPutStr inh input; hFlush inh
hClose inh -- done with stdin
-- wait on the output
takeMVar outMVar
takeMVar outMVar
hClose outh
-- wait on the process
ex <- C.catch (waitForProcess pid >>= return) (\e -> seq (e :: C.SomeException) $ return $ ExitSuccess)
return (ex, out, err)
--}}}
Как в этом языке позвать pgrep?
*System.Posix.POpen> popen "pgrep" ["firefox"] Nothing
Loading package filepath-1.3.0.1 ... linking ... done.
Loading package array-0.4.0.1 ... linking ... done.
Loading package deepseq-1.3.0.1 ... linking ... done.
Loading package old-locale-1.0.0.5 ... linking ... done.
Loading package time-1.4.0.1 ... linking ... done.
Loading package bytestring-0.10.0.2 ... linking ... done.
Loading package unix-2.6.0.1 ... linking ... done.
Loading package directory-1.2.0.1 ... linking ... done.
l29ahZl29ah-t60 ~/.xmonad ‰
https://upload.wikimedia.org/wikipedia/commons/7/7a/Berlin_Landwehrkanal_Houseboats_20080429.jpg
Московии не хватает такого.
1.4.12.13 Лифт рабства. Наблюдаю за woky (геймер-кодер из Польши, которого я никогда не видел irl), разглядывающим интерактивную газету, на которой отображена карта авиарейсов, где он выбрал рейсы между Польшей и США. Жмякаю на своей газете то же самое. Он спрашивает, зачем. Рассказываю ему об оборзевших ценах на самолёты в рашке. Он советует глянуть какой-нибудь мелкий аэропорт, ибо оттуда может летать что-то бомжовое. Нахожу неподалёку аэропорт с названием из четырёх букв, жмякаю. Вижу два рейса: за 176к и за 20М. Удивляюсь. Прогугливаю: википедия говорит, это какой-то военно-разведывательный аэропорт, находящийся на территории загородного университета. Разглядываю неправдоподобно-уродливую рожу самки военного, что им заведует. Читаю историю о том, как одна студентка попыталась забраться в поплавок самолёта, дабы свалить из СССР, красочно воображая происходящее. Слушаю (неправдоподобную) лекцию по физиологии о том, почему это плохая идея. Обнаруживаю себя дома у @dluciv (тоже никогда его не встречал), где мы оба смотрим телевизор, по которому рассказывают вышеописанную историю. Дом стоит на территории (того?) университета. Далее @dluciv уходит работать за компьютер, гле я наблюдаю за его деятельностью: он занят созданием какой-то сложной машины (возможно, самолёта) с помощью имеющейся у него парочки станков. Удивляюсь черчению руками и завидую экипу для этого. Спорим о том, как лучше допилить его станок с ЧПУ для контроля качества: я предлагаю робо-руку с тремя шарнирами, он предлагает закрепить на каретке камеру и реализовать хитрый алгоритм обработки изображения.