@use-package => @def-package

This commit is contained in:
Henrik Lissner 2017-02-11 06:51:59 -05:00
parent 0f5dbd0bac
commit cf927acc07
10 changed files with 25 additions and 32 deletions

View file

@ -1,5 +1,4 @@
;;; feature/evil/config.el ;;; feature/evil/config.el
(provide '+evil)
;; I'm a vimmer at heart. Its modal philosophy suits me better, and this module ;; I'm a vimmer at heart. Its modal philosophy suits me better, and this module
;; strives to make Emacs a much better vim than vim was. ;; strives to make Emacs a much better vim than vim was.

View file

@ -1,16 +1,16 @@
;;; feature/version-control/+git.el ;;; feature/version-control/+git.el
(@use-package gitconfig-mode (@def-package gitconfig-mode
:mode "/\\.?git/?config$" :mode "/\\.?git/?config$"
:mode "/\\.gitmodules$" :mode "/\\.gitmodules$"
:init (add-hook 'gitconfig-mode-hook 'flyspell-mode)) :init (add-hook 'gitconfig-mode-hook 'flyspell-mode))
(@use-package gitignore-mode (@def-package gitignore-mode
:mode "/\\.?git/?config$" :mode "/\\.?git/?config$"
:mode "/\\.gitmodules$") :mode "/\\.gitmodules$")
(@use-package git-gutter-fringe (@def-package git-gutter-fringe
:commands git-gutter-mode :commands git-gutter-mode
:init (@add-hook (text-mode prog-mode conf-mode) 'git-gutter-mode) :init (@add-hook (text-mode prog-mode conf-mode) 'git-gutter-mode)
:config :config
@ -24,20 +24,17 @@
(advice-add 'evil-force-normal-state :after 'git-gutter))) (advice-add 'evil-force-normal-state :after 'git-gutter)))
(@use-package browse-at-remote (@def-package browse-at-remote
:commands (browse-at-remote/browse browse-at-remote/get-url)) :commands (browse-at-remote/browse browse-at-remote/get-url))
(@use-package magit (@def-package magit
:commands magit-status :commands magit-status
:config :config
(@set :popup "^\\*magit.+" :regexp t) (@set :popup "^\\*magit.+" :regexp t)
(@after evil-snipe
(@after evil
(require 'evil-magit)
;; evil-snipe conflicts with magit ;; evil-snipe conflicts with magit
(add-hook 'magit-mode-hook 'turn-off-evil-snipe-override-mode))) (add-hook 'magit-mode-hook 'turn-off-evil-snipe-override-mode)))
(@use-package evil-magit
:when (featurep 'evil)
:after magit)

View file

@ -1,7 +1,7 @@
;;; feature/version-control/autoload.el ;;; feature/version-control/autoload.el
;;;###autoload ;;;###autoload
(defun +vcs-git-root () (defun +vcs-root ()
"Get git url root." "Get git url root."
(-when-let (url (car-safe (browse-at-remote--remote-ref buffer-file-name))) (-when-let (url (car-safe (browse-at-remote--remote-ref buffer-file-name)))
(cdr (browse-at-remote--get-url-from-remote url)))) (cdr (browse-at-remote--get-url-from-remote url))))
@ -27,6 +27,6 @@ Fallback to repository root."
(defun +vcs/git-browse-issues () (defun +vcs/git-browse-issues ()
"Open the github issues page for current repo." "Open the github issues page for current repo."
(interactive) (interactive)
(if-let (root (+vcs-git-root)) (if-let (root (+vcs-root))
(browse-url (concat root "/issues")) (browse-url (concat root "/issues"))
(user-error "No git root found!"))) (user-error "No git root found!")))

View file

@ -1,5 +1,4 @@
;;; feature/version-control/config.el ;;; feature/version-control/config.el
(provide '+version-control)
(@load +git) (@load +git)
;; (@load +hg) ;; (@load +hg)

View file

@ -6,10 +6,12 @@
;;; +git ;;; +git
(@package browse-at-remote) (@package browse-at-remote)
(@package evil-magit :needs evil)
(@package git-gutter-fringe) (@package git-gutter-fringe)
(@package gitconfig-mode) (@package gitconfig-mode)
(@package gitignore-mode) (@package gitignore-mode)
(@package magit) (@package magit)
(when (@featurep :feature evil)
(@package evil-magit))
;;; TODO +hg ;;; TODO +hg

View file

@ -11,7 +11,7 @@
"A hook that runs when persp loads a new session.") "A hook that runs when persp loads a new session.")
(@use-package persp-mode :demand t (@def-package persp-mode :demand t
:init :init
(setq persp-autokill-buffer-on-remove 'kill-weak (setq persp-autokill-buffer-on-remove 'kill-weak
persp-nil-name "main" persp-nil-name "main"

View file

@ -1,7 +1,6 @@
;;; lang/emacs-lisp/config.el ;;; lang/emacs-lisp/config.el
(provide '+emacs-lisp)
(@use-package elisp-mode (@def-package elisp-mode
:mode ("/Cask$" . emacs-lisp-mode) :mode ("/Cask$" . emacs-lisp-mode)
:init :init
(@add-hook emacs-lisp-mode '(highlight-quoted-mode auto-compile-on-save-mode +emacs-lisp|hook)) (@add-hook emacs-lisp-mode '(highlight-quoted-mode auto-compile-on-save-mode +emacs-lisp|hook))
@ -57,17 +56,17 @@
;; Plugins ;; Plugins
;; ;;
(@use-package auto-compile (@def-package auto-compile
:commands auto-compile-on-save-mode :commands auto-compile-on-save-mode
:config :config
(setq auto-compile-display-buffer nil (setq auto-compile-display-buffer nil
auto-compile-use-mode-line nil)) auto-compile-use-mode-line nil))
(@use-package highlight-quoted (@def-package highlight-quoted
:commands highlight-quoted-mode) :commands highlight-quoted-mode)
(@use-package slime (@def-package slime
:config (setq inferior-lisp-program "clisp")) :config (setq inferior-lisp-program "clisp"))

View file

@ -1,7 +1,6 @@
;; lang/javascript/config.el ;; lang/javascript/config.el
(provide '+javascript)
(@use-package js2-mode (@def-package js2-mode
:mode "\\.js$" :mode "\\.js$"
:interpreter "node" :interpreter "node"
:init :init
@ -48,13 +47,13 @@
(:n js2r-forward-slurp "forward slurp") (:n js2r-forward-slurp "forward slurp")
(:n js2r-forward-barf "forward barf"))) (:n js2r-forward-barf "forward barf")))
(@use-package js2-refactor :after emr) (@def-package js2-refactor :after emr)
(@use-package company-tern :commands company-tern :after tern) (@def-package company-tern :commands company-tern :after tern)
(@use-package jsx-mode :mode "\\.jsx$") (@def-package jsx-mode :mode "\\.jsx$")
(@use-package coffee-mode (@def-package coffee-mode
:mode "\\.coffee$" :mode "\\.coffee$"
:init (setq coffee-indent-like-python-mode t)) :init (setq coffee-indent-like-python-mode t))

View file

@ -1,5 +1,4 @@
;;; os/macos/config.el ;;; os/macos/config.el
(provide '+macos)
(setq mac-command-modifier 'meta (setq mac-command-modifier 'meta
mac-option-modifier 'alt mac-option-modifier 'alt

View file

@ -1,5 +1,4 @@
;;; ui/doom/config.el ;;; ui/doom/config.el
(provide '+doom)
(defvar +doom-theme 'doom-one (defvar +doom-theme 'doom-one
"The color theme currently in use.") "The color theme currently in use.")
@ -41,7 +40,7 @@
;; Apply the doom-one theme from `doom-themes' for full compatibility; gives ;; Apply the doom-one theme from `doom-themes' for full compatibility; gives
;; Emacs a look inspired by Dark One in Atom. ;; Emacs a look inspired by Dark One in Atom.
;; <https://github.com/hlissner/emacs-doom-theme> ;; <https://github.com/hlissner/emacs-doom-theme>
(@use-package doom-themes :demand t (@def-package doom-themes :demand t
:load-path "~/work/plugins/emacs-doom-theme" :load-path "~/work/plugins/emacs-doom-theme"
:config :config
(load-theme +doom-theme t) (load-theme +doom-theme t)
@ -66,7 +65,7 @@
;; Causes a flash around the cursor when it moves across a "large" distance. ;; Causes a flash around the cursor when it moves across a "large" distance.
;; Usually between windows, or across files. This makes it easier to keep track ;; Usually between windows, or across files. This makes it easier to keep track
;; where your cursor is, which I find helpful on my 30" 2560x1600 display. ;; where your cursor is, which I find helpful on my 30" 2560x1600 display.
(@use-package beacon :demand t (@def-package beacon :demand t
:config :config
(beacon-mode +1) (beacon-mode +1)
(setq beacon-color (let ((bg (face-attribute 'highlight :background nil t))) (setq beacon-color (let ((bg (face-attribute 'highlight :background nil t)))