;;; -*- lexical-binding: t -*- ;; ;; this file: ;; https://dataswamp.org/~incal/conf/.emacs (require 'cl-lib) (cl-pushnew "/usr/share/emacs/site-lisp/elpa-src/slime-2.26.1" load-path) (cl-pushnew nil load-path) (add-hook 'after-save-hook #'buffer-enable-undo) (setq print-circle t) ;; minibuffer (setq enable-recursive-minibuffers t) (setq minibuffer-default-prompt-format " [%s]") ;; gc (setq garbage-collection-messages nil) (setq gc-cons-threshold 3000000) (setq inhibit-default-init t) (defun load-if-exists (file) (if (file-exists-p file) (load-file file) (message "The file %s does not exist." file) )) (let*((lisp-dir (format "%s/lisp" user-emacs-directory)) (init-dir (format "%s/emacs-init" user-emacs-directory)) (bibtex-dir (format "%s/bibtex" init-dir)) (erc-dir (format "%s/erc" init-dir)) (gnus-dir (format "%s/gnus" init-dir)) (ide-dir (format "%s/ide" init-dir)) (w3m-dir (format "%s/w3m" init-dir)) (dirs (list lisp-dir init-dir bibtex-dir erc-dir gnus-dir ide-dir w3m-dir) )) (dolist (d dirs) (push d load-path) ) (let ((emacs-init-files '( abc.elc audio.elc align-incal.elc align-from-left.elc batch.elc bike.elc bmi.elc buc.elc buffer-menu.elc caps-back.elc char.elc close.elc color-incal.elc comic-book-insult.elc console-keys.elc count.elc counter.elc custom-vars.elc dired-kill-ext.elc dired-incal.elc dired-jump-target.elc dope.elc dwim.elc ecat-incal.elc echo-message.elc edit.elc elpa.elc emacs-shell.elc enum.elc epwgen.elc face.elc file-write-to.elc file.elc fill-incal.elc frame-size.elc geh.elc get-search-string.elc help-incal.elc info-incal.elc isbn-verify.elc issn-verify.elc iterate-files.elc keys.elc kill-path.elc kill.elc latex.elc lights.elc linux-shell.elc list-quoted-functions.elc list.elc man-incal.elc match-data-format.elc math.elc measure.elc meta.elc minor-modes.elc misc.elc mode-by-filename.elc mode-line.elc navigate-fs-keys.elc negative-subtraction.elc ny.elc perm.elc piles.elc printer.elc psea.elc quit.elc random.elc regexp.elc re-make-list.elc replace-list.elc revert-buffer.elc scale.elc scroll.elc search-regexp-in-files.elc sequence-string.elc show-command.elc signal.elc sort-incal.elc sort-list.elc spell.elc street.elc string.elc sudo-user-path.elc super.elc survivor.elc switch-to-buffer-regexp.elc switch-to-buffer.elc tabs.elc test-face.elc time-cmp.elc today.elc todo-did.elc tramp-incal.elc variance.elc vt.elc window-incal.elc wood.elc wrap-search.elc x.elc xsel.elc yank.elc ))) (dolist (f emacs-init-files) (load-if-exists (format "%s/%s" init-dir f)) )) (let ((emacs-bibtex-init-files '(bibtex-autokey-insert.elc bibtex-book.elc bibtex-field.elc bibtex-incal.elc bibtex-next-volume.elc) )) (dolist (f emacs-bibtex-init-files) (load-if-exists (format "%s/%s" bibtex-dir f)) )) (let ((emacs-erc-init-files '(erc-connect.elc erc-incal.elc erc-iterate.elc erc-kill.elc erc-log-incal.elc erc-man.elc erc-misc.elc erc-spell.el ))) (dolist (f emacs-erc-init-files) (load-if-exists (format "%s/%s" erc-dir f)) )) (let ((emacs-gnus-init-files '( article.elc browse.elc gnus-incal-minimal.elc gnus-incal.elc gnus-server.elc group-summary.elc group.elc mail-dataswamp.elc mail-insert.elc mail-to-many.elc mail-zoho.elc mail.elc mailrc.elc message-header.elc message-incal.elc moggle.elc summary.elc ))) (dolist (f emacs-gnus-init-files) (load-if-exists (format "%s/%s" gnus-dir f)) )) (let ((emacs-ide-init-files '(c-and-cpp.elc compile-incal.elc compilation-incal.elc elisp.elc find-command.elc html.elc ide.elc lisp-incal.elc package-style.elc ))) (dolist (f emacs-ide-init-files) (load-if-exists (format "%s/%s" ide-dir f)) )) (let ((emacs-w3m-init-files '(w3m-bookmark-more.elc w3m-download.elc w3m-incal.elc w3m-keys.elc w3m-sem.elc w3m-survivor.elc w3m-tabs.elc w3m-unisearch.elc w3m-version.elc) )) (dolist (f emacs-w3m-init-files) (load-if-exists (format "%s/%s" w3m-dir f)) ))) ;; auto-save (auto-save-mode -1) (setq auto-save-list-file-prefix nil) (setq auto-save-no-message t) ;; backups (setq backup-inhibited t) (setq make-backup-files nil) ;; parens (require 'paren) (show-paren-mode) (setq show-paren-delay 0) ;; (setq show-paren-predicate '(not (major-mode . erc-mode))) ; DNC ;; fanfare / splash (eval '(setq inhibit-startup-echo-area-message "incal")) (setq byte-compile-verbose nil) (setq inhibit-startup-screen t) (setq initial-scratch-message nil) (let ((buf (get-buffer "*scratch*"))) (when (bufferp buf) (kill-buffer buf) )) ;; disable keys (global-set-key "\C-h\C-p" #'ignore) ; view-emacs-problems (global-set-key "\C-hr" #'ignore) ; info-emacs-manual (global-set-key "\C-ht" #'ignore) ; help-with-tutorial (global-set-key "\C-x\C-c" #'ignore) ; save-buffers-kill-terminal (global-set-key "\C-x\C-n" #'ignore) ; set-goal-column ;; enable/disable commands (put #'downcase-region 'disabled nil) (put #'erase-buffer 'disabled nil) (put #'suspend-frame 'disabled t) (put #'upcase-region 'disabled nil) ;; aliases (defalias 'dcase #'downcase-region) (require 'mode-line) (defun conf-space-mode-hook-f () (lines) ) (add-hook 'conf-space-mode-hook #'conf-space-mode-hook-f) (defun text-mode-hook-f () (abbrev-mode) (define-key text-mode-map "\C-c\C-c" #'compile) ) (add-hook 'text-mode-hook #'text-mode-hook-f) ;; disable compose (what is this?) (setq compose-chars-after-function nil) (defun compose-region (&rest _) nil) (normal-erase-is-backspace-mode 0) ; don't remap C-h and DEL (setq comment-empty-lines t) (setq custom-file "~/ooa/dork.el") (setq interprogram-cut-function nil) (setq-default case-fold-search t) (setq-default left-margin-width nil) (setq-default truncate-lines t) ;; indentation (put #'setq #'lisp-indent-function #'defun) ;; keys (last) (load-if-exists "~/.emacs.d/emacs-init/global-keys.el") (message "all systems ready")