More literateization
This commit is contained in:
parent
6cd8dbca9d
commit
6f810fb5df
@ -19,13 +19,22 @@ custom-before.el is loaded before the rest of init.el, while custom-after.el is
|
||||
(defvar custom-after-file "~/.emacs.d/custom-after.el")
|
||||
(when (file-exists-p machine-custom) (load machine-custom))
|
||||
#+END_SRC
|
||||
* Custom emacs-lisp
|
||||
|
||||
** GUI Disables
|
||||
Death to any gui elements in emacs! Do this EARLY so that emacs doesn't redisplay in a way that is visually unpleasant on startup a bunch of times.
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defun emacs24_4-p ()
|
||||
(or (and (>= emacs-major-version 24)
|
||||
(>= emacs-minor-version 4))
|
||||
(>= emacs-major-version 25)))
|
||||
(when (fboundp 'menu-bar-mode) (menu-bar-mode -1))
|
||||
(when (fboundp 'tool-bar-mode) (tool-bar-mode -1))
|
||||
(when (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
|
||||
#+END_SRC
|
||||
* Custom emacs-lisp
|
||||
An emacs version predicate builder
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defmacro emacs-version-predicate (major-version minor-version)
|
||||
`(lambda ()
|
||||
(or (> emacs-major-version ,major-version)
|
||||
(and (>= emacs-major-version ,major-version)
|
||||
(>= emacs-minor-version ,minor-version)))))
|
||||
(defalias emacs24_4-p (emacs-version-predicate 24 4))
|
||||
#+END_SRC
|
||||
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
@ -34,7 +43,8 @@ custom-before.el is loaded before the rest of init.el, while custom-after.el is
|
||||
|
||||
* Packages
|
||||
** Essential
|
||||
Helm for almost all emacs completion
|
||||
*** helm
|
||||
I use helm for almost all emacs completion
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package helm-config
|
||||
:ensure helm
|
||||
@ -144,6 +154,22 @@ Helm for almost all emacs completion
|
||||
(helm-mode 1)
|
||||
(diminish 'helm-mode)))
|
||||
#+END_SRC
|
||||
*** magit
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package magit
|
||||
:commands magit-status
|
||||
:bind (("C-x g" . magit-status))
|
||||
:config
|
||||
(progn
|
||||
(defvar-setq magit-last-seen-setup-instructions "1.4.0")
|
||||
(magit-auto-revert-mode)
|
||||
(use-package magit-filenotify
|
||||
;; Seems like OSX does not support filenotify.
|
||||
:disabled t
|
||||
:if (funcall o(emacs-version-predicate 24 4))
|
||||
:config
|
||||
:init (add-hook 'magit-status-mode-hook 'magit-filenotify-mode))))
|
||||
#+END_SRC
|
||||
** Major-Mode
|
||||
* Keybindings
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
@ -175,22 +201,14 @@ Helm for almost all emacs completion
|
||||
(quote ([1 67108896 19 100 6 23 40 19 41 return
|
||||
backspace 32 46 6 4] 0 "%d")) arg)))
|
||||
#+END_SRC
|
||||
* TODO Make the stuff under this heading literate
|
||||
** OSX
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
|
||||
(when (equal system-type 'darwin)
|
||||
(setq mac-option-modifier 'meta)
|
||||
(setq mac-command-modifier 'super))
|
||||
|
||||
|
||||
;; =============================================================================
|
||||
;; GUI Disables
|
||||
;; =============================================================================
|
||||
|
||||
;; Turn off mouse interface early in startup to avoid momentary display
|
||||
(when (fboundp 'menu-bar-mode) (menu-bar-mode -1))
|
||||
(when (fboundp 'tool-bar-mode) (tool-bar-mode -1))
|
||||
(when (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
|
||||
#+END_SRC
|
||||
* TODO Make the stuff under this heading literate
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
|
||||
;; =============================================================================
|
||||
;; byte-compiler
|
||||
@ -904,20 +922,6 @@ buffer is not visiting a file."
|
||||
:disabled t
|
||||
:config (github-notifier-mode))
|
||||
|
||||
(use-package magit
|
||||
:commands magit-status
|
||||
:bind (("C-x g" . magit-status))
|
||||
:config
|
||||
(progn
|
||||
(defvar-setq magit-last-seen-setup-instructions "1.4.0")
|
||||
(magit-auto-revert-mode)
|
||||
(use-package magit-filenotify
|
||||
;; Seems like OSX does not support filenotify.
|
||||
:disabled t
|
||||
:if (emacs24_4-p)
|
||||
:config
|
||||
:init (add-hook 'magit-status-mode-hook 'magit-filenotify-mode))))
|
||||
|
||||
(use-package company
|
||||
:commands company-mode imalison:company
|
||||
:bind (("C-\\" . imalison:company))
|
||||
|
Loading…
Reference in New Issue
Block a user