xiki 0.5.0a

data/menus/edited.rb

@@ -0,0 +1,18 @@
+class Edited
+  def self.menu option=nil
+
+    paths = Files.edited_array[0..300]
+
+    # If "tree" option, show in tree form
+    if option == "tree"
+      txt = Tree.paths_to_tree paths
+      txt.gsub! /^- \//, "- @/"
+      return txt
+    end
+
+    # Else, show in array form
+
+    paths.map!{|i| i.sub(/(.+\/)(.+)/, "- @\\1\n  - \\2")}
+    paths.join("\n")
+  end
+end

data/menus/emacs.rb

@@ -0,0 +1,17 @@
+class Emacs
+  def self.menu
+    "
+    - .info/
+      - Keys/
+      - Prefix Keymaps/
+      - Keymaps/
+      - Prefix Keymaps/
+    "
+  end
+
+  def self.info name
+    View.to_upper
+    $el.info "(emacs)#{name}"
+    nil
+  end
+end

data/menus/enter.rb

@@ -0,0 +1,13 @@
+class Enter
+  def self.menu
+    %`
+    > Summary
+    | Keys shortcuts that start with "to+" (ctrl-t) such as to+end.
+    |
+    - frequent/
+      | enter+clipboard: Paste
+    - others/
+      | TODO
+    `
+  end
+end

data/menus/eval.rb

@@ -0,0 +1,17 @@
+class Eval
+  def self.menu *args
+
+    # If any args, just eval them
+    if args.any?
+      return eval args.join("/")
+    end
+
+    left = Line.right + 1
+    ignore, ignore, right = View.block_positions "^>"
+
+    Code.run :right=>right, :left=>left
+
+    nil
+  end
+end
+

data/menus/executable.rb

@@ -0,0 +1,16 @@
+class Executable
+  def self.menu
+
+    # If not nested, error
+    return "
+      | Put '@executable' under a menu then run it again.  It should be under
+      | the menu you want to create the executable for ou want to create the"
+
+    trunk = Xiki.trunk
+
+    "
+    - cake/
+      - chocolate/
+    "
+  end
+end

data/menus/filter.rb

