state_mate 0.0.1

data/lib/state_mate/adapters/nvram.rb

@@ -0,0 +1,44 @@
+require 'nrser'
+require 'nrser/exec'
+
+using NRSER
+
+module StateMate; end
+module StateMate::Adapters; end
+
+module StateMate::Adapters::NVRAM
+  def self.read key, options = {}
+    cmd = NRSER::Exec.sub "nvram %{key}", key: key
+
+    begin
+      output = NRSER::Exec.run cmd
+    rescue SystemCallError => e
+      if e.message.include? "nvram: Error getting variable"
+        return nil
+      else
+        raise e
+      end
+    end
+
+    if m = /^#{ key }\t(.*)\n$/.match(output)
+      m[1]
+    else
+      raise tpl binding, <<-BLOCK
+        can't parse output for key <%= key.inspect %>:
+
+          cmd: <%= cmd.inspect %>
+
+          output: <%= output.inspect %>
+      BLOCK
+    end
+  end
+
+  def self.write key, value, options = {}
+    unless value.is_a? String 
+      raise "value must be a String, not #{ value.inspect }"
+    end
+
+    cmd = "nvram #{ key }='#{ value }'"
+    NRSER::Exec.run cmd
+  end
+end # NVRAM

data/lib/state_mate/adapters/time_machine.rb

@@ -0,0 +1,60 @@
+require 'pp'
+
+require 'CFPropertyList'
+
+require 'nrser'
+require 'nrser/exec'
+
+using NRSER
+
+module StateMate; end;
+module StateMate::Adapters; end
+
+module StateMate::Adapters::TimeMachine
+  EXE = '/usr/bin/tmutil'
+  PLIST_PATH = '/Library/Preferences/com.apple.TimeMachine.plist'
+
+  def self.local_enabled?
+    # seems to change the key
+    #
+    #     /Library/Preferences/com.apple.TimeMachine.plist:MobileBackups
+    # 
+    plist = CFPropertyList::List.new file: PLIST_PATH
+    data = CFPropertyList.native_types plist.value
+    data['MobileBackups']
+  end
+
+  def self.enable_local
+    NRSER::Exec.run "%{exe} enablelocal", exe: EXE
+  end
+
+  def self.disable_local
+    NRSER::Exec.run "%{exe} disablelocal", exe: EXE
+  end
+
+  def self.read key, options = {}
+    case key
+    when 'local_backups'
+      local_enabled?
+    else
+     raise "bad key: #{ key.inspect }"
+    end
+  end
+
+  def self.write key, value, options = {}
+    case key
+    when 'local_backups'
+      case value
+      when true
+        enable_local
+      when false
+        disable_local
+      else
+        raise "bad value: #{ value.inspect }"
+      end
+    else
+      raise "bad key: #{ key.inspect }"
+    end
+  end
+
+end # TimeMachine

data/lib/state_mate/version.rb

@@ -0,0 +1,3 @@
+module StateMate
+  VERSION = "0.0.1"
+end

data/notes/state-set-steps.md

@@ -0,0 +1,26 @@
+# StateSet steps
+
+how creating and applying a StateSet should happen.
+
+a StateSet is a set of (adapter, key, directive, value) tuples.
+    
+    {
+      'defaults': [
+        {
+          'key': 'k',
+          '<set | unset | array_contains':
+        }
+      ]
+    }
+
+1.  read and store (in the StateSet object) the current value for all keys.
+    
+2.  see if the any of the values should be changed. if there are no changes needed, return.
+
+3.  change the needed values on the ruby object represntation. this will raise errors if clobber / create have problems.
+
+4.  iterate through each value that was changed and attempt the write through the adapter.
+
+5.  if any write produces an error, try to write the values that have been changed back to their original value. if this produces an error, leave them and report the problems.
+
+6.  

data/spec/spec_helper.rb

@@ -0,0 +1,44 @@
+$LOAD_PATH.unshift File.expand_path('../../lib', __FILE__)
+require 'state_mate'
+
+require 'nrser'
+
+DOMAIN = 'com.nrser.state_mate'
+
+shared_context "#{ DOMAIN } empty" do
+  before(:each) {
+    `defaults delete #{ DOMAIN } 2>&1 > /dev/null`
+    `defaults -currentHost delete #{ DOMAIN } 2>&1 > /dev/null`
+  }
+end
+
+shared_context "defaults" do
+  let(:defaults) {
+    StateMate::Adapters::Defaults
+  }
+end
+
+shared_context "git_config" do
+  let(:git_config) {
+    StateMate::Adapters::GitConfig
+  }
+
+  let(:section) {
+    "statemate"
+  }
+
+  let(:key) {
+    "#{ section }.test"
+  }
+
+  before(:each) {
+    `git config --global --unset-all #{ key } 2>&1`
+  }
+
+  after(:each) {
+    `git config --global --unset-all #{ key } 2>&1`
+    `git config --global --remove-section #{ section } 2>&1`
+  }
+end
+
+

