From f806bd9370fc5dd1fb27cf37d4735fe065e7416f Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sun, 11 Aug 2013 21:18:06 +0200
Subject: Initial commit

---
 hypo.el | 90 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 90 insertions(+)
 create mode 100644 hypo.el

(limited to 'hypo.el')

diff --git a/hypo.el b/hypo.el
new file mode 100644
index 0000000..75ff66a
--- /dev/null
+++ b/hypo.el
@@ -0,0 +1,90 @@
+;;; hypo.el --- Client functions for hypo            -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2013  Tom Willemse
+
+;; Author: Tom Willemse <tom@ryuslash.org>
+;; Keywords: tools
+;; Version: 0.1.0
+
+;; 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:
+
+;; Some functions to interact with hypo
+;; (http://projects.ryuslash.org/hypo/).
+
+;;; Code:
+
+(autoload 'beginning-of-sexp "thingatpt")
+(autoload 'end-of-sexp "thingatpt")
+
+(defun hypo--collect-url ()
+  "Collect the returned url."
+  (let* ((start (search-forward "\n\n"))
+         (end (1- (search-forward "\n"))))
+    (copy-region-as-kill start end)))
+
+;;;### autoload
+(defun hypo-region (start end filename)
+  "Send the region START up to END to hypo as FILENAME."
+  (interactive
+   (list (region-beginning) (region-end)
+         (let ((fname (buffer-file-name)))
+           (if fname
+               (concat
+                "region-" (file-name-nondirectory (buffer-file-name)))
+             (read-string "Filename: " (buffer-name))))))
+  (let ((url-request-data (buffer-substring-no-properties start end))
+        (url-request-method "PUT"))
+    (url-retrieve (concat "https://ryuslash.org/hypo/" filename)
+                  (lambda (status) (hypo--collect-url) (kill-buffer)))))
+
+;;;###autoload
+(defun hypo-buffer (buffer filename)
+  "Send BUFFER to hypo as FILENAME."
+  (interactive
+   (list (current-buffer)
+         (let ((fname (buffer-file-name)))
+           (if fname
+               (concat (file-name-nondirectory (buffer-file-name)))
+             (read-string "Filename: " (buffer-name))))))
+  (with-current-buffer buffer
+    (hypo-region (point-min) (point-max) filename)))
+
+;;;###autoload
+(defun hypo-defun (filename)
+  "Send the function at point to hypo as FILENAME."
+  (interactive (list (or (concat (add-log-current-defun)
+                                 (file-name-extension
+                                  (or (buffer-file-name) "") t))
+                         (read-string "Filename: " (buffer-name)))))
+  (save-excursion
+   (hypo-region (progn (beginning-of-defun) (point))
+                (progn (end-of-defun) (point))
+                filename)))
+
+;;;###autoload
+(defun hypo-last-sexp (filename)
+  "Send the sexp at point to hypo as FILENAME."
+  (interactive (list (read-string
+                      "Filename: "
+                      (cons (file-name-extension
+                             (or (buffer-file-name) "") t) 0))))
+  (save-excursion
+    (hypo-region (progn (beginning-of-sexp) (point))
+                 (progn (end-of-sexp) (point))
+                 filename)))
+
+(provide 'hypo)
+;;; hypo.el ends here
-- 
cgit v1.2.3-54-g00ecf