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

Various tweaks & clean up

Browse source
This commit is contained in:
Henrik Lissner 2017-05-01 14:52:29 -04:00
parent 312371fc26
commit d651311d1d
5 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
core/autoload/debug.el
View file

@ -6,8 +6,8 @@
(interactive "d") (interactive "d")
(let ((hl-line-p (bound-and-true-p hl-line-mode))) (let ((hl-line-p (bound-and-true-p hl-line-mode)))
(if hl-line-p (hl-line-mode -1)) (if hl-line-p (hl-line-mode -1))
(let ((face (or (get-char-property (point) 'read-face-name) (let ((face (or (get-char-property pos 'read-face-name)
(get-char-property (point) 'face)))) (get-char-property pos 'face))))
(if face (message "Face: %s" face) (message "No face at %d" pos))) (if face (message "Face: %s" face) (message "No face at %d" pos)))
(if hl-line-p (hl-line-mode 1)))) (if hl-line-p (hl-line-mode 1))))

4
core/core-packages.el
View file

@ -299,9 +299,9 @@ throw an error if the file doesn't exist."
((stringp path) path) ((stringp path) path)
((listp path) (eval path)))) ((listp path) (eval path))))
(and load-file-name (file-name-directory load-file-name)) (and load-file-name (file-name-directory load-file-name))
(and buffer-file-name (file-name-directory buffer-file-name))
(and (bound-and-true-p byte-compile-current-file) (and (bound-and-true-p byte-compile-current-file)
(file-name-directory byte-compile-current-file))))) (file-name-directory byte-compile-current-file))
(and buffer-file-name (file-name-directory buffer-file-name)))))
(unless path (unless path
(error "Could not find %s" filesym)) (error "Could not find %s" filesym))
(let ((file (expand-file-name (concat (symbol-name filesym) ".el") path))) (let ((file (expand-file-name (concat (symbol-name filesym) ".el") path)))

3
core/core-popups.el
View file

@ -87,7 +87,8 @@ is enabled/disabled.'")
:config :config
(if (display-graphic-p) (if (display-graphic-p)
(shackle-mode +1) (shackle-mode +1)
(add-transient-hook! 'after-make-frame-functions (shackle-mode +1))) (add-transient-hook! 'after-make-frame-functions (shackle-mode +1))
(add-hook 'after-init-hook 'shackle-mode))
(defun doom*shackle-always-align (plist) (defun doom*shackle-always-align (plist)
"Ensure popups are always aligned and selected by default. Eliminates the need "Ensure popups are always aligned and selected by default. Eliminates the need

3
modules/ui/doom-modeline/config.el
View file

@ -154,7 +154,8 @@
"Face for warnings in the modeline. Used by `*flycheck'" "Face for warnings in the modeline. Used by `*flycheck'"
:group '+doom-modeline) :group '+doom-modeline)
(defface doom-modeline-urgent `((t (:inherit error))) (defface doom-modeline-urgent
`((t (:inherit error)))
"Face for errors in the modeline. Used by `*flycheck'" "Face for errors in the modeline. Used by `*flycheck'"
:group '+doom-modeline) :group '+doom-modeline)

2
modules/ui/doom/config.el
View file

@ -32,7 +32,7 @@
;; The native border "consumes" a pixel of the fringe on righter-most splits, ;; The native border "consumes" a pixel of the fringe on righter-most splits,
;; `window-divider' does not. Available since Emacs 25.1. ;; `window-divider' does not. Available since Emacs 25.1.
(setq window-divider-default-places t (setq window-divider-default-places t
window-divider-default-bottom-width 1 window-divider-default-bottom-width 0
window-divider-default-right-width 1) window-divider-default-right-width 1)
(window-divider-mode +1) (window-divider-mode +1)