X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/d17c675665cacf6fbc7aaeb281cdde3ba233fdeb..c40c5499d5082b481d7b87160d313dc2bf22f728:/el/dot-emacs.el

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 8b6618d..ea20e5d 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -285,6 +285,11 @@ Evil key bindings are defined in `mdw-evil-keymap-keys'."
 	     ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
 	   org-export-latex-classes)))
 
+(setq org-export-docbook-xslt-proc-command "xsltproc --output %o %s %i"
+      org-export-docbook-xsl-fo-proc-command "fop %i.safe %o"
+      org-export-docbook-xslt-stylesheet
+      "/usr/share/xml/docbook/stylesheet/docbook-xsl/fo/docbook.xsl")
+
 ;;;--------------------------------------------------------------------------
 ;;; Mail and news hacking.
 
@@ -985,6 +990,13 @@ doesn't match any of the regular expressions in
 (mdw-define-face whizzy-error-face
   (t :background "darkred"))
 
+;; Ellipses used to indicate hidden text (and similar).
+(mdw-define-face mdw-ellipsis-face
+  (((type tty)) :foreground "blue") (t :foreground "grey60"))
+(let ((dot (make-glyph-code ?. 'mdw-ellipsis-face)))
+  (set-display-table-slot standard-display-table 4
+			  (vector dot dot dot)))
+
 ;;;--------------------------------------------------------------------------
 ;;; C programming configuration.
 
@@ -1029,13 +1041,14 @@ doesn't match any of the regular expressions in
 		  (arglist-cont-nonempty . mdw-c-lineup-arglist)
 		  (topmost-intro . mdw-c-indent-extern-mumble)
 		  (cpp-define-intro . 0)
+		  (knr-argdecl . 0)
 		  (inextern-lang . [0])
 		  (label . 0)
 		  (case-label . +)
 		  (access-label . -)
 		  (inclass . +)
 		  (inline-open . ++)
-		  (statement-cont . 0)
+		  (statement-cont . +)
 		  (statement-case-intro . +)))
 	       t))
 
@@ -2142,8 +2155,8 @@ strip numbers instead."
 		   (home (expand-file-name "~")) (nhome (length home)))
 	      (if (and (>= npwd nhome)
 		       (or (= nhome npwd)
-			   (= (elt pwd nhome) ?/)
-		       (string= (substring pwd 0 nhome) home)))
+			   (= (elt pwd nhome) ?/))
+		       (string= (substring pwd 0 nhome) home))
 		  (concat "~" (substring pwd (length home)))
 		pwd))
 	    right)))