xiki 0.5.0a

data/menus/layout.rb

@@ -0,0 +1,18 @@
+class Layout
+  def self.menu
+    %`
+    | Keys shortcuts that start with "to+" (ctrl-t) such as to+end.
+    - frequent/
+      | layout+create: Create a new view
+      | layout+hide: Hide this view
+      | layout+next: Go to next view
+      | layout+previous: Go to previous view
+      | layout+kill: Close the current file
+    - all/
+      | TODO
+    |
+    > See also
+    << view/
+    `
+  end
+end

data/menus/local_storage.rb

@@ -0,0 +1,67 @@
+class LocalStorage
+  def self.menu
+    "
+    - .all/
+    - docs/
+      > Summary
+      | View and manipulate records in the browser's \"Local Storage\" database.
+      |
+      > Show all records
+      << all/
+      |
+      > Manipulating records
+      | save: double-click record contents
+      | delete: do+kill+it while on the record (Ctrl-d Ctrl-k Ctrl-i)
+      |
+      > Delete all keys
+      @ js/localStorage.clear()
+    "
+  end
+
+  def self.all key=nil, val=nil
+    prefix = Keys.prefix :clear=>true
+
+
+    if key.nil?   # If nothing passed, show all keys
+      js = %`
+        var result = [];
+        for (var key in localStorage) { result.push(key) }
+        JSON.stringify(result);
+        `
+      txt = Firefox.run js,   #:jquery=>1  #, :jquery_extra=>ls_function
+      array = JSON[txt]
+      return "
+        | None found.  Create a few test records?
+        - a/aa
+        - b/bb
+        " if array.empty?
+      return array.sort.inject("") {|acc, element| "#{acc}- #{element}/\n"}
+    end
+
+    if Keys.delete?
+      Firefox.run "localStorage.removeItem(\"#{key}\")"  #, :jquery=>1
+      Tree.to_parent if val
+      Tree.kill_under
+      View.flash "- deleted!"
+      # TODO: let this behave properly when returning with .flash:
+      # Currently it ends up one line off?  Because we're treating it like it returned nil - make it treat ^.flash as nill?
+      # return ".flash - deleted!"
+      Line.delete
+      return
+    end
+
+    if val.nil?   # If just key passed, show val
+      txt = Firefox.run "localStorage[\"#{key}\"]"  #, :jquery=>1
+      return self.docs if txt.blank? && key =~ /docs\/?/
+      return self.api if txt.blank? && key =~ /api\/?/
+      return Tree.quote txt
+    end
+
+    Tree.unquote! val
+
+    val = ENV['txt']
+    txt = Firefox.run "localStorage[\"#{key}\"] = #{val.inspect}"  #, :jquery=>1
+    View.flash "- Saved!"
+  end
+
+end

data/menus/ls.rb

@@ -0,0 +1,19 @@
+class Ls
+  def self.docs
+    "
+    > Summary
+    | Simple wrapper around the 'ls' shell command. Can be used in trees.
+
+    > Example usage
+    @/tmp/
+      @ls
+    "
+  end
+
+  def self.menu *args
+    return self.docs if args == ['docs']
+
+    path = Tree.file :require=>1
+    Tree.quote Console.sync "ls -lah \"#{path}\"", :dir=>path
+  end
+end

data/menus/mac.rb

