hackety org

to death

Ditz::HookManager.on :after_add do |project, config, issues|
  issues.each do |issue|
    `git add #{issue.pathname}`
  end
end

Ditz::HookManager.on :after_delete do |project, config, issues|
  issues.each do |issue|
    `git rm #{issue.pathname}`
  end
end

#import <Cocoa/Cocoa.h>

#define INIT    NSAutoreleasePool *pool = [[NSAutoreleasePool alloc] init];
#define RELEASE [pool release];

int
main(int argc, char *argv[])
{
  NSApplication *app = [NSApplication sharedApplication];
  INIT;

  NSWindow *win = [[NSWindow alloc] initWithContentRect: NSMakeRect(0, 0, 340, 140)
    styleMask: (NSTitledWindowMask | NSClosableWindowMask | NSMiniaturizableWindowMask)
    backing: NSBackingStoreBuffered defer: NO];
  NSTextField *text = [[[NSTextField alloc] initWithFrame: NSMakeRect(40, 90, 260, 18)]
    autorelease];

  [[win contentView] addSubview: text];
  [text setBezeled: NO];
  [text setStringValue: @"Drink Coke-O"];
  [text setBackgroundColor: [NSColor windowBackgroundColor]];
  [text setEditable: NO];
  [text setSelectable: NO];

  [win center];
  [win orderFront: nil];

  RELEASE;
  [app run];
  return 0;
}

$ gcc -framework Cocoa -o coke-o coke-o.m

$ export MACOSX_DEPLOYMENT_TARGET=10.4
$ gcc -O -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -arch ppc \
    -framework Cocoa -o coke-o coke-o.m

[win center];
[win setLevel: NSFloatingWindowLevel];
[win makeKeyAndOrderFront: nil];

NSString *url;
#ifdef __ppc__
url = @"http://hacketyhack.net/pkg/osx/shoes-ppc";
#else
url = @"http://hacketyhack.net/pkg/osx/shoes";
#endif

binj = Binject::EXE.new("blank.exe")
binj.inject("SHOES_FILENAME", "simple-accordion.rb")
File.open("simple-accordion.rb") do |f|
  binj.inject("SHOES_PAYLOAD", f)
end
binj.save("accordion.exe")

$ dd if=/dev/zero of=blank.hfs bs=512K count=1
$ mkfs.hfsplus -v Shoes blank.hfs
$ gzip blank.hfs
$ mv blank.hfs.gz blank.hfz

binj = Binject::DMG.new("blank.hfz", "Accordion")
binj.inject_dir("Accordion.app", "/tmp/accordion.app")
binj.chmod_file(0755, "Accordion.app/Contents/MacOS/accordion-launch")
binj.save("accordion.dmg")

class Icon < Widget
  attr_accessor :image, :caption
  def initialize opts = {}
    @stack = stack
    @image = @stack.image(*opts[:image]) if opts[:image]
    @caption = @stack.para(*opts[:text])
  end
  def edit
    return if @edit
    @caption.hide
    @stack.append do
      @edit = edit_line :width => 200, :text => @caption
    end
  end
  def save
    return unless @edit
    @caption.replace @edit.text
    @edit.remove
    @caption.show
  end
end

Shoes.app do
  stack do
    @icon = icon :image => "static/shoes-icon.png",
                 :text => "Welcome!"

    button("image.hide") { @icon.image.hide }
    button("image.show") { @icon.image.show }
    button("image.size") { @icon.image.style :width => 64, :height => 64 }
    button("text.edit") { @icon.edit }
    button("text.save") { @icon.save }
  end
end

class Speedometer < Widget
  attr_accessor :range, :tick, :position
  def initialize opts = {}
    @range = opts[:range] || 200
    @tick = opts[:tick] || 10
    @position = opts[:position] || 0
    @cx, @cy = self.left + 110, self.top + 100

    nostroke
    rect :top => self.top, :left => self.left,
      :width => 220, :height => 200
    nofill
    stroke white
    oval :left => @cx - 50, :top => @cy - 50, :radius => 100
    (ticks + 1).times do |i|
      radial_line 225 + ((270.0 / ticks) * i), 70..80
      radial_line 225 + ((270.0 / ticks) * i), 45..49
    end
    strokewidth 2
    oval :left => @cx - 70, :top => @cy - 70, :radius => 140
    stroke lightgreen
    oval :left => @cx - 5, :top => @cy - 5, :radius => 10
    @needle = radial_line 225 + ((270.0 / @range) * @position), 0..90
  end
  def ticks; @range / @tick end
  def radial_line deg, r
    pos = ((deg / 360.0) * (2.0 * Math::PI)) - (Math::PI / 2.0)
    line (Math.cos(pos) * r.begin) + @cx, (Math.sin(pos) * r.begin) + @cy,
      (Math.cos(pos) * r.end) + @cx, (Math.sin(pos) * r.end) + @cy
  end
  def position= pos
    @position = pos
    @needle.remove
    append do
      @needle = radial_line 225 + ((270.0 / @range) * @position), 0..90
    end
  end
