From 3ba44832c75f7bbee821d02ebc3a3de7b912de15 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Tue, 26 Feb 2019 00:53:39 -0800 Subject: Move LUI and Circe configs to emacs-config --- emacs/.emacs.d/site-lisp/oni-circe.el | 45 ----------------------------------- 1 file changed, 45 deletions(-) delete mode 100644 emacs/.emacs.d/site-lisp/oni-circe.el (limited to 'emacs/.emacs.d/site-lisp/oni-circe.el') diff --git a/emacs/.emacs.d/site-lisp/oni-circe.el b/emacs/.emacs.d/site-lisp/oni-circe.el deleted file mode 100644 index 22e5fcd..0000000 --- a/emacs/.emacs.d/site-lisp/oni-circe.el +++ /dev/null @@ -1,45 +0,0 @@ -;;; oni-circe.el --- Extra commands and functions for circe -*- lexical-binding: t; -*- - -;; Copyright (C) 2016 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 circe. - -;;; Code: - -(require 'auth-source) - -;;;###autoload -(defun oni-circe-get-password-for (host) - "Create a function that will get a password for HOST. -The returned function will look for the password in .authinfo, -which may be encrypted." - (lambda (_) - (let ((found (nth 0 (auth-source-search :max 1 - :host host - :require '(:secret))))) - (when found - (let ((secret (plist-get found :secret))) - (if (functionp secret) - (funcall secret) - secret)))))) - -(provide 'oni-circe) -;;; oni-circe.el ends here -- cgit v1.2.3-54-g00ecf