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

General, minor refactoring

Browse source
This commit is contained in:
Henrik Lissner 2019-02-24 13:58:56 -05:00
parent 4aaeeb509c
commit 7c5eefee3e
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
6 changed files with 12 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

2
core/autoload/debug.el
View file

@ -115,7 +115,7 @@ markdown and copies it to your clipboard, ready to be pasted into bug reports!"
branch and commit." branch and commit."
(interactive) (interactive)
(require 'vc-git) (require 'vc-git)
(print! "Doom v%s (Emacs v%s)\nBranch: %s\nCommit: %s." (print! "Doom v%s (Emacs v%s)\nBranch: %s\nCommit: %s"
doom-version doom-version
emacs-version emacs-version
(or (vc-git--symbolic-ref doom-core-dir) (or (vc-git--symbolic-ref doom-core-dir)

2
core/autoload/editor.el
View file

@ -108,7 +108,7 @@ afterwards, kill line to beginning of line."
(interactive) (interactive)
(let ((empty-line-p (save-excursion (beginning-of-line) (let ((empty-line-p (save-excursion (beginning-of-line)
(looking-at-p "[ \t]*$")))) (looking-at-p "[ \t]*$"))))
(funcall (if (featurep 'evil) (funcall (if (fboundp 'evil-delete)
#'evil-delete #'evil-delete
#'delete-region) #'delete-region)
(point-at-bol) (point)) (point-at-bol) (point))

3
modules/app/calendar/config.el
View file

@ -28,8 +28,7 @@
(define-key cfw:calendar-mode-map "q" #'+calendar/quit) (define-key cfw:calendar-mode-map "q" #'+calendar/quit)
(when (featurep 'solaire-mode) (add-hook 'cfw:calendar-mode-hook #'doom|mark-buffer-as-real)
(add-hook 'cfw:calendar-mode-hook #'solaire-mode))
(add-hook 'cfw:calendar-mode-hook 'hide-mode-line-mode) (add-hook 'cfw:calendar-mode-hook 'hide-mode-line-mode)
(advice-add #'cfw:render-button :override #'+calendar*cfw:render-button)) (advice-add #'cfw:render-button :override #'+calendar*cfw:render-button))

2
modules/feature/lookup/packages.el
View file

@ -5,7 +5,7 @@
;; be loaded before it is byte-compiled during installation. To ensure this, we ;; be loaded before it is byte-compiled during installation. To ensure this, we
;; declare helm before dumb-jump. ;; declare helm before dumb-jump.
(when (featurep! :completion helm) (when (featurep! :completion helm)
(depends-on! :completion helm)) (package! helm))
;; ;;
(package! dumb-jump) (package! dumb-jump)

6
modules/lang/emacs-lisp/config.el
View file

@ -11,9 +11,9 @@
;; ;;
;; Config ;; Config
(add-to-list 'auto-mode-alist '("\\.Cask\\'" . emacs-lisp-mode)) (def-package! elisp-mode
:mode ("\\.Cask\\'" . emacs-lisp-mode)
(after! elisp-mode :config
(set-repl-handler! 'emacs-lisp-mode #'+emacs-lisp/open-repl) (set-repl-handler! 'emacs-lisp-mode #'+emacs-lisp/open-repl)
(set-eval-handler! 'emacs-lisp-mode #'+emacs-lisp-eval) (set-eval-handler! 'emacs-lisp-mode #'+emacs-lisp-eval)
(set-lookup-handlers! 'emacs-lisp-mode (set-lookup-handlers! 'emacs-lisp-mode

11
modules/lang/latex/+viewers.el
View file

@ -1,6 +1,6 @@
;;; lang/latex/+viewers.el -*- lexical-binding: t; -*- ;;; lang/latex/+viewers.el -*- lexical-binding: t; -*-
(cl-block 'viewer (catch 'found-viewer
(dolist (viewer +latex-viewers) (dolist (viewer +latex-viewers)
(if (pcase viewer (if (pcase viewer
(`skim (`skim
@ -29,7 +29,7 @@
;; Update PDF buffers after successful LaTeX runs ;; Update PDF buffers after successful LaTeX runs
(add-hook 'TeX-after-compilation-finished-function #'TeX-revert-document-buffer)))) (add-hook 'TeX-after-compilation-finished-function #'TeX-revert-document-buffer))))
(cl-return-from 'viewer))) (throw 'found-viewer t)))
;; fall back to latex-preview-pane ;; fall back to latex-preview-pane
(add-to-list 'TeX-view-program-list '("preview-pane" latex-preview-pane-mode)) (add-to-list 'TeX-view-program-list '("preview-pane" latex-preview-pane-mode))
@ -40,7 +40,6 @@
(setq latex-preview-pane-multifile-mode 'auctex) (setq latex-preview-pane-multifile-mode 'auctex)
(define-key! doc-view-mode-map (define-key! doc-view-mode-map
(kbd "ESC") #'delete-window "ESC" #'delete-window
"q" #'delete-window "q" #'delete-window
"k" (λ! (quit-window) (delete-window)))) "k" (λ! (quit-window) (delete-window))))