Skip to content

Commit

Permalink
update storage path
Browse files Browse the repository at this point in the history
Signed-off-by: Psionik K <[email protected]>
  • Loading branch information
psionic-k committed Dec 28, 2023
1 parent de4cfdb commit 9993376
Show file tree
Hide file tree
Showing 2 changed files with 10 additions and 5 deletions.
4 changes: 2 additions & 2 deletions lisp/scratch-pkgs.el
Original file line number Diff line number Diff line change
Expand Up @@ -54,8 +54,8 @@
(declare-function no-littering-expand-var-file-name "no-littering")
(defcustom scratch-pkgs-dir
(file-name-directory (if (featurep 'no-littering)
(no-littering-expand-var-file-name "scratch")
(expand-file-name "var/scratch" user-emacs-directory)))
(no-littering-expand-var-file-name "scratch-pkgs")
(expand-file-name "var/scratch-pkgs" user-emacs-directory)))
"Where scratches are saved."
:group 'scratch-pkgs
:type 'directory)
Expand Down
11 changes: 8 additions & 3 deletions test/scratch-pkgs-test.el
Original file line number Diff line number Diff line change
Expand Up @@ -37,9 +37,14 @@
(require 'ert)
(require 'scratch-pkgs)

;; (ert-deftest scratch-pkgs-hello-test ()
;; (should (string-match-p (scratch-pkgs-hello)
;; "hello")))
(ert-deftest scratch-pkgs-new-test ()
(should (save-window-excursion
(progn (scratch-pkgs-new "scratch-pkgs-test-package")
(save-buffer "scratch-pkgs-test-package.el")
(require 'scratch-pkgs-test-package)
(delete-file "scratch-pkgs-test-package.el")
(kill-buffer "scratch-pkgs-test-package.el")
t))))

(provide 'scratch-pkgs-test)
;;; scratch-pkgs-test.el ends here.

0 comments on commit 9993376

Please sign in to comment.