xiki 0.5.0a

data/menus/css.rb

@@ -0,0 +1,55 @@
+class Css
+  def self.menu_before *args
+    return if args[0] != "list"
+
+    args.shift
+
+    # If just "css/list/", list all
+
+    if args.blank?
+      js = %`
+        var result="";
+        $('*[class]').each(function(i, e){
+          var id = $(e).attr('class');
+          result += "+ "+id+"/\\n";
+        })
+        result;
+        `.unindent
+
+      result = Firefox.run js
+      return "> No class attributes found!" if result == '""'
+      return result
+    end
+
+    # Add "." to beginning of first (it was removed due to it meaning a method call)
+    args.first.sub! /^/, '.'
+
+    Dom.dom args
+  end
+
+  def self.menu *args
+
+    if args.empty?
+      return "
+        + list/
+        | /* Or type some css here (to run in the browser) */
+        | h1 { color: red; }
+        | body {
+        |   font-family: arial;
+        |   font-size: 12px;
+        |   color: #000;
+        |   background-color: #fff;
+        | }
+        "
+    end
+
+    txt = ENV['txt'].dup
+
+    txt.gsub!("\n", '\n')
+    txt.gsub!('"', '\"')
+    code = "$('head').append(\"<style>#{txt}</style>\")"
+    Firefox.run code  #, :jquery=>1
+
+    nil
+  end
+end

data/menus/current.rb

@@ -0,0 +1,5 @@
+class Current
+  def self.menu *name
+    Buffers.current *name
+  end
+end

data/menus/db.rb

@@ -0,0 +1,12 @@
+class Db
+  def self.create db
+    Couch.create db
+  end
+
+  def self.menu db=nil, *args
+    # If no args, output list
+    return Couch.databases if db.nil?
+
+    return Couch.docs db, *args
+  end
+end

data/menus/deck.rb

