Хорошая статья про мелоедение: (sci-hub://)http://ncp.sagepub.com/content/22/3/286.long
tl;dr: закусывайте мел мясом, матриархат, хлориды почему-то не в моде, карбонат норм бомжвей, если газы анноят - берите цитрат, без витамина D грустно энивей.
Хорошая статья про мелоедение: (sci-hub://)http://ncp.sagepub.com/content/22/3/286.long
tl;dr: закусывайте мел мясом, матриархат, хлориды почему-то не в моде, карбонат норм бомжвей, если газы анноят - берите цитрат, без витамина D грустно энивей.
7 декабря , 08:14. Активисты Евомайдана призывают украинцев завалить ГПУ заявлениями о произволе "Беркута". Они ратуют за правовой путь прекращения насилия со стороны силовиков, вместо искушения "выдернуть этому беркуту все перья". Об этом они пишут в Facebook на страничке ЕвроМайдана.
Для этого предлагается осуществить следующие действия:
- распечатать подготовленный активистами шаблон заявления в Генпрокуратуру о противоправных действиях работников спецподразделения "Беркут";
- вписать в заявление свою фамилию;
- лично передать заявление в ведомство на улицу Резницкую, 13/15 во вторник 10 декабря в 10.00 или послать заявление по почте.
Так победим!
"Как читать ПАПИРЫ":
https://pbs.twimg.com/media/BUjkkOFCEAAGm58.jpg
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 ‰