:mode "\\.go"
)
#+END_SRC
+** C Programming
+#+BEGIN_SRC emacs-lisp
+(use-package c-mode
+ :delight
+ :config
+ (setq-default c-indent-level 4)
+ (setq-default c-brace-imaginary-offset 0)
+ (setq-default c-brace-offset -4)
+ (setq-default c-argdecl-indent 4)
+ (setq-default c-label-offset -4)
+ (setq-default c-continued-statement-offset 4)
+ )
+#+END_SRC
** Expand region
#+BEGIN_SRC emacs-lisp
(add-hook 'terraform-mode-hook 'my-terraform-mode-init)
)
#+END_SRC
+** Calendar
+#+BEGIN_SRC emacs-lisp
+(use-package calendar
+ :delight 📅
+ :config
+ (setq calendar-latitude 38.6)
+ (setq calendar-longitude -121.5)
+ )
+#+END_SRC
* Email
** Mutt
:mode ("^/usr/share/doc/.*/README.*Debian.*$" . readme-debian-mode)
)
#+END_SRC
-* Misc (uncharacterized)
+* Emacs defaults
+** Search case insensitive by default
#+BEGIN_SRC emacs-lisp
- (setq calendar-latitude 38.6)
- (setq calendar-longitude -121.5)
(setq case-fold-search t)
+#+END_SRC
+** Prompt when killing emacs
+#+BEGIN_SRC emacs-lisp
(setq confirm-kill-emacs (quote y-or-n-p))
-
#+END_SRC
** Turn on fontlock
#+BEGIN_SRC emacs-lisp
** My Username
#+BEGIN_SRC emacs-lisp
(setq user-mail-address "don@donarmstrong.com")
-
#+END_SRC
** Use primary selection on unix machines
#+BEGIN_SRC emacs-lisp
(setq select-enable-primary t)
))
; (setq mouse-drag-copy-region t)
-
-(setq-default c-indent-level 4)
-(setq-default c-brace-imaginary-offset 0)
-(setq-default c-brace-offset -4)
-(setq-default c-argdecl-indent 4)
-(setq-default c-label-offset -4)
-(setq-default c-continued-statement-offset 4)
+#+END_SRC
+** Tabs as spaces, default tab width
+#+BEGIN_SRC emacs-lisp
; tabs are annoying
(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)
+#+END_SRC
+** Insert date function (M-d)
+#+BEGIN_SRC emacs-lisp
(defun insert-date ()
"Insert date at point."
(interactive)
(insert (format-time-string "%A, %B %e, %Y %k:%M:%S %Z")))
(global-set-key "\C-[d" 'insert-date)
-
+#+END_SRC
+** Unfill Paragraph Function
+#+BEGIN_SRC emacs-lisp
(defun unfill-paragraph (arg)
"Pull this whole paragraph up onto one line."
(interactive "*p")
(let ((fill-column 10000))
(fill-paragraph arg))
)
-
+#+END_SRC
+** Turn on column number mode
+#+BEGIN_SRC emacs-lisp
(column-number-mode t)
-
#+END_SRC
** Desktop-save-mode
If the envvar EMACS_SERVER_NAME is set, consider this a separate
; (desktop-read)
)
#+END_SRC
-** Misc (Uncharacterized)
+** Enable upcase/downcase and narrow to region
#+BEGIN_SRC emacs-lisp
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'narrow-to-region 'disabled nil)
-
+#+END_SRC
+** Fix up tmux xterm keys
+#+BEGIN_SRC emacs-lisp
; fix up tmux xterm keys
; stolen from http://unix.stackexchange.com/questions/24414/shift-arrow-not-working-in-emacs-within-tmux
(defun fix-up-tmux-keys ()
)
)
; (add-hook 'tty-setup-hook 'fix-up-tmux-keys)
-
+#+END_SRC
+** Only ask me about a obsolete buffer if the buffer is actually obsolete
+#+BEGIN_SRC emacs-lisp
(defadvice ask-user-about-supersession-threat (around ask-user-about-supersession-threat-if-necessary)
"Call ask-user-about-supersession-threat only if the buffer is actually obsolete."
(if (or (buffer-modified-p)