@@ -0,0 +1,219 @@
+require "mode"
+
+# Makes text in .deck files huge, and makes left and right arrow keys treat
+# headings as slides.
+class Deck
+
+  def self.menu
+    %`
+    - .enable arrow keys/
+    - docs/
+      > Summary
+      | Create a file with a ".deck" extension to create a lightweight
+      | presentation.  The left and right arrow keys will go back and forth
+      | between the "slides".
+      |
+      | Make .deck files just like you make .notes files, with sections divided
+      | by headings ("> foo" lines).  The sections behave like slides.  Only one
+      | section is shown at a time.
+      |
+      > Keys
+      | Use these keys to go back and forth between slides:
+      | - right+arrow+key: show next slide (hiding everything else)
+      | - left+arrow+key: show next slide
+      | - custom+reminder: jump to corresponding heading at end
+      |
+      > Hints
+      | To create and show hints that correspond to a section, create a section
+      | near the bottom of the file with the same heading but starting with
+      | ">>" instead of ">"
+      |
+      | Then, type open+related+heading to jump back and forth.
+      |
+      > To enable the deck keys in a .notes file
+      - type: do+keys+deck
+      - or use) @deck/enable arrow keys/
+      |
+    `
+  end
+
+  @@size = 10
+
+  def self.enable_arrow_keys options={}
+
+    # If in an actual file, just enable for it
+    if View.file
+      $el.use_local_map $el.elvar.deck_mode_map
+      return View.flash "- Enabling arrow keys"
+    end
+
+    last = View.files.find{|o| o =~ /\.notes$/}
+    basename = File.basename(last)
+    View.open last
+
+    View.flash "- Enabling arrow keys!", :times=>4 unless options[:silent]
+    $el.use_local_map $el.elvar.deck_mode_map
+  end
+
+  def self.keys # mode=:deck_mode_map
+    return if ! $el
+
+    $el.elvar.deck_mode_map = $el.make_sparse_keymap unless $el.boundp :deck_mode_map
+    $el.set_keymap_parent $el.elvar.deck_mode_map, $el.elvar.notes_mode_map
+
+    Keys.custom_reminder(:deck_mode_map) { Deck.open_related_heading }
+    Keys.layout_uncover(:deck_mode_map) {
+      View.status nil, :nth=>3
+      Hide.reveal
+    }
+
+    $el.define_key(:deck_mode_map, $el.kbd("<right>")) { Deck.right_arrow }
+    $el.define_key(:deck_mode_map, $el.kbd("<left>")) { Deck.left_arrow }
+
+    # TODO Get this to not add item at top of "Keys > Do" menu bar menu - how?!
+    Keys.do_keys_deck { Deck.enable_arrow_keys }
+  end
+
+  def self.open_related_heading
+
+    orig = Location.new
+
+    was_hidden = View.hidden?
+
+    Hide.reveal if was_hidden
+
+    left, after_header, right = View.block_positions "^>"
+    heading = View.txt left, after_header-1
+
+    delimeter = heading[/^>+/]
+
+    delimeter.size > 1 ?
+      heading.sub!(/./, '') :
+      heading.sub!(/^/, '>')
+
+    View.to_highest
+    found = Search.forward "^#{$el.regexp_quote heading}$"
+
+    if ! found
+      orig.go
+      return View.flash "- No related heading found"
+    end
+
+    Move.to_axis
+    View.recenter_top
+    Notes.narrow_block(:delimiter=>delimeter == ">" ? ">>" : ">") if was_hidden
+
+  end
+
+  def self.left_arrow
+
+    Notes.narrow_block if ! View.hidden?   # If not hidden, hide first, for simplicity
+
+    column = View.column
+    number = View.visible_line_number
+
+    View.visible_line_number = 1
+
+    self.show_all
+
+    Notes.to_block(:up)
+
+    result = self.set_bars
+
+    left, ignore, right = View.block_positions
+    lines_in_block = Line.number(right) - Line.number(left)
+    line = Line.number
+
+    number = lines_in_block if number > lines_in_block
+
+    View.line = line + number - 1
+    View.column = column
+
+    Notes.narrow_block
+
+    Effects.glow :fade_in=>1, :what=>:block if result[0] == 0
+  end
+
+  def self.right_arrow
+
+    Notes.narrow_block if ! View.hidden?   # If not hidden, hide first, for simplicity
+
+    column = View.column
+
+    number = View.visible_line_number
+    Move.backward if View.bottom == View.cursor   # If at bottom of visible, back up one
+
+    self.show_all
+
+    Notes.to_block
+
+    result = self.set_bars
+
+    Notes.narrow_block
+
+    View.visible_line_number = number
+
+    View.column = column
+
+    Effects.glow :fade_in=>1, :what=>:block if result[2]
+  end
+
+  # Sets little bars at bottom of window (mode line)
+  def self.set_bars
+
+    first_in_block = false
+
+    my_line_number = View.line
+
+    top_bar, bottom_bar = 0, 0   # remaining in group, remaining total
+
+    header, header_match_count, my_header = nil, 0, nil
+    View.txt.split("\n").each_with_index do |line, i|
+      i = i + 1
+      is_header = line =~ /^> /
+      if is_header
+
+        if header == line   # If same header as last
+          header_match_count += 1
+        else
+          header_match_count = 1
+          header = line
+        end
+
+        if my_header   # If we found it, start accumulating
+          top_bar += 1 if header == my_header
+          bottom_bar += 1
+        end
+      end
+
+      # If line matched, remember it's this header
+      if i == my_line_number # && ! my_line_number
+        my_header = header
+        first_in_block = true if header_match_count == 1
+        top_bar, bottom_bar = 0, 0   # remaining in group, remaining total
+      end
+
+    end
+
+    View.status :bars=>[top_bar, bottom_bar]
+
+    [top_bar, bottom_bar, first_in_block]
+  end
+
+
+  def self.init
+    self.keys
+    # Make deck mode happen for .deck files
+    Mode.define(:deck, ".deck") do
+      Notes.mode
+      $el.use_local_map $el.elvar.deck_mode_map   # Adds arrow keys onto notes map
+    end
+  end
+
+  def self.show_all
+    $el.widen
+    Hide.show
+  end
+
+end
+Deck.init   # Define mode

data/menus/dictionary.rb

@@ -0,0 +1,9 @@
+class Dictionary
+  def self.menu word=nil
+    return View.prompt('Type a word to look up') if word.nil?
+
+    word = word.sub(/^\s+/, '').gsub('"', '%22').gsub(':', '%3A').gsub(' ', '%20')
+    $el.browse_url "http://dictionary.reference.com/browse/#{word}"
+    nil
+  end
+end

data/menus/dir.rb

@@ -0,0 +1,8 @@
+class Dir
+  def self.menu
+    "
+    > See
+    - @mkdir/
+    "
+  end
+end

data/menus/disk.rb

@@ -0,0 +1,5 @@
+class Disk
+  def self.menu
+    Tree.quote `df -h`
+  end
+end

data/menus/do.rb

@@ -0,0 +1,13 @@
+class Do
+  def self.menu
+    %`
+    > Summary
+    | Keys shortcuts that start with "to+" (ctrl-t) such as to+end.
+    |
+    - frequent/
+      | do+tree: view an expanded tree of a directory
+    - others/
+      | TODO
+    `
+  end
+end

data/menus/docs.rb

