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/
eln-cache/
etc/
feeds.txt
gnus/
pkg/
private.el

37
gnus.el
View File

@ -16,22 +16,25 @@
;;; Code:
;;; Private files
(require 'acdw-private)
;;; Select Methods
(setq gnus-select-method '(nnnil ""))
(setq gnus-secondary-select-methods
'((nnimap "fastmail.com"
(nnimap-address "imap.fastmail.com")
(nnimap-server-port 993)
(nnimap-stream ssl)
(nnir-search-engine imap))
(nntp "news.tilde.club")
(nntp "news.gwene.org")
(nntp "news.gmane.io")))
(add-hook 'gnus-startup-hook
(defun gnus-startup@feed-setup ()
(cond ((fboundp #'gnus/init-feed-list)
(gnus/init-feed-list))
((and (fboundp #'gnus/import-feed-list)
(file-exists-p (expand-file-name
"feeds.txt" user-emacs-directory)))
(gnus/import-feed-list (expand-file-name
"feeds.txt" user-emacs-directory)))
(t (message "Oops, no feeds :/")))))
;;; Gnus cloud
(setq gnus-cloud-method "nnimap:fastmail.com"
gnus-cloud-storage-method nil ; Don't always have GPG or gzip
(setq gnus-cloud-storage-method nil ; Don't always have GPG or gzip
gnus-cloud-covered-servers '("nntp:news.tilde.club"
"nntp:news.gwene.org"
"nntp:news.gmane.io"))
@ -61,7 +64,7 @@
;;; Other parameters
(setq gnus-parameters
'(("nnimap\\+fastmail.com:.*"
'(("fastmail.com:.*"
(display . 200)
(expiry-wait . immediate)
(expiry-target . "nnimap+fastmail.com:Archive"))))
@ -116,16 +119,6 @@
(flyspell-mode +1)
(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
;; 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)))
(normal-top-level-add-subdirs-to-load-path))
;;;; Private stuff
(require 'acdw-private)
;;;; Utility functions and variables
;; see also: `acdw' and friends. Functions here aren't big enough, or they're
@ -66,10 +69,7 @@
(setup acdw
(:option user-full-name "Case Duckworth"
user-mail-address "acdw@acdw.net"
calendar-location-name "Baton Rouge, LA"
calendar-latitude 30.4
calendar-longitude -91.1))
user-mail-address "acdw@acdw.net"))
(setup (:require auth-source)
(:option auth-sources '("~/.authinfo" "~/.authinfo.gpg")))
@ -259,15 +259,6 @@
erc-auto-discard-away t
erc-autoaway-idle-seconds 600
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-common-server-suffixes '(("tilde.chat\\'" . "~")
("libera.chat\\'" . "LC"))
@ -283,8 +274,7 @@
erc-nick "acdw"
erc-prompt (lambda () (concat (buffer-name) ">"))
erc-prompt-for-password nil ; use ~/.authinfo
erc/servers '("irc.libera.chat"
"irc.tilde.chat")
erc/servers (mapcar #'car erc-autojoin-channels-alist)
erc-server-coding-system '(utf-8 . utf-8)
erc-track-exclude-types erc-hide-list
erc-track-position-in-mode-line 'before-modes)