diff --git a/core/core-editor.el b/core/core-editor.el index 14de80936..a3ff19309 100644 --- a/core/core-editor.el +++ b/core/core-editor.el @@ -156,7 +156,7 @@ possible." "Auto revert current buffer, if necessary." (unless (or auto-revert-mode (active-minibuffer-window)) ;; Only prompts for confirmation when buffer is unsaved. - (let ((revert-without-query (list "."))) + (let ((revert-without-query (list ""))) (auto-revert-handler)))) (defun doom-auto-revert-buffers-h () @@ -172,6 +172,13 @@ possible." :after-call after-find-file :commands recentf-open-files :config + (defun doom--recent-file-truename (file) + (if (or (file-remote-p file nil t) + (not (file-remote-p file))) + (file-truename file) + file)) + (setq recentf-filename-handlers '(doom--recent-file-truename abbreviate-file-name)) + (setq recentf-save-file (concat doom-cache-dir "recentf") recentf-auto-cleanup 'never recentf-max-menu-items 0 @@ -180,15 +187,7 @@ possible." (list "\\.\\(?:gz\\|gif\\|svg\\|png\\|jpe?g\\)$" "^/tmp/" "^/ssh:" "\\.?ido\\.last$" "\\.revive$" "/TAGS$" "^/var/folders/.+$" ;; ignore private DOOM temp files - (lambda (path) - (ignore-errors (file-in-directory-p path doom-local-dir))))) - - (defun doom--recent-file-truename (file) - (if (or (file-remote-p file nil t) - (not (file-remote-p file))) - (file-truename file) - file)) - (setq recentf-filename-handlers '(doom--recent-file-truename abbreviate-file-name)) + (concat "^" (recentf-apply-filename-handlers doom-local-dir)))) (add-hook! '(doom-switch-window-hook write-file-functions) (defun doom--recentf-touch-buffer-h () diff --git a/core/core-lib.el b/core/core-lib.el index e139c6cd6..90e1fe56c 100644 --- a/core/core-lib.el +++ b/core/core-lib.el @@ -3,7 +3,7 @@ (require 'cl-lib) (require 'subr-x) -;; Polyfills +;; DEPRECATED Polyfills (unless EMACS26+ (with-no-warnings ;; `kill-current-buffer' was introduced in Emacs 26 diff --git a/core/test/test-core-lib.el b/core/test/test-core-lib.el index 06a35649e..82eaa0fc1 100644 --- a/core/test/test-core-lib.el +++ b/core/test/test-core-lib.el @@ -115,16 +115,6 @@ (delq! 'b alist 'assq) (expect alist :to-equal '((a 1) (c 3)))))) - (describe "delete!" - (it "delete's a string from a list" - (let ((list '("a" "b" "c"))) - (delete! "b" list) - (expect list :to-equal '("a" "c")))) - (it "delete's an element from an alist by key" - (let ((alist '(("a" 1) ("b" 2) ("c" 3)))) - (delete! (assoc "b" alist) alist) - (expect alist :to-equal '(("a" 1) ("c" 3)))))) - (describe "hooks" (describe "add-hook!" :var (fake-mode-hook other-mode-hook some-mode-hook) diff --git a/modules/lang/haskell/config.el b/modules/lang/haskell/config.el index f6a43d6ac..63c26248a 100644 --- a/modules/lang/haskell/config.el +++ b/modules/lang/haskell/config.el @@ -25,6 +25,7 @@ haskell-cabal-mode literate-haskell-mode) #'+haskell/open-repl) + ;; Prevent the 'Kill the whole session (y or n)?' prompt caused by the popup ;; manager auto-killing haskell-interactive-mode's popup buffer (and process) ;; by settings :ttl to nil.