Update user-email-address and drop some long-unused things

1 files changed, 2 insertions, 51 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index bf20c3e..34b1bc9 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -1,6 +1,6 @@
 ;;; init.el --- bandali's emacs configuration -*- lexical-binding: t -*-
 
-;; Copyright (c) 2018-2023 Amin Bandali <bandali@gnu.org>
+;; Copyright (c) 2018-2024 Amin Bandali <bandali@gnu.org>
 
 ;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -36,7 +36,7 @@
 
 ;; whoami
 (setq user-full-name "Amin Bandali"
-      user-mail-address "bandali@gnu.org")
+      user-mail-address "bandali@kelar.org")
 
 
 ;;; Package management
@@ -63,8 +63,6 @@
   ;;    (rt-liberation "2.4")))
   (package-initialize))
 
-(setq package-archive-upload-base "/ssh:caffeine:~/www/p/elpa")
-
 
 ;;; Initial setup
 
@@ -644,16 +642,6 @@ for all frames."
 ;; IRC (with ERC)
 (require 'bandali-erc)
 
-;; 'paste' service (aka scp + web server)
-(add-to-list 'load-path (b/lisp "scpaste"))
-(with-eval-after-load 'scpaste
-  (setq scpaste-http-destination "https://p.bndl.org"
-        scpaste-scp-destination "p:~"))
-(autoload 'scpaste "scpaste" nil t)
-(autoload 'scpaste-region "scpaste" nil t)
-(global-set-key (kbd "C-c p p") #'scpaste)
-(global-set-key (kbd "C-c p r") #'scpaste-region)
-
 
 ;;; Editing
 
@@ -695,9 +683,6 @@ for all frames."
   (setq save-place-file (b/var "save-place.el"))
   (save-place-mode))
 
-;; (with-eval-after-load 'prog-mode
-;;   (global-prettify-symbols-mode))
-
 (add-to-list 'auto-mode-alist '("\\.*rc$" . conf-mode))
 (add-to-list 'auto-mode-alist '("\\.bashrc$" . sh-mode))
 
@@ -836,13 +821,6 @@ for all frames."
    (file-name-as-directory (getenv "XDG_DOWNLOAD_DIR"))))
 (global-set-key (kbd "C-c e w") #'eww)
 
-;; (with-eval-after-load 'org-ref
-;;   (setq
-;;    reftex-default-bibliography '("~/usr/org/references.bib")
-;;    org-ref-default-bibliography '("~/usr/org/references.bib")
-;;    org-ref-bibliography-notes "~/usr/org/notes.org"
-;;    org-ref-pdf-directory "~/usr/org/bibtex-pdfs/"))
-
 (run-with-idle-timer
  0.2 nil #'require 'display-fill-column-indicator nil 'noerror)
 (with-eval-after-load 'display-fill-column-indicator
@@ -864,12 +842,6 @@ for all frames."
 ;;         (reftex-this-word)))))
 (add-hook 'latex-mode-hook #'reftex-mode)
 
-(add-to-list 'load-path (b/lisp "dmenu"))
-(with-eval-after-load 'dmenu
-  (setq dmenu-prompt-string "run: "
-        dmenu-save-file (b/var "dmenu-items")))
-(autoload 'dmenu "dmenu" nil t)
-
 (run-with-idle-timer 0.5 nil #'require 'delight)
 (with-eval-after-load 'delight
   (delight 'auto-fill-function " f" "simple")
@@ -878,9 +850,6 @@ for all frames."
 
 (require 'bandali-po)
 
-(with-eval-after-load 'emms
-  (setq emms-directory (b/var "emms")))
-
 (add-to-list 'load-path (b/lisp "ffs"))
 (run-with-idle-timer 0.5 nil #'require 'ffs)
 (with-eval-after-load 'ffs
@@ -919,24 +888,6 @@ for all frames."
                scroll-bar-mode))
             (fringe-mode nil)))
 
-;; (defun my-display-centered-paragraph (text)
-;;   (let* ((buffer (get-buffer-create "*demo*"))
-;;          (window (display-buffer buffer)))
-;;     (with-current-buffer buffer
-;;       (with-selected-window window
-;;         (let ((inhibit-read-only t)
-;;               (window-height (window-body-height window t))
-;;               content-height)
-;;           (delete-region (point-min) (point-max))
-;;           (insert text)
-;;           (set-window-start window (point-min))
-;;           (unless (looking-back "\n$")
-;;             (insert "\n"))
-;;           (setq content-height (cdr (posn-x-y (posn-at-point))))
-;;           (goto-char (point-min))
-;;           (insert (propertize "\n" 'line-height
-;;                               (/ (- window-height content-height) 2))))))))
-
 (add-to-list 'load-path (b/lisp "debian-el"))
 (run-with-idle-timer 0.5 nil #'require 'debian-el)
 (with-eval-after-load 'debian-el