emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

General cleanup

Browse source
This commit is contained in:
Henrik Lissner 2015-12-09 02:03:13 -05:00
parent bbe9d70f5f
commit 6f8216a28a
8 changed files with 32 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

1
core/core-evil.el
View file

@ -66,7 +66,6 @@
(help-mode . normal) (help-mode . normal)
(message-mode . normal) (message-mode . normal)
(compilation-mode . normal) (compilation-mode . normal)
(inferior-emacs-lisp-mode . emacs)
(calendar-mode . emacs) (calendar-mode . emacs)
(Man-mode . emacs) (Man-mode . emacs)
(grep-mode . emacs) (grep-mode . emacs)

5
core/core-popup.el
View file

@ -16,6 +16,11 @@
("^\\*CPU-Profiler-Report .+\\*$" :regexp t :position bottom :height 0.35) ("^\\*CPU-Profiler-Report .+\\*$" :regexp t :position bottom :height 0.35)
("*Flycheck errors*" :position bottom :height 15 :stick t) ("*Flycheck errors*" :position bottom :height 15 :stick t)
("*quickrun*" :position bottom :height 15 :stick t) ("*quickrun*" :position bottom :height 15 :stick t)
("*minor-modes*" :position bottom :height 0.5 :stick t)
;; vcs
("\\*git-gutter.+\\*" :regexp t :position bottom :height 30 :stick t)
;; Helm ;; Helm
("^\\*[Hh]elm.*?\\*\\'" :regexp t :position bottom :height 0.2) ("^\\*[Hh]elm.*?\\*\\'" :regexp t :position bottom :height 0.2)
("*helm-mode-find-file-at-point*" :position bottom :height 10) ("*helm-mode-find-file-at-point*" :position bottom :height 10)

4
core/core-quickrun.el
View file

@ -10,9 +10,7 @@
helm-quickrun) helm-quickrun)
:config :config
(setq quickrun-focus-p t) (setq quickrun-focus-p t)
(add-hook! quickrun/mode 'linum-mode) (add-hook! quickrun/mode '(linum-mode yascroll-bar-mode))
(add-hook! quickrun/mode 'yascroll-bar-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

42
core/core-ui.el
View file

@ -8,27 +8,29 @@
;; Multiple cursors across buffers cause a strange redraw delay for ;; Multiple cursors across buffers cause a strange redraw delay for
;; some things, like auto-complete or evil-mode's cursor color ;; some things, like auto-complete or evil-mode's cursor color
;; switching. ;; switching.
cursor-in-non-selected-windows nil cursor-in-non-selected-windows nil
highlight-nonselected-windows nil highlight-nonselected-windows nil
uniquify-buffer-name-style nil ;; Custom mode-line solves duplicate buffer names
visible-bell nil ; silence of the bells uniquify-buffer-name-style nil
use-dialog-box nil ; always avoid GUI visible-bell nil ; silence of the bells
redisplay-dont-pause t use-dialog-box nil ; always avoid GUI
indicate-buffer-boundaries nil redisplay-dont-pause t
indicate-empty-lines t indicate-buffer-boundaries nil
fringes-outside-margins t indicate-empty-lines t
hl-line-sticky-flag nil ; only highlight in one window fringes-outside-margins t
hl-line-sticky-flag nil ; only highlight in one window
jit-lock-defer-time nil jit-lock-defer-time nil
jit-lock-stealth-time 1 jit-lock-stealth-time 1
split-width-threshold nil split-width-threshold nil
split-height-threshold 30 split-height-threshold 30
resize-mini-windows 'grow-only resize-mini-windows 'grow-only
fringe-indicator-alist (delq (assoc 'continuation fringe-indicator-alist) fringe-indicator-alist)) fringe-indicator-alist (delq (assoc 'continuation fringe-indicator-alist)
fringe-indicator-alist))
(defvar narf-fringe-size 6) (defvar narf-fringe-size 6)
(if window-system (if window-system
@ -45,8 +47,8 @@
(set-window-fringes (minibuffer-window) 0 0 nil) (set-window-fringes (minibuffer-window) 0 0 nil)
(defun narf|minibuffer-setup () (defun narf|minibuffer-setup ()
(make-local-variable 'face-remapping-alist)
(set-window-fringes (selected-window) 0 0 nil) (set-window-fringes (selected-window) 0 0 nil)
(make-local-variable 'face-remapping-alist)
(add-to-list 'face-remapping-alist '(default mode-line-inactive))) (add-to-list 'face-remapping-alist '(default mode-line-inactive)))
(add-hook! minibuffer-setup 'narf|minibuffer-setup)) (add-hook! minibuffer-setup 'narf|minibuffer-setup))
(menu-bar-mode -1)) (menu-bar-mode -1))
@ -66,10 +68,8 @@
(defvar narf--hl-line-mode nil) (defvar narf--hl-line-mode nil)
(make-variable-buffer-local 'narf--hl-line-mode) (make-variable-buffer-local 'narf--hl-line-mode)
(defun narf|hl-line-on () (defun narf|hl-line-on () (if narf--hl-line-mode (hl-line-mode +1)))
(when narf--hl-line-mode (hl-line-mode +1))) (defun narf|hl-line-off () (if narf--hl-line-mode (hl-line-mode -1)))
(defun narf|hl-line-off ()
(when narf--hl-line-mode (hl-line-mode -1)))
(add-hook! hl-line-mode (if hl-line-mode (setq narf--hl-line-mode t))) (add-hook! hl-line-mode (if hl-line-mode (setq narf--hl-line-mode t)))
(add-hook! evil-visual-state-entry 'narf|hl-line-off) (add-hook! evil-visual-state-entry 'narf|hl-line-off)

2
core/core.el
View file

@ -8,7 +8,7 @@
;; narf:... An ex command ;; narf:... An ex command
;; narf|... A hook ;; narf|... A hook
;; narf*... An advising function ;; narf*... An advising function
;; narf.... Custom hooks ;; narf.... Custom prefix commands
;; ...! Macro ;; ...! Macro
;; ;;
;;; ;;;

2
init.el
View file

@ -60,6 +60,7 @@
(IS-LINUX 'core-os-linux) (IS-LINUX 'core-os-linux)
(IS-WINDOWS 'core-os-win32)) (IS-WINDOWS 'core-os-win32))
;;; The heart of NARF
core-popup ; taming stray windows core-popup ; taming stray windows
core-ui ; draw me like one of your French editors core-ui ; draw me like one of your French editors
core-evil ; come to the dark side, we have cookies core-evil ; come to the dark side, we have cookies
@ -74,6 +75,7 @@
core-quickrun ; run code, run. core-quickrun ; run code, run.
core-workgroups ; cure Emacs alzheimers core-workgroups ; cure Emacs alzheimers
;;; Extras
module-cc ; c/c++/obj-c madness module-cc ; c/c++/obj-c madness
module-csharp ; unity, .NET, and mono shenanigans module-csharp ; unity, .NET, and mono shenanigans
module-collab ; wonewy, I'm so wonewy~ module-collab ; wonewy, I'm so wonewy~

