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

Move window-init from core-ui.el to init.el

Browse source
This commit is contained in:
Henrik Lissner 2015-08-10 22:28:35 +02:00
parent 245b93b3ed
commit 8e87db6a9b
3 changed files with 15 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

14
core/core-ui.el
View file

@ -1,15 +1,10 @@
;;; core-ui.el --- interface settings ;;; core-ui.el --- interface settings
;; see lib/ui-defuns.el ;; see lib/ui-defuns.el
(load-theme (if window-system narf-default-theme narf-term-theme) t)
(when window-system (when window-system
(set-frame-font (apply #'font-spec narf-default-font))
(scroll-bar-mode -1) ; no scrollbar
(tool-bar-mode -1) ; no toolbar
(menu-bar-mode -1) ; no menubar
(set-frame-parameter nil 'fullscreen 'fullboth)
(fringe-mode '(2 . 8)) (fringe-mode '(2 . 8))
(setq frame-title-format '(buffer-file-name "%f" ("%b")))) ;; (setq frame-title-format '(buffer-file-name "%f" ("%b")))
)
(setq show-paren-delay 0) (setq show-paren-delay 0)
@ -33,11 +28,6 @@
indicate-empty-lines nil indicate-empty-lines nil
fringes-outside-margins t) ; fringes on the other side of line numbers fringes-outside-margins t) ; fringes on the other side of line numbers
(add-hook! after-init
(defadvice save-buffers-kill-emacs (around no-query-kill-emacs activate)
"Prevent annoying \"Active processes exist\" query when you quit Emacs."
(flet ((process-list ())) ad-do-it)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-package nlinum ; line numbers (use-package nlinum ; line numbers

5
core/core.el
View file

@ -179,5 +179,10 @@
(unless (server-running-p) (unless (server-running-p)
(server-start))) (server-start)))
(add-hook! after-init
(defadvice save-buffers-kill-emacs (around no-query-kill-emacs activate)
"Prevent annoying \"Active processes exist\" query when you quit Emacs."
(flet ((process-list ())) ad-do-it)))
(provide 'core) (provide 'core)
;;; core.el ends here ;;; core.el ends here

13
init.el
View file

@ -42,12 +42,15 @@
(defconst narf-debug-mode nil) (defconst narf-debug-mode nil)
(defconst narf-default-theme 'narf-dark) (scroll-bar-mode -1) ; no scrollbar
(defconst narf-term-theme 'wombat) (tool-bar-mode -1) ; no toolbar
(defconst narf-default-font '(:family "terminus (ttf)" :size 12 :antialias nil)) (menu-bar-mode -1) ; no menubar
(defconst narf-big-font '(:family "Inconsolata" :size 18 :antialias t))
(set-frame-font (font-spec :family "terminus (ttf)" :size 12 :antialias nil))
(set-frame-parameter nil 'fullscreen 'fullboth)
(load (concat user-emacs-directory "init-load-path.el")) (load (concat user-emacs-directory "init-load-path.el"))
(load-theme (if window-system 'narf-dark 'wombat) t)
(mapc 'require (mapc 'require
`(;; benchmark ; records load times in `require-times'; see `list-times' `(;; benchmark ; records load times in `require-times'; see `list-times'
core ; core/core.el core ; core/core.el
@ -79,7 +82,7 @@
module-elisp ; module-elisp ;
module-lua ; one-based indices? one-based indices. module-lua ; one-based indices? one-based indices.
module-lb6 ; LaunchBar 6 development module-lb6 ; LaunchBar 6 development
module-org ; for fearless [organized] leader ;; module-org ; for fearless [organized] leader
module-php ; making php less painful to work with module-php ; making php less painful to work with
module-python ; beautiful is better than ugly module-python ; beautiful is better than ugly
module-regex ; /^[^\s](meaning)[^\n]*/ module-regex ; /^[^\s](meaning)[^\n]*/