dynmenu 0.1

data/bin/dynmenu

@@ -0,0 +1,68 @@
+#!/usr/bin/env ruby
+require 'yaml'
+$subtle = true
+$lines = 20
+begin
+    require 'subtle/subtlext'
+rescue LoadError
+    $subtle = false
+end
+require 'root_menu'
+require 'command'
+require 'style'
+require 'editor'
+require 'history'
+require 'run_menu'
+
+license = <<END_LICENSE
+dynmenu - A dmenu wrapper written in Ruby
+---
+Copyright (C) 2013 Joakim Reinert
+
+This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
+
+This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License along with this program. If not, see http://www.gnu.org/licenses/
+
+END_LICENSE
+
+usage = <<END_USAGE 
+Usage:  dynmenu [options] file
+    Options:        -h --help   : Show this help
+                    -r          : Open the menu as read only and static
+                    -l <number> : Show max <number> lines in the menu (default=20)
+    File:                       : The menu file to be loaded and saved to.
+                                  It will be created if not existing.
+END_USAGE
+
+puts license
+
+if ARGV.length > 4 || ARGV.length < 1 || ARGV.include?("-h") || ARGV.include?("--help")
+    puts usage
+    exit
+elsif ARGV.include? "-l"
+    lines = ARGV[ARGV.index("-l") + 1]
+    if lines.to_i.to_s != lines || lines.to_i < 1
+        puts usage
+        exit
+    end
+    $lines = lines
+else
+    lines_matcher = Regexp.new(/^-l(\d+)$/)
+    ARGV.each do |arg|
+        if arg.match lines_matcher 
+            $lines = Regexp.last_match(1)
+        end
+    end
+end
+
+file = ARGV[ARGV.length - 1]
+if File.exist? file
+    menu = YAML::load File.read(file)
+else
+    menu = Root_Menu.new
+end
+$read_only = ARGV.include? "-r"
+menu.execute
+File.open(file, "w+") { |f| YAML::dump menu, f }

data/lib/command.rb

@@ -0,0 +1,174 @@
+require 'item'
+
+class Command
+    if $subtle
+        @@RE_COMMAND = Regexp.new(/^[+\^\*]*.+(\s[+\^\*])*(\s[@#][A-Za-z0-9_-]+)*$/)
+        @@RE_MODES   = Regexp.new(/^[+\^\*]+$/)
+        @@RE_SEARCH  = Regexp.new(/^[gs]\s+(.*)/)
+        @@RE_METHOD  = Regexp.new(/^:\s*(.*)/)
+        @@RE_BROWSER = Regexp.new(/(chrom[e|ium]|iron|navigator|firefox|opera)/i) 
+    end
+    @@RE_URI = Regexp.new(/^((w\s+((https?|ftp):\/\/)?)|(https?|ftp):\/\/)(?:[A-Z0-9-]+.)+[A-Z]{2,6}([\/?].+)?$/i)
+    @@RE_PROTO = Regexp.new(/^(http|https):\/\/.*/)
+
+    include Item
+
+    def initialize name, command = nil
+        @name = name
+        if $subtle
+            @tags = []
+            @views = []
+            @app = ""
+            @modes = ""
+        end
+
+        set_command command
+    end
+
+    def encode_with coder
+        coder['name'] = @name
+        coder['command'] = @command
+        if $subtle
+            coder['tags'] = @tags
+            coder['views'] = @views
+            coder['app'] = @app
+            coder['modes'] = @modes
+        end
+    end
+
+    def init_with coder
+        @name = coder['name']
+        @command = coder['command']
+        if $subtle
+            @tags = coder['tags'] || []
+            @views = coder['views'] || []
+            @app = coder['app'] || ""
+            @modes = coder['modes'] || ""
+        end
+    end
+
+    def command
+        @command
+    end
+
+    def set_command command
+        unless command.nil? || command.empty?
+            if @@RE_URI.match command
+                split = Regexp.last_match(0).split(/\s+/)
+                command = split[split.length - 1]
+                command.prepend("http://") unless @@RE_PROTO.match command
+                command = URI.parse command
+            elsif @@RE_SEARCH.match command
+                command = web_search Regexp.last_match(1) 
+            elsif $subtle
+                if @@RE_METHOD.match(command)
+                    command = Regexp.last_match(0).to_sym      
+                elsif @@RE_COMMAND.match command
+                    @tags = []
+                    @views = []
+                    @app = ""
+                    @modes = ""
+
+                    command.split.each do |arg|
+                        case arg[0]
+                        when '#' then @tags << arg[1..-1]
+                        when '@' then @views << arg[1..-1]
+                        when '+', '^', '*'
+                            @modes += @@RE_MODES.match(arg).to_s
+                        else
+                            if @app.nil? || @app.empty?
+                                @app = arg
+                            else
+                                @app += ' ' + arg
+                            end
+                        end
+                    end
+                    if @views.any? and not @app.empty? and @tags.empty?
+                        @tags << "tag_#{rand(1337)}"
+                    end
+                else
+                    @app = command
+                end
+            end
+        end
+        @command = command
+    end
+
+    def web_search search_string, engine = :google
+        escaped_string = URI.escape search_string
+        case engine
+        when :duckduckgo then escaped_string.prepend "https://duckduckgo.com/?q="
+        else escaped_string.prepend "https://www.google.com/#q="
+        end
+        URI.parse escaped_string
+    end
+
+    def find_browser
+        begin
+            if @browser.nil?
+                Subtlext::Client.all.each do |c|
+                    if c.klass.match(@@RE_BROWSER)
+                        @browser = c
+                        @view = c.views.first
+                        return
+                    end
+                end
+            end
+        rescue
+            @browser = nil
+            @view = nil
+        end
+    end
+
+    def execute
+        case @command
+        when String
+            if $subtle
+                subtle_execute
+            else
+                system "#{@command} &>/dev/null"
+            end
+        when URI
+            puts @command.to_s
+            system "xdg-open '%s' &>/dev/null &" % [ @command.to_s ]
+            if $subtle
+                find_browser
+                @browser.focus unless @browser.nil?
+            end 
+        end
+        true
+    end
+
+    def subtle_execute
+        tags = @tags.map do |t|
+            tag = Subtlext::Tag.first(t) || Subtlext::Tag.new(t)
+            tag.save
+            tag
+        end
+        @views.each do |v|
+            view = Subtlext::View.first(v) || Subtlext::View.new(v)
+            view.save
+            view.tag(tags) unless view.nil? or tags.empty?
+        end
+        unless (client = Subtlext::Client.spawn(@app)).nil?
+            client.tags = tags unless tags.empty?
+            unless @modes.empty?
+                flags = []
+
+                @modes.each_char do |c|
+                    case c
+                    when '+' then flags << :full
+                    when '^' then flags << :float
+                    when '*' then flags << :stick
+                    when '=' then flags << :zaphod
+                    end
+                end
+                client.flags = flags
+            end
+        end
+    end
+
+    def to_s
+        "#{@name} => #{command}"
+    end
+end

data/lib/dynamic.rb

@@ -0,0 +1,3 @@
+module Dynamic
+
+end

data/lib/editor.rb

@@ -0,0 +1,251 @@
+require 'menu'
+require 'dynamic'
+
+class Editor < Menu
+    
+    include Dynamic
+
+    @@name = "Edit menu"
+
+    def self.name
+        @@name
+    end
+
+    def name
+        "> #{@@name}"
+    end
+
+    def initialize parent
+        @parent = parent
+        set_style parent.style
+    end
+
+    def to_s
+        "Edit menu"
+    end
+
+    def execute
+        entries = []
+        selection = nil
+        while selection != "" && (entries.index selection) != entries.length - 1
+            entries = ["Name (#{@parent.name})"]
+            entries << "Style"
+            entries << "Entries"
+            entries << "Run menu"
+            entries << "Done"
+            selection = show_menu entries, @@name
+            case entries.index selection
+            when 0 then @parent.set_name show_menu([@parent.name], "Edit Name")
+            when 1 then @parent.set_style show_style_menu
+            when 2 then show_entries_menu
+            when 3 then show_run_menu_menu
+            end
+        end
+        @parent.execute
+    end
+
+    def show_run_menu_menu
+        entries = []
+        selection = nil
+        while selection != "" && (entries.index selection) != entries.length - 1
+            if @parent.run_menu?
+                entries = ["Disable run menu"]
+            else
+                entries = ["Enable run menu"]
+            end
+            entries << "History"
+            entries << "Done"
+            selection = show_menu entries, "Run menu"
+            case entries.index selection
+            when 0 then @parent.set_run_menu !@parent.run_menu?
+            when 1 then show_history_menu
+            end
+        end
+    end
+
+    def show_history_menu
+        entries = []
+        selection = nil
+        clear = false
+        while selection != "" && (entries.index selection) != entries.length - 1
+            entries = ["History length (#{@parent.history.length})"]
+            entries << "Items shown in run menu (#{@parent.history.show_num_items})"
+            if clear
+                entries << "Undo"
+            else
+                entries << "Clear history"
+            end
+            entries << "Done"
+
+            selection = show_menu entries, "History"
+            case entries.index.selection
+            when 0
+                selection = (show_menu [], "Enter a number")
+                number = selection.to_i
+                @parent.history.set_length number unless number < 1 || number.to_s != selection
+            when 1
+                selection = (show_menu [], "Enter a number")
+                number = (show_menu [], "Enter a number").to_i
+                @parent.history.set_show_num_items number unless number.to_s != selection
+            when 2 then clear = !clear
+            when (entries.length - 1) then @parent.history.clear if clear
+            end
+        end
+    end
+
+    def show_style_menu
+        style = @parent.style
+        entries = []
+        selection = nil
+        while selection != "" && (entries.index selection) != entries.length - 1
+            entries = ["Background:          (#{style.color :bg})"]
+            entries << "Foreground:          (#{style.color :fg})"
+            entries << "Selected Background: (#{style.color :bg_hi})"
+            entries << "Selected Foreground: (#{style.color :fg_hi})"
+            if style.font.nil?
+                entries << "Font:                (default)"
+            else
+                entries << "Font:                (#{style.font})"
+            end
+            entries << "Done"
+            selection = show_menu entries, "Edit style"
+            colors = [:bg, :fg, :bg_hi, :fg_hi]
+            unless (entries.index selection).nil?
+                if (entries.index selection) < 4
+                    style.set_color colors[entries.index selection], show_menu([style.color(colors[entries.index selection])], "Enter a color")
+                elsif (entries.index selection) < 5
+                    if style.font.nil?
+                        selection = show_menu(["default"], "Set font")
+                    else
+                        selection = show_menu([style.font], "Set font")
+                    end
+                    unless selection.nil? || selection == "default"
+                        style.set_font selection
+                    end
+                end
+            end
+        end
+        style
+    end
+
+    def show_menu entries, name, show_edit_menue = false
+        super
+    end
+
+    def show_entries_menu
+        entries = ["Edit/Remove entries"]
+        entries << "Add entries"
+        entries << "Done"
+        selection = nil
+        while selection != "" && (entries.index selection) != 2
+            selection = show_menu entries, "Edit entries"
+            case entries.index selection
+            when 0 then show_edit_menu
+            when 1 then show_add_menu
+            end
+        end
+    end
+
+    def show_edit_menu
+        selection = nil
+        while selection != "" && @parent.items[selection].nil?
+            selection = show_menu @parent.items.keys.sort, "Select item to edit"
+            item = @parent.items[selection]
+            unless item.nil?
+                if item.is_a? Command
+                    show_edit_cmd_menu item
+                else
+                    show_edit_menu_menu item
+                end
+            end
+        end
+    end
+
+    def show_add_menu
+        entries = []
+        entries = ["Command"]
+        entries << "Menu"
+        entries << "Done"
+        selection = nil
+        while selection != "" && (entries.index selection) != entries.length - 1
+            selection = show_menu entries, "Add items"
+            case entries.index selection
+            when 0 then show_edit_cmd_menu
+            when 1 then show_edit_menu_menu 
+            end
+        end
+    end
+
+    def show_edit_cmd_menu command = Command.new("New command", "")
+        new = false
+        if (@parent.remove_item command).nil?
+            new = true
+        end
+        entries = []
+        selection = nil
+        delete = false
+        while selection != "" && (entries.index selection) != entries.length - 1
+            entries = ["Name (#{command.name})"]
+            entries << "Command (#{command.command})"
+            if new
+                string = "Add command"
+            else
+                string = "Edit command"
+                if delete
+                    entries << "Undo"
+                else
+                    entries << "Delete"
+                end
+            end
+            entries << "Done"
+            selection = show_menu entries, "Add Command"
+            case entries.index selection
+            when 0 
+                new_name = show_menu([command.name], "Enter a name")
+                command.set_name new_name unless new_name.empty?
+            when 1 
+                history = History.new 1, 1
+                history.update command.command unless command.command.nil? or command.command.empty?
+                new_command = Run_Menu.new(self, history, "Enter a command").show_menu
+                command.set_command new_command unless new_command.empty?
+            when 2 then delete = !delete unless new
+            end
+        end
+        delete = true if selection == "" && new
+        @parent.set_item command unless delete
+    end
+
+    def show_edit_menu_menu menu = nil
+        new = menu.nil?
+        if new
+            menu = Menu.new "New menu"
+            menu.set_style @parent.style
+        end
+        @parent.remove_item menu
+        entries = []
+        selection = nil
+        delete = false
+        while selection != "" && (entries.index selection) != entries.length - 1
+            entries = ["Name (#{menu.name})"]
+            if new
+                string = "Add menu"
+            else
+                string = "Edit menu"
+                if delete
+                    entries << "Undo"
+                else
+                    entries << "Remove"
+                end
+            end
+            entries << "Done"
+            selection = show_menu entries, string
+            if (entries.index selection) == 0
+                new_name = show_menu [], "Enter a name"
+                menu.set_name new_name unless new_name.empty?
+            end
+            delete = !delete if (entries.index selection) == 1 && !new
+        end
+        delete = true if selection == "" && new
+        @parent.set_item menu unless delete
+    end
+end

data/lib/history.rb

@@ -0,0 +1,43 @@
+class History
+    def initialize length, show_num_items = 5
+        @items = {}
+        set_length length
+        set_show_num_items show_num_items
+    end
+    
+    def length
+        @length
+    end
+
+    def show_num_items
+        @show_num_items
+    end
+
+    def set_length length
+        @length = length
+    end
+
+    def set_show_num_items num
+        @show_num_items = num
+    end
+
+    def update item
+        @items.each {|itm,age| @items[itm] += 1}
+        @items[item] = 0
+        if @items.length > @length
+            @items.delete((@items.max_by {|itm, age| age}).first)
+        end
+    end
+
+    def items 
+        ret = {
+            :first => ((@items.sort_by {|item,age| age}).map {|pair| pair.first}).first(@show_num_items)
+        }
+        ret.store :rest, (@items.reject {|item, age| ret[:first].include? item}).keys
+        ret
+    end
+
+    def clear
+        @items = {}
+    end
+end

data/lib/item.rb

@@ -0,0 +1,9 @@
+module Item
+    def name
+        @name
+    end
+
+    def set_name name
+        @name = name
+    end
+end

data/lib/menu.rb

@@ -0,0 +1,93 @@
+require 'item'
+
+class Menu
+
+    include Item
+
+    def initialize name
+        @name = name
+        @items = Hash.new
+        @style = Style.new
+        set_item Editor.new self
+    end
+
+    def encode_with coder
+        coder['name'] = @name
+        coder['items'] = items
+        coder['style'] = @style
+    end
+
+    def init_with coder
+        @name = coder['name']
+        @items = coder['items']
+        @style = coder['style']
+        set_item Editor.new self
+    end
+
+    def set_item item
+        @items[item.name] = item unless @items[item.name].is_a? Dynamic
+    end
+
+    def items
+        @items.reject { |name,item| item.is_a?(Dynamic) }
+    end
+
+    def remove_item item
+        @items.delete item.name unless item.is_a? Dynamic
+    end
+
+    def name
+        "> #{super}"
+    end
+
+    def style
+        @style
+    end
+
+    def set_style style
+        @style = style
+    end
+
+    def to_s
+        string = "#{name}\n"
+        string += (@items.keys.sort.map {|name| name.prepend("  ")}).join("\n")
+    end
+
+    def execute
+        show = true
+        while show
+            selection = show_menu @items.keys.sort, @name
+            item = @items[selection]
+            if item.nil?
+                show = false
+            else
+                show = !item.execute unless item.nil?
+            end
+        end
+        !item.nil?
+    end
+    def filter_entries entries
+        if @items.nil?
+            entries
+        else
+            entries.reject {|entry| @items[entry].is_a?(Editor)}
+        end
+    end
+    def show_menu entries, name, show_edit_menu = true
+        entries = filter_entries entries
+        unless $read_only || self.is_a?(Dynamic)
+            entries << "> #{Editor.name}"
+        end
+        command = "echo \"#{entries.join "\n"}\" | dmenu -i -b -l #{$lines} #{get_font_string} -nf \"#{@style.color :fg}\" -nb \"#{@style.color :bg}\" -sf \"#{@style.color :fg_hi}\" -sb \"#{@style.color :bg_hi}\" -p \"#{name}\""
+        (`#{command}`).strip
+    end
+
+    def get_font_string
+        font = ""
+        unless @style.font.nil?
+            font = "-fn \"#{@style.font}\""
+        end
+        font
+    end
+
+end

data/lib/root_menu.rb

@@ -0,0 +1,40 @@
+require 'menu'
+class Root_Menu < Menu
+
+    def initialize history_length = 1000, history_items = 5
+        super "Dynmenu"
+        @run_menu = true
+        @history = History.new history_length, history_items
+        set_item Run_Menu.new self, @history
+    end
+
+    def run_menu?
+        @run_menu
+    end
+    
+    def filter_entries entries
+        partitions = super.partition {|entry| @items[entry].is_a?(Run_Menu)}
+        if run_menu?
+            partitions[0] + partitions[1]
+        else
+            partitions[1]
+        end
+    end
+
+    def set_run_menu value
+        @run_menu = value
+    end
+
+    def encode_with coder
+        super
+        coder['run_menu'] = @run_menu
+        coder['history'] = @history
+    end
+
+    def init_with coder
+        super
+        @run_menu = coder['run_menu']
+        @history = coder['history']
+        set_item Run_Menu.new self, @history if @run_menu
+    end
+end

data/lib/run_menu.rb

@@ -0,0 +1,50 @@
+require 'menu'
+require 'dynamic'
+class Run_Menu < Menu
+
+    include Dynamic
+
+    @@RE_HIDDEN = Regexp.new /\/{,1}\.[^\/]*$/ 
+        def initialize parent, history = History.new(1, 5), name = "Run"
+            @name = name 
+            @parent = parent
+            @history = history
+            set_style parent.style
+        end
+
+    def name
+        ">#{super}"
+    end
+
+    def execute
+        command = show_menu
+        Command.new("", command).execute
+        @history.update command unless command.empty?
+        !command.empty?        
+    end
+
+    def show_menu
+        get_files
+        history_items = @history.items
+        items = history_items[:first] + @files + history_items[:rest] 
+        super items, @name
+    end
+
+    def get_files dirs = (`echo $PATH`).split(':')
+        @files = []
+        dirs.each do |dir|
+            get_files_rec dir
+        end
+    end
+    def get_files_rec file
+        return if file.match @@RE_HIDDEN
+        if File.directory? file
+            Dir.foreach file do |cur_file|
+                get_files_rec cur_file
+            end
+        else
+            @files << file
+        end
+    end
+
+end

data/lib/style.rb

@@ -0,0 +1,41 @@
+class Style
+    @@re_color = Regexp.new(/^#[0-9a-fA-F]{6}$/)
+    def initialize
+        @colors = {
+            :bg     => "#202020",
+            :fg     => "#757575",
+            :bg_hi  => "#303030",
+            :fg_hi  => "#FECF35"
+        }
+    end
+
+    def set_color color, value
+        unless @colors.keys.include? color
+            raise ArgumentError, "Invalid key!"
+        end
+        unless @@re_color.match value
+            raise ArgumentError, "Invalid color string!"
+        end
+        @colors[color] = value
+    end
+
+    def color color
+        unless @colors.keys.include? color
+            raise ArgumentError, "Invalid key!"
+        end
+        @colors[color]
+    end
+
+    def set_font font
+        @font = font
+    end
+    def to_s
+        string = ""
+        string = @font unless @font.nil?
+        string += " #{@colors}"
+    end
+
+    def font
+        @font
+    end
+end

metadata

@@ -0,0 +1,55 @@
+--- !ruby/object:Gem::Specification
+name: dynmenu
+version: !ruby/object:Gem::Version
+  version: '0.1'
+  prerelease: 
+platform: ruby
+authors:
+- Joakim Reinert
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-02-03 00:00:00.000000000 Z
+dependencies: []
+description: A dmenu wrapper for subtle wm
+email: mail@jreinert.com
+executables:
+- dynmenu
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/item.rb
+- lib/editor.rb
+- lib/style.rb
+- lib/menu.rb
+- lib/root_menu.rb
+- lib/run_menu.rb
+- lib/history.rb
+- lib/dynamic.rb
+- lib/command.rb
+- bin/dynmenu
+homepage: https://github.com/supasnashbuhl/dynmenu
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.23
+signing_key: 
+specification_version: 3
+summary: Dynmenu
+test_files: []