Code Shop

require 'rubygems'
require 'oauth'
require 'json'
require "sqlite3"

# Get your key here. http://www.instapaper.com/main/request_oauth_consumer_token
INSTAPAPER_CONSUMER_KEY = 'getyourownkey'
INSTAPAPER_CONSUMER_SECRET = 'getyourownkey'
INSTAPAPER_USERNAME = 'user@mail.com'
INSTAPAPER_PASSWORD = 'password'

KINDLEGEN = "~/Dropbox/KindleGen/kindlegen"

class Instapaper
  Url = "http://www.instapaper.com"

  def initialize(consumer_key, consumer_secret)
    @consumer_key    = consumer_key
    @consumer_secret = consumer_secret
  end

  def authorize(username, password)
    @consumer = OAuth::Consumer.new(@consumer_key, @consumer_secret, {
        :site              => "https://www.instapaper.com",
        :access_token_path => "/api/1/oauth/access_token",
        :http_method => :post
      })

    access_token = @consumer.get_access_token(nil, {}, {
        :x_auth_username => username,
        :x_auth_password => password,
        :x_auth_mode     => "client_auth",
      })

    @access_token = OAuth::AccessToken.new(@consumer, access_token.token, access_token.secret)
  end

  def request(path, params={})
    @access_token.request(:post, "#{Url}#{path}", params)
  end
end


$instapaper = Instapaper.new(INSTAPAPER_CONSUMER_KEY, INSTAPAPER_CONSUMER_SECRET)
$instapaper.authorize(INSTAPAPER_USERNAME, INSTAPAPER_PASSWORD)


$db = SQLite3::Database.new('i2ksync.db')
$db.results_as_hash = true

# status 1. download, 2. still_there 3. archived
$db.execute(%{
   create table if not exists bookmarks (
                id integer PRIMARY KEY,
                title text,
                status text,
                UNIQUE(id))
})

# Create the path if it doesn't exist
path = File.join("/Volumes/Kindle/documents", "_instapaper")
Dir.mkdir(path) unless File.exists?(path)

num_not_there = 0
still_there_ids = []

still_there = $db.execute("select * from bookmarks where status = 2")
still_there.each do |bookmark|
  unless File.exists?(File.join(path, "#{bookmark['title']}.mobi"))
    $instapaper.request("/api/1/bookmarks/archive?bookmark_id=#{bookmark['id']}")
    $db.execute("update bookmarks set status = 3 where id = #{bookmark['id']}")

    num_not_there += 1
  else
    still_there_ids << bookmark['id']
  end
end

articles = JSON.parse($instapaper.request("/api/1/bookmarks/list?limit=#{25 - num_not_there}&have=#{still_there_ids.join(',')}").body)

articles.each do |article|
  next unless article.has_key?('title')

  filename = article['title']
  filename = "Article #{article['bookmark_id']}" unless article['title']

  file_path = "#{filename}.html"

  File.open(File.join(path, file_path), 'w') do |f|
    f << $instapaper.request("/api/1/bookmarks/get_text?bookmark_id=#{article['bookmark_id']}").body
  end

  $db.execute("insert or ignore into bookmarks (id, title, status) values (?,?,?)", article['bookmark_id'], filename, 2)
end

`cd #{path} && find . -name "*html" -exec #{KINDLEGEN} {} \\;`
`cd #{path} && find . -name "*html" -exec rm {} \\;`

(load-library "smtpmail")
(load-library "nnimap")
(load-library "starttls")

(setq gnus-select-method '(nntp "news.gmane.org"))
(setq gnus-secondary-select-methods
      '((nnml "")
        (nnimap "imap.gmail.com"
                (nnimap-address "imap.gmail.com")
                (nnimap-server-port 993)
                (nnimap-authinfo-file "~/.imap-authinfo")
                (nnimap-expunge-on-close 'never)
                (nnimap-stream ssl))))

(setq smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))
      smtpmail-smtp-server "smtp.gmail.com"
      smtpmail-default-smtp-server "smtp.gmail.com"
      send-mail-function 'smtpmail-send-it
      message-send-mail-function 'smtpmail-send-it
      smtpmail-smtp-service 587
      smtpmail-auth-credentials
      '(("smtp.gmail.com" 587 "ykabhinav@gmail.com" nil)))

(add-hook 'gnus-topic-mode-hook 'gnus-topic-mode)

;(setq gnus-summary-rescan-group 'all)
;(setq gnus-permanently-visible-groups ".*INBOX")


(setq gnus-thread-sort-functions
      '(gnus-thread-sort-by-most-recent-date
        (not gnus-thread-sort-by-total-score)))

(gnus-demon-add-handler 'gnus-group-get-new-news 5 nil)



(cond (window-system
       (setq custom-background-mode 'light)
       (defface my-group-face-1
         '((t (:foreground "Red" :bold t))) "First group face")
       (defface my-group-face-2
         '((t (:foreground "DarkSeaGreen4" :bold t)))
         "Second group face")
       (defface my-group-face-3
         '((t (:foreground "Green4" :bold t))) "Third group face")
       (defface my-group-face-4
         '((t (:foreground "SteelBlue" :bold t))) "Fourth group face")
       (defface my-group-face-5
         '((t (:foreground "Blue" :bold t))) "Fifth group face")))

(setq gnus-group-highlight
      '(((> unread 200) . my-group-face-1)
        ((and (< level 3) (zerop unread)) . my-group-face-2)
        ((< level 3) . my-group-face-3)
        ((zerop unread) . my-group-face-4)
        (t . my-group-face-5)))

(setq-default
 gnus-summary-line-format "%U%R%z %(%&user-date;  %-15,15f %* %B%s%)\n"
 gnus-user-date-format-alist '((t . "%Y-%m-%d %H:%M"))
 gnus-summary-thread-gathering-function 'gnus-gather-threads-by-references
 gnus-thread-sort-functions '(gnus-thread-sort-by-date)
 gnus-sum-thread-tree-false-root ""
 gnus-sum-thread-tree-indent " "
 gnus-sum-thread-tree-leaf-with-other "|-> "
 gnus-sum-thread-tree-root ""
 gnus-sum-thread-tree-single-leaf "\-> "
 gnus-sum-thread-tree-vertical "│")

(setq gnus-use-cache t)

set folder_format="%2C %t %N %8s %d %f"