end

Shoes.app do
  stack do
    para "Enter a number between 0 and 100"
    flow do
      @p = edit_line
      button "OK" do
        @s.position = @p.text.to_i
      end
    end

    @s = speedometer :range => 100, :ticks => 10
  end
end

class BorderButton < Widget
  def initialize *args, &blk
    opts = args.detect { |a| a.is_a? Hash }

    border opts[:border], :strokewidth => opts[:strokewidth]

    args[args.index(opts)] = opts.
      merge(:width => opts[:width] - (opts[:strokewidth] * 2))
    stack(:margin => opts[:strokewidth]).button *args, &blk
  end
end

Shoes.app do
  borderbutton "OK", :width => 200,
    :strokewidth => 4, :border => "#000".."#FFF" do
      alert("PROOF!")
  end   
end

class Cascade < Widget
  def initialize &blk
    instance_eval &blk
  end
  def draw(a,b)
    x, y = 0, 0
    contents.each do |e|
      if x != e.left && y != e.top
        e.move x, y
      end
      x += e.height
      y += e.width
    end
    super(a,b)
  end
end

Shoes.app do
  cascade do
    button "1"
    button "2"
    button "3"
  end
end

/* THIS FILE IS GENERATED BY THE BUILD SYSTEM.  EDIT THE CORRESPONDING .cmakeIn FILE.
 */

/*
 * This is the configuration file for BrowserPlus
 */

{
   // the base url for the "primary" distribution server.  This server will
   // be the single source of truth for Permissions, and will used to
   // attain services
   "DistServer": "http://browserplus.yahoo.com",

   // An array of "secondary" distribution servers, which will be checked
   // in order for services if the primary server has no components
   // available which match an issued require statement.
   "SecondaryDistServers": [ "" ],

{
    // What domains are approved?  Entries are PCRE regular expressions
    // which must match the scheme://host:port of the requesting URI.
    // Regular expressions must be anchored with $.
    // Note that the PCRE expression may need to be protected in order
    // to be valid JSON (e.g. a '\' needs to be '\\')
    //
    "whitelist" : [
      "^http(s?)://(.*)\\.yahoo\\.com$",
      "^http(s?)://(.*)\\.yahoo\\.com:[0-9]+$"
    ],

$ openssl smime -sign -inkey HacketyPlus.key -signer HacketyPlus.crt \
    -certfile HacketyPlus.other -in Payload-1.0.0.zip -out Payload-1.0.0.p7m \
    -nodetach -binary

$ openssl smime -verify -CAfile BrowserPlus.crt \
    -in Payload-1.0.0.p7m -out Payload-1.0.0.zip

  Eval-1.0.0.zip:
    manifest.json
    eval.rb

class Eval
  def initialize(args)
  end

  def eval(bp, args)
    begin
      code = args['code']
      obj = Kernel.eval(code, TOPLEVEL_BINDING)
      bp.complete(obj.inspect)
    rescue Exception => err
      bp.error('FAIL', "Error: #{err}")
    end
  end
end

RubyCoreletDefinition = {
  'class' => "Eval",
  'name' => "Eval",
  'major_version' => 1,
  'minor_version' => 0,
  'micro_version' => 0,
  'documentation' => 'Run any Ruby whatsoever.',
  'functions' =>
  [
    { 
      'name' => 'eval',
      'documentation' => "Executes a string of Ruby code.
         Returns a string of the inspected data.",
      'arguments' =>
      [ 
        { 
          'name'          => 'code',
          'type'          => 'string',
          'required'      => true,
          'documentation' => 'The code to execute.'
        }
      ]
    }
  ]
}

class Eval
  bp_version "1.0.0"
  bp_doc "Run any Ruby whatsoever."

  def eval(code)
    obj = Kernel.eval(code, TOPLEVEL_BINDING)
    obj.inspect
  end
  bp_doc :eval, 
    "Executes a string of Ruby code.
     (code: string) The code to execute."
end

RubyCoreletDefinition = Eval.to_corelet

News:
  - 11-MAY-2008 -- Oren Ben-Kiki has released a new YAML 1.2 spec draft.
  - 29-NOV-2007 -- Alexey Zakhlestin has updated his Syck (YAML 1.0) binding for PHP

News:
  - [2008-05-11, Oren Ben-Kiki has released a new YAML 1.2 spec draft.]
  - [2007-12-29, Alexey Zakhlestin has updated his Syck (YAML 1.0) binding for PHP]

Shoes.app do
  image "static/shoes-icon.png"
end

module Arsenal
  def bomb x, y
    nostroke
    fill "#000"
    oval x+3, y+3, 13
    fill "#333"
    oval x+5, y+5, 7
    fill "#AAA"
    oval x+6, y+6, 3

    fill "#000"
    stroke "#222"
    strokewidth 2
    oval x+12, y+3, 2
    oval x+14, y+3, 1
  end
end

Shoes.app do
  extend Arsenal
  background white
  bomb 0, 0
end

module Arsenal
  def bomb x, y
    image 20, 20, :top => x, :left => y do
      nostroke
      fill "#000"
      oval 3, 3, 13
      fill "#333"
      oval 5, 5, 7    
      fill "#AAA"
      oval 6, 6, 3    

      fill "#000"
      stroke "#222"
      strokewidth 2
      oval 12, 3, 2
      oval 14, 3, 1
    end
  end
end

s: oh, take heart, young lad.
s: after all, we are most definitely the /ONE', the /ONLY', the .(OFFICIAL).
s: entertainers of #camping, a gift from your KING< a true offering
s: of haste and scenic tales >PERFORMING TODAY!< for your gifted
(a) gasps.
s: minds, to lift your spirits and to spread luxurious laughter, as
b: ** the show starts in roughly -- checks watch -- four minutes -- get comfortable. **
s: it were a catapult travelling o'er the oval moons and roof boats!!
a: :) alright
a: i am aidelaide.
s: and:            i am starlight huxley!
b: and: :)                               i am b.e.o. stepfisdein.
s:    >>     we are blimLimb, the bot troupe!        <<<
b: previously known as blimLimb limLirrm, the bot troupe.
a: we go by either :)
F: I PLAY MYSELF.

