[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/gnus-mock 9196a0f 11/27: [gnus-mock] Instead of inserti
From: |
Stefan Monnier |
Subject: |
[elpa] externals/gnus-mock 9196a0f 11/27: [gnus-mock] Instead of inserting strings, use princ and prin1 |
Date: |
Tue, 1 Dec 2020 10:11:37 -0500 (EST) |
branch: externals/gnus-mock
commit 9196a0f27b2bcf564ba6376e84fdd63360f6803e
Author: Eric Abrahamsen <eric@ericabrahamsen.net>
Commit: Eric Abrahamsen <eric@ericabrahamsen.net>
[gnus-mock] Instead of inserting strings, use princ and prin1
* packages/gnus-mock/gnus-mock.el (gnus-mock-start): For Science.
---
gnus-mock.el | 76 +++++++++++++++++++++++++++++-------------------------------
1 file changed, 37 insertions(+), 39 deletions(-)
diff --git a/gnus-mock.el b/gnus-mock.el
index 434e483..ff3f54b 100644
--- a/gnus-mock.el
+++ b/gnus-mock.el
@@ -130,45 +130,43 @@ will start a mock Gnus session."
(let* ((mock-tmp-dir (make-temp-file "emacs-gnus-mock-" t))
(init-file (expand-file-name "init.el" mock-tmp-dir)))
(with-temp-buffer
- (insert "(setq "
- (format
- "gnus-home-directory \"%s\"
-init-file-user \"%s\"
-sendmail-program \"%s\"
-message-directory \"%s\"
-gnus-startup-file \"%s\"
-gnus-init-file \"%s\"
-nndraft-directory \"%s\"
-gnus-agent-directory \"%s\"
-gnus-directory \"%s\"
-"
- mock-tmp-dir
- "mockturtle"
- (expand-file-name gnus-mock-sendmail-program mock-tmp-dir)
- mock-tmp-dir
- (expand-file-name ".newsrc" mock-tmp-dir)
- (expand-file-name ".gnus" mock-tmp-dir)
- (expand-file-name "drafts/" mock-tmp-dir)
- (expand-file-name "agent/" mock-tmp-dir)
- (expand-file-name "News/" mock-tmp-dir))
- ")\n\n")
- ;; Constant that can be checked if we need to know it's a mock
- ;; session.
- (insert "(defconst gnus-mock-p t)\n")
- ;; Constant for use in `gnus-mock-reload', which is defined in
- ;; the .gnus.el startup file.
- (insert (format "(defconst gnus-mock-data-dir \"%s\")\n"
- gnus-mock-data-dir))
- (when gnus-mock-cleanup-p
- (insert
- (format
- "(add-hook 'kill-emacs-hook (lambda () (delete-directory \"%s\"
t)))\n"
- mock-tmp-dir)))
- (when gnus-mock-use-images
- (insert
- (format "(add-to-list 'load-path \"%s/data\")\n"
- mock-tmp-dir)))
- (write-file init-file))
+ (let ((standard-output (current-buffer))
+ (print-circle nil))
+ (prin1
+ `(setq gnus-home-directory ,mock-tmp-dir
+ init-file-user "mockturtle"
+ sendmail-program
+ ,(expand-file-name gnus-mock-sendmail-program
+ mock-tmp-dir)
+ message-directory ,mock-tmp-dir
+ gnus-startup-file
+ ,(expand-file-name ".newsrc" mock-tmp-dir)
+ gnus-init-file
+ ,(expand-file-name ".gnus" mock-tmp-dir)
+ nndraft-directory
+ ,(expand-file-name "drafts/" mock-tmp-dir)
+ gnus-agent-directory
+ ,(expand-file-name "agent/" mock-tmp-dir)
+ gnus-directory
+ ,(expand-file-name "News/" mock-tmp-dir)))
+ (princ "\n\n")
+ ;; Constant that can be checked if we need to know it's a mock
+ ;; session.
+ (prin1 '(defconst gnus-mock-p t))
+ (princ "\n")
+ ;; Constant for use in `gnus-mock-reload', which is defined in
+ ;; the .gnus.el startup file.
+ (prin1 `(defconst gnus-mock-data-dir ,gnus-mock-data-dir))
+ (when gnus-mock-cleanup-p
+ (princ "\n")
+ (prin1 `(add-hook 'kill-emacs-hook
+ (lambda () (delete-directory
+ ,mock-tmp-dir t)))))
+ (when gnus-mock-use-images
+ (princ "\n")
+ (prin1 `(add-to-list 'load-path
+ ,(format "%s/data" mock-tmp-dir))))
+ (write-file init-file)))
;; Put our data and config in place.
(copy-directory
gnus-mock-data-dir
- [elpa] externals/gnus-mock 6beed29 07/27: packages/gnus-mock: Adjust copyright, (continued)
- [elpa] externals/gnus-mock 6beed29 07/27: packages/gnus-mock: Adjust copyright, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock d499861 04/27: Warn user if sendmail-program is unavailable, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 88de2e8 05/27: Maybe clean up dirs if the start process fails, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock a21fb5d 08/27: gnus-mock/data/.gnus.el: Fix comment, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 9cf301f 10/27: [gnus-mock] Zoop the condition-case up around the whole function, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 5431bdd 13/27: [gnus-mock] Fix two small bugs, bump version to 0.2.1, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 5564ed9 15/27: [gnus-mock] Don't completely swallow errors, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock de629d1 20/27: [gnus-mock] Add Paul Eggert's misencoded Gnus message, bump to 0.4.2, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock adbd14e 24/27: [gnus-mock] Improvement to previous patch, bump to 0.4.4, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 35692d0 26/27: [gnus-mock] Add guard around setting sendmail-program, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 9196a0f 11/27: [gnus-mock] Instead of inserting strings, use princ and prin1,
Stefan Monnier <=
- [elpa] externals/gnus-mock ab39a00 12/27: [gnus-mock] Conditionally add nnimap server, bump to 0.2.0, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 0e8663e 14/27: [gnus-mock] Add Cyrillic group to the nnimap server, bump to 0.3.0, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 5c2d129 19/27: [gnus-mock] Create empty draft/queue directories in advance, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 91b3515 25/27: [gnus-mock] Munge maildir article filenames, bump to 0.4.5, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock d6b2564 18/27: Add nnml server with non-ASCII group name, bump to 0.4.1, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 5e503c7 21/27: [gnus-mock] Skeleton code for Gnus Mock interactive tests, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 4d53dcf 22/27: * gnus-mock.el: Remove redundant :group args, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 84c6b96 27/27: * .gitignore: New file, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock 7c1d7b1 16/27: [gnus-mock] Set a value of default-directory for child Emacs process, Stefan Monnier, 2020/12/01
- [elpa] externals/gnus-mock bfaa249 17/27: [gnus-mock] Set gnus-verbose to max by default, bump to 0.4.0, Stefan Monnier, 2020/12/01