forked from colonelpanic/dotfiles
Fix breakage due to use-package.
This commit is contained in:
parent
4b16a6f7e8
commit
6739eb0601
@ -74,7 +74,10 @@
|
|||||||
|
|
||||||
(package-initialize)
|
(package-initialize)
|
||||||
(ensure-packages-installed '(epl use-package))
|
(ensure-packages-installed '(epl use-package))
|
||||||
(require 'use-package)
|
|
||||||
|
(eval-when-compile (require 'use-package)) ;; use-package is only needed at compile time.
|
||||||
|
(require 'diminish)
|
||||||
|
(require 'bind-key)
|
||||||
|
|
||||||
(use-package benchmark-init
|
(use-package benchmark-init
|
||||||
:ensure t
|
:ensure t
|
||||||
@ -394,8 +397,8 @@ The current directory is assumed to be the project's root otherwise."
|
|||||||
|
|
||||||
(use-package yasnippet
|
(use-package yasnippet
|
||||||
:ensure t
|
:ensure t
|
||||||
|
:defer 5
|
||||||
:commands (yas-global-mode)
|
:commands (yas-global-mode)
|
||||||
:idle (yas-global-mode)
|
|
||||||
:config
|
:config
|
||||||
(progn
|
(progn
|
||||||
(diminish 'yas-minor-mode)
|
(diminish 'yas-minor-mode)
|
||||||
@ -555,12 +558,13 @@ The current directory is assumed to be the project's root otherwise."
|
|||||||
|
|
||||||
(use-package smooth-scroll
|
(use-package smooth-scroll
|
||||||
:ensure t
|
:ensure t
|
||||||
:init
|
:demand t
|
||||||
|
:commands (smooth-scroll-mode)
|
||||||
|
:config
|
||||||
(progn
|
(progn
|
||||||
(smooth-scroll-mode)
|
(smooth-scroll-mode)
|
||||||
(setq smooth-scroll/vscroll-step-size 8))
|
(setq smooth-scroll/vscroll-step-size 12)
|
||||||
:config
|
(diminish 'smooth-scroll-mode)))
|
||||||
(diminish 'smooth-scroll-mode))
|
|
||||||
|
|
||||||
(use-package string-inflection
|
(use-package string-inflection
|
||||||
:ensure t
|
:ensure t
|
||||||
@ -593,10 +597,10 @@ The current directory is assumed to be the project's root otherwise."
|
|||||||
(use-package edit-server
|
(use-package edit-server
|
||||||
:ensure t
|
:ensure t
|
||||||
:commands edit-server-start
|
:commands edit-server-start
|
||||||
:idle (edit-server-start)
|
|
||||||
:config
|
:config
|
||||||
(progn
|
(progn
|
||||||
(setq edit-server-new-frame nil)))
|
(setq edit-server-new-frame nil)
|
||||||
|
(edit-server-start)))
|
||||||
|
|
||||||
(use-package jabber
|
(use-package jabber
|
||||||
:ensure t
|
:ensure t
|
||||||
@ -634,14 +638,15 @@ The current directory is assumed to be the project's root otherwise."
|
|||||||
(progn
|
(progn
|
||||||
(unbind-key "C-c C-f" org-mode-map)
|
(unbind-key "C-c C-f" org-mode-map)
|
||||||
(setq helm-org-headings-fontify t)
|
(setq helm-org-headings-fontify t)
|
||||||
|
|
||||||
;; Enable appointment notifications.
|
;; Enable appointment notifications.
|
||||||
(defadvice org-agenda-to-appt (before wickedcool activate)
|
;; (defadvice org-agenda-to-appt (before wickedcool activate)
|
||||||
"Clear the appt-time-msg-list."
|
;; "Clear the appt-time-msg-list."
|
||||||
(setq appt-time-msg-list nil))
|
;; (setq appt-time-msg-list nil))
|
||||||
(appt-activate)
|
;; (appt-activate)
|
||||||
(defun org-agenda-to-appt-no-message ()
|
;; (defun org-agenda-to-appt-no-message ()
|
||||||
(suppress-messages (org-agenda-to-appt)))
|
;; (suppress-messages (org-agenda-to-appt)))
|
||||||
(run-at-time "00:00" 60 'org-agenda-to-appt-no-message)
|
;; (run-at-time "00:00" 60 'org-agenda-to-appt-no-message)
|
||||||
|
|
||||||
(defun org-archive-if (condition-function)
|
(defun org-archive-if (condition-function)
|
||||||
(if (funcall condition-function)
|
(if (funcall condition-function)
|
||||||
@ -1077,7 +1082,7 @@ marking if it still had that."
|
|||||||
|
|
||||||
(use-package sauron
|
(use-package sauron
|
||||||
:ensure t
|
:ensure t
|
||||||
:defer t
|
:defer 5
|
||||||
:commands (sauron-start sauron-start-hidden)
|
:commands (sauron-start sauron-start-hidden)
|
||||||
:init
|
:init
|
||||||
(progn
|
(progn
|
||||||
@ -1089,6 +1094,7 @@ marking if it still had that."
|
|||||||
(makunbound 'dbus-path-emacs)))
|
(makunbound 'dbus-path-emacs)))
|
||||||
:config
|
:config
|
||||||
(progn
|
(progn
|
||||||
|
(sauron-start-hidden)
|
||||||
;; This should really check (featurep 'dbus) but for some reason
|
;; This should really check (featurep 'dbus) but for some reason
|
||||||
;; this is always true even if support is not there.
|
;; this is always true even if support is not there.
|
||||||
(setq sauron-prio-sauron-started 2)
|
(setq sauron-prio-sauron-started 2)
|
||||||
@ -1114,9 +1120,7 @@ marking if it still had that."
|
|||||||
(funcall handler origin priority message properties)))
|
(funcall handler origin priority message properties)))
|
||||||
;; Prefering alert.el for now ;; (add-hook 'sauron-event-added-functions 'sauron:dispatch-notify)
|
;; Prefering alert.el for now ;; (add-hook 'sauron-event-added-functions 'sauron:dispatch-notify)
|
||||||
(sauron-start-hidden)
|
(sauron-start-hidden)
|
||||||
(add-hook 'sauron-event-added-functions 'sauron-alert-el-adapter))
|
(add-hook 'sauron-event-added-functions 'sauron-alert-el-adapter)))
|
||||||
:idle (sauron-start-hidden)
|
|
||||||
:idle-priority 3)
|
|
||||||
|
|
||||||
(use-package screenshot :ensure t)
|
(use-package screenshot :ensure t)
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user