16
modules/module-lisp.el
View file

@ -19,21 +19,7 @@
(add-to-list 'imenu-generic-expression (add-to-list 'imenu-generic-expression
'("Package" '("Package"
"\\(^\\s-*(use-package +\\)\\(\\_<.+\\_>\\)" 2)) "\\(^\\s-*(use-package +\\)\\(\\_<.+\\_>\\)" 2)))
;; Highlight extra NARF keywords
(let ((keywords '("add-hook!"
"map!"
"after!"
"λ"
"in!"
"define-company-backend!"
"define-text-object!"
"define-builder!"
)))
(font-lock-add-keywords 'emacs-lisp-mode
`((,(concat "(\\s-*" (regexp-opt keywords 'paren) "\\_>")
1 font-lock-keyword-face)) 'append)))
(font-lock-add-keywords (font-lock-add-keywords
'emacs-lisp-mode `(("\\(lambda\\)" (0 (narf/show-as ?λ))))) 'emacs-lisp-mode `(("\\(lambda\\)" (0 (narf/show-as ?λ)))))

3
modules/module-writing.el
View file

@ -2,7 +2,7 @@
(defvar biblio-directory (concat narf-dropbox-dir "docs/biblio/") "docstring") (defvar biblio-directory (concat narf-dropbox-dir "docs/biblio/") "docstring")
(setq-default visual-fill-column-center-text t) (setq-default visual-fill-column-center-text nil)
(defun narf|refresh-visual-fill-col () (defun narf|refresh-visual-fill-col ()
(visual-fill-column-mode +1)) (visual-fill-column-mode +1))
@ -55,7 +55,6 @@
(add-hook! LaTeX-mode 'turn-on-auto-fill) (add-hook! LaTeX-mode 'turn-on-auto-fill)
(use-package reftex (use-package reftex
:diminish reftex-mode
:config :config
(add-hook 'latex-mode-hook 'turn-on-reftex) (add-hook 'latex-mode-hook 'turn-on-reftex)
(add-hook 'LaTeX-mode-hook 'turn-on-reftex) (add-hook 'LaTeX-mode-hook 'turn-on-reftex)