@@ -0,0 +1,58 @@
+class Docs
+  def self.menu
+    %`
+    - Introduction/
+      | Most of the Xiki documentation is spread out among other menus, under
+      | their respective 'docs' menus.
+      |
+      > Here are some to check out first
+      @keys/docs/
+      @menu/docs/
+      @files/docs/
+      @view/docs/
+      |
+    - Try typing stuff/
+      > Try just typing a menu
+      | Think of a menu name that might exist and sounds likely to solve your
+      | problem.  For example, if you want to do something with images, try the
+      | 'images' menu.  Type it on a blank line and double-click, or use
+      | open+menu (type Ctrl-O, Ctrl-M).
+      |
+      | Help us improve the docs, and contribute back to the Xiki project.  If
+      | the menu doesn't exist, create it!  If it exists, but could be improved,
+      | edit it!  Many menus exist just to direct you to other menus.  It takes
+      | only seconds to create them.
+      |
+      @menu/docs/how_to_create/
+      |
+    - Other places to look/
+      - You may want to check out__
+        __
+        - for developers
+          - code dirs/__
+        > All Commands
+        @all/
+      |
+    - FAQ/
+      > What is Xiki?
+      | Xiki is an environment that can be used in several ways:
+      | - Shell terminal on steroids
+      | - Development environment for coding rails or node.js apps, etc.
+      | - Framework for making lightweight user interfaces
+      |
+      > What does Xiki stand for?
+      | XIKI is short for eXecutable wIKI
+      |
+      > What are Xiki's main dependencies?
+      | - Xiki runs inside of Emacs
+      |   - and takes advantage of many powerful Emacs features
+      |   - but you don't need to know Emacs to use Xiki
+      | - Xiki is implemented mostly in ruby
+      |   - but can use other languages like python, javascript, and coffeescript
+      |
+      > What's the best way to figure out how to do something?
+      - @docs/Try typing stuff/
+      |
+    `
+  end
+end

data/menus/dotsies.rb

@@ -0,0 +1,107 @@
+class Dotsies
+  def self.menu
+    %`
+    |~this is an example
+    - .apply/
+      - .one view/
+      - .all views/
+      - .web browser/
+    - .browse/
+    - api/
+      > HTML to include in web page
+      | <link href='http://xiki.org/dotsies.css' rel='stylesheet' type='text/css'>
+      | <style> .dotsies {font-family:Dotsies} </style>
+    - docs/
+      > Summary
+      | Has to do with the "dotsies" font.
+      |
+      > Show dotsies text inline
+      |~Show dotsies text inline
+      |
+      > To show something in the browser
+      | Use the "browse" menu.
+
+    > See
+    << dotsies tweets/
+    `
+  end
+
+  def self.all_views
+
+    View.kill if View.name == "menu" || View.name =~ /^@/
+
+    faces = {
+      :default=>"monaco",
+      :ls_dir=>"verdana",
+      :notes_exclamation=>"arial black",
+      :notes_h1=>"arial",
+    }
+
+    if Styles.attribute(:default, :family) =~ /dotsies/
+      faces.each{|k,v| Styles.define k, :face=>v}
+    else
+      faces.each{|k,v| Styles.define k, :face=>"dotsies"}
+    end
+
+    nil
+  end
+
+  def self.one_view
+    View.kill if View.name == "menu" || View.name =~ /^@/
+
+    $el.make_local_variable :dotsies_enabled
+    dotsies_enabled = $el.boundp(:dotsies_enabled) && $el.elvar.dotsies_enabled
+
+    font =
+      if dotsies_enabled
+        :default
+      elsif Keys.prefix_u
+        :dotsies_experimental
+      else
+        :dotsies
+      end
+
+    Styles.apply(".+", font)
+
+    $el.elvar.dotsies_enabled = ! dotsies_enabled
+    nil
+  end
+
+  def self.web_browser
+    Firefox.js "$('head').append('<style>body{font-family: dotsies}</style>')"
+  end
+
+  def self.browse txt=nil
+    return ".flash - Type some text" if txt.nil?
+    "do"
+  end
+
+  def self.define_styles
+    Styles.define :dotsies, :size => '+2', :face => "Dotsies"
+    Styles.define :dotsies_white, :size => '+2', :face => "Dotsies", :fg=>"fff"
+    Styles.define :dotsies_experimental, :size => '+2', :face => "Dotsies Experimental"
+    Styles.define :dotsies_roman, :size => '+2', :face => "Dotsies Roman"
+    Styles.define :dotsies_mono, :size => '+2', :face => "Dotsies Mono"
+  end
+
+  def self.apply_styles
+    Styles.apply ".+", :dotsies
+  end
+
+  def self.init
+
+    return if ! $el
+
+    $el.defun(:dotsies_mode, :interactive => "", :docstring => "Apply dotsies styles, etc") {
+      $el.el4r_lisp_eval "(setq font-lock-defaults '(nil t))"
+      Dotsies.apply_styles
+    }
+
+    self.define_styles
+
+    $el.el4r_lisp_eval %q<
+      (add-to-list 'auto-mode-alist '("\\\\.dotsies\\\\'" . dotsies-mode))
+      >
+  end
+end
+Dotsies.init