Minor refactors & comment revision

This commit is contained in:
Henrik Lissner 2020-01-02 21:13:31 -05:00
parent 10f7c9fbcc
commit 195dfda045
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
5 changed files with 10 additions and 8 deletions

1
.gitignore vendored
View file

@ -7,6 +7,7 @@ modules/private
.cask/ .cask/
cask/ cask/
elpa/ elpa/
test/.local*
# emacs tempfiles that shouldn't be there # emacs tempfiles that shouldn't be there
.mc-lists.el .mc-lists.el

View file

@ -196,7 +196,8 @@ users).")
(when IS-WINDOWS (when IS-WINDOWS
(setq abbreviated-home-dir "\\`'")) (setq abbreviated-home-dir "\\`'"))
;; Don't litter `doom-emacs-dir' ;; Don't litter `doom-emacs-dir'. We don't use `no-littering' because it's a
;; mote too opinionated for our needs.
(setq abbrev-file-name (concat doom-local-dir "abbrev.el") (setq abbrev-file-name (concat doom-local-dir "abbrev.el")
async-byte-compile-log-file (concat doom-etc-dir "async-bytecomp.log") async-byte-compile-log-file (concat doom-etc-dir "async-bytecomp.log")
bookmark-default-file (concat doom-etc-dir "bookmarks") bookmark-default-file (concat doom-etc-dir "bookmarks")

View file

@ -21,7 +21,7 @@
(package! pcre2el) (package! pcre2el)
(package! smartparens) (package! smartparens)
(package! so-long (package! so-long
:built-in 'prefer :built-in 'prefer ; included in Emacs 27+
;; REVIEW so-long is slated to be published to ELPA eventually, but until then ;; REVIEW so-long is slated to be published to ELPA eventually, but until then
;; I've created my own mirror for it because git.savannah.gnu.org runs on a ;; I've created my own mirror for it because git.savannah.gnu.org runs on a
;; potato. ;; potato.

View file

@ -36,7 +36,6 @@
(use-package! counsel-css (use-package! counsel-css
:when (featurep! :completion ivy) :when (featurep! :completion ivy)
:commands counsel-css
:hook (css-mode . counsel-css-imenu-setup) :hook (css-mode . counsel-css-imenu-setup)
:init :init
(map! :map (css-mode-map scss-mode-map less-css-mode-map) (map! :map (css-mode-map scss-mode-map less-css-mode-map)

View file

@ -174,11 +174,12 @@ throws an error."
(+workspace-new name) (+workspace-new name)
(error "%s is not an available workspace" name))) (error "%s is not an available workspace" name)))
(let ((old-name (+workspace-current-name))) (let ((old-name (+workspace-current-name)))
(unless (equal old-name name)
(setq +workspace--last (setq +workspace--last
(or (and (not (string= old-name persp-nil-name)) (or (and (not (string= old-name persp-nil-name))
old-name) old-name)
+workspaces-main)) +workspaces-main))
(persp-frame-switch name) (persp-frame-switch name))
(equal (+workspace-current-name) name))) (equal (+workspace-current-name) name)))