data/spec/state_mate/adapters/defaults/hardware_uuid_spec.rb

@@ -0,0 +1,15 @@
+require 'spec_helper'
+
+require 'state_mate/adapters/defaults'
+
+describe "StateMate::Adapters::Defaults.hardware_uuid" do
+  let(:defaults) {
+    StateMate::Adapters::Defaults
+  }
+
+  it "returns something that looks like an apple hardware uuid" do
+    expect( defaults.hardware_uuid ).to(
+      match /[0-9A-F]{8}\-[0-9A-F]{4}\-[0-9A-F]{4}\-[0-9A-F]{4}\-[0-9A-F]{12}/
+    )
+  end
+end # hardware_uuid

data/spec/state_mate/adapters/defaults/hash_deep_write_spec.rb

@@ -0,0 +1,33 @@
+require 'spec_helper'
+
+require 'state_mate/adapters/defaults'
+
+describe "StateMate::Adapters::Defaults.hash_deep_write!" do
+  let(:defaults) {
+    StateMate::Adapters::Defaults
+  }
+
+  it "does a basic set on an empty hash" do
+    h = {}
+    defaults.hash_deep_write! h, [:x], 1
+    expect( h ).to eq({x: 1})
+  end
+
+  it "does a deep set on an empty hash" do
+    h = {}
+    defaults.hash_deep_write! h, [:x, :y], 1
+    expect( h ).to eq({x: {y: 1}})
+  end
+
+  it "does a deep set on an non-empty hash" do
+    h = {a: 1}
+    defaults.hash_deep_write! h, [:x, :y], 1
+    expect( h ).to eq({a: 1, x: {y: 1}})
+  end
+
+  it "clobbers values" do
+    h = {x: [1, 2, 3]}
+    defaults.hash_deep_write! h, [:x, :y], 1
+    expect( h ).to eq({x: {y: 1}})
+  end
+end # hardware_uuid

data/spec/state_mate/adapters/defaults/read_defaults_spec.rb

@@ -0,0 +1,57 @@
+require 'spec_helper'
+
+require 'state_mate/adapters/defaults'
+
+describe "StateMate::Adapters::Defaults.read_defaults" do
+  include_context "defaults"
+  include_context "#{ DOMAIN } empty"
+
+  let(:key) {
+    'x'
+  }
+
+  it "returns an empty hash when the domain is empty" do
+    expect( defaults.read_defaults DOMAIN ).to eq({})
+  end
+
+  context "string value" do
+
+    let(:string) {
+      'en_US@currency=USD'
+    }
+
+    before(:each) {
+      `defaults write #{ DOMAIN } #{ key } -string '#{ string }'`
+    }
+
+    it "reads the domain with a string in it" do
+      expect( defaults.read_defaults DOMAIN ).to eq({key => string})
+    end
+
+    it "still reads the current host domain as empty" do
+      expect( defaults.read_defaults DOMAIN, true ).to eq({})
+    end
+
+  end
+
+  context "string value in current host" do
+
+    let(:string) {
+      'en_US@currency=USD'
+    }
+
+    before(:each) {
+      `defaults -currentHost write #{ DOMAIN } #{ key } -string '#{ string }'`
+    }
+
+    it "reads the domain with a string in it" do
+      expect( defaults.read_defaults DOMAIN, true ).to eq({key => string})
+    end
+
+    it "still reads the current host domain as empty" do
+      expect( defaults.read_defaults DOMAIN, false ).to eq({})
+    end
+
+  end
+
+end

data/spec/state_mate/adapters/defaults/read_spec.rb

@@ -0,0 +1,32 @@
+require 'spec_helper'
+
+require 'state_mate/adapters/defaults'
+
+describe "StateMate::Adapters::Defaults.read" do
+  include_context "defaults"
+  include_context "#{ DOMAIN } empty"
+
+  let(:key) {
+    'x'
+  }
+
+  it "returns nil when the key is missing" do
+    expect( defaults.read [DOMAIN, key] ).to be nil
+  end
+
+  context "string value with @ in it" do
+
+    let(:string) {
+      'en_US@currency=USD'
+    }
+
+    before(:each) {
+      `defaults write #{ DOMAIN } #{ key } -string '#{ string }'`
+    }
+
+    it "reads a string with an @ in it" do
+      expect( defaults.read [DOMAIN, key] ).to eq string
+    end
+  end
+
+end

