module Flickpaper

# File lib/flickpaper.rb, line 202
def self.get_default_image_path
  case os
  when :windows
    false
  when :macosx
    home_tmp = File.join(ENV['HOME'], 'tmp')
    if File.directory?(home_tmp)
      File.join(home_tmp, "flickpaper-#{ENV['USER']}.jpg")
    else
      File.join('/tmp', "flickpaper-#{ENV['USER']}.jpg")
    end
  when :linux, :unix
    File.join(ENV['HOME'], '.flickpaper.jpg')
  else
    false
  end
end

# File lib/flickpaper.rb, line 220
def self.get_ids(file)
  File.file?(file) ? Marshal.load(File.read(file)) : []
end

# File lib/flickpaper.rb, line 29
def self.init
  FlickRaw.api_key = API_KEY
  FlickRaw.shared_secret = SHARED_SECRET
end

# File lib/flickpaper.rb, line 91
def self.os
  host_os = RbConfig::CONFIG['host_os']
  case host_os
  when /mswin|msys|mingw|cygwin|bccwin|wince|emc/
    :windows
  when /darwin|mac os/
    :macosx
  when /linux/
    :linux
  when /solaris|bsd/
    :unix
  end
end

# File lib/flickpaper.rb, line 34
def self.parse_opts(opts)
  options = {
    dump: File.join(ENV['HOME'], '.flickpaper.dump'),
    image: get_default_image_path,
    log: nil,
    per_page: 100,
    date: nil,
    page: 1,
    size: 'Large 2048'
  }
  opt_parser = OptionParser.new do |opts|
    opts.banner = "Usage: $ #{File.basename($0)} [options]"
    opts.on('-d', '--dump PATH', "Dump file for used photo ids. Default: #{options[:dump]}") do |dump|
      options[:dump] = dump
    end
    opts.on('-i', '--image PATH', "Where to store the downloaded image. Default: #{options[:image]}") do |image|
      options[:image] = image
    end
    opts.on('-l', '--log PATH', "Path to log file. Default: STDOUT") do |log|
      options[:log] = log
    end
    opts.on('-p', '--per-page PER_PAGE', "Number of interesting photos per page in flickr api call. Default: #{options[:per_page]}") do |per_page|
      options[:per_page] = per_page
    end
    opts.on('--date DATE', "A specific date, formatted as YYYY-MM-DD, to return interesting photos for. Default: null (most recent)") do |date|
      options[:date] = date
    end
    opts.on('--page PAGE', "The page of results to return. Default: #{options[:page]}") do |page|
      options[:page] = page
    end
    opts.on('-s', '--size SIZE', "Minimum acceptable image size. Default: #{options[:size]}") do |size|
      options[:size]= size
    end
    opts.on('-v', '--verbose', 'Be verbose.') do |verbose|
      options[:verbose] = verbose
    end
    opts.on('--sizes', "Print sizes and exit.") do |sizes|
      puts SIZES.join(', ')
      exit 0
    end
    opts.on_tail("--version", "Show version and exit.") do
      puts Flickpaper::VERSION
      exit 0
    end
  end
  opt_parser.parse!(opts)
  [opts, options]
end

# File lib/flickpaper.rb, line 224
def self.put_ids(file, ids)
  File.open(file, 'wb') { |f| f << Marshal.dump(ids) }
  ids
end

