X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=sugar.git;a=blobdiff_plain;f=dot-files%2F_emacs_el;h=87d2aec2a020a5b042e49a14f297696bfc6257ef;hp=bd8b72ebc2c51b93d4981dfd450e1ae2b6966614;hb=8d80c9c947c1dd49c46258f52aefef6272dbc9c2;hpb=327001194323cff2a7532c2a5e2e3f50bebd90fe diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el index bd8b72e..87d2aec 100644 --- a/dot-files/_emacs_el +++ b/dot-files/_emacs_el @@ -71,6 +71,9 @@ (cond ((equal host "seras") (set-frame-font "Dejavu Sans Mono 11" t)) + ((equal host "yukari.cielonegro.org") + (set-frame-font "Dejavu Sans Mono 11" t)) + ((equal host "aria.cielonegro.org") (progn (set-frame-font "Dejavu Sans Mono 13" t) @@ -173,8 +176,14 @@ Will prompt you shell name when you type `C-u' before this command." t) (paren-activate)) ;; elscreen -(load "elscreen" "ElScreen" t) -(elscreen-start) +(condition-case e + (load "elscreen" "ElScreen" t) + (file-error + (if (equal (cadr e) "Cannot open load file") + (message "Warning: feature %s is absent" feature) ; warn and ignore + (apply 'signal (car e) (cdr e))))) ; rethrow +(if (featurep 'elscreen) + (elscreen-start)) (require-if-present 'elscreen-w3m) ;; undo-tree @@ -417,11 +426,20 @@ Will prompt you shell name when you type `C-u' before this command." t) (setq tsv-separator-list '("\t")) ;(add-to-list 'auto-mode-alist '("\\.[Tt][Ss][Vv]\\'" . tsv-mode)) +;; markdown-mode +;; http://jblevins.org/projects/markdown-mode/ +(autoload 'markdown-mode "markdown-mode.el" "Major mode for editing Markdown files" t) +(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode)) + ;; yaml-mode (autoload 'yaml-mode "yaml-mode" "Major mode for editing YAML files." t) (add-to-list 'auto-mode-alist '("\\.ya?ml$" . yaml-mode)) +;; less-css-mode +(autoload 'less-css-mode "less-css-mode" "Major mode for editing LESS files" t) +(add-to-list 'auto-mode-alist '("\\.less\\'" . less-css-mode)) + ;; Troublesome Tasks (if (equal (system-name) "seras") (progn