Minor refactors & comment revision
This commit is contained in:
parent
10f7c9fbcc
commit
195dfda045
5 changed files with 10 additions and 8 deletions
1
.gitignore
vendored
1
.gitignore
vendored
|
@ -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
|
||||||
|
|
|
@ -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")
|
||||||
|
|
|
@ -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.
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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)))
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue