Merge branch 'runcontrol-file'

features/cli/run_control.feature

@@ -0,0 +1,9 @@
+Feature: run control file path CLI option
+
+  Scenario: changes the path to run control file
+    Given a file named uhwmrc.rb with:
+      """
+      puts 'run control evaluation'
+      """
+    When I run uhwm with option -f uhwmrc.rb
+    Then the output must contain "run control evaluation"

features/run_control/evaluation.feature

@@ -0,0 +1,10 @@
+@mocked_home_directory
+Feature: run control file evaluation
+
+  Scenario: evaluates the default run control file when it exists
+    Given a file named .uhwmrc.rb with:
+      """
+      puts 'run control evaluation'
+      """
+    When I start uhwm
+    Then the output must contain "run control evaluation"

features/steps/output_steps.rb

@@ -6,6 +6,7 @@ options:
     -h, --help                       print this message
     -v, --version                    enable verbose mode
     -d, --debug                      enable debug mode
+    -f, --run-control PATH           specify alternate run control file
     -r, --require PATH               require ruby feature
     -l, --layout LAYOUT              specify layout
   eoh
@@ -19,6 +20,10 @@ Then /^the output must contain:$/ do |content|
   uhwm_wait_output content.to_s
 end
 
+Then /^the output must contain "([^"]+)"$/ do |content|
+  uhwm_wait_output content.to_s
+end
+
 Then /^the output must contain current display$/ do
   uhwm_wait_output ENV['DISPLAY']
 end

features/support/env.rb

@@ -15,6 +15,10 @@ World(Uh::WM::Testing::AcceptanceHelpers)
 
 Headless.new.start
 
+Before do
+  set_env 'HOME', File.expand_path(current_dir)
+end
+
 After do
   uhwm_ensure_stop
 end

lib/uh/wm/cli.rb

@@ -64,6 +64,11 @@ module Uh
             @env.log_logger_level
           end
 
+          opts.on '-f', '--run-control PATH',
+            'specify alternate run control file' do |e|
+            @env.rc_path = e
+          end
+
           opts.on '-r', '--require PATH', 'require ruby feature' do |feature|
             require feature
             @env.log "Loaded `#{feature}' ruby feature"

lib/uh/wm/env.rb

@@ -1,6 +1,8 @@
 module Uh
   module WM
     class Env
+      RC_PATH = '~/.uhwmrc.rb'.freeze
+
       LOGGER_LEVEL          = Logger::WARN
       LOGGER_LEVEL_VERBOSE  = Logger::INFO
       LOGGER_LEVEL_DEBUG    = Logger::DEBUG
@@ -12,10 +14,11 @@ module Uh
       def_delegator :@output, :print
 
       attr_reader   :output
-      attr_accessor :verbose, :debug, :layout_class
+      attr_accessor :verbose, :debug, :rc_path, :layout_class
 
       def initialize output
         @output   = output
+        @rc_path  = RC_PATH
       end
 
       def verbose?

lib/uh/wm/runner.rb

@@ -4,6 +4,7 @@ module Uh
       class << self
         def run env, **options
           runner = new env, **options
+          runner.evaluate_run_control
           runner.register_event_hooks
           runner.connect_manager
           runner.run_until { runner.stopped? }
@@ -30,6 +31,11 @@ module Uh
         @stopped = true
       end
 
+      def evaluate_run_control
+        rc_path = File.expand_path(@env.rc_path)
+        eval File.read(rc_path) if File.exist?(rc_path)
+      end
+
       def register_event_hooks
         register_manager_hooks
         register_layout_event_hooks

spec/support/filesystem_helpers.rb

@@ -0,0 +1,11 @@
+require 'tempfile'
+
+module FileSystemHelpers
+  def with_file content
+    Tempfile.create('uhwm_rspec') do |f|
+      f.write content
+      f.rewind
+      yield f
+    end
+  end
+end

spec/uh/wm/cli_spec.rb

@@ -148,6 +148,15 @@ module Uh
           end
         end
 
+        context 'with run control option' do
+          let(:arguments) { %w[-f uhwmrc.rb] }
+
+          it 'assigns run control file path in the env' do
+            cli.parse_arguments!
+            expect(cli.env.rc_path).to eq 'uhwmrc.rb'
+          end
+        end
+
         context 'with require option' do
           let(:arguments) { %w[-r abbrev] }
 

spec/uh/wm/env_spec.rb

@@ -13,6 +13,10 @@ module Uh
         expect(env).not_to be_debug
       end
 
+      it 'has the default rc path set' do
+        expect(env.rc_path).to eq '~/.uhwmrc.rb'
+      end
+
       it 'has no layout_class set' do
         expect(env.layout_class).not_to be
       end

spec/uh/wm/runner_spec.rb

@@ -1,3 +1,5 @@
+require 'support/filesystem_helpers'
+
 SomeLayout = Class.new do
   define_method(:register) { |*args| }
 end
@@ -5,11 +7,16 @@ end
 module Uh
   module WM
     RSpec.describe Runner do
-      let(:env) do
-        Env.new(StringIO.new).tap { |o| o.layout_class = SomeLayout }
-      end
+      include FileSystemHelpers
+
+      let(:env)         { Env.new(StringIO.new) }
       subject(:runner)  { described_class.new env }
 
+      before do
+        env.layout_class  = SomeLayout
+        env.rc_path       = 'non_existent_run_control.rb'
+      end
+
       describe '#initialize' do
         it 'assigns the env' do
           expect(runner.env).to be env
@@ -52,6 +59,23 @@ module Uh
         end
       end
 
+      describe '#evaluate_run_control' do
+        context 'when run control file exists' do
+          it 'evaluates the run control file' do
+            with_file 'throw :run_control' do |f|
+              env.rc_path = f.path
+              expect { runner.evaluate_run_control }.to throw_symbol :run_control
+            end
+          end
+        end
+
+        context 'when run control file does not exist' do
+          it 'does not raise any error' do
+            expect { runner.evaluate_run_control }.not_to raise_error
+          end
+        end
+      end
+
       describe '#register_event_hooks' do
         it 'registers manager event hooks for logging' do
           runner.register_event_hooks