X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/2a67803a39ecbd2f45d33f395fe2775943a75073..b6f44b18d89f8dae5dd00791d42504d37a2e9907:/el/dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 86ba4d5..1c484e6 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -511,6 +511,12 @@ Evil key bindings are defined in `mdw-evil-keymap-keys'."
       org-export-docbook-xslt-stylesheet
       "/usr/share/xml/docbook/stylesheet/docbook-xsl/fo/docbook.xsl")
 
+;; Glasses.
+
+(setq glasses-separator "-"
+      glasses-separate-parentheses-p nil
+      glasses-uncapitalize-p t)
+
 ;; Some hacks to do with window placement.
 
 (defun mdw-clobber-other-windows-showing-buffer (buffer-or-name)
@@ -2634,15 +2640,15 @@ name, as a symbol."
 		      "const" "continue" "create"
 		      "do"
 		      "else" "enum" "extern"
-		      "false" "final" "fn" "for"
+		      "final" "fn" "for"
 		      "if" "impl" "in"
 		      "let" "loop"
 		      "macro" "match" "mod" "move" "mut"
 		      "offsetof" "override"
-		      "priv" "pub" "pure"
+		      "priv" "proc" "pub" "pure"
 		      "ref" "return"
-		      "self" "sizeof" "static" "struct" "super"
-		      "true" "trait" "type" "typeof"
+		      "sizeof" "static" "struct" "super"
+		      "trait" "type" "typeof"
 		      "unsafe" "unsized" "use"
 		      "virtual"
 		      "where" "while"
@@ -2653,7 +2659,8 @@ name, as a symbol."
 		      "f32" "f64"
 		      "i8" "i16" "i32" "i64" "isize"
 		      "u8" "u16" "u32" "u64" "usize"
-		      "char" "str")))
+		      "char" "str"
+		      "self" "Self")))
     (setq font-lock-keywords
 	  (list
 
@@ -4106,6 +4113,19 @@ there is sadness."
 (add-hook 'find-file-hook 'mdw-try-smerge t)
 
 ;;;--------------------------------------------------------------------------
+;;; GUD, and especially GDB.
+
+;; Inhibit window dedication.  I mean, seriously, wtf?
+(defadvice gdb-display-buffer (after mdw-undedicated (buf) compile activate)
+  "Don't make windows dedicated.  Seriously."
+  (set-window-dedicated-p ad-return-value nil))
+(defadvice gdb-set-window-buffer
+    (after mdw-undedicated (name &optional ignore-dedicated window)
+     compile activate)
+  "Don't make windows dedicated.  Seriously."
+  (set-window-dedicated-p (or window (selected-window)) nil))
+
+;;;--------------------------------------------------------------------------
 ;;; MPC configuration.
 
 (eval-when-compile (trap (require 'mpc)))