General cleanup

This commit is contained in:
Henrik Lissner 2016-03-27 18:18:43 -04:00
parent 2f1e1ee880
commit 1c37aebd2e
9 changed files with 29 additions and 24 deletions

3
Cask
View file

@ -170,9 +170,6 @@
(depends-on "php-refactor-mode") (depends-on "php-refactor-mode")
(depends-on "php-boris") (depends-on "php-boris")
(depends-on "php-extras") (depends-on "php-extras")
;; (depends-on "hack-mode"
;; :git "https://github.com/facebook/hhvm"
;; :files ("hphp/hack/editor-plugins/emacs/*.el"))
;; Python -- modules/module-python.el ;; Python -- modules/module-python.el
(depends-on "anaconda-mode") (depends-on "anaconda-mode")

View file

@ -44,11 +44,12 @@
(defun narf (packages) (defun narf (packages)
"Bootstrap NARF emacs and initialize PACKAGES" "Bootstrap NARF emacs and initialize PACKAGES"
;; stop package.el from being annoying. NARF relies entirely on Cask. ;; stop package.el from being annoying. I rely solely on Cask.
(setq-default (setq-default
package--init-file-ensured t package--init-file-ensured t
package-enable-at-startup nil package-enable-at-startup nil
gc-cons-threshold 4388608) gc-cons-threshold 4388608
gc-cons-percentage 0.2)
;; prematurely optimize for faster startup ;; prematurely optimize for faster startup
(let ((gc-cons-threshold 169715200) (let ((gc-cons-threshold 169715200)
@ -82,9 +83,6 @@
;; Load 'em up! ;; Load 'em up!
(load-theme narf-current-theme t) (load-theme narf-current-theme t)
(mapc 'require packages) (mapc 'require packages)))
(defun display-startup-echo-area-message ()
(message ":: Loaded in %s" (emacs-init-time)))))
;;; bootstrap.el ends here ;;; bootstrap.el ends here

View file

@ -26,8 +26,9 @@
shift-select-mode t shift-select-mode t
tabify-regexp "^\t* [ \t]+" tabify-regexp "^\t* [ \t]+"
whitespace-style '(face tabs tab-mark trailing newline newline-mark indentation lines-tail)
whitespace-line-column fill-column whitespace-line-column fill-column
whitespace-style '(face tabs tab-mark newline newline-mark
trailing indentation lines-tail)
whitespace-display-mappings whitespace-display-mappings
'((tab-mark ?\t [?> ?\t]) '((tab-mark ?\t [?> ?\t])
(newline-mark 10 [36 10]))) (newline-mark 10 [36 10])))
@ -66,7 +67,7 @@ enable multiple minor modes for the same regexp.")
(funcall (cdar alist) 1)) (funcall (cdar alist) 1))
(setq alist (cdr alist)))))) (setq alist (cdr alist))))))
(add-hook! find-file 'narf|enable-minor-mode-maybe) (add-hook 'find-file-hook 'narf|enable-minor-mode-maybe)
;; ;;

View file

@ -8,9 +8,10 @@
quickrun-compile-only quickrun-compile-only
quickrun-replace-region quickrun-replace-region
helm-quickrun) helm-quickrun)
:init
(add-hook 'quickrun/mode-hook 'linum-mode)
:config :config
(setq quickrun-focus-p nil) (setq quickrun-focus-p nil)
(add-hook! quickrun/mode '(linum-mode))
(add-to-list 'quickrun-file-alist '("\\.gvy$" . "groovy"))) (add-to-list 'quickrun-file-alist '("\\.gvy$" . "groovy")))
(use-package repl-toggle (use-package repl-toggle

View file

@ -56,6 +56,10 @@
ido-save-directory-list-file (concat narf-temp-dir "/ido.last")) ido-save-directory-list-file (concat narf-temp-dir "/ido.last"))
:config :config
(add-hook! ido-setup (add-hook! ido-setup
(add-to-list 'ido-ignore-files "\\`.DS_Store$")
(add-to-list 'ido-ignore-files "Icon\\?$")
(advice-add 'ido-sort-mtime :override 'narf*ido-sort-mtime)
(require 'ido-vertical-mode) (require 'ido-vertical-mode)
(ido-vertical-mode 1) (ido-vertical-mode 1)
(require 'flx-ido) (require 'flx-ido)
@ -68,10 +72,6 @@
"C-w" 'ido-delete-backward-word-updir "C-w" 'ido-delete-backward-word-updir
"C-u" 'ido-up-directory)) "C-u" 'ido-up-directory))
(add-to-list 'ido-ignore-files "\\`.DS_Store$")
(add-to-list 'ido-ignore-files "Icon\\?$")
(advice-add 'ido-sort-mtime :override 'narf*ido-sort-mtime)
(add-hook! (ido-make-file-list ido-make-dir-list) 'narf*ido-sort-mtime) (add-hook! (ido-make-file-list ido-make-dir-list) 'narf*ido-sort-mtime)
(add-hook! ido-setup 'narf|ido-setup-home-keybind)) (add-hook! ido-setup 'narf|ido-setup-home-keybind))

View file

@ -2,7 +2,7 @@
(use-package gitconfig-mode (use-package gitconfig-mode
:mode ("/\\.?git/?config$" "/\\.gitmodules$") :mode ("/\\.?git/?config$" "/\\.gitmodules$")
:init (add-hook! gitconfig-mode 'flyspell-mode)) :init (add-hook 'gitconfig-mode-hook 'flyspell-mode))
(use-package gitignore-mode (use-package gitignore-mode
:mode ("/\\.gitignore$" :mode ("/\\.gitignore$"
@ -34,7 +34,7 @@
nil nil 'center) nil nil 'center)
(advice-add 'evil-force-normal-state :after 'git-gutter) (advice-add 'evil-force-normal-state :after 'git-gutter)
(add-hook! focus-in 'git-gutter:update-all-windows)) (add-hook 'focus-in-hook 'git-gutter:update-all-windows))
(after! vc-annotate (after! vc-annotate
(evil-set-initial-state 'vc-annotate-mode 'normal) (evil-set-initial-state 'vc-annotate-mode 'normal)

View file

@ -149,15 +149,19 @@
;; ;;
;; We put this on `after-init-hook' Allow errors to stop this from happening ;; We add this to `after-init-hook' to allow errors to stop this advice
(add-hook! after-init (add-hook! after-init
(defadvice save-buffers-kill-emacs (around no-query-kill-emacs activate) (defadvice save-buffers-kill-emacs (around no-query-kill-emacs activate)
"Prevent annoying \"Active processes exist\" query when you quit Emacs." "Prevent annoying \"Active processes exist\" query when you quit Emacs."
(cl-flet ((process-list ())) ad-do-it))) (cl-flet ((process-list ())) ad-do-it)))
(require 'server) (when (display-graphic-p)
(unless (server-running-p) (require 'server)
(server-start)) (unless (server-running-p)
(server-start)))
(defun display-startup-echo-area-message ()
(message ":: Loaded in %s" (emacs-init-time)))
(provide 'core) (provide 'core)
;;; core.el ends here ;;; core.el ends here

View file

@ -108,7 +108,7 @@
org-highlight-latex-and-related '(latex) org-highlight-latex-and-related '(latex)
org-latex-create-formula-image-program 'dvipng org-latex-create-formula-image-program 'dvipng
org-latex-image-default-width nil org-latex-image-default-width nil
org-latex-preview-ltxpng-directory (concat narf-temp-dir "ltxpng/") org-latex-preview-ltxpng-directory (concat narf-temp-dir "/ltxpng/")
org-latex-remove-logfiles nil org-latex-remove-logfiles nil
org-startup-with-latex-preview nil org-startup-with-latex-preview nil
;; org-latex-packages-alist ;; org-latex-packages-alist

View file

@ -50,7 +50,11 @@
:i [backtab] 'narf/dumb-dedent)) :i [backtab] 'narf/dumb-dedent))
(use-package web-mode (use-package web-mode
:mode ("\\.\\(p\\)?htm\\(l\\)?$" "\\.tpl\\(\\.php\\)?$" "\\.erb$" "wp-content/themes/.+/.+\\.php$") :mode ("\\.\\(p\\)?htm\\(l\\)?$"
"\\.tpl\\(\\.php\\)?$"
"\\.erb$"
"wp-content/themes/.+/.+\\.php$"
"\\.blade\\.php$")
:init :init
;; smartparens handles this ;; smartparens handles this
(setq web-mode-enable-auto-pairing nil (setq web-mode-enable-auto-pairing nil