@@ -0,0 +1,87 @@
+# Starting and stopping mac
+class Mac
+
+  def self.menu
+    %`
+    - Enable mac keyboard shortcuts/
+      | Enable macintosh-like keyboard shortcuts, like command-c
+      @ Mac.define_keys
+    - Important dirs/
+      @/Users/
+      @/Applications/
+      @/Applications/Utilities/
+      @ ~/Library/Fonts/
+    - api/
+      | Define standard mac shortcuts
+      @ Mac.define_keys
+    `
+  end
+
+  def self.define_keys
+    self.keys
+    View.flash "- defined Command-C, Command-V, Command-Q, etc."
+  end
+
+  #
+  # Use this if you're using aquamacs
+  #
+  # Put this line in your init.rb file to use the below key mappings.
+  #
+  #   Mac.keys_for_aquamacs
+  #
+  def self.keys_for_aquamacs
+
+    return if ! $el.boundp(:osx_key_mode_map)
+
+    $el.define_key(:osx_key_mode_map, $el.kbd("A-0")) { Styles.font_size 110 }
+    $el.define_key(:osx_key_mode_map, $el.kbd("A-=")) { Styles.zoom }
+    $el.define_key(:osx_key_mode_map, $el.kbd("A--")) { Styles.zoom :out=>1 }
+
+    # Changes aquamacs behavior so it opens in same frame.  Is there
+    # an aquamacs setting for this that could be used instead of redefining
+    # key?
+    $el.define_key :osx_key_mode_map, $el.kbd("A-n") do
+      View.to_buffer "untitled"
+      $el.rename_uniquely
+      Notes.mode
+      View.>> "\n"
+    end
+
+    $el.define_key :osx_key_mode_map, $el.kbd("<A-return>") do
+      Launcher.launch_or_hide(:blink=>true)
+    end
+
+    $el.define_key :cua_global_keymap, $el.kbd("<C-return>"), nil   # Prohibit cua from monopolizing C-return key
+
+  end
+
+  #
+  # Use this if you're not using aquamacs
+  #
+  # Put this line in your init.rb file to use the below key mappings.
+  #
+  #   Mac.keys
+  #
+  def self.keys
+
+    #   def self.keys
+    Keys._Q { $el.save_buffers_kill_emacs }   # Command-Q to quit
+    Keys._C {
+      left, right = View.range
+      Effects.blink :left=>left, :right=>right
+      $el.kill_ring_save left, right
+    }   # Command-C
+    Keys._V { $el.yank }   # Command-V
+    Keys._A { View.to_highest; Clipboard.copy_everything }   # Command-V
+
+    Keys._X {
+      left, right = View.range
+      Effects.blink :left=>left, :right=>right
+      $el.kill_region left, right
+    }
+
+    Keys._S { DiffLog.save }   # save (or, with prefix, save as) **
+
+    $el.define_key :global_map, $el.kbd("M-X"), :execute_extended_command
+  end
+end

data/menus/maps.rb

@@ -0,0 +1,18 @@
+require 'view'
+require 'effects'
+
+class Maps
+
+  def self.menu *args
+
+    # If no arg, prompt to type something
+
+    return View.prompt "Type something to search on google maps" if args.blank?
+
+    # If arg, look it up
+
+    Firefox.url "http://maps.google.com/maps?q=#{ENV['txt'].gsub "\n", ", "}"
+    nil
+
+  end
+end

data/menus/matches.rb

@@ -0,0 +1,18 @@
+class Matches
+  def self.menu *args
+
+    # If no args, explain what it does
+
+    if args.empty?
+      return View.prompt "Count matches of what?"
+    end
+
+    # If only one arg, have them add some text
+
+    if args.length == 1
+      return Tree << "| Add some text here to matches the matches."
+    end
+
+    txt = ENV['txt'].scan(/#{args[0]}/i).length.to_s
+  end
+end

data/menus/memcache.rb

@@ -0,0 +1,117 @@
+gem 'memcached'
+require 'memcached'
+require 'net/telnet'
+
+class Memcache
+  def self.menu
+    txt =
+      "
+      - .keys/
+      - .start/
+      "
+    txt << "- .server/\n" if View.buffer_open? "*memcached"
+    txt
+  end
+
+  def self.start
+    buffer = "*memcached"
+    if View.buffer_open? buffer   # If already open
+      View.flash "- '*memcached' is already open!", :times=>4
+      return self.server
+    end
+    Console.run('memcached -vv -p 11211 -m 64', :buffer=>buffer)
+  end
+
+  def self.server
+    View.to_after_bar
+    View.to_buffer "*memcached"
+    nil
+  end
+
+  def self.suggest_if_not_running e
+
+    if e.message =~ /Connection refused/ || e.message =~ /SystemError: Errno 22:/ || e.message =~ /Errno 22/
+
+      return "
+        | > Not installed
+        | Memcached doesn't appear to be installed.
+        |
+        | > Install instructions
+        | On a mac
+        @$ port install memcached
+        |
+        | On ubuntu
+        @$ sudo apt-get install memcached
+        |
+        | > Other platforms and more info
+        @http://code.google.com/p/memcached/wiki/NewStart
+        |
+        " if `which memcached`.empty?
+
+      return "
+        > Not running
+        | Memcached doesn't appear to be running.
+        - start it) @memcache/start/"
+    end
+    nil
+  end
+
+  def self.keys *args
+
+    begin
+
+      # If nothing passed, show all keys
+
+      if args.blank?
+
+        # Hack to get all (usually) keys
+        con = Net::Telnet::new("Host"=>"127.0.0.1", "Port"=>11211, "Prompt" => /END/)
+        items = con.cmd "stats items\n"
+        keys = []
+        items.scan(/^STAT items:(\d+):number/).each do |i|
+          cachedump = con.cmd "stats cachedump #{i[0]} 1000"
+          cachedump.scan(/^ITEM (.+?) /).each {|i| keys << i[0]}
+        end
+        return "
+          | > No keys exist
+          | Create some:
+          - foo/
+            | aa
+          - bar/
+            | b: bb
+          " if keys.empty?
+        return keys.map{|k| "#{k}/"}
+      end
+
+      value = args.pop if Line =~ /^ *\|/
+      key = args.join "/"
+
+      # If just key, show the value
+
+      if value.nil?
+        return self.connection.get(key).to_yaml.sub(/\A--- \n?/, '').gsub(/^/, "| ")
+      end
+
+      if Keys.prefix == 0
+        self.connection.delete key
+        View.flash "- Deleted!"
+        return
+      end
+
+      value = YAML::load Tree.siblings(:string=>1)
+      self.connection.set key, value
+
+      View.flash "- Saved!"
+
+    rescue Exception=>e
+      return "- Not found!\n| sample value" if e.message == "Memcached::NotFound"
+
+      result = self.suggest_if_not_running(e) and return result
+      raise e
+    end
+  end
+
+  def self.connection
+    Memcached.new 'localhost:11211' #, :hash=>:default
+  end
+end

