From 91f5c1e0f7fca86e0d79235c3db73d31e864e556 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Fri, 18 Dec 2015 20:51:17 +0100 Subject: Add elnode library --- emacs/.emacs.d/init.el | 7 ------- emacs/.emacs.d/site-lisp/oni-elnode.el | 38 ++++++++++++++++++++++++++++++++++ 2 files changed, 38 insertions(+), 7 deletions(-) create mode 100644 emacs/.emacs.d/site-lisp/oni-elnode.el diff --git a/emacs/.emacs.d/init.el b/emacs/.emacs.d/init.el index cccc321..5f9d011 100644 --- a/emacs/.emacs.d/init.el +++ b/emacs/.emacs.d/init.el @@ -141,13 +141,6 @@ MODE1 is enabled and vice-versa." "Set the `disabled' property for each item in FUNCTIONS to nil." (mapc #'(lambda (f) (put f 'disabled nil)) functions)) -(defun oni:current-conkeror-tab (httpcon) - "Demonstration function" - (elnode-http-start - httpcon 302 `("Content-Type" . "text/html") - (cons "Location" (shell-command-to-string "conkeror-eval"))) - (elnode-http-return httpcon)) - (let (setp) (defun oni:set-theme (frame) "Try to set the theme for the current (first) frame." diff --git a/emacs/.emacs.d/site-lisp/oni-elnode.el b/emacs/.emacs.d/site-lisp/oni-elnode.el new file mode 100644 index 0000000..7d1cb66 --- /dev/null +++ b/emacs/.emacs.d/site-lisp/oni-elnode.el @@ -0,0 +1,38 @@ +;;; oni-elnode.el --- Extra elnode functions and commands -*- lexical-binding: t; -*- + +;; Copyright (C) 2015 Tom Willemse + +;; Author: Tom Willemse +;; Keywords: + +;; 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 . + +;;; Commentary: + +;; Here are some extra commands and functions for elnode. + +;;; Code: + +(require 'elnode) + +;;;###autoload +(defun oni:current-conkeror-tab (httpcon) + "Demonstration function" + (elnode-http-start + httpcon 302 `("Content-Type" . "text/html") + (cons "Location" (shell-command-to-string "conkeror-eval"))) + (elnode-http-return httpcon)) + +(provide 'oni-elnode) +;;; oni-elnode.el ends here -- cgit v1.2.3-54-g00ecf