;; (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))
;; 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()
(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 ()
(pcase (ff/battery-state ff/battery-dirs)
(`charging (format "c%d%%" (ff/battery-percent)))
(`discharging (format "d%d%%" (ff/battery-percent)))
- (code "f"))
+ (`unknown "f")
+ (_ "?"))
)
)
'(
- ("hostname" nil t nil "-v")
+ ("hostname" nil t nil "-f")
("acpi" nil t)
("df" nil t nil "-h")
;; ("mount" nil t)
;; " ")
;; )
+ ,(if (ff/temp-and-battery-info-string)
+ '(concat (ff/temp-and-battery-info-string) " "))
+
(propertize (concat 24-hours ":" minutes
" "
dayname " "
load
- ,(if (ff/temp-and-battery-info-string)
- '(concat " " (ff/temp-and-battery-info-string)))
-
)
;; display-time-format "%b %a %e %H:%M"
;; (define-key global-map [?\C-x right] 'ff/next-buffer)
;; (define-key global-map [?\C-x left] 'ff/prev-buffer)
-(define-key global-map [?\M-\]] 'ff/next-buffer)
-(define-key global-map [?\M-\[] 'ff/prev-buffer)
+;; (define-key global-map [?\M-\]] 'ff/next-buffer)
+;; (define-key global-map [?\M-\[] 'ff/prev-buffer)
+
+(define-key global-map [(meta right)] 'ff/next-buffer)
+(define-key global-map [(meta left)] 'ff/prev-buffer)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; There is actually a decent terminal emulator in emacs!
(let ((start (condition-case nil (region-beginning) (error (point))))
(end (condition-case nil (region-end) (error (point)))))
(goto-char end)
- (insert "---------------------------- snip snip -------------------------------\n")
+ (insert "----------------------------- snip snip -----------------------------\n")
(goto-char start)
- (insert "---------------------------- snip snip -------------------------------\n")
+ (insert "----------------------------- snip snip -----------------------------\n")
))
(defun ff/start-latex ()
(goto-char (point-min))
(insert "%% -*- mode: latex; mode: reftex; mode: flyspell; coding: utf-8; tex-command: \"pdflatex.sh\" -*-
-\\documentclass[12pt]{article}
+\\documentclass[12pt,a4paper,twoside]{article}
\\usepackage[a4paper,top=2.5cm,bottom=2cm,left=2.5cm,right=2.5cm]{geometry}
\\usepackage[utf8]{inputenc}
\\usepackage{amsmath}
<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />
<title></title>
-<style>
+<style type=\"text/css\">
p {
color:#009900;
}
;; (define-key global-map [(control shift next)] 'previous-multiframe-window)
;; I have two screens sometime!
+;; (define-key global-map [(meta next)] 'other-frame)
+;; (define-key global-map [(meta prior)] (lambda () (interactive) (other-frame -1)))
-(define-key global-map [(meta next)] 'other-frame)
-(define-key global-map [(meta prior)] (lambda () (interactive) (other-frame -1)))
-
-(define-key global-map [(shift home)] 'delete-other-windows-vertically)
+;; (load "winner")
+(winner-mode 1)
+(define-key global-map [(shift backspace)] 'winner-undo)
+;; (define-key global-map [(shift home)] 'delete-other-windows-vertically)
;; (define-key global-map [(control +)] 'enlarge-window)
;; (define-key global-map [(control -)] 'shrink-window)
-
;; Goes to next/previous buffer
-
-(define-key global-map [(control prior)] 'ff/next-buffer)
-(define-key global-map [(control next)] 'ff/prev-buffer)
+;; (define-key global-map [(control prior)] 'ff/next-buffer)
+;; (define-key global-map [(control next)] 'ff/prev-buffer)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; If M-. on a symbol, show where it is defined in another window
(if (string-match ff/kill-this-buffer-and-delete-window-exceptions (buffer-name))
(ff/next-buffer)
(kill-this-buffer)))
- ;; (unless (one-window-p t) (delete-window))
+ (unless (one-window-p t) (delete-window))
)
(define-key global-map [(control backspace)] 'ff/kill-this-buffer-and-delete-window)