itsuart

1. Firefox, help->troubleshooting information->profile folder: open folder
2. create chrome/userChrome.css with following content:
.browserContainer > findbar {
  -moz-box-ordinal-group: 0;
}
3. Firefox, about:config, enable toolkit.legacyUserProfileCustomizations.stylesheets
4. restart ff

itsuart

clrversion = $clrversion$
guid1 = $guid1$
itemname = $itemname$
machinename =$machinename$
projectname  =$projectname$
registeredorganization  =$registeredorganization$
rootnamespace  =$rootnamespace$
safeitemname  =$safeitemname$
safeprojectname  =$safeprojectname$
time  =$time$

itsuart

#include <iostream>
#include "AutoWTSFreeMemory.h"

namespace {
    const char* connection_state_to_string(WTS_CONNECTSTATE_CLASS connectionState){
        switch (connectionState){
        case WTSActive:{
            return "WTSActive";
        } break;

itsuart

Output Directory:
$(ProjectDir)bin\$(PlatformShortName)-$(Configuration)\

Intermediate Directory: 
$(ProjectDir)obj\$(PlatformTarget)-$(Configuration)\

Target Name: 
$(ProjectName)-$(PlatformShortName)

to refer subproject output:

itsuart

to swap cmd and alt on mac keyboard:
temporarily:
echo 1|sudo tee /sys/module/hid_apple/parameters/swap_opt_cmd
permanently:
echo options hid_apple swap_opt_cmd=1 | sudo tee -a /etc/modprobe.d/hid_apple.conf

to stop mac from heating too much:
sudo apt install macfanctld

to set dvorak and bind caps lock to ctrl:

itsuart

{-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell, OverloadedStrings #-}
import Yesod
import Yesod.Handler

data HelloWorld = HelloWorld

mkYesod "HelloWorld" [parseRoutes|
/ HomeR GET
|]

itsuart

{-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell, OverloadedStrings #-}
import Yesod
import Yesod.Handler
import qualified Data.Text as T
import qualified Data.Map as M
import System.IO

type ShurlsMap = M.Map T.Text String

myMap :: ShurlsMap

itsuart

(*
На входе список токенов, задача - объединить подпоследовательности вида "String, '_', String" и "'-', Number" в одну, т.е.
Вход: ["foo", '_', "bar", '-', 12, "some", "other", 15, "baz"]
Выход: ["foo_bar", -12, "some", "other", 15, "baz"]
*)
let pack_tokens tokens =
  let accum = ref [] in
  let rec pack tokens_left  = match tokens_left with
      [] -> List.rev !accum
    | Tokenizer.String l :: Tokenizer.Symbol '_' :: Tokenizer.String r :: tail ->