From 44da93db15b7b045e0513ab4cee0a0c8361d7ac9 Mon Sep 17 00:00:00 2001 From: Francois Fleuret Date: Mon, 16 Nov 2015 13:58:47 +0100 Subject: [PATCH] Update. --- emacs.el | 38 ++++++++++++++++++++++---------------- media-mplayer.el | 6 ++++++ vm | 21 ++++++++++++++++++++- 3 files changed, 48 insertions(+), 17 deletions(-) diff --git a/emacs.el b/emacs.el index bf6da94..aea32d6 100644 --- a/emacs.el +++ b/emacs.el @@ -34,9 +34,9 @@ ;; (set-default-font "Bitstream vera sans mono-12") ;; (set-default-font "Liberation Mono-13") (set-default-font "Inconsolata 15") -;;(set-default-font "DejaVu sans mono 11") -;;(set-default-font "Droid sans mono 13") -;;(set-default-font "Opensans 10") +;; (set-default-font "DejaVu sans mono 11") +;; (set-default-font "Droid sans mono 13") +;; (set-default-font "Opensans 10") (when (fboundp 'horizontal-scroll-bar-mode) (horizontal-scroll-bar-mode -1)) @@ -328,6 +328,8 @@ load-warning buffer in case of failure." ;; What modes for what file extentions (add-to-list 'auto-mode-alist '("\\.h\\'" . c++-mode)) +(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode)) + (require 'org-table) (add-to-list 'auto-mode-alist '("\\.txt\\'" . (lambda() @@ -854,7 +856,11 @@ printer." (defun ff/sum-values-from-files (list-files prefix) (apply '+ (mapcar - (lambda (f) (string-to-number (ff/file-first-line (format "%s/%s" f prefix)))) + (lambda (f) + (condition-case nil + (string-to-number (ff/file-first-line (format "%s/%s" f prefix))) + (error 0)) + ) list-files))) (defun ff/battery-percent () @@ -890,7 +896,7 @@ printer." (pcase (ff/battery-state ff/battery-dirs) (`charging (format "c%d%%" (ff/battery-percent))) (`discharging (format "d%d%%" (ff/battery-percent))) - (code "f")) + (_ "f")) ) @@ -925,7 +931,7 @@ printer." ) '( - ("hostname" nil t nil "-v") + ("hostname" nil t nil "-f") ("acpi" nil t) ("df" nil t nil "-h") ;; ("mount" nil t) @@ -1706,7 +1712,7 @@ int main(int argc, char **argv) { -