Remove helper library

1 files changed, 0 insertions, 67 deletions

diff --git a/emacs/.emacs.d/site-lisp/oni-helpers.el b/emacs/.emacs.d/site-lisp/oni-helpers.el
deleted file mode 100644
index 1807658..0000000
--- a/emacs/.emacs.d/site-lisp/oni-helpers.el
+++ /dev/null
@@ -1,67 +0,0 @@
-;;; oni-helpers.el --- Helper functions for Emacs init  -*- lexical-binding: t; -*-
-
-;; Copyright (C) 2016  Tom Willemse
-
-;; Author: Tom Willemse <tom@ryuslash.org>
-;; Keywords: convenience
-
-;; 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:
-
-;; Helpers for my Emacs init.
-
-;;; Code:
-
-(defmacro silently (title &rest body)
-  "Only output something when an error occurs.
-Prefix with TITLE any output that occurs while executing BODY,
-but only when an error occurs, otherwise discard it."
-  (declare (indent 1))
-  (let ((buffer-var (cl-gensym))
-        (error-var (cl-gensym)))
-    `(with-temp-buffer
-       (let ((,buffer-var (current-buffer)))
-         (cl-letf (((symbol-function 'message)
-                    (lambda (msg &rest args)
-                      (with-current-buffer ,buffer-var
-                        (insert "  " (apply 'format msg args) "\n")))))
-           (condition-case ,error-var
-               (progn ,@body)
-             (error
-              (princ ,(concat title " output:\n"))
-              (princ (with-current-buffer ,buffer-var (buffer-string)))
-              (princ "Error:\n")
-              (princ "  ")
-              (princ (cadr ,error-var))
-              (princ "\n"))))))))
-
-(defun oni:data-location (file-name)
-  "Return the location of FILE-NAME within my data directory.
-This is currently the data directory under the
-`user-emacs-directory'."
-  (concat user-emacs-directory "data/" file-name))
-
-(with-eval-after-load 'ert
-  (ert-deftest oni:data-location ()
-    "Test that `oni:data-location' returns the correct locations."
-    (should (string= "~/.emacs.d/data/backup-files/"
-                     (oni:data-location "backup-files/")))
-    (should (string= "~/.emacs.d/data/auto-save-files/"
-                     (oni:data-location "auto-save-files/")))
-    (should (string= "~/.emacs.d/data/auto-save-list/.saves-"
-                     (oni:data-location "auto-save-list/.saves-")))))
-
-(provide 'oni-helpers)
-;;; oni-helpers.el ends here