# File lib/flickpaper.rb, line 229
def self.run!
  arguments, options = Flickpaper.parse_opts(ARGV.dup)
  log = Logger.new(options[:log] ? options[:log] : STDOUT)
  log.level = options[:verbose] ? Logger::INFO : Logger::ERROR

  size_idx = SIZES.index(options[:size])
  if size_idx.nil? || size_idx < 0
    log.error("Invalid size argument: #{options[:size]}.\nPlease select from: #{SIZES.join(', ')}.")
    exit 1
  end

  Flickpaper.init

  opts = options.select { |k,v| [:page, :per_page, :date].include?(k) && !v.nil? }
  log.info("Getting interesting list: #{opts.inspect}")
  begin
    # date (Optional)
    #   A specific date, formatted as YYYY-MM-DD, to return interesting photos for.
    # extras (Optional)
    #   A comma-delimited list of extra information to fetch for each returned record. Currently supported fields are: description, license, date_upload, date_taken, owner_name, icon_server, original_format, last_update, geo, tags, machine_tags, o_dims, views, media, path_alias, url_sq, url_t, url_s, url_q, url_m, url_n, url_z, url_c, url_l, url_o
    # per_page (Optional)
    #   Number of photos to return per page. If this argument is omitted, it defaults to 100. The maximum allowed value is 500.
    # page (Optional)
    #   The page of results to return. If this argument is omitted, it defaults to 1.
    list = flickr.interestingness.getList(opts)
  rescue FlickRaw::FailedResponse => e
    log.error("Flickr API error: #{e.message}")
    exit 1
  end

  ids = Flickpaper.get_ids(options[:dump])
  list = list.select { |l| !ids.include?(l['id']) }

  idx = nil
  url = nil

  log.info("Selecting large photo")
  (0...(list.length)).each do |i|
    begin
      size = flickr.photos.getSizes(photo_id: list[i]['id'])
    rescue FlickRaw::FailedResponse => e
      log.error("Flickr API error: #{e.message}")
      exit 1
    end
    my_size = size.detect do |s|
      my_size_idx = SIZES.index(s['label'])
      !my_size_idx.nil? && my_size_idx >= size_idx
    end
    if my_size
      idx = i
      url = my_size['source']
      break
    end
  end

  if idx
    my_photo = list[idx]

    Flickpaper.save_file(url, options[:image])
    result = Flickpaper.set_wallpaper(options[:image])
    if result
      log.info("Set photo #{my_photo['id']} as wallpaper")
      ids.unshift(my_photo['id'])
      Flickpaper.put_ids(options[:dump], ids.take(1000))
    else
      log.error("Unable to set photo #{my_photo['id']} as wallpaper")
    end
  else
    log.error("Unable to find photo for wallpaper")
  end
end

# File lib/flickpaper.rb, line 83
def self.save_file(url, dst)
  File.open(dst, 'wb') do |saved_file|
    open(url, 'rb') do |read_file|
      saved_file.write(read_file.read)
    end
  end
end

# File lib/flickpaper.rb, line 128
def self.set_wallpaper(path)
  case os
  when :windows
    false
  when :macosx
    set_wallpaper_macosx(path)
  when :linux, :unix
    set_wallpaper_linux(path)
  else
    false
  end
end

# File lib/flickpaper.rb, line 191
def self.set_wallpaper_feh(path)
  feh = %x{ which feh }.to_s.strip
  if feh == ""
    false
  else
    # can be tile, center, max, fill
    scaling = 'fill'
    system("#{feh} --bg-#{scaling} \"#{path}\"")
  end
end

# File lib/flickpaper.rb, line 167
  def self.set_wallpaper_gnome(path)
    dbus_launch = %x{ which dbus-launch }.to_s.strip
    gsettings = %x{ which gsettings }.to_s.strip
    if dbus_launch == "" || gsettings == ""
      false
    else
      # http://dbus.freedesktop.org/doc/dbus-launch.1.html
      bash = <<-EOBASH
        if [ -z "$DBUS_SESSION_BUS_ADDRESS" ]; then
          # if not found, launch a new one
          eval `#{dbus_launch} --sh-syntax`
        fi

        #{gsettings} set org.gnome.desktop.background picture-uri "file://#{path}"
      EOBASH
      system(bash)
    end
  end

# File lib/flickpaper.rb, line 187
def self.set_wallpaper_kde(path)
  false
end

# File lib/flickpaper.rb, line 156
def self.set_wallpaper_linux(path)
  case window_manager
  when :gnome
    set_wallpaper_gnome(path)
  when :kde
    set_wallpaper_kde(path)
  else
    set_wallpaper_feh(path)
  end
end

# File lib/flickpaper.rb, line 144
  def self.set_wallpaper_macosx(path)
    osascript = %x{ which osascript }.to_s.strip
    if osascript == ""
      false
    else
      bash = <<-EOBASH
        #{osascript} -e 'tell application "Finder" to set desktop picture to POSIX file "#{path}"'
      EOBASH
      system(bash)
    end
  end

# File lib/flickpaper.rb, line 106
def self.window_manager
  if ENV['XDG_CURRENT_DESKTOP']
    desktop = ENV['XDG_CURRENT_DESKTOP']
      .downcase
  else
    exclude = %w{ usr local share }
    v = ENV['XDG_DATA_DIRS']
      .to_s
      .downcase
      .split(/[^a-z0-9]+/)
      .select { |r| r != "" }
      .uniq
      .reject { |r| exclude.include?(r) }
    if v.length == 1
      desktop = v
        .first
        .downcase
    end
  end
  desktop.to_sym if desktop
end