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

Minor refactors

Browse source
This commit is contained in:
Henrik Lissner 2020-10-20 16:52:39 -04:00
parent 88b42caab0
commit b857566239
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
early-init.el
View file

@ -10,7 +10,7 @@
;; loaded, but after `early-init-file'. Doom handles package initialization, so ;; loaded, but after `early-init-file'. Doom handles package initialization, so
;; we must prevent Emacs from doing it early! ;; we must prevent Emacs from doing it early!
(setq package-enable-at-startup nil) (setq package-enable-at-startup nil)
(advice-add #'package--ensure-init-file :override #'ignore) (fset #'package--ensure-init-file #'ignore)
;; Prevent the glimpse of un-styled Emacs by disabling these UI elements early. ;; Prevent the glimpse of un-styled Emacs by disabling these UI elements early.
(push '(menu-bar-lines . 0) default-frame-alist) (push '(menu-bar-lines . 0) default-frame-alist)
@ -25,7 +25,7 @@
;; Ignore X resources; its settings would be redundant with the other settings ;; Ignore X resources; its settings would be redundant with the other settings
;; in this file and can conflict with later config (particularly where the ;; in this file and can conflict with later config (particularly where the
;; cursor color is concerned). ;; cursor color is concerned).
(advice-add #'x-apply-session-resources :override #'ignore) (fset #'x-apply-session-resources #'ignore)
;; Prevent unwanted runtime builds in gccemacs (native-comp); packages are ;; Prevent unwanted runtime builds in gccemacs (native-comp); packages are
;; compiled ahead-of-time when they are installed and site files are compiled ;; compiled ahead-of-time when they are installed and site files are compiled

5
modules/lang/org/contrib/journal.el
View file

@ -38,10 +38,11 @@
;; we wanted to keep visible. ;; we wanted to keep visible.
org-journal-find-file #'find-file) org-journal-find-file #'find-file)
;; Setup carryover to include all configured TODO states. ;; Setup carryover to include all configured TODO states. We cannot carry over
;; [ ] keywords because `org-journal-carryover-items's syntax cannot correctly
;; interpret it as anything other than a date.
(setq org-journal-carryover-items "TODO=\"TODO\"|TODO=\"PROJ\"|TODO=\"STRT\"|TODO=\"WAIT\"|TODO=\"HOLD\"") (setq org-journal-carryover-items "TODO=\"TODO\"|TODO=\"PROJ\"|TODO=\"STRT\"|TODO=\"WAIT\"|TODO=\"HOLD\"")
(set-popup-rule! "^\\*Org-journal search" :select t :quit t) (set-popup-rule! "^\\*Org-journal search" :select t :quit t)
(map! (:map org-journal-mode-map (map! (:map org-journal-mode-map

4
modules/tools/lsp/+lsp.el
View file

@ -98,8 +98,8 @@ server getting expensively restarted when reverting buffers."
(run-at-time (run-at-time
(if (numberp +lsp-defer-shutdown) +lsp-defer-shutdown 3) (if (numberp +lsp-defer-shutdown) +lsp-defer-shutdown 3)
nil (lambda (workspace) nil (lambda (workspace)
(let ((lsp--cur-workspace workspace)) (with-lsp-workspace workspace
(unless (lsp--workspace-buffers lsp--cur-workspace) (unless (lsp--workspace-buffers workspace)
(let ((lsp-restart 'ignore)) (let ((lsp-restart 'ignore))
(funcall orig-fn)) (funcall orig-fn))
(+lsp-optimization-mode -1)))) (+lsp-optimization-mode -1))))