projects
/
elisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7365475
)
Update.
author
Francois Fleuret
<francois@fleuret.org>
Thu, 17 Sep 2015 06:53:01 +0000
(08:53 +0200)
committer
Francois Fleuret
<francois@fleuret.org>
Thu, 17 Sep 2015 06:53:01 +0000
(08:53 +0200)
emacs.el
patch
|
blob
|
history
diff --git
a/emacs.el
b/emacs.el
index
eb01f9b
..
bf6da94
100644
(file)
--- a/
emacs.el
+++ b/
emacs.el
@@
-976,6
+976,9
@@
printer."
;; " ")
;; )
;; " ")
;; )
+ ,(if (ff/temp-and-battery-info-string)
+ '(concat (ff/temp-and-battery-info-string) " "))
+
(propertize (concat 24-hours ":" minutes
" "
dayname " "
(propertize (concat 24-hours ":" minutes
" "
dayname " "
@@
-985,9
+988,6
@@
printer."
load
load
- ,(if (ff/temp-and-battery-info-string)
- '(concat " " (ff/temp-and-battery-info-string)))
-
)
;; display-time-format "%b %a %e %H:%M"
)
;; display-time-format "%b %a %e %H:%M"
@@
-1023,8
+1023,11
@@
printer."
;; (define-key global-map [?\C-x right] 'ff/next-buffer)
;; (define-key global-map [?\C-x left] 'ff/prev-buffer)
;; (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!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; There is actually a decent terminal emulator in emacs!
@@
-1470,9
+1473,9
@@
universal argument starts xfig even if the .fig does not exist"
(let ((start (condition-case nil (region-beginning) (error (point))))
(end (condition-case nil (region-end) (error (point)))))
(goto-char end)
(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)
(goto-char start)
- (insert "----------------------------
snip snip --
-----------------------------\n")
+ (insert "----------------------------
- snip snip
-----------------------------\n")
))
(defun ff/start-latex ()
))
(defun ff/start-latex ()
@@
-1481,7
+1484,7
@@
universal argument starts xfig even if the .fig does not exist"
(goto-char (point-min))
(insert "%% -*- mode: latex; mode: reftex; mode: flyspell; coding: utf-8; tex-command: \"pdflatex.sh\" -*-
(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}
\\usepackage[a4paper,top=2.5cm,bottom=2cm,left=2.5cm,right=2.5cm]{geometry}
\\usepackage[utf8]{inputenc}
\\usepackage{amsmath}