From a205065fa111a252b0893075bd250261db54e2f3 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Thu, 17 Jan 2019 21:38:22 -0800 Subject: Remove helper library --- emacs/.emacs.d/site-lisp/oni-helpers.el | 67 --------------------------------- 1 file changed, 67 deletions(-) delete mode 100644 emacs/.emacs.d/site-lisp/oni-helpers.el (limited to 'emacs/.emacs.d/site-lisp/oni-helpers.el') 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 -;; 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 . - -;;; 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 -- cgit v1.2.3-54-g00ecf