ebe4c60264
This reverts commit 29c78ce841 and all other fixes
that have been made afterwards.
The motivation is that use-package is seen by many as a replacement for
`require`. Is use-package always defer the loading of packages then is breaks
this use case, this does not respect POLA so even if it was making Spacemacs
loading faster (up to 3s faster on some startup on my machine) we just cannot
use it, it would be irresponsible. Spacemacs should be easy to use, loading
performance will come with time but it is not a priority.
90 lines
3 KiB
EmacsLisp
90 lines
3 KiB
EmacsLisp
;;; packages.el --- geolocation configuration File for Spacemacs
|
|
;;
|
|
;; Copyright (c) 2012-2018 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: Uri Sharf <uri.sharf@me.com>
|
|
;; URL: https://github.com/usharf/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
(setq geolocation-packages
|
|
'(
|
|
(osx-location :toggle (and geolocation-enable-location-service
|
|
(spacemacs/system-is-mac)))
|
|
popwin
|
|
(rase :toggle (and geolocation-enable-location-service
|
|
(spacemacs/system-is-mac)))
|
|
(sunshine :toggle geolocation-enable-weather-forecast)
|
|
(theme-changer :toggle geolocation-enable-automatic-theme-changer)
|
|
))
|
|
|
|
(defun geolocation/init-osx-location ()
|
|
"Initialize osx-location"
|
|
(use-package osx-location
|
|
:defer t
|
|
:init
|
|
(progn
|
|
(add-hook 'osx-location-changed-hook 'spacemacs//osx-location-changed)
|
|
(osx-location-watch))))
|
|
|
|
(defun geolocation/init-rase ()
|
|
(use-package rase
|
|
:defer t
|
|
:init
|
|
(progn
|
|
(add-hook 'osx-location-changed-hook 'spacemacs//osx-location-changed-rase)
|
|
(osx-location-watch)
|
|
(defadvice rase-start (around test-calendar activate)
|
|
"Don't call `raise-start' if `calendar-latitude' or
|
|
`calendar-longitude' are not bound yet, or still nil.
|
|
|
|
This is setup this way because `rase.el' does not test these
|
|
values, and will fail under such conditions, when calling
|
|
`solar.el' functions.
|
|
|
|
Also, it allows users who enabled service such as `osx-location'
|
|
to not have to set these variables manually when enabling this layer."
|
|
(if (and (bound-and-true-p calendar-longitude)
|
|
(bound-and-true-p calendar-latitude))
|
|
ad-do-it))
|
|
(rase-start t))))
|
|
|
|
(defun geolocation/init-sunshine ()
|
|
"Initialize sunshine"
|
|
(use-package sunshine
|
|
:commands (sunshine-forecast sunshine-quick-forecast)
|
|
:init
|
|
(progn
|
|
(spacemacs/set-leader-keys
|
|
"aw" 'sunshine-forecast
|
|
"aW" 'sunshine-quick-forecast))
|
|
:config
|
|
(progn
|
|
(evilified-state-evilify-map sunshine-mode-map
|
|
:mode sunshine-mode
|
|
:bindings
|
|
(kbd "q") 'quit-window
|
|
(kbd "i") 'sunshine-toggle-icons)
|
|
|
|
;; just in case location was not set by user, or on OS X,
|
|
;; if wasn't set up automatically, will not work with Emacs'
|
|
;; default for `calendar-location-name'
|
|
(unless (boundp 'sunshine-location)
|
|
(setq sunshine-location (format "%s, %s"
|
|
calendar-latitude
|
|
calendar-longitude))))))
|
|
|
|
(defun geolocation/init-theme-changer ()
|
|
"Initialize theme-changer"
|
|
(use-package theme-changer
|
|
:init
|
|
(progn
|
|
(spacemacs/defer-until-after-user-config #'geolocation//activate-theme-changer))))
|
|
|
|
(defun geolocation/post-init-popwin ()
|
|
;; Pin the weather forecast to the bottom window
|
|
(push '("*Sunshine*" :dedicated t :position bottom)
|
|
popwin:special-display-config))
|