[a] aidelaide
[F] FNONt
[t] teslyANDERSowens
[s] ^sHuxley^
a: hello
s: (( //......\\'''''''//.....\\ ))
s:  )) <#camping> ((
[b] beo_stepfIsDein

firefox -app /path/to/processor/application.ini

Shoes.setup do
  gem 'json >= 1.1.1'
  gem 'activerecord'
end

require 'json'
require 'activerecord'

Shoes.app do
  @msg = para "ALL SYSTEMS GO"
  animate(20) { @msg.toggle }
end

puts "Content-Type: text/plain"
puts
puts "Hello, world!"

#!/usr/bin/env ruby
iseq = VM::InstructionSequence.compile(IO.read(ARGV[0]))
iseq.to_a.last.each do |inst|
  p inst
end

1
[:putnil]
[:putstring, "Content-Type: text/plain"]
[:send, :puts, 1, nil, 8, nil]
[:pop]
2
[:putnil]
[:putstring, ""]
[:send, :puts, 1, nil, 8, nil]
[:pop]
3
[:putnil]
[:putstring, "Hello, world!"]
[:send, :puts, 1, nil, 8, nil]
[:leave]

36 LOAD_NAME                0 (Kernel)
39 LOAD_ATTR                1 (puts)
42 LOAD_CONST               4 ('Hello, world!')
45 CALL_FUNCTION            1

def puts(*args):
  for x in args: print x
  if not args: print

$ git clone git://github.com/why/unholy.git
$ cd unholy
$ vim hello.rb
$ bin/unholy hello.rb
$ PYTHONPATH=python python hello.rb.pyc

$ cd unholy/decompyle
$ python setup.py build
$ sudo python setup.py install
$ decompyle hello.rb.pyc > hello.py

# emacs-mode: -*- python-*-
import Kernel
Kernel.puts('Content-Type: text/plain')
Kernel.puts()
return Kernel.puts('Hello, world!')

# local variables:
# tab-width: 4

import "wsgiref.handlers"
from "google.appengine.ext", "webapp" => :WebApp

class MainPage < WebApp::RequestHandler
  def get
    self.response.headers['Content-Type'] = 'text/plain'
    self.response.out.write('Hello, webapp World!')
  end
