commit a03fa7cc389eced50525116a48fbc2b15a3a70e4 parent 88bd0190dccd4ca98498ed575499c262533989eb Author: dwrz <dwrz@dwrz.net> Date: Mon, 5 Dec 2022 21:36:33 +0000 Add emacs init Diffstat:
| A | emacs/init.el | | | 616 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
1 file changed, 616 insertions(+), 0 deletions(-)
diff --git a/emacs/init.el b/emacs/init.el @@ -0,0 +1,616 @@ +;; C source code variables. +(setq auto-save-interval 30 + delete-by-moving-to-trash t + echo-keystrokes 0.1 + enable-recursive-minibuffers t + exec-path (append exec-path '("/home/dwrz/.local/bin/" + "/home/dwrz/.local/share/go/bin/" + "/home/dwrz/.local/share/node_modules/bin/" + )) + next-screen-context-lines 5 + scroll-conservatively 10000 + use-dialog-box nil + user-full-name "David Wen Riccardi-Zhu" + ring-bell-function 'ignore + x-stretch-cursor t) + +(set-language-environment "UTF-8") + +(setq-default fill-column 80 + indent-tabs-mode t + require-final-newline t + shell-file-name (getenv "SHELL") + tab-width 8 + truncate-lines nil) + +;; Startup +(setq blink-cursor-mode nil + inhibit-splash-screen t + inhibit-startup-message t + initial-major-mode 'org-mode + initial-scratch-message nil + user-mail-address "dwrz@dwrz.net") + +;; Custom +(setq custom-file "/home/dwrz/.cache/custom.el") + +;; FUNCTIONS + +(defun dwrz-copy-filename () + "Copy the current buffer file name to the clipboard." + (interactive) + (let ((filename (if (equal major-mode 'dired-mode) + default-directory (buffer-file-name)))) + (when filename (kill-new filename) + (message "Copied buffer file name '%s' to the clipboard." filename)))) + +(defun dwrz-open-calendar () + "Open a calfw calendar." + (interactive) + (cfw:open-calendar-buffer + :contents-sources + (list (cfw:org-create-source "forest green") (cfw:cal-create-source "red")))) + +(defun dwrz-org-capture-at-point () + "Insert an org capture template at point." + (interactive) + (org-capture 0)) + +(defun dwrz-terminal () + "Start a terminal." + (interactive) + (start-process "terminal" nil "st")) + +(defun dwrz-unfill-paragraph () + "Unfill a paragraph." + (interactive) + (let ((fill-column (point-max))) (fill-paragraph nil))) + +(defun dwrz-unfill-region () + "Unfill a region." + (interactive) + (let ((fill-column (point-max))) + (fill-region (region-beginning) (region-end) nil))) + +;; PACKAGES +(setq load-prefer-newer t) + +(require 'package) +(setq package-archives + '(("elpa" . "https://elpa.nongnu.org/nongnu/") + ("gnu" . "https://elpa.gnu.org/packages/") + ("melpa" . "https://melpa.org/packages/"))) + +(require 'calfw) +(require 'calfw-cal) +(require 'calfw-org) +(autoload 'notmuch "notmuch" "Notmuch mail" t) + +;; PACKAGE CONFIGURATION +(with-eval-after-load 'autorevert + (setq auto-revert-verbose nil + global-auto-revert-non-file-buffers t)) + +(with-eval-after-load 'avy + (setq avy-all-windows 'all-frames + avy-background t + avy-case-fold-search nil + avy-keys '(?a ?o ?e ?u ?h ?t ?n ?s) + avy-style 'at-full)) + +(with-eval-after-load 'bookmark (setq bookmark-save-flag 1)) + +(with-eval-after-load 'calendar + (setq calendar-chinese-all-holidays-flag t + calendar-week-start-day 1 + diary-file "~/org/diary.org")) + +(with-eval-after-load 'cc-vars (setq-default c-basic-offset 8)) + +(with-eval-after-load 'company + (setq company-backends + '((company-yasnippet company-clang company-cmake + company-capf company-files company-gtags + company-etags company-keywords) + (company-abbrev company-dabbrev company-dabbrev-code)) + company-idle-delay 0 + company-minimum-prefix-length 1 + company-show-numbers t + company-tooltip-align-annotations t) + (add-hook 'company-mode-hook 'company-box-mode) + (define-key company-active-map (kbd "<return>") nil) + (define-key company-active-map (kbd "RET") nil) + (define-key company-active-map (kbd "<tab>") 'company-complete-selection)) + +(with-eval-after-load 'company-quickhelp (setq company-quickhelp-delay 0.25)) + +(with-eval-after-load 'compile compilation-message-face 'default) + +(with-eval-after-load 'conf-mode (add-hook 'conf-space-mode-hook 'rainbow-mode)) + +(with-eval-after-load 'counsel + (setq counsel-rg-base-command + "rg -S -M 80 --no-heading --line-number --color never %s ." + counsel-find-file-at-point t)) + +(with-eval-after-load 'css-mode (add-hook 'css-mode-hook 'web-mode)) + +(with-eval-after-load 'dired + (setq dired-listing-switches "-alh" + dired-recursive-copies 'always) + (put 'dired-find-alternate-file 'disabled nil) + (dired-hide-dotfiles-mode)) + +(with-eval-after-load 'dired-hide-dotfiles + (define-key dired-mode-map (kbd ".") 'dired-hide-dotfiles-mode)) + +(with-eval-after-load 'dired-x + (setq dired-omit-verbose nil + dired-omit-files (concat dired-omit-files "\\|^\\..+$") + dired-clean-up-buffers-too t)) + +(with-eval-after-load 'emacs-lisp-mode + (add-hook 'emacs-lisp-mode-hook 'eldoc-mode) + (add-hook 'emacs-lisp-mode-hook + '(lambda () (set (make-local-variable 'company-backends) + '((company-capf company-files))))) + (add-hook 'emacs-lisp-mode-hook + '(lambda () (setq indent-tabs-mode nil))) + (font-lock-add-keywords 'emacs-lisp-mode '(("\\<\\(FIX\\|TODO\\|NB\\)" 1 + font-lock-warning-face t)))) + +(with-eval-after-load 'faces + (set-face-attribute + 'default t + :family "DejaVu Sans Mono" + :foundry "PfEd" + :slant 'normal + :weight 'normal + :height 160 + :width 'normal)) + +(with-eval-after-load 'files + (setq auto-save-file-name-transforms `((".*" ,temporary-file-directory t)) + auto-save-visited-mode t + backup-directory-alist `((".*" .,temporary-file-directory)) + confirm-kill-emacs 'y-or-n-p)) + +(with-eval-after-load 'git-commit (setq git-commit-summary-max-length 50)) + +(with-eval-after-load 'gnutls (setq gnutls-verify-error t)) + +(with-eval-after-load 'go-mode + (setenv "GOPATH" "/home/.local/share/go") + (setq go-tag-args (list "-transform" "camelcase")) + (add-hook 'go-mode-hook 'lsp) + (add-hook 'go-mode-hook + '(lambda () + (set (make-local-variable 'company-backends) + '((company-capf company-files))) + (set (make-local-variable 'before-save-hook) + '(lsp-organize-imports + lsp-format-buffer + delete-trailing-whitespace)))) + (define-key go-mode-map (kbd "C-c C-b") 'pop-tag-mark) + (define-key go-mode-map (kbd "C-c t") 'go-tag-add) + (define-key go-mode-map (kbd "C-c T") 'go-tag-remove) + (font-lock-add-keywords 'go-mode '(("\\<\\(FIX\\|TODO\\|NB\\)" 1 + font-lock-warning-face t)))) + +(with-eval-after-load 'go-playground + (setq go-playground-ask-file-name nil + go-playground-basedir "/home/dwrz/.local/share/go/src/playground/" + go-playground-go-command "GO111MODULE=on go" + go-playground-init-command "go mod init")) + +(with-eval-after-load 'holiday (setq holiday-bahai-holidays nil)) + +(with-eval-after-load 'ivy + (setq ivy-initial-inputs-alist nil + ivy-wrap t + ivy-use-virtual-buffers t + ivy-count-format "(%d/%d) ") + (setcdr (assq t ivy-format-functions-alist) #'ivy-format-function-line)) + +(with-eval-after-load 'ispell + (setq ispell-program-name "/usr/bin/aspell" + ispell-dictionary "en_US" + ispell-extra-args '("--sug-mode=ultra" "--lang=en_US") + ispell-list-command "--list" + ispell-dictionary-alist + '(("en_US" "[[:alpha:]]" "[^[:alpha:]]" "['‘’]" + t ("-d" "en_US") nil utf-8)))) + +(with-eval-after-load 'js-mode + (setq js-indent-level 2) + (add-hook 'js-mode-hook 'lsp) + (add-hook 'js-mode-hook + '(lambda () (set (make-local-variable 'company-backends) + '((company-capf company-files)))))) + +(with-eval-after-load 'message + (setq message-directory "drafts" + message-kill-buffer-on-exit t + message-sendmail-envelope-from 'header + message-sendmail-f-is-evil nil)) + +(with-eval-after-load 'notmuch + (customize-set-variable 'notmuch-search-oldest-first nil) + (setq notmuch-address-command 'internal + notmuch-address-internal-completion '(sent nil) + notmuch-address-save-filename "~/org/contacts/notmuch-contacts" + notmuch-address-use-company t + notmuch-crypto-process-mime t + notmuch-fcc-dirs "sent" + notmuch-hello-hide-tags '("spam") + notmuch-show-all-tags-list t) + ;; Search tags + (setq notmuch-saved-searches + '((:name "inbox" :query "tag:inbox" :key "i") + (:name "unread" :query "tag:unread" :key "u") + (:name "new" :query "tag:new" :key "n") + (:name "sent" :query "tag:sent" :key "e") + (:name "drafts" :query "tag:draft" :key "d") + (:name "all mail" :query "*" :key "a") + (:name "todo" :query "tag:todo" :key "t"))) + ;; Keybindings + (define-key notmuch-search-mode-map "D" + (lambda () + "mark message as deleted" + (interactive) + (notmuch-search-tag (list "-new" "-unread" "-inbox" "+deleted")) + (forward-line))) + (define-key notmuch-show-mode-map "D" + (lambda () + "mark message as deleted" + (interactive) + (notmuch-show-tag (list "-new" "-unread" "-inbox" "+deleted")))) + (define-key notmuch-search-mode-map "S" + (lambda () + "mark message as spam" + (interactive) + (notmuch-search-tag (list "-new" "-unread" "-inbox" "+spam")) + (forward-line))) + (define-key notmuch-show-mode-map "S" + (lambda () + "mark message as spam" + (interactive) + (notmuch-show-tag (list "-new" "-unread" "-inbox" "+spam")))) + (define-key notmuch-search-mode-map "N" + (lambda () + "unmark message as new and unread" + (interactive) + (notmuch-search-tag (list "-new" "-unread")) + (forward-line))) + (define-key notmuch-show-mode-map "N" + (lambda () + "unmark message as new and unread" + (interactive) + (notmuch-show-tag (list "-new" "-unread")))) + (define-key notmuch-show-mode-map "r" 'notmuch-show-reply) + (define-key notmuch-show-mode-map "R" 'notmuch-show-reply-sender) + (define-key notmuch-search-mode-map "r" 'notmuch-search-reply-to-thread) + (define-key notmuch-search-mode-map "R" + 'notmuch-search-reply-to-thread-sender)) + +(with-eval-after-load 'novice ()) + +(with-eval-after-load 'ol + (require 'ol-notmuch) + (setq org-link-frame-setup + '((vm . vm-visit-folder-other-frame) + (vm-imap . vm-visit-imap-folder-other-frame) + (gnus . org-gnus-no-new-news) + (file . find-file) + (wl . wl-other-frame)))) + +(with-eval-after-load 'org + (setq org-adapt-indentation nil + org-export-backends '(ascii html icalendar latex md odt) + org-catch-invisible-edits 'show + org-fontify-done-headline t + org-default-priority 1 + org-enforce-todo-dependencies t + org-hide-emphasis-markers t + org-highest-priority 1 + org-image-actual-width '(800) + org-list-demote-modify-bullet nil + org-log-into-drawer t + org-lowest-priority 3 + org-refile-targets '((nil :maxlevel . 8)) + org-src-fontify-natively t + org-tags-column 0 + org-todo-keywords '((sequence "NEXT(n)" + "IN-PROGRESS(i)" "RECURRING(r)" + "WAITING(w)" "|" "SOMEDAY-MAYBE(s)" + "DELEGATED(e)" "CANCELED(c)" "DONE(d)"))) + (add-hook 'org-babel-after-execute-hook + (lambda () (when org-inline-image-overlays + (org-redisplay-inline-images)))) + (add-hook 'org-mode-hook (lambda () (electric-indent-local-mode -1))) + (add-hook 'org-mode-hook 'flyspell-mode) + (add-hook 'org-mode-hook + '(lambda () (set (make-local-variable 'company-backends) + '((company-capf company-yasnippet + company-files))))) + (org-babel-do-load-languages + 'org-babel-load-languages + '((awk .t ) (calc . t) (C . t) (emacs-lisp . t) (gnuplot . t) (js . t) + (latex . t) (makefile .t )(org . t) (python . t) + (shell . t) (sed .t) (sql . t) (sqlite . t)))) + +(with-eval-after-load 'org-agenda + (setq org-agenda-follow-indirect nil + org-agenda-include-diary t + org-agenda-prefix-format '((agenda . " %i %?-12t% s") + (timeline . " % s") + (todo . " %i") + (tags . " %i") + (search . " %i")) + org-agenda-span 'month + org-agenda-tags-column 'auto + org-agenda-use-time-grid nil + org-agenda-window-setup 'current-window) + (cond ((string-equal (system-name) "main.dwrz.net") + (setq org-agenda-files '("~/org/dwrz.org" + "~/org/someday-maybe.org" + "~/projects/chinese/chinese.org" + "~/projects/community/community.org" + "~/projects/src/dwrz.org" + "~/projects/career/career.org" + "~/projects/finances/finances.org" + "~/projects/health/health.org" + "~/projects/home/home.org" + "~/projects/recurse-center/recurse-center.org" + "~/projects/rz/rz.org") + org-archive-location + "/home/dwrz/org/archive.org::")))) + +(with-eval-after-load 'org-capture + (setq org-capture-templates + '(("e" "log entry" plain + (file "") + (file "~/org/templates/log-entry.org") + :jump-to-captured t) + ("j" "journal" entry + (file "") + (file "~/org/templates/journal.org") + :prepend t + :jump-to-captured t + :empty-lines-before 1 + :empty-lines-after 1) + ("l" "log" entry + (file "") + (file "~/org/templates/log.org") + :prepend t + :jump-to-captured t + :empty-lines-after 1) + ("n" "note" entry + (file "") + (file "~/org/templates/note.org") + :prepend t + :jump-to-captured t + :empty-lines-before 1 + :empty-lines-after 1)))) + +(with-eval-after-load 'org-faces + (setq org-priority-faces + '((?1 . (:foreground "#c82829" :weight 'bold)) + (?2 . (:foreground "#eab700")) + (?3 . (:foreground "#718c00")))) + (setq org-todo-keyword-faces + '(("NEXT" . "#c82829") + ("IN-PROGRESS" . "#718c00") + ("RECURRING" . "#f5871f") + ("WAITING" . "#eab700") + ("DONE" . "#4271ae") + ("DELEGATED" . "#969896") + ("CANCELED" . "#a3685a") + ("SOMEDAY-MAYBE" . "#8959a8")))) + +(with-eval-after-load 'org-src + (setq org-src-preserve-indentation t + org-src-tab-acts-natively t)) + +(with-eval-after-load 'paragraphs (setq sentence-end-double-space nil)) + +(with-eval-after-load 'prog-mode + (add-hook 'prog-mode-hook 'flycheck-mode) + (add-hook 'prog-mode-hook 'flyspell-prog-mode) + (add-hook 'prog-mode-hook 'rainbow-mode) + (add-hook 'prog-mode-hook 'visual-line-mode)) + +(with-eval-after-load 'pyim (pyim-basedict-enable)) + +(with-eval-after-load 'register + (set-register ?j '(file . "~/journal/2022/2022.org")) + (set-register ?i '(file . "~/.config/emacs/init.el")) + (set-register ?g '(file . "~/org/gtd.org")) + (set-register ?o '(file . "~/org/dwrz.org"))) + +(with-eval-after-load 'select + (setq select-enable-primary t + select-enable-clipboard t)) + +(with-eval-after-load 'sendmail + (setq mail-specify-envelope-from t + mail-envelope-from 'header + mail-specify-envelope-from t + send-mail-function 'sendmail-send-it)) + +(with-eval-after-load 'shell + (setq-default explicit-shell-file-name (getenv "SHELL"))) + +(with-eval-after-load 'sh-script (setq sh-basic-offset 2)) + +(with-eval-after-load 'simple + (setq async-shell-command-buffer "new-buffer" + backward-delete-char-untabify-method nil + mail-user-agent 'message-user-agent + shift-select-mode nil) + (add-hook 'visual-line-mode-hook 'visual-fill-column-mode)) + +(with-eval-after-load 'super-save (setq super-save-auto-save-when-idle t)) + +(with-eval-after-load 'subr-x (defalias 'yes-or-no-p 'y-or-n-p)) + +(with-eval-after-load 'text-mode + (add-hook 'text-mode-hook 'flyspell-mode) + (add-hook 'text-mode-hook 'rainbow-mode) + (add-hook 'text-mode-hook 'visual-line-mode) + (add-hook 'text-mode-hook + '(lambda () (set (make-local-variable 'company-backends) + '((company-capf company-files)))))) + +(with-eval-after-load 'time (setq display-time-mode nil)) + +(with-eval-after-load 'visual-fill-column + (setq split-window-preferred-function + 'visual-fill-column-split-window-sensibly)) + +(with-eval-after-load 'web-mode + (setq web-mode-code-indent-offset 2 + web-mode-css-indent-offset 2 + web-mode-indent-style 2 + web-mode-markup-indent-offset 2) + (add-hook 'web-mode-hook 'electric-pair-mode) + (add-hook 'web-mode-hook + '(lambda () (set (make-local-variable 'company-backends) + '((company-web-html + company-capf + company-yasnippet + company-files))))) + (add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode)) + (add-to-list 'auto-mode-alist '("\\.gohtml\\'" . web-mode))) + +(with-eval-after-load 'window + (setq split-height-threshold nil + split-width-threshold 160)) + +(with-eval-after-load 'yasnippet (define-key yas-keymap (kbd "<tab>") nil)) + +;; CUSTOMIZE +(customize-set-variable 'face-font-family-alternatives + '(("hans" "adobe-source-han-sans-cn-font"))) +(customize-set-variable 'mouse-wheel-scroll-amount '(1 ((shift) .1))) + +;; HOOKS +(add-hook 'after-init-hook 'doom-modeline-mode) +(add-hook 'after-init-hook + '(lambda () + (setq base16-theme-256-color-source 'colors) + (load-theme 'base16-tomorrow t) + (set-face-attribute 'fringe t :background "#ffffff") + (setq base16-distinct-fringe-background nil) + (when (fboundp 'menu-bar-mode)(menu-bar-mode -1)) + (when (fboundp 'scroll-bar-mode)(scroll-bar-mode -1)) + (when (fboundp 'tool-bar-mode)(tool-bar-mode -1)) + (when (fboundp 'window-divider-mode)(window-divider-mode -1)))) +(add-hook 'before-save-hook 'delete-trailing-whitespace) + +;; PACKAGE ENABLE +(auto-compression-mode t) +(column-number-mode) +(company-quickhelp-mode t) +(delete-selection-mode nil) +(global-anzu-mode t) +(global-auto-revert-mode t) +(global-company-mode t) +(global-hl-line-mode t) +(global-subword-mode t) +(ivy-mode t) +(show-paren-mode t) +(size-indication-mode) +(super-save-mode t) +(yas-global-mode t) +(yas-load-directory "/home/dwrz/.config/emacs/snippets") + +;; HYDRAS +(defhydra hydra-highlight (:color blue) + ("q" nil "quit" :column "highlight") + ("s" highlight-symbol-at-point "symbol" :color blue :column "do") + ("l" highlight-lines-matching-regexp "lines" :color blue :column "do") + ("p" highlight-phrase "phrase" :color blue :column "do") + ("r" highlight-regexp "regex" :color blue :column "do") + ("u" unhighlight-regexp "unhighlight" :color blue :column "undo")) + +(defhydra hydra-point (:color blue) + ("q" nil "quit" :column "point") + ("e" hippie-expand "expand" :color red :column "do") + ("k" kill-word "delete word" :column "do") + ("s" ispell-word "spell" :column "do") + ("d" (insert (format-time-string "%Y%m%d")) "date" :column "insert") + ("t" (insert (format-time-string "%FT%T%z")) "timestamp" :column "insert")) + +(defhydra hydra-region (:color red) + ("q" nil "quit" :column "region") + ("o" comment-or-uncomment-region "comment" :column "edit") + ("r" reverse-region "reverse" :column "edit") + ("s" sort-lines "sort" :column "edit") + ("c" rot13-region "cipher" :column "format") + ("d" downcase-region "downcase" :column "format") + ("u" upcase-region "upcase" :column "format") + ("U" dwrz-unfill-region "unfill" :column "fill") + ("f" fill-region "fill" :column "fill")) + +(defhydra hydra-windows (:color pink) + ("q" nil "quit" :column "windows") + ("b" balance-windows "balance" :column "window") + ("t" enlarge-window "taller" :column "window") + ("n" shrink-window-horizontally "narrow" :column "window") + ("l" shrink-window "lower" :column "window") + ("w" enlarge-window-horizontally "widen" :column "window") + ("-" text-scale-decrease "out" :column "zoom") + ("+" text-scale-increase "in" :column "zoom") + ("=" (text-scale-increase 0) "reset" :column "zoom")) + +(defhydra hydra-meta-hydra (:color blue) + ("q" nil "quit" :column "meta") + ("h" hydra-highlight/body "highlight" :column "hydras") + ("p" hydra-point/body "point" :column "hydras") + ("r" hydra-region/body "region" :column "hydras") + ("w" hydra-windows/body "windows" :column "hydras")) + +;; KEYBINDINGS +(global-set-key [remap query-replace] 'anzu-query-replace) +(global-set-key [remap query-replace-regexp] 'anzu-query-replace-regexp) +(global-set-key (kbd "C-c a") 'org-agenda) +(global-set-key (kbd "C-c b") 'ibuffer) +(global-set-key (kbd "C-c c") 'dwrz-org-capture-at-point) +(global-set-key (kbd "C-c d") nil) +(global-set-key (kbd "C-c e") 'counsel-M-x) +(global-set-key (kbd "C-c f") 'counsel-find-file) +(global-set-key (kbd "C-c g") 'avy-goto-line) +(global-set-key (kbd "C-c h") 'hippie-expand) +(global-set-key (kbd "C-c i") nil) +(global-set-key (kbd "C-c j") 'jump-to-register) +(global-set-key (kbd "C-c k") nil) +(global-set-key (kbd "C-c l") 'org-store-link) +(global-set-key (kbd "C-c m") 'hydra-map-hydra/body) +(global-set-key (kbd "C-c n") 'hydra-meta-hydra/body) +(global-set-key (kbd "C-c o") 'avy-goto-char) +(global-set-key (kbd "C-c p") 'hydra-point/body) +(global-set-key (kbd "C-c q") nil) +(global-set-key (kbd "C-c r") 'hydra-region/body) +(global-set-key (kbd "C-c s") nil) +(global-set-key (kbd "C-c t") nil) +(global-set-key (kbd "C-c u") nil) +(global-set-key (kbd "C-c v") nil) +(global-set-key (kbd "C-c w") 'hydra-windows/body) +(global-set-key (kbd "C-c x") 'yas-expand) +(global-set-key (kbd "C-c y") nil) +(global-set-key (kbd "C-c z") nil) +(global-set-key (kbd "C-c #") 'display-line-numbers-mode) +(global-set-key (kbd "C-h f") 'counsel-describe-function) +(global-set-key (kbd "C-h v") 'counsel-describe-variable) +(global-set-key (kbd "C-r") 'counsel-rg) +(global-set-key (kbd "C-s") 'swiper) +(global-set-key (kbd "C-x C-b") 'ibuffer) +(global-set-key (kbd "C-x C-f") 'counsel-find-file) +(global-set-key (kbd "C-x b") 'ivy-switch-buffer) +(global-set-key (kbd "C-x c") 'dwrz-open-calendar) +(global-set-key (kbd "C-x g") 'magit-status) +(global-set-key (kbd "C-x m") 'notmuch) +(global-set-key (kbd "C-x t") 'dwrz-terminal) +(global-set-key (kbd "M-x") 'counsel-M-x) +(put 'downcase-region 'disabled nil)