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

Minor refactors across the board

Browse source
This commit is contained in:
Henrik Lissner 2019-11-04 03:35:37 -05:00
parent 684e69c968
commit 2bf74158fd
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
5 changed files with 7 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

6
core/core-editor.el
View file

@ -70,9 +70,9 @@ possible."
(progn (make-directory parent-directory 'parents) (progn (make-directory parent-directory 'parents)
t)))))) t))))))
;; Don't autosave files or create lock/history/backup files. The ;; Don't autosave files or create lock/history/backup files. We don't want
;; editor doesn't need to hold our hands so much. We'll rely on git ;; copies of potentially sensitive material floating around, and we'll rely on
;; and our own good fortune instead. Fingers crossed! ;; git and our own good fortune instead. Fingers crossed!
(setq auto-save-default nil (setq auto-save-default nil
create-lockfiles nil create-lockfiles nil
make-backup-files nil make-backup-files nil

2
modules/editor/rotate-text/autoload.el
View file

@ -1,7 +1,7 @@
;;; editor/rotate-text/autoload.el -*- lexical-binding: t; -*- ;;; editor/rotate-text/autoload.el -*- lexical-binding: t; -*-
;;;###autoload ;;;###autoload
(after! rotate-text (with-eval-after-load 'rotate-text
(add-to-list 'rotate-text-words '("true" "false"))) (add-to-list 'rotate-text-words '("true" "false")))
;;;###autodef ;;;###autodef

5
modules/lang/org/autoload/org-capture.el
View file

@ -57,9 +57,8 @@ you're done. This can be called from an external shell script."
(org-capture) (org-capture)
(unwind-protect (unwind-protect
(counsel-org-capture) (counsel-org-capture)
(if-let* ((buf (cl-loop for buf in (buffer-list) (if-let (buf (cl-find-if (doom-partial #'buffer-local-value 'org-capture-mode)
if (buffer-local-value 'org-capture-mode buf) (buffer-list)))
return buf)))
(with-current-buffer buf (with-current-buffer buf
(add-hook 'kill-buffer-hook #'+org-capture-cleanup-frame-h nil t)) (add-hook 'kill-buffer-hook #'+org-capture-cleanup-frame-h nil t))
(delete-frame frame)))))) (delete-frame frame))))))

2
modules/lang/org/packages.el
View file

@ -53,10 +53,8 @@
:recipe (:host github :repo "anler/centered-window-mode")) :recipe (:host github :repo "anler/centered-window-mode"))
(package! org-tree-slide) (package! org-tree-slide)
(package! org-re-reveal)) (package! org-re-reveal))
(when (featurep! +journal) (when (featurep! +journal)
(package! org-journal)) (package! org-journal))
(when (featurep! +hugo) (when (featurep! +hugo)
(package! ox-hugo (package! ox-hugo
:recipe (:host github :repo "kaushalmodi/ox-hugo" :nonrecursive t))) :recipe (:host github :repo "kaushalmodi/ox-hugo" :nonrecursive t)))

3
modules/ui/nav-flash/autoload.el
View file

@ -18,8 +18,7 @@ jumping to another part of the file)."
or triggered from one of `+nav-flash-exclude-commands'." or triggered from one of `+nav-flash-exclude-commands'."
(unless (or (memq this-command +nav-flash-exclude-commands) (unless (or (memq this-command +nav-flash-exclude-commands)
(bound-and-true-p so-long-minor-mode) (bound-and-true-p so-long-minor-mode)
(eq major-mode 'so-long-mode) (derived-mode-p 'so-long-mode 'special-mode 'term-mode)
(derived-mode-p 'special-mode 'term-mode)
(and (equal (point-marker) (car +nav-flash--last-point)) (and (equal (point-marker) (car +nav-flash--last-point))
(equal (selected-window) (cdr +nav-flash--last-point)))) (equal (selected-window) (cdr +nav-flash--last-point))))
(+nav-flash-blink-cursor) (+nav-flash-blink-cursor)