data/menus/mkdir.rb

@@ -0,0 +1,23 @@
+class Mkdir
+
+  def self.menu
+    trunk = Xiki.trunk
+    return "
+      > Usage
+      | Nest @mkdir under a dir path to create the dir, like this:
+      |
+      | - /tmp/newdir/
+      |   - @mkdir
+      |
+      " if trunk.length <= 1
+
+    closest_file_path = Tree.closest_dir
+
+    return View.flash("- Already exists: #{closest_file_path}") if File.exists?(closest_file_path)
+
+    `mkdir -p "#{closest_file_path}"`
+
+    return View.flash "- Created: #{closest_file_path}", :times=>3
+  end
+
+end

data/menus/mongo.rb

@@ -0,0 +1,83 @@
+class Mongo
+  def self.menu # bucket=nil
+    %`
+    - .collections/
+    - docs/
+      > Create
+      @foo.save({_id:"a", txt:"b"})
+
+      > Show
+      @foo.find()
+      @foo.find({_id:"a"})
+
+      > Update
+      @foo.update({_id:"a"}, {txt:"bbb"})
+
+      > Delete
+      @foo.remove({_id:"a"})
+    `.unindent
+  end
+
+  def self.collections collection=nil
+
+    collection.sub!(/\/$/, '') if collection
+
+    # If /, list databases
+
+    if collection.nil?
+      json = self.run 'printjson(db._adminCommand("listDatabases"))'
+      o = JSON[json]
+      return o["databases"].map{|d| "#{d['name']}/"}
+    end
+
+    self.run("db.#{collection}.find()").gsub(/^/, '| ')
+  end
+
+  def self.run command
+    command << ".forEach(printjson)" if command =~ /.find\(/
+    txt = `mongo --eval '#{command}'`
+
+    if txt =~ /couldn't connect to server/
+      raise "> Mongo isn't running. Start it?
+        @/tmp/
+          % mongod
+        ".unindent
+    end
+
+    txt.sub /(.+\n){2}/, ''   # Delete first 2 lines
+
+  end
+
+  def self.init
+
+    Launcher.add(/^db\./) do |l|   # General db... lines
+      l.strip!
+      txt = self.run l
+      Tree.under "#{txt.strip}\n", :escape=>'| ', :no_slash=>1
+    end
+
+    Launcher.add(/^(\w+)\.(save|update)\(/) do |l|   # Shortcut for foo.save()
+      l.strip!
+      l = "db.#{l}"
+      txt = self.run l
+      Tree.under "done#{txt.strip}\n", :escape=>'| ', :no_slash=>1
+    end
+
+    Launcher.add(/^(\w+)\.find\(/) do |l|   # Shortcut for foo.find()
+      l.strip!
+      l = "db.#{l}"
+      txt = self.run l
+      Tree.under "#{txt.strip}\n", :escape=>'| ', :no_slash=>1
+    end
+
+    Launcher.add(/^(\w+)\.remove\(/) do |l|   # Shortcut for foo.remove()
+      l.strip!
+      l = "db.#{l}"
+      txt = self.run l
+      Tree.under "#{txt.strip}\n", :escape=>'| ', :no_slash=>1
+    end
+
+  end
+end
+
+Mongo.init