sunaku

In response to this question on Reddit:

Do you have a similar layout for keyboards with only 4 rows i.e. dygma defy?

Here is my first attempt at adapting the symbol layer from my Glove80 to your Defy. 💁

To edit this diagram, load the attached JSON file into the KLE app per these instructions.

sunaku

set-option [-agoqsuw] [-t target-session | target-window] option value
        buffer-limit number
        escape-time time
        exit-unattached [on | off]
        quiet [on | off]
        set-clipboard [on | off]
        Available session options are:
        assume-paste-time milliseconds
        base-index index
        bell-action [any | none | current]

sunaku

#!/bin/sh -e
#
# POSIX shell script equivalent of:
# <https://github.com/mplewis/shed>
#
# Usage: shed [SHELL_ARGUMENTS...]
#
# Executes stdin after you edit it.
# If $EDITOR is unset, uses $PAGER.
# If $PAGER  is unset, uses cat(1).

sunaku

# A functional FizzBuzz (without any integer modulus or division) in Elixir
# https://pragprog.com/magazines/2012-08/thinking-functionally-with-haskell
nums = Stream.iterate(1, &(&1 + 1))
fizz = Stream.cycle ["", "", "Fizz"]
buzz = Stream.cycle ["", "", "", "", "Buzz"]
fizzbuzz = Stream.zip(fizz, buzz) |> Stream.zip(nums) |> Stream.map(fn
  {{"",       ""      },  number} -> number
  {{fizzword, buzzword}, _number} -> fizzword <> buzzword
end)
fizzbuzz |> Stream.take(100) |> Enum.each(&IO.puts/1)

sunaku

$ irb
## ruby 2.0.0p247 (2013-06-27 revision 41674) [x86_64-linux]
>> require './github_style_titles.rb'
true
>> gh = Redcarpet::Render::GithubStyleTitles.new
#<Redcarpet::Render::GithubStyleTitles:0x00000001cc3a48>
>> puts Redcarpet::Markdown.new(gh).render "test\n\n# test 1\n\n# test 2\n\n# test 1\n\n# test 1"

<a name="test-1" href="#test-1" class="anchor"><span class="anchor-icon"></span></a><h1 id="test-1">test 1</h1>

sunaku

defmodule Interleave do
  def interleave(a,     b,  result \\ [])
  def interleave([],    [], result), do: result |> Enum.reverse
  def interleave([],    b,  result), do: interleave(b, [], result)
  def interleave([h|t], b,  result), do: interleave(b, t, [h | result])
end

iex(1)> split = Regex.split(~r/x/, "fooxbar")
["foo", "bar"]
iex(2)> scan = Regex.scan(~r/x/, "fooxbar")

sunaku

BadResult = Class.new Exception

Int = Struct.new :i
Negate = Struct.new :e1
Add = Struct.new :e1, :e2

def eval e
  case e
  when Int    then e
  when Negate then case v1 = (eval e.e1)

sunaku

#!/bin/sh
# When *.rkt files in the current directory are modified, this script runs
# their corresponding *test.rkt files and prints any errors or test fails.

inotifywait -qme close_write --format '%w%f' . | while read file; do
  # only process *.rkt files - ignore all other files
  test "${file%.rkt}" = "$file" && continue

  # map the *.rkt file to its corresponding *test.rkt
  # file, unless it already _is_ that *test.rkt file!

sunaku

$ mix new foo
* creating README.md
* creating .gitignore
* creating mix.exs
* creating config
* creating config/config.exs
* creating lib
* creating lib/foo.ex
* creating test
* creating test/test_helper.exs

sunaku

  def self.valid_time?(time)
    (0 .. 2359).include? Integer(time)
  rescue ArgumentError # invalid integer
    false
  end