;;; cjpad.el --- Skeletons for interacting with cjpad
 
 ;; Copyright (C) 2017 Edward Langley
 
 ;; Author: Edward Langley <fwoar@elangley.org>
 ;; Keywords: cjpad
 ;; Version: 0.0.1
 
 ;; 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/>.
 
 ;;; Commentary:
 
 ;; Put a description of the package here
 
 ;;; Code:
 
 ;; code goes here
 
 (defun extract-pad-name (pad-url)
   (replace-regexp-in-string "^https?://cjpad.cj.com/\\([^/]+\\)/?$"
                             "\\1"
                             pad-url))
 
 (defun get-pad-url (name)
   (format "http://cjpad.cj.com/ep/pad/export/%s/latest?format=txt"
           name))
 
 (defun convert-to-export (pad-url)
   (format "http://cjpad.cj.com/ep/pad/export/%s/latest?format=txt"
           (extract-pad-name pad-url)))
 
 (defvar *cjpad-exports* "~/cjpad-imports/")
 
 (defun get-cjpad (pad-name)
   (interactive "M")
   (let ((file-name (format "%s%s" *cjpad-exports* pad-name))
         (pad-url (get-pad-url pad-name)))
     (with-current-buffer (url-retrieve-synchronously (get-pad-url pad-name))
       (write-region nil nil file-name))
     (find-file file-name)))
 
 (defun import-cjpad (s e)
   (interactive "r")
   (message "=============================")
   (let* ((pad-url (buffer-substring s e)))
     (get-cjpad (extract-pad-name pad-url))
     (save-excursion
       (end-of-line)
       (insert " [" file-name "]")
       (message "foo")))
   (message "============================="))
 
 (defun update-cjpad-file (fn)
   (interactive "F")
   (message fn)
   (let* ((pad-name (file-name-base fn))
          (pad-url (get-pad-url pad-name))
          (file-name (format "%s%s" *cjpad-exports* pad-name)))
     (with-current-buffer (url-retrieve-synchronously pad-url)
       (write-region nil nil file-name))))
 
 (defun update-cjpad ()
   (interactive)
   (update-cjpad-file (buffer-file-name (current-buffer))))
 
 (defun browse-cjpad ()
   (interactive)
   (browse-url (format "http://cjpad.cj.com/%s"
                       (file-name-base (buffer-file-name (current-buffer))))))
 
 (provide 'cjpad)