diff --git a/layers/+tools/geolocation/extensions.el b/layers/+tools/geolocation/extensions.el deleted file mode 100644 index 3fae2ee9d9b4..000000000000 --- a/layers/+tools/geolocation/extensions.el +++ /dev/null @@ -1,30 +0,0 @@ -;;; extensions.el --- geolocation configuration File for Spacemacs -;; -;; Copyright (c) 2012-2024 Sylvain Benner & Contributors -;; -;; Author: Uri Sharf -;; URL: https://github.com/usharf/spacemacs -;; -;; This file is not part of GNU Emacs. -;; -;; 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 . - - -(setq geolocation-post-extensions '(theme-changer)) - -(defun geolocation/init-theme-changer () - "Initialize theme-changer" - (use-package theme-changer - :if (and geolocation-enable-automatic-theme-changer - (> (length dotspacemacs-themes) 1)))) diff --git a/layers/+tools/geolocation/extensions/theme-changer/theme-changer.el b/layers/+tools/geolocation/extensions/theme-changer/theme-changer.el deleted file mode 100644 index 5f7b0e98f9e4..000000000000 --- a/layers/+tools/geolocation/extensions/theme-changer/theme-changer.el +++ /dev/null @@ -1,44 +0,0 @@ -;;; theme-changer.el --- geolocation configuration File for Spacemacs -;; -;; Copyright (c) 2012-2024 Sylvain Benner & Contributors -;; -;; Author: Uri Sharf -;; URL: https://github.com/usharf/spacemacs -;; -;; This file is not part of GNU Emacs. -;; -;; 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 . - - -(require 'rase) - -(defun theme-changer/switch-themes (sun-event &optional first-run) - "Switch first two themes in dotspacemacs-themes on sunrise and sunset." - (if first-run ; set theme on initialization - (cond ((memq sun-event '(sunrise midday)) - (load-theme (nth 0 dotspacemacs-themes) t)) - ((memq sun-event '(sunset midnight)) - (load-theme (nth 1 dotspacemacs-themes) t))) - (cond ((eq sun-event 'sunrise) ; after initialization deal only with - ; sunrise and sunset - (load-theme (nth 0 dotspacemacs-themes) t)) - ((eq sun-event 'sunset) - (load-theme (nth 1 dotspacemacs-themes) t)))) - ) - -(with-eval-after-load 'rase ; probably redaundant because it's a post extension - (add-hook 'rase-functions 'theme-changer/switch-themes) - (rase-start t)) - -(provide 'theme-changer) diff --git a/layers/+tools/geolocation/funcs.el b/layers/+tools/geolocation/funcs.el index 2bf168a6d81c..7be87c53a8f5 100644 --- a/layers/+tools/geolocation/funcs.el +++ b/layers/+tools/geolocation/funcs.el @@ -51,5 +51,5 @@ (unless (bound-and-true-p calendar-latitude) (user-error "calendar-latitude is not set")) (when (> (length dotspacemacs-themes) 1) - (change-theme (nth 0 dotspacemacs-themes) - (nth 1 dotspacemacs-themes)))) + (change-theme (spacemacs//get-theme-name (nth 0 dotspacemacs-themes)) + (spacemacs//get-theme-name (nth 1 dotspacemacs-themes)))))