tweaks
This commit is contained in:
parent
a8698dbc9f
commit
0541b7f796
@ -1,4 +1,4 @@
|
|||||||
* General Configuation
|
* General
|
||||||
** Lexical Binding
|
** Lexical Binding
|
||||||
This makes it so that the file that is produced from tangling this file uses lexical scoping
|
This makes it so that the file that is produced from tangling this file uses lexical scoping
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
@ -262,7 +262,7 @@ These definitions silence the byte-compiler
|
|||||||
;; y and n instead of yes and no
|
;; y and n instead of yes and no
|
||||||
(defalias 'yes-or-no-p 'y-or-n-p)
|
(defalias 'yes-or-no-p 'y-or-n-p)
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
* emacs-lisp
|
* Lisp
|
||||||
** An emacs version predicate builder:
|
** An emacs version predicate builder:
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(defmacro imalison:emacs-version-predicate (major-version minor-version)
|
(defmacro imalison:emacs-version-predicate (major-version minor-version)
|
||||||
@ -2404,7 +2404,6 @@ I use helm for almost all emacs completion
|
|||||||
|
|
||||||
(use-package hackernews :commands hackernews)
|
(use-package hackernews :commands hackernews)
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
* Keybindings
|
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(bind-key "M-q" 'fill-or-unfill-paragraph)
|
(bind-key "M-q" 'fill-or-unfill-paragraph)
|
||||||
(bind-key "C-c C-s" 'sudo-edit)
|
(bind-key "C-c C-s" 'sudo-edit)
|
||||||
@ -2502,94 +2501,94 @@ Set the character used to represent spaces to ·, and the character used for tab
|
|||||||
** TODO Finish making the following litarate
|
** TODO Finish making the following litarate
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
|
||||||
;; =============================================================================
|
;; =============================================================================
|
||||||
;; Themes
|
;; Themes
|
||||||
;; =============================================================================
|
;; =============================================================================
|
||||||
|
|
||||||
;; These can be overriden in custom-before.el
|
;; These can be overriden in custom-before.el
|
||||||
(defvar imalison:light-theme 'solarized-light)
|
(defvar imalison:light-theme 'solarized-light)
|
||||||
(defvar imalison:dark-theme 'material)
|
(defvar imalison:dark-theme 'material)
|
||||||
(use-package theme-changer
|
(use-package theme-changer
|
||||||
:disabled t
|
:disabled t
|
||||||
:config
|
:config
|
||||||
(progn
|
|
||||||
(destructuring-bind (latitude longitude)
|
|
||||||
(imalison:get-lat-long)
|
|
||||||
(setq calendar-latitude latitude)
|
|
||||||
(setq calendar-longitude longitude))))
|
|
||||||
|
|
||||||
(defun imalison:set-font-height ()
|
|
||||||
(interactive)
|
|
||||||
(let ((new-height (read-face-attribute 'default :height (selected-frame))))
|
|
||||||
(set-face-attribute 'default nil :height new-height)))
|
|
||||||
|
|
||||||
(defvar imalison:linum-format)
|
|
||||||
|
|
||||||
(make-variable-buffer-local 'imalison:linum-format)
|
|
||||||
(defun imalison:linum-before-numbering-hook ()
|
|
||||||
(setq imalison:linum-format
|
|
||||||
(concat "%" (number-to-string
|
|
||||||
(max (length
|
|
||||||
(number-to-string
|
|
||||||
(count-lines (point-min) (point-max)))) 3)) "d")))
|
|
||||||
|
|
||||||
(defun imalison:format-linum (line-text)
|
|
||||||
(propertize (format imalison:linum-format line-text) 'face 'linum))
|
|
||||||
|
|
||||||
(defun imalison:remove-fringe-and-hl-line-mode (&rest _stuff)
|
|
||||||
(interactive)
|
|
||||||
(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
|
|
||||||
(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
|
|
||||||
(if (fboundp 'menu-bar-mode) (menu-bar-mode -1))
|
|
||||||
;; (set-fringe-mode 0) ;; Lets reenable fringes. They seem useful
|
|
||||||
(defvar-setq linum-format 'imalison:format-linum)
|
|
||||||
(add-hook 'linum-before-numbering-hook 'imalison:linum-before-numbering-hook)
|
|
||||||
(setq left-margin-width 0)
|
|
||||||
(defvar-setq hl-line-mode nil))
|
|
||||||
|
|
||||||
(defun imalison:after-load-theme (&rest _args)
|
|
||||||
(when (fboundp 'powerline-reset)
|
|
||||||
(powerline-reset))
|
|
||||||
(set-face-background 'fringe (face-background 'default))
|
|
||||||
(imalison:restore-ansi-term-color-vector))
|
|
||||||
|
|
||||||
(when t
|
|
||||||
(if
|
|
||||||
(advice-add 'load-theme :after #'imalison:after-load-theme)
|
|
||||||
(defadvice load-theme (after name activate)
|
|
||||||
(imalison:after-load-theme))))
|
|
||||||
|
|
||||||
(when (file-exists-p custom-after-file) (load custom-after-file))
|
|
||||||
|
|
||||||
(defvar imalison:ansi-term-color-vector ansi-term-color-vector)
|
|
||||||
|
|
||||||
(defun imalison:ansi-term-color-vector-broken? ()
|
|
||||||
(--some (or (eq it 'unspecified) (not (symbolp it)))
|
|
||||||
(append ansi-term-color-vector nil)))
|
|
||||||
|
|
||||||
(defun imalison:restore-ansi-term-color-vector (&optional force)
|
|
||||||
(when (or force (imalison:ansi-term-color-vector-broken?))
|
|
||||||
(setq ansi-term-color-vector imalison:ansi-term-color-vector)))
|
|
||||||
|
|
||||||
(defun imalison:appearance (&optional frame)
|
|
||||||
(interactive)
|
|
||||||
(message "called set appearance")
|
|
||||||
(if (display-graphic-p)
|
|
||||||
(progn
|
|
||||||
(set-face-attribute 'default nil :font "Source Code Pro")
|
|
||||||
(set-face-attribute 'default nil :weight 'semi-bold)
|
|
||||||
(set-face-attribute 'default nil :height 135))
|
|
||||||
(progn
|
(progn
|
||||||
(load-theme 'source-code-pro t)
|
(destructuring-bind (latitude longitude)
|
||||||
(message "not setting font")))
|
(imalison:get-lat-long)
|
||||||
(load-theme imalison:dark-theme t)
|
(setq calendar-latitude latitude)
|
||||||
(imalison:remove-fringe-and-hl-line-mode)
|
(setq calendar-longitude longitude))))
|
||||||
(message "finished set appearance"))
|
|
||||||
|
|
||||||
;; This is needed because you can't set the font or theme at daemon start-up.
|
(defun imalison:set-font-height ()
|
||||||
;; (when (display-graphic-p) (imalison:appearance))
|
(interactive)
|
||||||
(add-hook 'after-init-hook 'imalison:appearance)
|
(let ((new-height (read-face-attribute 'default :height (selected-frame))))
|
||||||
(add-hook 'after-make-frame-functions 'imalison:appearance)
|
(set-face-attribute 'default nil :height new-height)))
|
||||||
(remove-hook 'after-make-frame-functions 'imalison:appearance)
|
|
||||||
|
(defvar imalison:linum-format)
|
||||||
|
|
||||||
|
(make-variable-buffer-local 'imalison:linum-format)
|
||||||
|
(defun imalison:linum-before-numbering-hook ()
|
||||||
|
(setq imalison:linum-format
|
||||||
|
(concat "%" (number-to-string
|
||||||
|
(max (length
|
||||||
|
(number-to-string
|
||||||
|
(count-lines (point-min) (point-max)))) 3)) "d")))
|
||||||
|
|
||||||
|
(defun imalison:format-linum (line-text)
|
||||||
|
(propertize (format imalison:linum-format line-text) 'face 'linum))
|
||||||
|
|
||||||
|
(defun imalison:remove-fringe-and-hl-line-mode (&rest _stuff)
|
||||||
|
(interactive)
|
||||||
|
(if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1))
|
||||||
|
(if (fboundp 'tool-bar-mode) (tool-bar-mode -1))
|
||||||
|
(if (fboundp 'menu-bar-mode) (menu-bar-mode -1))
|
||||||
|
;; (set-fringe-mode 0) ;; Lets reenable fringes. They seem useful
|
||||||
|
(defvar-setq linum-format 'imalison:format-linum)
|
||||||
|
(add-hook 'linum-before-numbering-hook 'imalison:linum-before-numbering-hook)
|
||||||
|
(setq left-margin-width 0)
|
||||||
|
(defvar-setq hl-line-mode nil))
|
||||||
|
|
||||||
|
(defun imalison:after-load-theme (&rest _args)
|
||||||
|
(when (fboundp 'powerline-reset)
|
||||||
|
(powerline-reset))
|
||||||
|
(set-face-background 'fringe (face-background 'default))
|
||||||
|
(imalison:restore-ansi-term-color-vector))
|
||||||
|
|
||||||
|
(when t
|
||||||
|
(if
|
||||||
|
(advice-add 'load-theme :after #'imalison:after-load-theme)
|
||||||
|
(defadvice load-theme (after name activate)
|
||||||
|
(imalison:after-load-theme))))
|
||||||
|
|
||||||
|
(when (file-exists-p custom-after-file) (load custom-after-file))
|
||||||
|
|
||||||
|
(defvar imalison:ansi-term-color-vector ansi-term-color-vector)
|
||||||
|
|
||||||
|
(defun imalison:ansi-term-color-vector-broken? ()
|
||||||
|
(--some (or (eq it 'unspecified) (not (symbolp it)))
|
||||||
|
(append ansi-term-color-vector nil)))
|
||||||
|
|
||||||
|
(defun imalison:restore-ansi-term-color-vector (&optional force)
|
||||||
|
(when (or force (imalison:ansi-term-color-vector-broken?))
|
||||||
|
(setq ansi-term-color-vector imalison:ansi-term-color-vector)))
|
||||||
|
|
||||||
|
(defun imalison:appearance (&optional frame)
|
||||||
|
(interactive)
|
||||||
|
(message "called set appearance")
|
||||||
|
(if (display-graphic-p)
|
||||||
|
(progn
|
||||||
|
(set-face-attribute 'default nil :font "Source Code Pro")
|
||||||
|
(set-face-attribute 'default nil :weight 'semi-bold)
|
||||||
|
(set-face-attribute 'default nil :height 135))
|
||||||
|
(progn
|
||||||
|
(load-theme 'source-code-pro t)
|
||||||
|
(message "not setting font")))
|
||||||
|
(load-theme imalison:dark-theme t)
|
||||||
|
(imalison:remove-fringe-and-hl-line-mode)
|
||||||
|
(message "finished set appearance"))
|
||||||
|
|
||||||
|
;; This is needed because you can't set the font or theme at daemon start-up.
|
||||||
|
;; (when (display-graphic-p) (imalison:appearance))
|
||||||
|
(add-hook 'after-init-hook 'imalison:appearance)
|
||||||
|
(add-hook 'after-make-frame-functions 'imalison:appearance)
|
||||||
|
(remove-hook 'after-make-frame-functions 'imalison:appearance)
|
||||||
|
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user