end

def main
  application = WebApp::WSGIApplication.new([tuple('/', MainPage)])
  wsgiref.handlers.CGIHandler().run(application)
end

if __FILE__ == $0
  main
end

$ potion hello.py
HELLO FROM PYTHON
$ potion hello.rb
KONNICHIWA FROM RUBY

static function startRecording(e) {
  stopButton.visible = true;
  recButton.visible = false;
  Base.record(uuid + ".flv", function(ns) {
    start = 0;
    clock = new Timer(200);
    clock.run = timeRecording;
  });
}

object carolObj {
  name = "Indigenous lifeform";
  verb(int vrb,int objA,int objB) {
    case TalkTo:
      zobTalkToCarol();
      return;
    case LookAt:
      if( ! knowsCarol ) {
          egoSay("A large carbon based mammal, it seems.");
          waitForMessage();
      }   
      else {
          egoSay("It is Carol, one of the local lifeforms.");
          waitForMessage();
      }   
      return;
    case Smell:
      egoSay("This creature has an overwhelming pungent smell.");
      return;
    case Move:
      egoSay("The lifeform is surprisingly sturdy, I don't believe I can use force.");
      return;
  }
}

gem install RedCloth --source http://code.whytheluckystiff.net
git clone git://repo.or.cz/conkeror.git
cd conkeror
./build.sh xulapp
sudo ./install.sh

interactive("proxy-port",
  "Change the HTTP proxy port.",
  function (I) {
    var portnum;
    user_pref("network.proxy.http_port", 
      portnum = (yield I.minibuffer.read($prompt = "Proxy port:")));
    I.minibuffer.message("port set to " + portnum);
  });

svn co http://code.whytheluckystiff.net/svn/dfly/trunk dfly
require 'dfly'
puts "THIS APP IS GOING TO FREEZE"
case Dfly.checkpoint("test.ckpt.gz")
when Dfly::FROZEN
  exit
when Dfly::RESUMED
  puts "THIS APP IS THAWED OUT"
end

hackety org

Git Hooks For Ditz

Calling Cocoa Commandline

Stamping EXEs And DMGs

Martin DeMello's Gooey Challenge

Icon Widget (`challenge1.rb`)

Speedometer Widget (`challenge2.rb`)

Native Button with Custom Border (`challenge3.rb`)

Cascading Container (`challenge4.rb`)

Dismantling BrowserPlus

De-smalling the Built-in Shoes Manual

YAML 1.2 Ensconces and Envelopes JSON

The Image Block At The Bottom Of Shoes

BlimLimb, the Travelling Bot Troupe

Some Chrome For Pjs

Clearing Up The Whole Shoes And RubyGems Deal

Sneaking Ruby Through Google App Engine (and Other Strictly Python Places)

A Drop of Puts

Getting Unholy

Yeah So Puts is Useless

Your Eight Second Calling Card

Making SCUMM Games

Jason Garber Finishes SuperRedCloth For Me

The Tiny And Accomplished Lew

Shoes Is Sort Of Making Its Way Through The Linux Packaging Machines

NKS is OPP

Conkeror Comes Unstuck

DragonFly's Freezer

hackety org

Git Hooks For Ditz

Calling Cocoa Commandline

Stamping EXEs And DMGs

Martin DeMello's Gooey Challenge

Icon Widget (challenge1.rb)

Speedometer Widget (challenge2.rb)

Native Button with Custom Border (challenge3.rb)

Cascading Container (challenge4.rb)

Dismantling BrowserPlus

De-smalling the Built-in Shoes Manual

YAML 1.2 Ensconces and Envelopes JSON

The Image Block At The Bottom Of Shoes

BlimLimb, the Travelling Bot Troupe

Some Chrome For Pjs

Clearing Up The Whole Shoes And RubyGems Deal

Sneaking Ruby Through Google App Engine (and Other Strictly Python Places)

A Drop of Puts

Getting Unholy

Yeah So Puts is Useless

Your Eight Second Calling Card

Making SCUMM Games

Jason Garber Finishes SuperRedCloth For Me

The Tiny And Accomplished Lew

Shoes Is Sort Of Making Its Way Through The Linux Packaging Machines

NKS is OPP

Conkeror Comes Unstuck

DragonFly's Freezer

Icon Widget (`challenge1.rb`)

Speedometer Widget (`challenge2.rb`)

Native Button with Custom Border (`challenge3.rb`)

Cascading Container (`challenge4.rb`)