data/spec/state_mate/adapters/defaults/read_type_spec.rb

@@ -0,0 +1,27 @@
+require 'spec_helper'
+
+require 'state_mate/adapters/defaults'
+
+describe "StateMate::Adapters::Defaults.read_type" do
+  include_context "defaults"
+  include_context "#{ DOMAIN } empty"
+
+  {
+    string: 'en_US@currency=USD',
+    data:   '62706c697374',
+    int:    '1',
+    float:  '1',
+    bool:   'true',
+    date:   '2014-03-27',
+    array:  '1 2 3',
+    dict:   'x 1 y 2',
+  }.each do |type, input|
+
+    it "reads a #{ type } type" do
+      `defaults write #{ DOMAIN } x -#{ type } #{ input }`
+      expect( defaults.read_type DOMAIN, 'x', false ).to be type
+    end
+
+  end
+
+end

data/spec/state_mate/adapters/defaults/write_spec.rb

@@ -0,0 +1,29 @@
+require 'spec_helper'
+
+require 'state_mate/adapters/defaults'
+
+describe "StateMate::Adapters::Defaults.read" do
+  include_context "defaults"
+  include_context "#{ DOMAIN } empty"
+
+  let(:key) {
+    'x'
+  }
+
+  context "key has string value" do
+
+    let(:string) {
+      'blah!'
+    }
+
+    before(:each) {
+      `defaults write #{ DOMAIN } #{ key } -string '#{ string }' 2>&1`
+    }
+
+    it "deletes value" do
+      defaults.write [DOMAIN, key], nil
+      expect( defaults.read [DOMAIN, key] ).to eq nil
+    end
+  end
+
+end

data/spec/state_mate/adapters/git_config/read_spec.rb

@@ -0,0 +1,36 @@
+require 'spec_helper'
+
+require 'state_mate/adapters/git_config'
+
+describe "StateMate::Adapters::GitConfig.read" do
+  include_context "git_config"
+  
+  it "reads a missing key as nil" do
+    expect( git_config.read key ).to eq nil
+  end
+
+  context "bad key" do
+    let(:bad_key) {
+      "state_mate.test"
+    }
+
+    it "should error" do
+      expect{ git_config.read bad_key }.to raise_error SystemCallError
+    end
+  end
+
+  context "has a value" do
+    let(:value) {
+      "blah"
+    }
+
+    before(:each) {
+      `git config --global --add #{ key } #{ value }`
+    }
+
+    it "should read the value" do
+      expect( git_config.read key ).to eq value
+    end
+  end
+
+end

data/spec/state_mate/adapters/git_config/write_spec.rb

@@ -0,0 +1,17 @@
+require 'spec_helper'
+
+require 'state_mate/adapters/git_config'
+
+describe "StateMate::Adapters::GitConfig.read" do
+  include_context "git_config"
+
+  let(:value) {
+    "blah"
+  }
+
+  it "writes a value" do
+    git_config.write key, value
+
+    expect( `git config --global --get #{ key }`.chomp ).to eq "#{ value }"
+  end
+end

data/spec/state_mate/adapters/json/read_spec.rb

@@ -0,0 +1,56 @@
+require 'json'
+
+require 'spec_helper'
+
+require 'state_mate/adapters/json'
+
+describe "StateMate::Adapters::JSON.read" do
+  include_context "json"
+  
+  it "reads an empty file as nil" do
+    expect( json.read [filepath] ).to be nil
+  end
+
+  context "file with a string value in it" do
+    let(:value) {
+      "blah"
+    }
+
+    before(:each) {
+      File.open(filepath, 'w') {|f|
+        f.write JSON.dump(value)
+      }
+    }
+
+    it "should read the value" do
+      expect( json.read [filepath] ).to eq value
+    end
+  end
+
+  context "file with a dict value in it" do
+    let(:value) {
+      {
+        'x' => 1,
+        'y' => 2,
+        'z' => {
+          'a' => 3,
+        }
+      }
+    }
+
+    before(:each) {
+      File.open(filepath, 'w') {|f|
+        f.write JSON.dump(value)
+      }
+    }
+
+    it "should read the root value" do
+      expect( json.read [filepath] ).to eq value
+    end
+
+    it "should read a deeper value" do
+      expect( json.read "#{ filepath }:z:a" ).to eq 3
+    end
+  end
+
+end