Make some things private-r

Sure you can check the history.  But who knows what I've changed?!?!?! MYSTERY
This commit is contained in:
Case Duckworth 2021-06-02 23:36:43 -05:00
parent 83b9a251af
commit 0f7abf0795
4 changed files with 21 additions and 118 deletions

1
.gitignore vendored
View File

@ -4,6 +4,7 @@
auto-save-list/ auto-save-list/
eln-cache/ eln-cache/
etc/ etc/
feeds.txt
gnus/ gnus/
pkg/ pkg/
private.el private.el

37
gnus.el
View File

@ -16,22 +16,25 @@
;;; Code: ;;; Code:
;;; Private files
(require 'acdw-private)
;;; Select Methods ;;; Select Methods
(setq gnus-select-method '(nnnil "")) (setq gnus-select-method '(nnnil ""))
(setq gnus-secondary-select-methods (add-hook 'gnus-startup-hook
'((nnimap "fastmail.com" (defun gnus-startup@feed-setup ()
(nnimap-address "imap.fastmail.com") (cond ((fboundp #'gnus/init-feed-list)
(nnimap-server-port 993) (gnus/init-feed-list))
(nnimap-stream ssl) ((and (fboundp #'gnus/import-feed-list)
(nnir-search-engine imap)) (file-exists-p (expand-file-name
(nntp "news.tilde.club") "feeds.txt" user-emacs-directory)))
(nntp "news.gwene.org") (gnus/import-feed-list (expand-file-name
(nntp "news.gmane.io"))) "feeds.txt" user-emacs-directory)))
(t (message "Oops, no feeds :/")))))
;;; Gnus cloud ;;; Gnus cloud
(setq gnus-cloud-method "nnimap:fastmail.com" (setq gnus-cloud-storage-method nil ; Don't always have GPG or gzip
gnus-cloud-storage-method nil ; Don't always have GPG or gzip
gnus-cloud-covered-servers '("nntp:news.tilde.club" gnus-cloud-covered-servers '("nntp:news.tilde.club"
"nntp:news.gwene.org" "nntp:news.gwene.org"
"nntp:news.gmane.io")) "nntp:news.gmane.io"))
@ -61,7 +64,7 @@
;;; Other parameters ;;; Other parameters
(setq gnus-parameters (setq gnus-parameters
'(("nnimap\\+fastmail.com:.*" '(("fastmail.com:.*"
(display . 200) (display . 200)
(expiry-wait . immediate) (expiry-wait . immediate)
(expiry-target . "nnimap+fastmail.com:Archive")))) (expiry-target . "nnimap+fastmail.com:Archive"))))
@ -116,16 +119,6 @@
(flyspell-mode +1) (flyspell-mode +1)
(local-set-key (kbd "TAB") #'bbdb-complete-mail))) (local-set-key (kbd "TAB") #'bbdb-complete-mail)))
;;; Sending mail
(setq send-mail-function #'smtpmail-send-it
message-send-mail-function #'smtpmail-send-it
smtpmail-smtp-server "smtp.fastmail.com"
smtpmail-default-smtp-server "smtp.fastmail.com"
smtpmail-smtp-service 465
smtpmail-stream-type 'ssl
smtpmail-smtp-user "acdw@fastmail.com"
message-kill-buffer-on-exit t)
;;; Packages ;;; Packages
;; searching (?) ;; searching (?)

View File

@ -1,81 +0,0 @@
nntp+news.gmane.io:gmane.emacs.announce
nntp+news.gmane.io:gmane.emacs.erc.announce
nntp+news.gmane.io:gmane.emacs.gnus.announce
nntp+news.gmane.io:gmane.emacs.humanities
nntp+news.gmane.io:gmane.network.protocols.gemini
nntp+news.gwene.org:gwene.blog.botanistinthek
nntp+news.gwene.org:gwene.ca.muto
nntp+news.gwene.org:gwene.casa.m455
nntp+news.gwene.org:gwene.casa.m455.weed.weed
nntp+news.gwene.org:gwene.codes.esoteric
nntp+news.gwene.org:gwene.com.aiweirdness
nntp+news.gwene.org:gwene.com.ajroach42
nntp+news.gwene.org:gwene.com.careercenterbr
nntp+news.gwene.org:gwene.com.catandgirl
nntp+news.gwene.org:gwene.com.deprogrammatic
nntp+news.gwene.org:gwene.com.drewdevault.blog
nntp+news.gwene.org:gwene.com.ebrpl.blog
nntp+news.gwene.org:gwene.com.emacslife.planet
nntp+news.gwene.org:gwene.com.falseknees
nntp+news.gwene.org:gwene.com.gerwitz.hans.feeds.writing
nntp+news.gwene.org:gwene.com.greghendershot
nntp+news.gwene.org:gwene.com.invisibleup
nntp+news.gwene.org:gwene.com.lambdacreate.static
nntp+news.gwene.org:gwene.com.murilopereira
nntp+news.gwene.org:gwene.com.occasionallyco
nntp+news.gwene.org:gwene.com.rachelbythebay.w
nntp+news.gwene.org:gwene.com.realbakingwith.month
nntp+news.gwene.org:gwene.com.usesthis
nntp+news.gwene.org:gwene.com.wflewis
nntp+news.gwene.org:gwene.com.whyarentyoucod
nntp+news.gwene.org:gwene.com.wordpress.filledwithcrea
nntp+news.gwene.org:gwene.com.xkcd
nntp+news.gwene.org:gwene.dance.hamster.blog
nntp+news.gwene.org:gwene.de.uninformativ.blog.feeds.en
nntp+news.gwene.org:gwene.info.benjaminwil.antisocial
nntp+news.gwene.org:gwene.io.github.chrisman
nntp+news.gwene.org:gwene.io.github.wphicks
nntp+news.gwene.org:gwene.io.jao.blog
nntp+news.gwene.org:gwene.io.wpc.blog
nntp+news.gwene.org:gwene.li.eli
nntp+news.gwene.org:gwene.link.atthis
nntp+news.gwene.org:gwene.name.spwhitton.blog
nntp+news.gwene.org:gwene.net.acdw
nntp+news.gwene.org:gwene.net.acdw.feed.weed
nntp+news.gwene.org:gwene.net.envs.lucidiot.rsrsss
nntp+news.gwene.org:gwene.net.neeasade.notes.rss.full
nntp+news.gwene.org:gwene.net.ryliejamesthom.blog
nntp+news.gwene.org:gwene.news.tilde.rss.token.fvd.fj8r.qkhr.by9j1y.on1t6rykddc
nntp+news.gwene.org:gwene.nz.geek.sanctum.blog
nntp+news.gwene.org:gwene.org.eu.pt.astrosnail.blog
nntp+news.gwene.org:gwene.org.lisp.planet.rss20
nntp+news.gwene.org:gwene.org.neocities.society
nntp+news.gwene.org:gwene.org.neocities.supervegan
nntp+news.gwene.org:gwene.org.scheme.planet
nntp+news.gwene.org:gwene.org.z3bra.blog
nntp+news.gwene.org:gwene.rip.computer
nntp+news.gwene.org:gwene.space.makeworld
nntp+news.gwene.org:gwene.space.petras
nntp+news.gwene.org:gwene.team.tilde.dozens.dreams
nntp+news.gwene.org:gwene.town.tilde.dozens.rsspect
nntp+news.gwene.org:gwene.town.tilde.lucidiot.fridaypostcard
nntp+news.gwene.org:gwene.town.tilde.lucidiot.weed.weed
nntp+news.gwene.org:gwene.town.tilde.m455.javapool
nntp+news.gwene.org:gwene.town.tilde.mroik.blog
nntp+news.gwene.org:gwene.town.tilde.trm.blog
nntp+news.gwene.org:gwene.uk.co.gaffen
nntp+news.gwene.org:gwene.uk.me.insom
nntp+news.gwene.org:gwene.voyage.cosmic
nntp+news.gwene.org:gwene.website.coolguy.weed.weed
nntp+news.gwene.org:gwene.xyz.earnestma.blog
nntp+news.gwene.org:gwene.xyz.jackreid
nntp+news.tilde.club:local.general
nntp+news.tilde.club:tilde.art
nntp+news.tilde.club:tilde.club
nntp+news.tilde.club:tilde.cosmic
nntp+news.tilde.club:tilde.food+drink
nntp+news.tilde.club:tilde.gopher
nntp+news.tilde.club:tilde.meta
nntp+news.tilde.club:tilde.poetry
nntp+news.tilde.club:tilde.services
nntp+news:gwene.com.xenodium

20
init.el
View File

@ -45,6 +45,9 @@
(expand-file-name-exists-p "pkg/" user-emacs-directory))) (expand-file-name-exists-p "pkg/" user-emacs-directory)))
(normal-top-level-add-subdirs-to-load-path)) (normal-top-level-add-subdirs-to-load-path))
;;;; Private stuff
(require 'acdw-private)
;;;; Utility functions and variables ;;;; Utility functions and variables
;; see also: `acdw' and friends. Functions here aren't big enough, or they're ;; see also: `acdw' and friends. Functions here aren't big enough, or they're
@ -66,10 +69,7 @@
(setup acdw (setup acdw
(:option user-full-name "Case Duckworth" (:option user-full-name "Case Duckworth"
user-mail-address "acdw@acdw.net" user-mail-address "acdw@acdw.net"))
calendar-location-name "Baton Rouge, LA"
calendar-latitude 30.4
calendar-longitude -91.1))
(setup (:require auth-source) (setup (:require auth-source)
(:option auth-sources '("~/.authinfo" "~/.authinfo.gpg"))) (:option auth-sources '("~/.authinfo" "~/.authinfo.gpg")))
@ -259,15 +259,6 @@
erc-auto-discard-away t erc-auto-discard-away t
erc-autoaway-idle-seconds 600 erc-autoaway-idle-seconds 600
erc-autoaway-message "BRB (autoaway: %i seconds)" erc-autoaway-message "BRB (autoaway: %i seconds)"
erc-autojoin-channels-alist '(("libera.chat"
"#emacs" "##webpals"
"#erc")
("tilde.chat"
"#meta" "#team" "#gemini"
"#bread" ; how could I've forgotten!?
"#politics" "#bungame"
"#dadjokes" "#tilderadio"
"#tilderadio-djs"))
erc-button-url-regexp browse-url-button-regexp erc-button-url-regexp browse-url-button-regexp
erc-common-server-suffixes '(("tilde.chat\\'" . "~") erc-common-server-suffixes '(("tilde.chat\\'" . "~")
("libera.chat\\'" . "LC")) ("libera.chat\\'" . "LC"))
@ -283,8 +274,7 @@
erc-nick "acdw" erc-nick "acdw"
erc-prompt (lambda () (concat (buffer-name) ">")) erc-prompt (lambda () (concat (buffer-name) ">"))
erc-prompt-for-password nil ; use ~/.authinfo erc-prompt-for-password nil ; use ~/.authinfo
erc/servers '("irc.libera.chat" erc/servers (mapcar #'car erc-autojoin-channels-alist)
"irc.tilde.chat")
erc-server-coding-system '(utf-8 . utf-8) erc-server-coding-system '(utf-8 . utf-8)
erc-track-exclude-types erc-hide-list erc-track-exclude-types erc-hide-list
erc-track-position-in-mode-line 'before-modes) erc-track-position-in-mode-line 'before-modes)