@@ -0,0 +1,46 @@
+class Filter
+  def self.menu filter=nil, *target
+
+    # Get parent file path!
+      # If none, assume current file
+
+    # For now, just assume it's the current file
+
+    # If nothing passed, tell them to add something
+    return View.prompt "Type something to filter by" if ! filter
+
+    return Tree.children(self.docs, target) if filter == "docs"
+
+    if target.blank?   # If just filter, show results
+      return View.txt.grep(/#{filter}/i).join("").gsub(/^/, '| ')
+    end
+
+    # Navigated to a target
+
+    target = Line.value
+    target.sub! /^ *\| /, ''
+
+    View.to_highest
+    Search.forward "^#{target}$"
+
+    Line.to_beginning
+    nil
+  end
+
+  def self.docs
+    "
+    > Examples
+    | Filter the whole file for the string 'tt'
+    @filter/tt/
+
+    | Filter for NOT the string 'tt'
+    @filter/!/tt/
+
+    | Filter children for the string 'tt'
+    @filter/tt/
+      | Hat
+      | Hatty
+    "
+  end
+
+end

data/menus/firefox.rb

@@ -0,0 +1,607 @@
+require 'net/telnet'
+require 'socket'
+
+gem 'simple-tidy'
+require 'simple-tidy'
+gem 'nokogiri-pretty'
+require 'nokogiri-pretty'
+
+require "rexml/document"
+
+class Firefox
+
+  @@log_unique_token = "aa"
+
+  def self.menu
+    %`
+    @html/
+    @js/
+    @dom/
+    - .navigate/
+      - .reload/
+      - .back/
+      - .forward/
+    - .tabs/
+    - load js into a page) .include_jquery_and_utils
+    - see/
+      - @append/
+      - @click/
+      - @blink/
+      - @ffo/
+      - @jso/
+      - @jsp/
+      - @jsc/
+    - api/
+      | p Firefox.value "window.title"
+      |   "The Title"
+      | Firefox.run "alert('hey')"
+    - docs/
+      > Js examples
+      @js/p('hi')
+      @js/$('a').blink()
+      @js/p($('a').length)
+      @js/$(':text').toggle()
+      |
+      > Running html in the browser
+      @html/<b>hello</b>
+      |
+      |
+      > Running javascript in the browser
+      | Run some javascript:
+      @js/alert('hi')
+      |
+      | Run and insert output:
+      @jso/document.title
+      |
+      | Run and print output in floating divs:
+      @jsp/document.title
+      |
+      | Run and print output in console:
+      @jsc/document.title
+      |
+      |
+      > Exploring and maniplating the current page
+      | Drill into the dom:
+      @dom/
+      |
+      | Search in the current page for "and":
+      @ff/and/
+      |
+      | Make all a tags blink:
+      @blink/a
+      |
+      | Simulate clicking the "sign up" link:
+      @click/
+      |
+      | Drill into the properties of the window class:
+      @ffo/window/
+    `
+  end
+
+  def self.js txt=nil
+    return Tree.<<("| $('div').toggle(1300)  // Type some javascript here (to run in the browser)") if ! txt
+
+    Firefox.run txt  #, :jquery=>1
+  end
+
+  def self.coffee txt=nil
+    return View.prompt("Type some coffeescript to run in the browser") if txt.nil?
+
+    txt = CoffeeScript.run_internal txt
+
+    Firefox.run txt  #, :jquery=>1
+    ".flash - ran in browser!"
+  end
+
+  def self.last_stack_trace
+    Firefox.value('window.content.tmp_stack')
+  end
+
+  def self.reload
+
+    # Clears out OL log
+    Code.open_log_view if Keys.prefix_u && View.buffer_visible?('*ol')
+
+    prefix = Keys.prefix_n :clear=>true
+    if ! prefix
+      Firefox.run("gBrowser.reload()", :browser=>true)
+    elsif prefix == 0
+      # Similar to reload, but field values will reset
+      Firefox.run("document.location = document.location;")
+    else
+
+      tab = prefix - 1
+      if tab == -1   # If 0, close tab
+        self.close_tab
+      else   # If number, switch to tab
+        Firefox.run("gBrowser.tabContainer.selectedIndex = #{tab}", :browser=>true)
+      end
+
+    end
+    nil
+  end
+
+  def self.close_tab
+    times = Keys.prefix_n :clear=>true
+    (times||1).times do
+      self.run "gBrowser.removeCurrentTab();", :browser=>true
+    end
+  end
+
+  def self.click
+    link = Keys.input(:prompt=>'Substring of link to click on: ')
+
+    Firefox.run("
+      var a = $('a:contains(#{link}):first');
+      var url = a.attr('href');
+      if(url == '#')
+        a.click();
+      else
+        window.location = url;
+    ")
+  end
+
+  def self.back
+    Firefox.run "history.back()"
+  end
+
+  def self.forward
+    Firefox.run "history.forward()"
+  end
+
+  #     # Copied from here (and modified):
+  #     - /docs/tools/firewatir/firewatir-read-only/FireWatir/
+  #       - container.rb
+  #         |     def read_socket(socket = jssh_socket)
+  def self.read_socket(socket)
+    result = ""
+    data = ""
+    receive = true
+    s = nil
+    while(s == nil) do
+      s = Kernel.select([socket] , nil , nil, 1)
+    end
+    for stream in s[0]
+      data = stream.recv(1024)
+      while(receive)
+        result += data
+        if(result.include?("\n> "))
+          receive = false
+        else
+          data = stream.recv(1024)
+        end
+      end
+    end
+
+    length = result.length
+
+    if length <= 3
+      result = ""
+    elsif(result[0..2] == "\n> ")
+      result = result[3..length-1]
+    else
+      result = result[0..length-4]
+    end
+    if(result[result.length - 3..result.length - 1] == "\n> ")
+      result = result[0..result.length - 4]
+    end
+    if(result[0..2] == "\n> ")
+      result = result[3..result.length - 1]
+    end
+    result
+  end
+
+
+
+
+  def self.run_block
+
+    prefix = Keys.prefix
+
+    # Get block contents
+    txt, left, right = View.txt_per_prefix prefix
+
+    funcs = %q`
+      function p(s) {
+        if(s == null)
+          s = "[blank]";
+
+        try {prepend_index++;}
+        catch(e) { prepend_index = 0; }
+
+        var d = document.createElement('div');
+        document.body.appendChild(d);
+        d.innerHTML = '<div style="top:'+(prepend_index*13)+'px; margin-left:5px; position:absolute; font-size:10px; z-index:1002; color:#000; filter: alpha(opacity=85); -moz-opacity: .85; opacity: .85; background-color:#999;">'+s+'</div>';
+
+      }
+    `
+
+    # If started with <..., treat it as html
+
+    return Browser.html txt if txt =~ /\A\s*</
+
+    Browser.js txt
+    return
+  end
+
+  def self.run txt, options={}
+
+    result = Firefox.mozrepl_command txt, options
+
+    if result =~ /\$ is not defined/   # If no jquery wrap it and try again
+      txt = Javascript.wrap_jquery_load txt
+      result = Firefox.mozrepl_command txt, options
+    elsif result =~ /\bp is not defined\b/   # If no jquery wrap it and try again
+      txt = Javascript.wrap_jquery_load txt, "http://xiki.org/javascripts/util.js"
+      result = Firefox.mozrepl_command txt, options
+    end
+
+    result.sub! /^"(.+)"$/m, "\\1"   # Remove quotes
+
+    result
+
+  rescue Errno::ECONNREFUSED
+
+    # If brawser wasn't running, ask if they want to open it
+
+    raise "> Looks like the browser isn\'t open.  Open it?\n@app/Firefox/"
+
+  end
+
+  def self.value txt
+    self.run(txt).sub(/\A"/, "").sub(/"\z/, "")
+  end
+
+  def self.url url=nil, options={}
+
+    return ".prompt Type a url here." if url.empty?
+
+    return $el.browse_url(url) if options[:new]
+
+    reload = "gBrowser.reload();";
+    reload = "" if options[:no_reload];
+
+    js = %`
+      var browsers = gBrowser.browsers;
+
+      if((browsers[gBrowser.tabContainer.selectedIndex]).contentDocument.location.href == "#{url}"){
+        #{reload}
+        false;
+      }else{
+        var found = false;
+        for(var i=0; i < browsers.length; i++) {
+          if(browsers[i].contentDocument.location.href != "#{url}") continue;
+          gBrowser.tabContainer.selectedIndex = i;
+          #{options[:reload] ? reload : ''}
+          found = true;
+          break;
+        }
+        if(! found) (browsers[gBrowser.tabContainer.selectedIndex]).contentDocument.location.href = "#{url}";
+      }
+
+      `.unindent
+
+    result = self.run js, :browser=>true
+
+    nil
+  end
+
+
+  def self.do_as_html
+    # Grab block
+    txt, left, right = View.txt_per_prefix #:prefix=>Keys.prefix
+
+    self.html txt   # Write to temp file
+  end
+
+  def self.html txt=nil
+
+    File.open("/tmp/tmp.html", "w") { |f| f << txt }
+
+    Firefox.url "file:///tmp/tmp.html", :reload=>1
+
+    nil
+  end
+
+  def self.append html=nil
+    if html.nil?
+      View.prompt("Add something to append")
+      return "| "
+    end
+
+    html.gsub! '"', '\\"'
+    html.gsub! "\n", ' '
+
+    code = "$('body').append(\"#{html}\")"
+    result = Firefox.run code  #, :jquery=>1
+    nil
+  end
+
+  def self.jso txt=nil
+    return View.prompt("Add some js to output its result") if txt.nil?
+    Firefox.run txt  #, :jquery=>1
+  end
+
+  def self.enter_log_javascript_line
+
+    $el.open_line(1) unless Line.blank?
+
+    prefix = Keys.prefix
+
+    if prefix.nil?
+      View.insert "p('js#{@@log_unique_token}');"
+      @@log_unique_token.next!
+
+    elsif prefix == :u
+      View.insert "pp('js#{@@log_unique_token}');"
+      @@log_unique_token.next!
+
+    elsif prefix == :-
+      View.insert "p_stack();"
+
+    elsif Keys.prefix_uu
+
+      txt = Firefox.value('window.content.tmp_stack')
+      matches = txt.scan(/\$pu.+?:\d+/)
+
+      txts = matches.map{|o| "- #{o.gsub(/.+\//, '')}"}
+      paths = matches.map{|o| Bookmarks[o]}
+
+    end
+
+    Line.to_left
+  end
+
+  def self.include_jquery_and_utils
+
+    Firefox.run "
+      var s=document.createElement('script');
+      s.setAttribute('src', 'http://code.jquery.com/jquery.min.js');
+      document.getElementsByTagName('head')[0].appendChild(s);
+
+      var s=document.createElement('script');
+      s.setAttribute('src', 'http://xiki.org/javascripts/util.js');
+      document.getElementsByTagName('head')[0].appendChild(s);
+      ".unindent
+
+    nil
+  end
+
+  def self.enter_as_url
+    if Keys.prefix_u
+      self.run "gBrowser.tabContainer.selectedIndex += 1", :browser=>true
+    end
+
+    url = Firefox.value('document.location.toString()')
+    View.insert url.gsub '%20', '+'
+    View.insert("\n") if Keys.prefix_u
+  end
+
+  def self.mozrepl_read s
+    begin
+      timeout(6) do
+        r = ''
+        loop do
+          r << s.readchar.chr
+          break if r =~ /^repl\d*> $/
+        end
+        r.sub /^repl\d*> /, ''
+      end
+    rescue Timeout::Error=>e
+      raise "Seems like mozrepl isnt responding.  Is the internet down??"
+    end
+
+  end
+
+  def self.mozrepl_command js, options={}
+    s = TCPSocket::new("localhost", "4242")
+
+    initial_crap = mozrepl_read s
+    repl = initial_crap[/repl\d+/] || 'repl'
+    if options[:tab]   # Run js in page on nth tab
+      s.puts("#{repl}.enter(window.gBrowser.getBrowserAtIndex(#{options[:tab]}).contentDocument)\n;")
+      mozrepl_read s
+    elsif options[:browser]   # Run js at browser outer level
+      # Do nothing to change context
+    else   # Run js in page
+      s.puts("#{repl}.enter(content.wrappedJSObject)\n;")
+      mozrepl_read s
+    end
+
+    s.puts js
+    txt = mozrepl_read s
+    s.close
+    txt.strip
+  end
+
+
+  # TODO Not used any more?
+  def self.log
+    View.open "/Users/craig/.emacs.d/url_log.notes"
+  end
+
+  def self.xul txt
+    Firefox.mozrepl_command txt, :browser=>true
+  end
+
+
+  def self.do_as_xul
+    Block.do_as_something do |txt|
+      Firefox.mozrepl_command txt, :browser=>true
+    end
+  end
+
+  def self.tabs *url
+    if url.any?
+      url = Line.value.sub /^[ |]*/, ''
+      self.url url, :new=>Keys.prefix_u
+      return
+    end
+
+    js = '
+      var browsers = gBrowser.browsers;
+      txt = "";
+      for(var i = 0; i < browsers.length; i++)
+        txt += "| "+browsers[i].contentDocument.location.href+"\n";
+      txt
+      '.unindent
+
+    result = Firefox.mozrepl_command js, :browser=>true
+    result.gsub! /\/$/, ''
+    result.sub(/\A"/, '').sub(/"\z/, '')
+  end
+
+  def self.load_jquery_maybe txt=nil #, options={}
+
+    # If text passed, check it and error if complaining about jquery missing
+
+    if txt && txt !~ /( (\$|p) is not defined|blink is not a function)/
+      return nil   # Text without error, so don't load
+    end
+
+    self.run "
+      if(! document.getElementById('jqid')){
+        var s=document.createElement('script');
+        s.setAttribute('src', 'http://code.jquery.com/jquery.min.js'); s.setAttribute('id', 'jqid');
+        document.getElementsByTagName('head')[0].appendChild(s);
+
+        var s=document.createElement('script');
+        s.setAttribute('src', 'http://xiki.org/javascripts/util.js');
+        document.getElementsByTagName('head')[0].appendChild(s);
+      }
+      ".unindent
+
+    raise ".flash - Added required js libs into page, try again!"
+  end
+
+  def self.object name=nil, key=nil
+
+    if name.nil? || name.empty?
+      return View.prompt "Type the name of an object in firefox"
+    end
+
+    if key.nil?
+
+      result = Firefox.value %`
+        var result = "";
+        for(var key in #{name}) {
+          if(! #{name}.hasOwnProperty(key)) continue;
+          result += key+"\\n";
+        }
+        `.unindent
+      return result.split("\n").sort{|a, b| a.sub(/^_+/, '').downcase <=> b.sub(/^_+/, '').downcase}.join("\n").gsub /.+/, "- \\0/"
+    end
+
+    # Key was passed
+
+    result = Firefox.value "#{name}['#{key}']"
+
+  end
+
+  def self.blink txt
+    return View.prompt("Type a selector to blink in firefox", :times=>5) if txt.nil?
+    selector = Tree.slashless txt
+
+    code = "
+      jQuery.fn.blink = function(times, orig) {
+        for(x=1;x<=2;x++) { jQuery(this).animate({opacity: 0.0}, {easing: 'swing', duration: 200}).animate({opacity: 1.0}, {easing: 'swing', duration: 200}) }
+        return this;
+      }
+      jQuery(\"#{selector}\").blink();
+      "
+
+    txt = Firefox.run code  #, :jquery=>1
+    nil
+  end
+
+end
+
+Menu.ffo :class=>'Firefox.object'
+
+Launcher.add(/^#[\w-]+$/) do |line|
+  Line.delete :br
+  View.insert "dom/#{line}/"
+  Launcher.launch
+end
+
+Launcher.add(/^\.[\w-]+$/) do |line|
+  Line.delete :br
+  View.insert "dom/#{line}/"
+  Launcher.launch
+end
+
+Menu.js do |path|
+  Applescript.run("Firefox", "activate") if Keys.prefix_u
+  Firefox.js Tree.rest(path)
+  nil
+end
+
+Menu.coffee do |path|
+  Firefox.coffee Tree.rest(path)
+  nil
+end
+
+Menu.jsp do |path|
+  txt = Tree.leaf path
+  txt = txt.strip.sub(/;\z/, '')   # Remove any semicolon at end
+  code = "p(#{txt})"
+  result = Firefox.run code  #, :jquery=>1
+  nil
+end
+
+Menu.blink do |path|
+  Firefox.blink Tree.rest(path)
+  nil
+end
+
+Menu.length do |path|
+  txt = Tree.rest(path)
+
+  next View.prompt("Type a jquery selector to show length of result") if txt.nil?
+  txt = "$(\"#{txt}\").length"
+  txt = Firefox.run txt  #, :jquery=>1
+
+  #   txt = Firefox.jso txt
+  Tree.<< txt, :no_slash=>1
+  nil
+end
+
+Menu.jsc do |path|   # - (js): js to run in firefox
+  txt = Tree.rest path
+  return View.prompt("Add some js to run and output to firebug console.") if txt.nil?
+  txt = txt.strip.sub(/;\z/, '')   # Remove any semicolon at end
+  code = "console.log(#{txt})"
+  Firefox.run code  #, :jquery=>1
+  nil
+end
+
+Menu.jso do |path|   # - (js): js to run in firefox
+  txt = Firefox.jso Tree.rest(path)
+  Tree.<< txt, :no_slash=>1
+  nil
+end
+
+Menu.jsi do |path|   # - (js): js to run in firefox
+  txt = Tree.rest(path)
+  txt.sub! /;/, ''
+  txt = "JSON.stringify(#{txt})"
+  txt = Firefox.jso txt
+  Tree.<< txt, :no_slash=>1
+  nil
+end
+
+
+Menu.xul do |path|   # - (js): js to run in firefox
+  Firefox.xul Tree.leaf(path)
+end
+
+Menu.click do |path|
+  nth = 0
+  txt = Tree.leaf path
+  Firefox.run("$('a, *[onclick]').filter(':contains(#{txt}):eq(#{nth})').click()")  #, :jquery=>1)
+  nil
+end
+
+Menu.append do |path|
+  Firefox.append Tree.rest(path)
+end