;; Printing
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(require 'ps-print)
+(load "ps-print")
(setq ps-print-color-p nil
;; ps-paper-type 'letter
(concat
;; The temperature
+
(let ((temp (/ (string-to-number (ff/file-first-line ff/temperature-file)) 1000)))
(if (> temp 50)
(concat
(cond
((string= battery-status "Full") "L")
- ((string= battery-status "Charging") (format "L%d%%" (ff/battery-percent "energy")))
- ((string= battery-status "Discharging") (format "B%d%%" (ff/battery-percent "charge")))
- (t battery-status)))
+
+ ((string= battery-status "Charging")
+ (format "L%d%%" (max (ff/battery-percent "charge")
+ (ff/battery-percent "energy"))))
+
+ ((string= battery-status "Discharging")
+ (format "B%d%%" (max (ff/battery-percent "charge")
+ (ff/battery-percent "energy"))))
+
+ (t battery-status)
+
+ ))
)
vc-follow-symlinks t
)
-(when (require 'vc-git nil t)
+(when (load "vc-git" nil t)
(add-to-list 'vc-handled-backends 'GIT))
;; alarm-vc.el is one of my own scripts, check my web page
;; Cool stuff to navigate in emacs-lisp sources
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(require 'find-func)
+(load "find-func")
(defun ff/goto-function-definition (&optional goback)
"Go directly to the definition of the function at point. With
;; Keymaping
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(require 'info nil t)
+(load "info" nil t)
(define-key global-map [(shift iso-lefttab)] 'ispell-complete-word)
;; shift-tab going backward is kind of standard
;; exclusively with my selector.el
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(require 'recentf)
+(load "recentf")
(setq recentf-exclude
(append recentf-exclude
;; selector.el is one of my own scripts, check my web page
(when (ff/load-or-alert "selector" t)
- (define-key global-map [(shift return)] 'selector/quick-move-in-buffer)
+ ;; (define-key global-map [(shift return)] 'selector/quick-move-in-buffer)
(define-key global-map [(control x) (control b)] 'selector/switch-buffer)
(defun ff/visit-debpkg-file (&optional regexp)