From 3cfabeec77580bc28db8e4d3ae49c11da31adee3 Mon Sep 17 00:00:00 2001 From: Luke Shumaker Date: Tue, 27 Nov 2012 00:25:48 -0500 Subject: stuff --- .config/emacs/rc.d | 1 + .config/emacs/rc.el | 1 + 2 files changed, 2 insertions(+) create mode 120000 .config/emacs/rc.d create mode 120000 .config/emacs/rc.el (limited to '.config/emacs') diff --git a/.config/emacs/rc.d b/.config/emacs/rc.d new file mode 120000 index 0000000..cbf0836 --- /dev/null +++ b/.config/emacs/rc.d @@ -0,0 +1 @@ +../../.emacs.d \ No newline at end of file diff --git a/.config/emacs/rc.el b/.config/emacs/rc.el new file mode 120000 index 0000000..6d539f6 --- /dev/null +++ b/.config/emacs/rc.el @@ -0,0 +1 @@ +../../.emacs \ No newline at end of file -- cgit v1.2.3-2-g168b From c11ba65551852010e112158fd8b28519a8bac0db Mon Sep 17 00:00:00 2001 From: Luke Shumaker Date: Tue, 4 Dec 2012 16:35:30 -0500 Subject: rm the symlinks in .config/emacs --- .config/emacs/rc.d | 1 - .config/emacs/rc.el | 1 - 2 files changed, 2 deletions(-) delete mode 120000 .config/emacs/rc.d delete mode 120000 .config/emacs/rc.el (limited to '.config/emacs') diff --git a/.config/emacs/rc.d b/.config/emacs/rc.d deleted file mode 120000 index cbf0836..0000000 --- a/.config/emacs/rc.d +++ /dev/null @@ -1 +0,0 @@ -../../.emacs.d \ No newline at end of file diff --git a/.config/emacs/rc.el b/.config/emacs/rc.el deleted file mode 120000 index 6d539f6..0000000 --- a/.config/emacs/rc.el +++ /dev/null @@ -1 +0,0 @@ -../../.emacs \ No newline at end of file -- cgit v1.2.3-2-g168b From 0b746ef1515bbede74963535c79dc3e9631be9a1 Mon Sep 17 00:00:00 2001 From: Luke Shumaker Date: Tue, 4 Dec 2012 16:37:07 -0500 Subject: mv .emacs.d .config/emacs; ln -s .config/emacs .emacs.d --- .config/emacs/.gitignore | 9 +++ .config/emacs/custom.el | 24 ++++++ .config/emacs/emacsutils.el | 13 ++++ .config/emacs/init.el | 181 ++++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 227 insertions(+) create mode 100644 .config/emacs/.gitignore create mode 100644 .config/emacs/custom.el create mode 100644 .config/emacs/emacsutils.el create mode 100644 .config/emacs/init.el (limited to '.config/emacs') diff --git a/.config/emacs/.gitignore b/.config/emacs/.gitignore new file mode 100644 index 0000000..ef4ec20 --- /dev/null +++ b/.config/emacs/.gitignore @@ -0,0 +1,9 @@ +auto-save-list/* +el-get/* +elmo/* +elpa/* +image-dired/* +server/* +session.* +tramp +url/* diff --git a/.config/emacs/custom.el b/.config/emacs/custom.el new file mode 100644 index 0000000..07c8d80 --- /dev/null +++ b/.config/emacs/custom.el @@ -0,0 +1,24 @@ +(custom-set-variables + ;; custom-set-variables was added by Custom. + ;; If you edit it by hand, you could mess it up, so be careful. + ;; Your init file should contain only one such instance. + ;; If there is more than one, they won't work right. + '(custom-enabled-themes (quote (wombat))) + '(custom-safe-themes (quote ("71b172ea4aad108801421cc5251edb6c792f3adbaecfa1c52e94e3d99634dee7" "fc5fcb6f1f1c1bc01305694c59a1a861b008c534cae8d0e48e4d5e81ad718bc6" default))) + '(erc-nick "lukeshu") + '(explicit-shell-file-name "/bin/bash") + '(inhibit-startup-screen t) + '(mdmua-maildir "~/Maildir") + '(minibuffer-prompt-properties (quote (read-only t point-entered minibuffer-avoid-prompt face minibuffer-prompt))) + '(ruby-deep-arglist nil) + '(ruby-deep-indent-paren nil) + '(safe-local-variable-values (quote ((Nginx-indent-tabs-mode) (Nginx-indent-level . 4) (Nginx-indent-level . 8)))) + '(scroll-bar-mode nil) + '(sh-basic-offset 8) + '(sh-indent-comment t)) +(custom-set-faces + ;; custom-set-faces was added by Custom. + ;; If you edit it by hand, you could mess it up, so be careful. + ;; Your init file should contain only one such instance. + ;; If there is more than one, they won't work right. + ) diff --git a/.config/emacs/emacsutils.el b/.config/emacs/emacsutils.el new file mode 100644 index 0000000..966d16e --- /dev/null +++ b/.config/emacs/emacsutils.el @@ -0,0 +1,13 @@ +(defun mailto-compose-mail (mailto-url) + (if (and (stringp mailto-url) + (string-match "\\`mailto:" mailto-url)) + (progn + (require 'rfc2368) + (let* ((headers (mapcar (lambda (h) (cons (intern (car h)) (cdr h))) + (rfc2368-parse-mailto-url mailto-url))) + (good-headers (remove-if (lambda (h) (member (car h) '(Body))) headers)) + (body (cdr (assoc 'Body headers)))) + (wl-draft good-headers nil nil body))))) + +(defun emacs-terminal-emulator (program) + (ansi-term program)) \ No newline at end of file diff --git a/.config/emacs/init.el b/.config/emacs/init.el new file mode 100644 index 0000000..65634cb --- /dev/null +++ b/.config/emacs/init.el @@ -0,0 +1,181 @@ +;; Preliminary settings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(set-face-attribute 'default nil :height 80) +(setq notify-method 'notify-via-libnotify) +(add-to-list 'load-path "~/.emacs.d/") +(add-to-list 'load-path "~/.emacs.d/el-get/el-get") +(setq custom-file "~/.emacs.d/custom.el") + +; derived from ELPA installation +; http://tromey.com/elpa/install.html +(defun eval-url (url) + (let ((buffer (url-retrieve-synchronously url))) + (save-excursion + (set-buffer buffer) + (goto-char (point-min)) + (re-search-forward "^$" nil 'move) + (eval-region (point) (point-max)) + (kill-buffer (current-buffer))))) + + ;; ELPA stuff ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(unless (require 'package nil t) + (eval-url "http://tromey.com/elpa/package-install.el")) + +(setq package-archives '(("ELPA" . "http://tromey.com/elpa/") + ("marmalade" . "http://marmalade-repo.org/packages/") + ("gnu" . "http://elpa.gnu.org/packages/"))) + +;; el-get stuff ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(setq el-get-install-branch "master") ;; live life on the edge +(unless (require 'el-get nil t) + (eval-url "https://github.com/dimitri/el-get/raw/master/el-get-install.el")) + +(setq el-get-sources '( + (:name nxhtml + :type http + :url "http://ourcomments.org/Emacs/DL/elisp/nxhtml/zip/nxhtml-2.08-100425.zip" + :build ("unzip nxhtml-2.08-100425.zip") + :load "nxhtml/autostart.el") + )) + +(setq my-el-get-packages + '(el-get +; nxhtml + apel flim semi wanderlust + smarttabs + )) + +;; Now load all of that ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +;; ELPA +(package-initialize) +;; el-get +(when (require 'el-get nil t) (el-get 'sync my-el-get-packages)) +;; custom +(load custom-file 'noerror) + +;; General settings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +;(load "mdmua") +(load "emacsutils") + +(tool-bar-mode -1) +(ido-mode t) +(show-paren-mode 1) +(setq org-hide-leading-stars t) +(setq org-log-done 'time) +;(xclip-mode 1) + +(load "whitespace") +(setq whitespace-style '( + tab-mark + space-mark + newline-mark + empty +)) + + +;; These are my preferred settings; we let dtrt-indent detect when we play with other's files +(setq-default tab-width 8) +(setq-default c-basic-offset 8) +(setq-default indent-tabs-mode t) + + +(setq + backup-by-copying t ;; don't clobber symlinks + backup-directory-alist '(("." . "~/.emacs.d/saves")) ;; don't litter my fs tree + delete-old-versions t + kept-new-versions 6 + kept-old-versions 2 + version-control t ;; use versioned backups +) + +(setq column-number-mode t + inhibit-startup-screen t + line-number-mode t + server-use-tcp t + server-mode t + show-paren-mode t) + +(setq browse-url-generic-program (executable-find "v-www-browser") + browse-url-browser-function 'browse-url-generic) + + +(defun toggle-fullscreen (&optional f) + (interactive) + (let ((current-value (frame-parameter nil 'fullscreen))) + (set-frame-parameter nil 'fullscreen + (if (equal 'fullboth current-value) + (if (boundp 'old-fullscreen) old-fullscreen nil) + (progn (setq old-fullscreen current-value) + 'fullboth))))) + +;; Custom keybindings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(global-set-key [f11] 'toggle-fullscreen) +(global-set-key "\C-cw" 'global-whitespace-mode) + +;; mode-hooks ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(add-hook 'text-mode-hook 'turn-on-auto-fill) + +; for term-mode +;; (add-hook 'after-make-frame-functions +;; (lambda (frame) +;; (set-variable 'term-default-fg-color +;; (face-foreground 'default)) +;; (set-variable 'term-default-bg-color +;; (face-background 'default))) +;; t) + +(add-hook 'lisp-mode-hook + '(lambda () + (set (make-local-variable 'indent-tabs-mode) nil) + )) + +(add-hook 'emacs-lisp-mode-hook + '(lambda () + (set (make-local-variable 'indent-tabs-mode) nil) + )) + +(add-hook 'coffee-mode-hook + '(lambda () + (set (make-local-variable 'tab-width) 2) + )) + +(add-hook 'term-mode-hook + '(lambda () + (setq term-prompt-regexp "^[^#$%>\n]*[#$%>] *") + (make-local-variable 'mouse-yank-at-point) + ;(make-local-variable 'transient-mark-mode) + (setq mouse-yank-at-point t) + ;(setq transient-mark-mode nil) + (auto-fill-mode -1) + (setq tab-width 8 ) + (setq autopair-dont-activate t) ;; Don't let autopair break ansi-term + )) + +(add-hook 'ruby-mode-hook + '(lambda () + (set (make-local-variable 'indent-tabs-mode) t) + (set (make-local-variable 'ruby-indent-level) 4) + (set (make-local-variable 'tab-width) 4) + )) + +(add-hook 'coffee-mode-hook + '(lambda () + (set (make-local-variable 'indent-tabs-mode) nil) + )) + +(add-to-list 'auto-mode-alist '("PKGBUILD" . sh-mode)) +(add-to-list 'auto-mode-alist '("SRCBUILD" . sh-mode)) + +;(require 'flymake) +;(add-hook 'php-mode-hook (lambda() (flymake-mode 1))) +;(define-key php-mode-map '[M-S-up] 'flymake-goto-prev-error) +;(define-key php-mode-map '[M-S-down] 'flymake-goto-next-error) + +;(setq tramp-debug-buffer t) +;(setq tramp-verbose 10) -- cgit v1.2.3-2-g168b From 2b4d180dc87571e8650f4d7998f98b69b4519ee9 Mon Sep 17 00:00:00 2001 From: Luke Shumaker Date: Fri, 4 Jan 2013 10:44:21 -0500 Subject: mess with emacs color themes --- .config/emacs/custom.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to '.config/emacs') diff --git a/.config/emacs/custom.el b/.config/emacs/custom.el index 07c8d80..40516e3 100644 --- a/.config/emacs/custom.el +++ b/.config/emacs/custom.el @@ -3,8 +3,8 @@ ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. - '(custom-enabled-themes (quote (wombat))) - '(custom-safe-themes (quote ("71b172ea4aad108801421cc5251edb6c792f3adbaecfa1c52e94e3d99634dee7" "fc5fcb6f1f1c1bc01305694c59a1a861b008c534cae8d0e48e4d5e81ad718bc6" default))) + '(custom-enabled-themes (quote (zenburn))) + '(custom-safe-themes (quote ("1e7e097ec8cb1f8c3a912d7e1e0331caeed49fef6cff220be63bd2a6ba4cc365" "71b172ea4aad108801421cc5251edb6c792f3adbaecfa1c52e94e3d99634dee7" "fc5fcb6f1f1c1bc01305694c59a1a861b008c534cae8d0e48e4d5e81ad718bc6" default))) '(erc-nick "lukeshu") '(explicit-shell-file-name "/bin/bash") '(inhibit-startup-screen t) -- cgit v1.2.3-2-g168b From 6c00940af5265238bbeae7efce8e334d92771848 Mon Sep 17 00:00:00 2001 From: Luke Shumaker Date: Fri, 4 Jan 2013 10:44:44 -0500 Subject: use mailcrypt with wanderlust --- .config/emacs/init.el | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) (limited to '.config/emacs') diff --git a/.config/emacs/init.el b/.config/emacs/init.el index 65634cb..c026dd7 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -58,6 +58,34 @@ ;; General settings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(require 'mailcrypt) +(mc-setversion "gpg") +(add-hook 'wl-summary-mode-hook 'mc-install-read-mode) +(add-hook 'wl-mail-setup-hook 'mc-install-write-mode) + +(defun mc-wl-verify-signature () + (interactive) + (save-window-excursion + (wl-summary-jump-to-current-message) + (mc-verify))) + +(defun mc-wl-decrypt-message () + (interactive) + (save-window-excursion + (wl-summary-jump-to-current-message) + (let ((inhibit-read-only t)) + (mc-decrypt)))) + +(eval-after-load "mailcrypt" + '(setq mc-modes-alist + (append + (quote + ((wl-draft-mode (encrypt . mc-encrypt-message) + (sign . mc-sign-message)) + (wl-summary-mode (decrypt . mc-wl-decrypt-message) + (verify . mc-wl-verify-signature)))) + mc-modes-alist))) + ;(load "mdmua") (load "emacsutils") -- cgit v1.2.3-2-g168b From 89b0ca4fb56d42722ed6aa42f833e6ad40a611aa Mon Sep 17 00:00:00 2001 From: Luke Shumaker Date: Sun, 27 Jan 2013 16:40:53 -0500 Subject: small changes. to .config/emacs --- .config/emacs/custom.el | 1 + .config/emacs/init.el | 4 +++- 2 files changed, 4 insertions(+), 1 deletion(-) (limited to '.config/emacs') diff --git a/.config/emacs/custom.el b/.config/emacs/custom.el index 40516e3..dad3d8d 100644 --- a/.config/emacs/custom.el +++ b/.config/emacs/custom.el @@ -10,6 +10,7 @@ '(inhibit-startup-screen t) '(mdmua-maildir "~/Maildir") '(minibuffer-prompt-properties (quote (read-only t point-entered minibuffer-avoid-prompt face minibuffer-prompt))) + '(page-break-lines-char 45) '(ruby-deep-arglist nil) '(ruby-deep-indent-paren nil) '(safe-local-variable-values (quote ((Nginx-indent-tabs-mode) (Nginx-indent-level . 4) (Nginx-indent-level . 8)))) diff --git a/.config/emacs/init.el b/.config/emacs/init.el index c026dd7..402957a 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -1,6 +1,6 @@ ;; Preliminary settings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(set-face-attribute 'default nil :height 80) +(set-face-attribute 'default nil :height 75) (setq notify-method 'notify-via-libnotify) (add-to-list 'load-path "~/.emacs.d/") (add-to-list 'load-path "~/.emacs.d/el-get/el-get") @@ -58,6 +58,8 @@ ;; General settings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(require 'go-mode-load) + (require 'mailcrypt) (mc-setversion "gpg") (add-hook 'wl-summary-mode-hook 'mc-install-read-mode) -- cgit v1.2.3-2-g168b From a3dacb69794b26923ae517028be5cca62ebfadcd Mon Sep 17 00:00:00 2001 From: Luke Shumaker Date: Sun, 31 Mar 2013 20:48:37 -0400 Subject: increase emacs' font size back to 80 --- .config/emacs/init.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to '.config/emacs') diff --git a/.config/emacs/init.el b/.config/emacs/init.el index 402957a..b11f53a 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -1,6 +1,6 @@ ;; Preliminary settings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(set-face-attribute 'default nil :height 75) +(set-face-attribute 'default nil :height 80) (setq notify-method 'notify-via-libnotify) (add-to-list 'load-path "~/.emacs.d/") (add-to-list 'load-path "~/.emacs.d/el-get/el-get") -- cgit v1.2.3-2-g168b From 5a4e4e69cad99e2feacf97c58a9c86d214d67891 Mon Sep 17 00:00:00 2001 From: Luke Shumaker Date: Wed, 14 Aug 2013 10:40:13 -0400 Subject: emacs/init.el: fix gamegrid score directory --- .config/emacs/init.el | 1 + 1 file changed, 1 insertion(+) (limited to '.config/emacs') diff --git a/.config/emacs/init.el b/.config/emacs/init.el index b11f53a..4220f3a 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -96,6 +96,7 @@ (show-paren-mode 1) (setq org-hide-leading-stars t) (setq org-log-done 'time) +(setq gamegrid-user-score-file-directory "/var/games/emacs/") ;(xclip-mode 1) (load "whitespace") -- cgit v1.2.3-2-g168b From 2bac7ce096cb44e97724744d99597cb8bd5d44c7 Mon Sep 17 00:00:00 2001 From: Luke Shumaker Date: Wed, 14 Aug 2013 10:40:36 -0400 Subject: emacs/init.el: dick around with mu4e --- .config/emacs/init.el | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to '.config/emacs') diff --git a/.config/emacs/init.el b/.config/emacs/init.el index 4220f3a..8423999 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -210,3 +210,22 @@ ;(setq tramp-debug-buffer t) ;(setq tramp-verbose 10) + +(add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e") +(require 'mu4e) +(require 'mu4e-speedbar) + +(setq + mu4e-maildir "~/Maildir" ;; top-level Maildir + mu4e-sent-folder "/.Sent" ;; folder for sent messages + mu4e-drafts-folder "/.Draft" ;; unfinished messages + mu4e-trash-folder "/.Trash" ;; trashed messages + mu4e-refile-folder "/archive") ;; saved messages +(setq mu4e-get-mail-command "offlineimap") +(setq mu4e-use-fancy-chars "t") +;; enable inline images +(setq mu4e-view-show-images t) +;; use imagemagick, if available +(when (fboundp 'imagemagick-register-types) + (imagemagick-register-types)) + -- cgit v1.2.3-2-g168b From b45a403b08009a9558d9e2e611adf2ccd0915bf1 Mon Sep 17 00:00:00 2001 From: Luke Shumaker Date: Wed, 14 Aug 2013 10:40:52 -0400 Subject: emacs/*: misc settings --- .config/emacs/custom.el | 17 ++++++++++++++--- .config/emacs/init.el | 2 +- 2 files changed, 15 insertions(+), 4 deletions(-) (limited to '.config/emacs') diff --git a/.config/emacs/custom.el b/.config/emacs/custom.el index dad3d8d..b6a84a2 100644 --- a/.config/emacs/custom.el +++ b/.config/emacs/custom.el @@ -3,11 +3,16 @@ ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. - '(custom-enabled-themes (quote (zenburn))) - '(custom-safe-themes (quote ("1e7e097ec8cb1f8c3a912d7e1e0331caeed49fef6cff220be63bd2a6ba4cc365" "71b172ea4aad108801421cc5251edb6c792f3adbaecfa1c52e94e3d99634dee7" "fc5fcb6f1f1c1bc01305694c59a1a861b008c534cae8d0e48e4d5e81ad718bc6" default))) + '(ansi-color-faces-vector [default bold shadow italic underline bold bold-italic bold]) + '(ansi-color-names-vector (vector "#ffffff" "#ff9da4" "#d1f1a9" "#ffeead" "#bbdaff" "#ebbbff" "#99ffff" "#002451")) + '(custom-enabled-themes (quote (tango-dark))) + '(custom-safe-themes (quote ("9f443833deb3412a34d2d2c912247349d4bd1b09e0f5eaba11a3ea7872892000" "bb08c73af94ee74453c90422485b29e5643b73b05e8de029a6909af6a3fb3f58" "82d2cac368ccdec2fcc7573f24c3f79654b78bf133096f9b40c20d97ec1d8016" "1b8d67b43ff1723960eb5e0cba512a2c7a2ad544ddb2533a90101fd1852b426e" "628278136f88aa1a151bb2d6c8a86bf2b7631fbea5f0f76cba2a0079cd910f7d" "06f0b439b62164c6f8f84fdda32b62fb50b6d00e8b01c2208e55543a6337433a" "1e7e097ec8cb1f8c3a912d7e1e0331caeed49fef6cff220be63bd2a6ba4cc365" "71b172ea4aad108801421cc5251edb6c792f3adbaecfa1c52e94e3d99634dee7" "fc5fcb6f1f1c1bc01305694c59a1a861b008c534cae8d0e48e4d5e81ad718bc6" default))) '(erc-nick "lukeshu") '(explicit-shell-file-name "/bin/bash") + '(fci-rule-color "#00346e") + '(global-whitespace-mode nil) '(inhibit-startup-screen t) + '(maildir-mail-dir "~/Maildir") '(mdmua-maildir "~/Maildir") '(minibuffer-prompt-properties (quote (read-only t point-entered minibuffer-avoid-prompt face minibuffer-prompt))) '(page-break-lines-char 45) @@ -15,8 +20,14 @@ '(ruby-deep-indent-paren nil) '(safe-local-variable-values (quote ((Nginx-indent-tabs-mode) (Nginx-indent-level . 4) (Nginx-indent-level . 8)))) '(scroll-bar-mode nil) + '(send-mail-function (quote smtpmail-send-it)) '(sh-basic-offset 8) - '(sh-indent-comment t)) + '(sh-indent-comment t) + '(smtpmail-smtp-server "plus.smtp.mail.yahoo.com") + '(smtpmail-smtp-service 587) + '(vc-annotate-background "#2b2b2b") + '(vc-annotate-color-map (quote ((20 . "#bc8383") (40 . "#cc9393") (60 . "#dfaf8f") (80 . "#d0bf8f") (100 . "#e0cf9f") (120 . "#f0dfaf") (140 . "#5f7f5f") (160 . "#7f9f7f") (180 . "#8fb28f") (200 . "#9fc59f") (220 . "#afd8af") (240 . "#bfebbf") (260 . "#93e0e3") (280 . "#6ca0a3") (300 . "#7cb8bb") (320 . "#8cd0d3") (340 . "#94bff3") (360 . "#dc8cc3")))) + '(vc-annotate-very-old-color "#dc8cc3")) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. diff --git a/.config/emacs/init.el b/.config/emacs/init.el index 8423999..b907141 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -91,10 +91,10 @@ ;(load "mdmua") (load "emacsutils") +(set-default 'truncate-lines t) (tool-bar-mode -1) (ido-mode t) (show-paren-mode 1) -(setq org-hide-leading-stars t) (setq org-log-done 'time) (setq gamegrid-user-score-file-directory "/var/games/emacs/") ;(xclip-mode 1) -- cgit v1.2.3-2-g168b From 9f30a05c9e26d773d18e16ca2237d9c026faa6d3 Mon Sep 17 00:00:00 2001 From: Luke Shumaker Date: Wed, 14 Aug 2013 12:20:55 -0400 Subject: re-jigger to have the wanderlust configuration be in .config/emacs --- .config/emacs/custom.el | 4 ++- .config/emacs/wl.el | 77 +++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 80 insertions(+), 1 deletion(-) create mode 100644 .config/emacs/wl.el (limited to '.config/emacs') diff --git a/.config/emacs/custom.el b/.config/emacs/custom.el index b6a84a2..47bf654 100644 --- a/.config/emacs/custom.el +++ b/.config/emacs/custom.el @@ -27,7 +27,9 @@ '(smtpmail-smtp-service 587) '(vc-annotate-background "#2b2b2b") '(vc-annotate-color-map (quote ((20 . "#bc8383") (40 . "#cc9393") (60 . "#dfaf8f") (80 . "#d0bf8f") (100 . "#e0cf9f") (120 . "#f0dfaf") (140 . "#5f7f5f") (160 . "#7f9f7f") (180 . "#8fb28f") (200 . "#9fc59f") (220 . "#afd8af") (240 . "#bfebbf") (260 . "#93e0e3") (280 . "#6ca0a3") (300 . "#7cb8bb") (320 . "#8cd0d3") (340 . "#94bff3") (360 . "#dc8cc3")))) - '(vc-annotate-very-old-color "#dc8cc3")) + '(vc-annotate-very-old-color "#dc8cc3") + '(wl-init-file "~/.emacs.d/wl.el") + '(wl-score-files-directory "~/.emacs.d/elmo")) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. diff --git a/.config/emacs/wl.el b/.config/emacs/wl.el new file mode 100644 index 0000000..a169249 --- /dev/null +++ b/.config/emacs/wl.el @@ -0,0 +1,77 @@ +;; mode:-*-emacs-lisp-*- + +(setq user-mail-address "lukeshu@sbcglobal.net") + +;; wanderlust +(setq + ;; Misc ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + wl-local-domain "lukeshu.ath.cx" + wl-icon-directory "~/.emacs.d/el-get/wanderlust/icons" + + ;; Network ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + ;; This only deals with sending--I use offlineimap to fetch + wl-draft-send-mail-function 'wl-draft-send-mail-with-smtp + ;; The following settings are Yahoo!'s SMTP servers: + wl-smtp-connection-type (quote ssl) + wl-smtp-authenticate-type "login" + wl-smtp-posting-server "plus.smtp.mail.yahoo.com" + ;wl-smtp-posting-server "outbound.att.net" + wl-smtp-posting-port 465 + wl-smtp-posting-user user-mail-address + wl-message-id-domain user-mail-address + + ;; Folders/File system ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + elmo-msgdb-directory "~/.emacs.d/elmo" ;; where elmo keeps all its stuff + elmo-cache-directory "~/.emacs.d/elmo-cache" ;; where elmo keeps all its stuff + elmo-maildir-folder-path "~/Maildir" ;; where I store my mail + + ;; note: all below are dirs (Maildirs) under elmo-maildir-folder-path + ;; the '.'-prefix is for marking them as maildirs + wl-fcc "..Sent" ;; sent msgs go to the "sent"-folder + wl-default-folder "..Ham" ;; my main inbox + wl-draft-folder "..Draft" ;; store drafts in 'postponed' + wl-trash-folder "..Trash" ;; put trash in 'trash' + wl-spam-folder "..Bulk Mail" ;; put spam in 'Bulk Mail' + wl-queue-folder "..queue" ;; we don't use this + + ;; check this folder periodically, and update modeline + ;wl-biff-check-folder-list '(".todo") ;; check every 180 seconds + ;; (default: wl-biff-check-interval) + + ;wl-folder-hierarchy-access-folders '("\.*") + wl-folder-hierarchy-access-folders '( + "^.\\([^/.]+[/.]\\)*[^/.]+\\(:\\|@\\|$\\)" + "^-[^.]*\\(:\\|@\\|$\\)" + "^@$" + "^'$") + + ;; Writing + wl-from (concat user-full-name " <" user-mail-address ">") ;; From: line + ;;wl-organization "Foo Corp" + wl-fcc-force-as-read t ;; mark sent messages as read + mime-edit-split-message nil ;; don't split long messages + + ;; Reading ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + wl-stay-folder-window t ;; show the folder pane (left) + wl-folder-window-width 35 ;; + wl-message-auto-reassemble-message/partial t ;; reasemble split messages + + wl-message-ignored-field-list '("^.*:") ;; default to hiding all headers + wl-message-visible-field-list ;; but then display these + '("^\\(To\\|Cc\\):" + "^Subject:" + "^\\(From\\|Reply-To\\):" + "^Organization:" + "^Message-Id:" + "^\\(Posted\\|Date\\):" + "^List-ID:" + ) + wl-message-sort-field-list ;; in this order + '("^Date" + "^From" + "^Organization:" + "^X-Attribution:" + "^Subject" + "^To" + "^Cc") + ) -- cgit v1.2.3-2-g168b From c18638a1ebc629092960729ad1d98e44dd562c94 Mon Sep 17 00:00:00 2001 From: Luke Shumaker Date: Wed, 14 Aug 2013 14:53:26 -0400 Subject: emacs: automatically use smerge-mode for git merge files --- .config/emacs/init.el | 7 +++++++ 1 file changed, 7 insertions(+) (limited to '.config/emacs') diff --git a/.config/emacs/init.el b/.config/emacs/init.el index b907141..da3ef05 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -229,3 +229,10 @@ (when (fboundp 'imagemagick-register-types) (imagemagick-register-types)) + +(defun sm-try-smerge () + (save-excursion + (goto-char (point-min)) + (when (re-search-forward "^<<<<<<< " nil t) + (smerge-mode 1)))) +(add-hook 'find-file-hook 'sm-try-smerge t) -- cgit v1.2.3-2-g168b From 81422e9fa83b0bdbb5bc7b1cbd14a499b68f974b Mon Sep 17 00:00:00 2001 From: Luke Shumaker Date: Sat, 12 Oct 2013 14:29:04 -0400 Subject: emacs: comment out the mu4e stuff --- .config/emacs/init.el | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) (limited to '.config/emacs') diff --git a/.config/emacs/init.el b/.config/emacs/init.el index da3ef05..0e5f22a 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -211,23 +211,23 @@ ;(setq tramp-debug-buffer t) ;(setq tramp-verbose 10) -(add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e") -(require 'mu4e) -(require 'mu4e-speedbar) - -(setq - mu4e-maildir "~/Maildir" ;; top-level Maildir - mu4e-sent-folder "/.Sent" ;; folder for sent messages - mu4e-drafts-folder "/.Draft" ;; unfinished messages - mu4e-trash-folder "/.Trash" ;; trashed messages - mu4e-refile-folder "/archive") ;; saved messages -(setq mu4e-get-mail-command "offlineimap") -(setq mu4e-use-fancy-chars "t") -;; enable inline images -(setq mu4e-view-show-images t) -;; use imagemagick, if available -(when (fboundp 'imagemagick-register-types) - (imagemagick-register-types)) +;; (add-to-list 'load-path "/usr/share/emacs/site-lisp/mu4e") +;; (require 'mu4e) +;; (require 'mu4e-speedbar) + +;; (setq +;; mu4e-maildir "~/Maildir" ;; top-level Maildir +;; mu4e-sent-folder "/.Sent" ;; folder for sent messages +;; mu4e-drafts-folder "/.Draft" ;; unfinished messages +;; mu4e-trash-folder "/.Trash" ;; trashed messages +;; mu4e-refile-folder "/archive") ;; saved messages +;; (setq mu4e-get-mail-command "offlineimap") +;; (setq mu4e-use-fancy-chars "t") +;; ;; enable inline images +;; (setq mu4e-view-show-images t) +;; ;; use imagemagick, if available +;; (when (fboundp 'imagemagick-register-types) +;; (imagemagick-register-types)) (defun sm-try-smerge () -- cgit v1.2.3-2-g168b From 0d41a25dbfda2a8fc3b3dc986295fdd8d67594ae Mon Sep 17 00:00:00 2001 From: Luke Shumaker Date: Sat, 12 Oct 2013 14:29:21 -0400 Subject: emacs: recognize markdown files --- .config/emacs/init.el | 2 ++ 1 file changed, 2 insertions(+) (limited to '.config/emacs') diff --git a/.config/emacs/init.el b/.config/emacs/init.el index 0e5f22a..2a7645f 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -202,6 +202,8 @@ (add-to-list 'auto-mode-alist '("PKGBUILD" . sh-mode)) (add-to-list 'auto-mode-alist '("SRCBUILD" . sh-mode)) +(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode)) +(add-to-list 'auto-mode-alist '("\\.ronn\\'" . markdown-mode)) ;(require 'flymake) ;(add-hook 'php-mode-hook (lambda() (flymake-mode 1))) -- cgit v1.2.3-2-g168b