diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/cycle-themes-20150403.309')
4 files changed, 0 insertions, 189 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/cycle-themes-20150403.309/cycle-themes-autoloads.el b/configs/shared/emacs/.emacs.d/elpa/cycle-themes-20150403.309/cycle-themes-autoloads.el deleted file mode 100644 index 53a1716dae63..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/cycle-themes-20150403.309/cycle-themes-autoloads.el +++ /dev/null @@ -1,32 +0,0 @@ -;;; cycle-themes-autoloads.el --- automatically extracted autoloads -;; -;;; Code: -(add-to-list 'load-path (directory-file-name (or (file-name-directory #$) (car load-path)))) - -;;;### (autoloads nil "cycle-themes" "cycle-themes.el" (23450 31929 -;;;;;; 629990 886000)) -;;; Generated autoloads from cycle-themes.el - -(defvar cycle-themes-mode nil "\ -Non-nil if Cycle-Themes mode is enabled. -See the `cycle-themes-mode' command -for a description of this minor mode. -Setting this variable directly does not take effect; -either customize it (see the info node `Easy Customization') -or call the function `cycle-themes-mode'.") - -(custom-autoload 'cycle-themes-mode "cycle-themes" nil) - -(autoload 'cycle-themes-mode "cycle-themes" "\ -Minor mode for cycling between themes. - -\(fn &optional ARG)" t nil) - -;;;*** - -;; Local Variables: -;; version-control: never -;; no-byte-compile: t -;; no-update-autoloads: t -;; End: -;;; cycle-themes-autoloads.el ends here diff --git a/configs/shared/emacs/.emacs.d/elpa/cycle-themes-20150403.309/cycle-themes-pkg.el b/configs/shared/emacs/.emacs.d/elpa/cycle-themes-20150403.309/cycle-themes-pkg.el deleted file mode 100644 index 0ef462dc24f7..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/cycle-themes-20150403.309/cycle-themes-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- no-byte-compile: t -*- -(define-package "cycle-themes" "20150403.309" "A global minor mode to make switching themes easier" '((cl-lib "0.5")) :commit "6e125d11fdbc6b78fc9f219eb2609a5e29815898" :keywords '("themes" "utility" "global minor mode") :url "http://github.com/toroidal-code/cycle-themes.el") diff --git a/configs/shared/emacs/.emacs.d/elpa/cycle-themes-20150403.309/cycle-themes.el b/configs/shared/emacs/.emacs.d/elpa/cycle-themes-20150403.309/cycle-themes.el deleted file mode 100644 index 61edf05142e4..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/cycle-themes-20150403.309/cycle-themes.el +++ /dev/null @@ -1,155 +0,0 @@ -;;; cycle-themes.el --- A global minor mode to make switching themes easier - -;; Copyright (C) 2015 Katherine Whitlock -;; -;; Authors: Katherine Whitlock <toroidalcode@gmail.com> -;; URL: http://github.com/toroidal-code/cycle-themes.el -;; Package-Version: 20150403.309 -;; Version: 1.0 -;; Package-Requires: ((cl-lib "0.5")) -;; Keywords: Themes, Utility, Global Minor Mode - -;; This file is not part of GNU Emacs. - -;;; Commentary: - -;; Allows switching between themes easily. - -;;; Installation - -;; In your Emacs config, define a list of themes you want to be -;; able to switch between. Then, enable the global minor mode. -;; -;; (setq cycle-themes-theme-list -;; '(leuven monokai solarized-dark)) -;; (require 'cycle-themes) -;; (cycle-themes-mode) -;; -;; `cycle-themes' is bound to 'C-c C-t' by default. -;; -;; You can optionally add hooks to be run after switching themes: -;; -;; (add-hook 'cycle-themes-after-cycle-hook -;; #'(lambda () (Do-something-fn ...))) -;; - -;;; License: - -;; 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 -;; GNU Emacs; see the file COPYING. If not, write to the Free Software -;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, -;; USA. - -;;; Code: - -(eval-when-compile - (require 'cl-lib)) - -(defgroup cycle-themes nil - "The cycle-themes group" - :group 'appearance - :prefix "cycle-themes-") - -(defcustom cycle-themes-after-cycle-hook nil - "Hooks that are run after switching themes." - :group 'cycle-themes - :type 'hook) - -(defcustom cycle-themes-theme-list (custom-available-themes) - "The list of themes to cycle through on calling `cycle-themes'." - :group 'cycle-themes - :type '(list symbol)) - -(defcustom cycle-themes-allow-multiple-themes nil - "Whether to allow the application of more than one theme at once." - :group 'cycle-themes - :type 'boolean) - -(defconst cycle-themes-last-theme-set custom-enabled-themes - "Used with multiple theme layering.") - -(defconst cycle-themes-first-start t - "load-theme reapplies all minor-modes, so we need this to avoid a stack overflow.") - -(defun cycle-themes-get-next-valid-theme () - "Get the next valid theme from the list." - ;; save our starting theme for a infinite-loop check - ;; if there's no theme applied, - (let* ((start-theme (or (first custom-enabled-themes) - (car (last cycle-themes-theme-list)))) - (current-theme start-theme)) - ;; do-while - (while - (progn - ;; Fancy way to move to the next theme - ;; with modular arithmetic so we never reach the end. - (setq current-theme - (nth (mod (1+ (cl-position current-theme cycle-themes-theme-list)) - (length cycle-themes-theme-list)) - cycle-themes-theme-list)) - ;; Make sure we didn't loop all the way through - (when (eq current-theme start-theme) - (error "No valid themes in cycle-themes-theme-list")) - (not (custom-theme-p current-theme)))) - current-theme)) - - -(defun cycle-themes () - "Cycle to the next theme." - (interactive) - (let ((new-theme (cycle-themes-get-next-valid-theme)) - (current-theme (first custom-enabled-themes)) - (current-theme-set custom-enabled-themes)) - ;; disable the current theme only if we want multiple themes - ;; and we had it before - (unless (and cycle-themes-allow-multiple-themes - (member current-theme cycle-themes-last-theme-set)) - (disable-theme current-theme)) - (load-theme new-theme t) - (setq cycle-themes-last-theme-set current-theme-set) - (run-hooks 'cycle-themes-after-cycle-hook))) - -;;;###autoload -(define-minor-mode cycle-themes-mode - "Minor mode for cycling between themes." - :lighter "" - :keymap (let ((map (make-sparse-keymap))) - (define-key map (kbd "C-c C-t") 'cycle-themes) - map) - :global t - (progn - ;; remove any lingering themes other than the primary - (dolist (theme (cl-set-difference (custom-available-themes) - custom-enabled-themes)) - (disable-theme theme)) - - ;; If we _aren't_ already trying to start up - (when cycle-themes-first-start - (setq cycle-themes-first-start nil) - - ;; if there are no themes enabled, enable - ;; the first one in the list - (if (null custom-enabled-themes) - (add-hook 'emacs-startup-hook - #'(lambda () - (load-theme (car cycle-themes-theme-list)) - (run-hooks 'cycle-themes-after-cycle-hook))) - - ;; otherwise, ensure they're _actually_ loaded - (add-hook 'emacs-startup-hook #'(lambda () - (dolist (theme (reverse custom-enabled-themes)) - (load-theme theme)) - (run-hooks 'cycle-themes-after-cycle-hook))))))) - -(provide 'cycle-themes) -;;; cycle-themes.el ends here diff --git a/configs/shared/emacs/.emacs.d/elpa/cycle-themes-20150403.309/cycle-themes.elc b/configs/shared/emacs/.emacs.d/elpa/cycle-themes-20150403.309/cycle-themes.elc deleted file mode 100644 index e46ad1238ef3..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/cycle-themes-20150403.309/cycle-themes.elc +++ /dev/null Binary files differ |