| myModule.factory 'websocket', ($q) -> | |
| # to run, inject thus: | |
| # myModule.run (websocket) -> | |
| # websocket.connect("ws://localhost:8000") | |
| # websocket.on "myCommand", (data) -> | |
| # c.log "data received!", data | |
| # websocket.send "my outgoing message" |
| -- runghc Unigen.hs ∣ xmodmap - | |
| module Main where | |
| import Data.Char | |
| import Numeric | |
| import Data.List | |
| type Mod = (Int,Char,Char,Char,Char) |
| def nonempty -params 1 %{ | |
| exec -no-hooks %arg{1} | |
| try %{ | |
| exec -no-hooks -draft \;Gg<a-k>(\n.*){3}<ret> | |
| exec -no-hooks -draft \;Ge<a-k>(\n.*){3}<ret> | |
| exec -no-hooks -draft \;<a-x><a-k>\A[\n]\Z<ret> | |
| nonempty %arg{1} | |
| } | |
| } |
| # Buffers (by danr 2017, public domain) | |
| map global normal <a-,> :bp<ret>:bufinfo<ret> | |
| map global normal <a-.> :bn<ret>:bufinfo<ret> | |
| map global normal <a--> ga:bufinfo<ret> | |
| map global normal <a-d> :db<ret>:bufinfo<ret> | |
| map global normal <a-q> :db!<ret>:bufinfo<ret> | |
| def bufinfo %{ | |
| %sh{ | |
| echo -n info -- %^ |
| def plug -params 1 %{ | |
| %sh{ | |
| # Check out the repo to ~/build if it does not exist | |
| if [[ ! -d $HOME/build/$1 ]]; then | |
| (cd $HOME/build; git clone https://github.com/$1) | |
| fi | |
| # Source all .kak files in it | |
| for file in $(echo $HOME/build/$(basename $1)/*.kak); do | |
| echo source "$file" | |
| done |
| def div -params 0..1 -docstring %{Wraps selected text with a tag and indents it. | |
| The parameter can be omitted and then defaults to div.} %{ | |
| eval -itersel %{ | |
| exec <a-:><a-x>H Zo< / %sh{[ -n "$1" ] && echo "$1" || echo "div"} ><esc><a-x>yz<A-P>s/<ret>dz> | |
| } | |
| } | |
| def select-tag -docstring %{Selects xml tag from start to end. |
| # try for example: | |
| # :expand-write state.json '{"selections":%val{selections},"filetype":%opt{filetype},"yank":%reg{"}}' | |
| def expand -params 1 %{ | |
| eval -no-hooks -draft %{ | |
| try %{ | |
| edit -scratch *expand* | |
| } | |
| } |
| def tabsearch -params 1 %{ | |
| define-command -allow-override next "exec \"%arg{1}\%reg{/}\"" | |
| map global prompt <tab> <ret>:next<ret> | |
| exec %arg{1} | |
| } | |
| def colon %{ | |
| map global prompt <tab> <tab> | |
| exec : | |
| } | |
| map global normal / ':tabsearch /<ret>' |
Det här receptet ger en rejäl laddning av linser och ris som passar bra att servera till tofu, ha i en wrap eller kanske bara till stekta grönsaker. Ursprungsreceptet hittade jag här.