emacs.el

   1 ;; -*- mode: Emacs-Lisp; mode: rainbow; -*-
   2
   3 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   4 ;; This program is free software; you can redistribute it and/or         ;;
   5 ;; modify it under the terms of the GNU General Public License as        ;;
   6 ;; published by the Free Software Foundation; either version 3, or (at   ;;
   7 ;; your option) any later version.                                       ;;
   8 ;;                                                                       ;;
   9 ;; This program is distributed in the hope that it will be useful, but   ;;
  10 ;; WITHOUT ANY WARRANTY; without even the implied warranty of            ;;
  11 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU      ;;
  12 ;; General Public License for more details.                              ;;
  13 ;;                                                                       ;;
  14 ;; You should have received a copy of the GNU General Public License     ;;
  15 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.  ;;
  16 ;;                                                                       ;;
  17 ;; Written by and Copyright (C) Francois Fleuret                         ;;
  18 ;; Contact <francois@fleuret.org> for comments & bug reports             ;;
  19 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  20
  21 ;; It's better to set the preferences in the .Xresources so that the
  22 ;; window is not first displayed with the wrong options
  23
  24 ;; Emacs.menuBar:            off
  25 ;; Emacs.verticalScrollBars: off
  26 ;; Emacs.toolBar:            off
  27 ;; Emacs.internalBorder:     1
  28 ;; Emacs.FontBackend: xft
  29 ;; Xft.dpi: 96
  30 ;; Xft.hinting: true
  31 ;; Xft.antialias: true
  32 ;; Xft.rgba: rgb
  33
  34 ;; (set-default-font "Inconsolata 15")
  35
  36 ;; (package-initialize)
  37
  38 (set-default-font "Bitstream vera sans mono-12")
  39 ;; (set-default-font "Liberation Mono-13")
  40 ;; (set-default-font "DejaVu sans mono 15")
  41 ;; (set-default-font "Droid sans mono 13")
  42 ;; (set-default-font "Opensans 10")
  43
  44 (when (fboundp 'horizontal-scroll-bar-mode)
  45   (horizontal-scroll-bar-mode -1))
  46
  47 ;; This is where I put most of my emacs-related files
  48 (setq ff/emacs-dir "~/private/emacs")
  49 (unless (file-exists-p ff/emacs-dir)
  50   (mkdir ff/emacs-dir t))
  51
  52 ;; Give the focus to the emacs window if we are under a windowing
  53 ;; system
  54
  55 (when window-system
  56   ;; (x-focus-frame nil)
  57   (set-mouse-pixel-position (selected-frame) 4 4))
  58
  59 ;; Where I keep my own scripts
  60
  61 (add-to-list 'load-path "~/sources/gpl/elisp")
  62 (add-to-list 'load-path "~/sources/elisp")
  63 (add-to-list 'load-path "~/local/elisp")
  64
  65 ;; No, I do not like menus
  66 (menu-bar-mode -1)
  67
  68 ;; Nor fringes
  69 ;; (when (functionp 'fringe-mode) (fringe-mode '(0 . 0)))
  70 ;; (when (functionp 'fringe-mode) (fringe-mode '(0 . 1)))
  71 (when (functionp 'fringe-mode) (fringe-mode 10))
  72
  73 ;; And I do not like scrollbar neither
  74 (when (functionp 'scroll-bar-mode) (scroll-bar-mode -1))
  75
  76 ;; Make all "yes or no" prompts be "y or n" instead
  77 (fset 'yes-or-no-p 'y-or-n-p)
  78
  79 ;; The space bar acting as "yes" has been several times really
  80 ;; problematic.
  81 (define-key query-replace-map (kbd "SPC") nil)
  82
  83 ;; Show the matching parenthesis and do it immediately, we are in a
  84 ;; hurry
  85 (setq show-paren-delay 0)
  86 (show-paren-mode t)
  87
  88 ;; use colorization for all modes
  89 (global-font-lock-mode t)
  90
  91 (setq font-lock-maximum-decoration 3
  92       ;;'((latex-mode . 2) (t . 2))
  93       )
  94
  95 ;; Activate the dynamic completion of buffer names
  96 ;; (iswitchb-mode 1)
  97 ;; (load "lcomplete")
  98
  99 ;; Save the minibuffer history
 100 (setq savehist-file (concat ff/emacs-dir "/savehist"))
 101 (when (functionp 'savehist-mode) (savehist-mode 1))
 102
 103 ;; And allow minibuffer recursion
 104 (setq enable-recursive-minibuffers t)
 105 (minibuffer-depth-indicate-mode 1)
 106
 107 ;; I do not like tooltips
 108 (when (functionp 'tooltip-mode) (tooltip-mode nil))
 109
 110 ;; Activate the dynamic completion in the mini-buffer
 111 (icomplete-mode 1)
 112
 113 ;; (setq highlight-current-line-globally t
 114 ;; highlight-current-line-ignore-regexp "Faces\\|Colors\\| \\*Mini\\|\\*media\\|INBOX")
 115
 116 ;; (highlight-current-line-minor-mode 1)
 117 ;; (highlight-current-line-set-bg-color "gray75")
 118
 119 (defun ff/compile-when-needed (name)
 120   "Compiles the given file only if needed. Adds .el if required, and
 121 uses `load-path' to find it."
 122   (if (not (string-match "\.el$" name))
 123       (ff/compile-when-needed (concat name ".el"))
 124     (mapc (lambda (dir)
 125             (let* ((src (concat dir "/" name)))
 126               (when (file-newer-than-file-p src (concat src "c"))
 127                 (if (let ((byte-compile-verbose nil))
 128                       (condition-case nil
 129                           (byte-compile-file src)
 130                         (error nil)))
 131                     (message (format "Compiled %s" src ))
 132                   (message (format "Failed compilation of %s" src))))))
 133           load-path)))
 134
 135 ;; This is useful when using the same .emacs in many places
 136
 137 (defun ff/load-or-alert (name &optional compile-when-needed)
 138   "Tries to load the specified file and insert a warning message in a
 139 load-warning buffer in case of failure."
 140
 141   (when compile-when-needed (ff/compile-when-needed name))
 142
 143   (if (load name t nil) t
 144     (let ((buf (get-buffer-create "*loading warnings*")))
 145       (display-buffer buf)
 146       (set-buffer buf)
 147       (insert (propertize "Warning:" 'face 'font-lock-warning-face) " could not load '" name "'\n")
 148       (fit-window-to-buffer (get-buffer-window buf))
 149       (set-buffer-modified-p nil))
 150     nil))
 151
 152 ;; This is the default in emacs 22.1 and later
 153 ;; (auto-compression-mode 1)
 154
 155 ;; make emacs use the clipboard so that copy/paste works for other
 156 ;; x-programs. I have no clue how all that clipboard thing works.
 157
 158 ;; (setq x-select-enable-clipboard t)
 159 ;; (setq interprogram-paste-function 'x-cut-buffer-or-selection-value)
 160 ;; (setq x-select-enable-primary t)
 161 ;; (setq x-select-enable-clipboard t)
 162 ;; (global-set-key "\C-y" 'clipboard-yank)
 163
 164 (setq
 165
 166  message-log-max 1000
 167
 168  ;; avoid GC as much as possible
 169  gc-cons-threshold 2500000
 170
 171  ;; no startup message
 172  inhibit-startup-screen t
 173
 174  ;; no message in the scratch buffer
 175  initial-scratch-message nil
 176
 177  ;; do not fill my buffers, you fool
 178  next-line-add-newlines nil
 179
 180  ;; keep the window focused on the messages during compilation
 181  compilation-scroll-output t
 182
 183  ;; Keep the highlight on the compilation error
 184  next-error-highlight t
 185
 186  ;; blink the screen instead of beeping
 187  ;; visible-bell t
 188
 189  ;; take the CR when killing a line
 190  kill-whole-line t
 191
 192  ;; I prefer to move between lines as defined in the buffer, not
 193  ;; visually
 194  line-move-visual nil
 195
 196  ;; I comment empty lines, too (does not seem to work, though)
 197  comment-empty-lines t
 198
 199  ;; We want long lines to be truncated instead of displayed on several lines
 200  ;; truncate-lines t
 201  ;; Show all lines, even if the window is not as large as the frame
 202  ;; truncate-partial-width-windows nil
 203  ;; truncate-partial-width-windows t
 204
 205  ;; Do not keep tracks of the autosaved files
 206  auto-save-list-file-prefix nil
 207
 208  ;; Show me empty lines at the end of the buffer
 209  default-indicate-empty-lines t
 210
 211  ;; Show me the region until I do something on it
 212  transient-mark-mode t
 213
 214  ;; Do not color stuff which are clickable when hovering over it
 215  mouse-highlight nil
 216
 217  ;; Don't bother me with questions even if "unsafe" local variables
 218  ;; are set
 219  enable-local-variables :all
 220
 221  ;; I have no problem with small windows
 222  window-min-height 1
 223
 224  ;; I am not a fan of develock
 225  develock-auto-enable nil
 226
 227  ;; I do not like women to open windows
 228  woman-use-own-frame nil
 229
 230  ;; I am not that paranoid, contrary to what you think
 231  epa-file-cache-passphrase-for-symmetric-encryption t
 232  ;; And I like ascii files
 233  epa-armor t
 234
 235  ;; tramp-default-method "ssh"
 236  tramp-default-method "scp"
 237
 238  ;; I have no problem with files having their own local variables
 239  enable-local-eval t
 240
 241  mail-from-style 'angles
 242  browse-url-mozilla-program "firefox"
 243  mc-encrypt-for-me t
 244  mc-use-default-recipients t
 245
 246  ;; browse-url-new-window-flag t
 247
 248  ;; I do not like compilation to automatically split the active window
 249  ;; vertically, even when the said window is very wide
 250  split-height-threshold 0
 251  split-width-threshold nil
 252
 253  )
 254
 255 ;; The backups
 256
 257 (setq
 258  temporary-file-directory "/tmp/"
 259  vc-make-backup-files t
 260  backup-directory-alist '((".*" . "~/misc/emacs.backups/"))
 261  version-control t ;; Use backup files with numbers
 262  kept-new-versions 10
 263  kept-old-versions 2
 264  delete-old-versions t
 265  backup-by-copying-when-linked t
 266  )
 267
 268 (setq tramp-backup-directory-alist backup-directory-alist)
 269
 270 (setq user-emacs-directory "~/misc/emacs.d/")
 271
 272 (setq
 273  abbrev-file-name (concat user-emacs-directory "abbrev_defs")
 274  server-auth-dir (concat user-emacs-directory "server/")
 275  custom-theme-directory user-emacs-directory
 276  )
 277
 278 ;; Stop this crazy blinking cursor
 279 (blink-cursor-mode 0)
 280
 281 ;; (setq blink-cursor-delay 0.05
 282 ;; blink-cursor-blinks 0
 283 ;; blink-cursor-interval 0.25)
 284
 285 ;; (set-terminal-coding-system 'utf-8)
 286
 287 ;; (unless window-system
 288 ;; (xterm-mouse-mode 1)
 289 ;;   (if (string= (getenv "TERM") "xterm-256color")
 290 ;;       (ff/load-or-alert "xterm-256color" t))
 291 ;; )
 292
 293 (setq-default
 294
 295  ;; Show white spaces at the end of lines
 296  show-trailing-whitespace t
 297
 298  ;; Do not show the cursor in non-active window
 299  cursor-in-non-selected-windows nil
 300
 301  use-dialog-box nil
 302  use-file-dialog nil
 303
 304  ;; when on a TAB, the cursor has the TAB length
 305  x-stretch-cursor t
 306
 307  ;; This is the default coding system when toggle-input-method is
 308  ;; invoked (C-\)
 309  default-input-method "latin-1-prefix"
 310
 311  ;; do not put tabs when indenting
 312  indent-tabs-mode nil
 313  ;; Stop indenting automatically, that's annoying
 314  electric-indent-chars nil
 315
 316  ;; And yes, we have a fast display / connection / whatever
 317  baud-rate 524288
 318  ;; baud-rate 10
 319
 320  ;; To keep the cursor always visible when it moves (thanks
 321  ;; snogglethrop!)
 322  redisplay-dont-pause t
 323
 324  ;; I want to see the keys I type instantaneously
 325  echo-keystrokes 0.1
 326  )
 327
 328 ;; Show the column number
 329 (column-number-mode 1)
 330
 331 ;; What modes for what file extentions
 332 (add-to-list 'auto-mode-alist '("\\.h\\'" . c++-mode))
 333
 334 (add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))
 335
 336 (require 'org-table)
 337
 338 (add-to-list 'auto-mode-alist '("\\.txt\\'" . (lambda()
 339                                                 (text-mode)
 340                                                 (orgtbl-mode)
 341                                                 ;; (auto-fill-mode)
 342                                                 (flyspell-mode))))
 343
 344 (add-hook 'c++-mode-hook 'flyspell-prog-mode)
 345 ;; (add-hook 'lua-mode-hook 'flyspell-prog-mode)
 346 (add-hook 'log-edit-mode-hook 'flyspell-mode)
 347
 348 (add-hook 'markdown-mode-hook 'flyspell-mode)
 349 (add-hook 'markdown-mode-hook 'auto-fill-mode)
 350
 351 ;; I am a power-user
 352
 353 (put 'narrow-to-region 'disabled nil)
 354 (put 'upcase-region 'disabled nil)
 355 (put 'downcase-region 'disabled nil)
 356 ;; (put 'scroll-left 'disabled nil)
 357 ;; (put 'scroll-right 'disabled nil)
 358
 359 ;; My selector is clearer than that
 360 ;; (when (load "ido" t) (ido-mode t))
 361
 362 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 363
 364 ;; Makes buffer names more explicit then <2>, <3> etc. when there are
 365 ;; several identical filenames
 366
 367 (when (load "uniquify" t)
 368   (setq uniquify-buffer-name-style 'post-forward-angle-brackets))
 369
 370 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 371 ;; Appearance
 372 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 373
 374 (when (boundp 'x-display-name)
 375
 376   (setq-default
 377
 378    ;; If the display is :0.0, we make the assumption that we are
 379    ;; running the emacs locally, and we do not show the
 380    ;; hostname. Otherwise, show @host.
 381
 382    frame-title-format (concat "emacs" ;;invocation-name
 383                               (unless (string= x-display-name ":0.0")
 384                                 (concat "@" system-name))
 385                               " (%b)")
 386
 387    ;; Use the same for the icone
 388
 389    icon-title-format frame-title-format
 390    ))
 391
 392 ;; "tool" bar? Are you kidding?
 393 (when (fboundp 'tool-bar-mode) (tool-bar-mode -1))
 394
 395 ;; My funky setting of face colors. Basically, we switch to a sober
 396 ;; look and darken a bit the colors which need to (because of the
 397 ;; darker background)
 398
 399 (defun ff/configure-faces (fl)
 400   "Set face attributes and create faces when necessary"
 401   (mapc (lambda (f)
 402           (unless (boundp (car f)) (make-empty-face (car f)))
 403           (eval `(set-face-attribute (car f) nil ,@(cdr f))))
 404         fl))
 405
 406 ;; Not the same in xterm (which is gray in my case) and in
 407 ;; X-window
 408
 409 (when window-system
 410
 411   (ff/configure-faces
 412    '(
 413      ;; (escape-glyph :foreground "#c0c0c0" :weight 'bold)
 414      (escape-glyph :foreground "green3" :weight 'bold)
 415      (default :background "gray90" :foreground "black")
 416      (cperl-array-face :background "gray90" :foreground "blue" :weight 'bold)
 417      (cperl-hash-face :background "gray90" :foreground "purple" :weight 'bold)
 418      (message-cited-text :foreground "red4")
 419      (diff-mode :background "gray90" :weight 'bold)
 420      (diff-added :background "gray90" :foreground "green4" :weight 'bold)
 421      (diff-removed :background "gray90" :foreground "red2" :weight 'bold)
 422      (diff-changed :background "gray90" :foreground "blue" :weight 'bold)
 423      (diff-file-header :background "white" :foreground "black"
 424                        :weight 'bold)
 425      (diff-header :background "white" :foreground "black")
 426      (diff-hunk-header :background "white" :foreground "black")
 427      (font-lock-builtin-face :foreground "deeppink3")
 428      (font-lock-string-face :foreground "dark olive green")
 429      (font-lock-variable-name-face :foreground "sienna")
 430      ;; (font-lock-function-name-face :foreground "blue" :weight 'bold)
 431      (font-lock-function-name-face :foreground "blue")
 432      ;; (font-lock-comment-delimiter-face :foreground "dark violet")
 433      ;; (font-lock-comment-face :foreground "dark violet")
 434      (flyspell-incorrect :background "#ff0000" :foreground "black")
 435      (flyspell-duplicate :background "#ff9000" :foreground "black")
 436      (hl-line :background "white")
 437      (sh-heredoc :foreground "black" :background "#fff0f0")
 438      (sh-heredoc-face :foreground "black" :background "#fff0f0")
 439      (header-line :background "gray65")
 440      (highlight :background "turquoise")
 441      (message-cited-text-face :foreground "firebrick")
 442      (isearch :background "yellow" :foreground "black")
 443      (isearch-lazy-highlight-face' :background "yellow3" :foreground "black")
 444      (region :background "#b8b8e0" :foreground "black")
 445      ;; (region :background "plum" :foreground "black")
 446      (show-paren-match-face :background "gold" :foreground "black")
 447      (show-paren-mismatch-face :background "red" :foreground "black")
 448      (trailing-whitespace :background "gray65")
 449      (cursor :inverse-video t)
 450      (enotes/list-title-face :foreground "blue" :weight 'bold)
 451      (mode-line :background "#b0b0ff" :foreground "black" :box nil
 452                 :inverse-video nil)
 453      (header-line :background "cornflowerblue" :foreground "black" :box nil
 454                   :inverse-video nil)
 455      (mode-line-inactive :background "gray80" :foreground "black" :box nil
 456                          :inverse-video nil)
 457      ;; (fringe :background "black" :foreground "gray90")
 458      (fringe :background "gray80")
 459      (ff/date-info-face :foreground "white")
 460      (ff/battery-info-face :foreground "black")
 461      (ff/battery-info-alarm-face :foreground "red")
 462      ;; (ff/mail-alarm-face :foreground "white" :background "red2")
 463      ;; (alarm-vc-face :foreground "black" :background "yellow" :weight 'normal)
 464      (gui-button-face :background "green" :foreground "black")
 465      ))
 466   )
 467
 468 (unless window-system
 469   ;; (xterm-mouse-mode 1)
 470   (ff/configure-faces
 471    '((italic :underline nil)
 472      (info-title-2 :foreground "green")
 473      (font-lock-comment-delimiter-face :foreground "green")
 474      (font-lock-comment-face :foreground "green")
 475      (cperl-array-face :background "gray90" :foreground "blue" :weight 'bold)
 476      (cperl-hash-face :background "gray90" :foreground "purple" :weight 'bold)
 477      (diff-added :background "gray90" :foreground "green4" :weight 'bold)
 478      (diff-removed :background "gray90" :foreground "red2" :weight 'bold)
 479      (diff-changed :background "gray90" :foreground "blue" :weight 'bold)
 480      (diff-file-header-face :background "white" :foreground "black"
 481                             :weight 'bold)
 482      (diff-header-face :background "white" :foreground "black")
 483      (diff-hunk-header-face :background "white" :foreground "black")
 484      (diff-indicator-removed :foreground "red" :weight 'bold)
 485      (diff-removed :foreground "red" :weight 'bold)
 486      (diff-indicator-added :foreground "blue" :weight 'bold)
 487      (diff-added :foreground "blue" :weight 'bold)
 488      (font-lock-string-face :foreground "green")
 489      (font-lock-variable-name-face :foreground "blue")
 490      (font-lock-constant-face :foreground "blue")
 491      (font-lock-preprocessor-face :foreground "green")
 492      (font-lock-function-name-face :foreground "cyan")
 493      (flyspell-incorrect :foreground "red2")
 494      (flyspell-duplicate :foreground "OrangeRed2")
 495      (hl-line :background "white")
 496      (sh-heredoc :foreground "black" :background "#fff0f0")
 497      (sh-heredoc-face :foreground "black" :background "#fff0f0")
 498      (font-lock-keyword-face :foreground "blue")
 499      (highlight :background "darkseagreen3")
 500      (isearch :background "orange" :foreground "black")
 501      (isearch-lazy-highlight-face' :background "yellow" :foreground "black")
 502      ;; (display-time-mail-face :background "white")
 503      (show-paren-match-face :background "gold" :foreground "black")
 504      (show-paren-mismatch-face :background "red" :foreground "black")
 505      (trailing-whitespace :background "white")
 506      (mode-line :background "cornflowerblue" :foreground "black" :box nil
 507                 :inverse-video nil)
 508      (header-line :background "cornflowerblue" :foreground "black" :box nil
 509                   :inverse-video nil)
 510      (mode-line-inactive :background "gray60" :foreground "black" :box nil
 511                          :inverse-video nil)
 512      (region :background "white" :foreground "black")
 513      (ff/date-info-face :foreground "white" :weight 'bold)
 514      (ff/battery-info-face :foreground "black")
 515      (ff/battery-info-alarm-face :foreground "red")
 516      ;; (ff/mail-alarm-face :foreground "red" :weight 'bold)
 517      (selector/selection :background "yellow")
 518      (gui-button-face :background "green" :foreground "white")
 519      (enotes/information-face :foreground "cyan")
 520
 521      (file-name-shadow :foreground "black")
 522      (shadow :foreground "black")
 523      (warning :foreground "black" :background "red")
 524      ))
 525   )
 526
 527 ;; When we are root, put the modeline in red
 528
 529 (when (string= (user-real-login-name) "root")
 530   (ff/configure-faces
 531    '((mode-line :background "red3" :foreground "black" :box nil
 532                 :inverse-video nil))
 533    ))
 534
 535 ;; Why should I have to do this?
 536 (add-hook 'sh-mode-hook
 537           (lambda ()
 538             (set-face-attribute 'sh-heredoc nil
 539                                 :foreground "#604000"
 540                                 :background "white"
 541                                 :italic t)
 542             (set-face-attribute 'sh-heredoc-face nil
 543                                 :foreground "#604000"
 544                                 :background "white"
 545                                 :italic t)
 546             ))
 547
 548 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 549 ;; Move the window on the buffer without moving the cursor
 550 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 551
 552 (defun ff/scroll-down ()
 553   "Scroll the buffer down one line and keep the cursor at the same location."
 554   (interactive)
 555   (condition-case nil
 556       (scroll-down 1)
 557     (error nil)))
 558
 559 (defun ff/scroll-up ()
 560   "Scroll the buffer up one line and keep the cursor at the same location."
 561   (interactive)
 562   (condition-case nil
 563       (scroll-up 1)
 564     (error nil)))
 565
 566 (defun ff/scroll-left ()
 567   "Scroll the buffer left one column and keep the cursor at the same location."
 568   (interactive)
 569   (condition-case nil
 570       (scroll-left 2)
 571     (error nil)))
 572
 573 (defun ff/scroll-right ()
 574   "Scroll the buffer right one column and keep the cursor at the same location."
 575   (interactive)
 576   (condition-case nil
 577       (scroll-right 2)
 578     (error nil)))
 579
 580 (define-key global-map [(meta up)] 'ff/scroll-down)
 581 (define-key global-map [(meta down)] 'ff/scroll-up)
 582
 583 (define-key global-map [(meta shift up)]
 584   (lambda () (interactive) (condition-case nil (scroll-down 10) (error nil))))
 585
 586 (define-key global-map [(meta shift down)]
 587   (lambda () (interactive) (condition-case nil (scroll-up 10) (error nil))))
 588
 589 ;; (define-key global-map [(meta shift up)] (lambda () (interactive) (ff/scroll-down 10)))
 590 ;; (define-key global-map [(meta shift down)] 'ff/scroll-up)
 591
 592 (define-key global-map [(meta p)] 'ff/scroll-down)
 593 (define-key global-map [(meta n)] 'ff/scroll-up)
 594 (define-key global-map [(meta right)] 'ff/scroll-left)
 595 (define-key global-map [(meta left)] 'ff/scroll-right)
 596
 597 (defun ff/delete-trailing-whitespaces-and-indent ()
 598   (interactive)
 599   (delete-trailing-whitespace)
 600   (indent-region (point-min) (point-max) nil))
 601
 602 (define-key global-map [(control c) (control q)] 'ff/delete-trailing-whitespaces-and-indent)
 603
 604 (define-key global-map [(control x) (control o)] 'other-window)
 605
 606 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 607 ;; Playing sounds
 608 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 609
 610 (defun ff/alsa-sound (file)
 611   "Plays a sound with ALSA."
 612   (interactive)
 613   (process-kill-without-query (start-process-shell-command "aplay"
 614                                                            nil
 615                                                            "aplay" "-q" file)))
 616
 617 (if (and (boundp 'x-display-name) (string= x-display-name ":0.0"))
 618     (defalias 'ff/play-sound-async 'ff/alsa-sound)
 619   (defalias 'ff/play-sound-async 'ding))
 620
 621 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 622 ;; I comment stuff often, let's be efficient. shift + down comments
 623 ;; the current line and goes down, and shift + up uncomments the line
 624 ;; and goes up (they are not the dual of each other, but moving and
 625 ;; then uncommenting would be very counter-intuitive).
 626 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 627
 628 (defun ff/comment-and-go-down (arg)
 629   "Comments and goes down ARG lines."
 630   (interactive "p")
 631   (condition-case nil
 632       (comment-region (point-at-bol) (point-at-eol)) (error nil))
 633   (next-line 1)
 634   (if (> arg 1) (ff/comment-and-go-down (1- arg))))
 635
 636 (defun ff/uncomment-and-go-up (arg)
 637   "Uncomments and goes up ARG lines."
 638   (interactive "p")
 639   (condition-case nil
 640       (uncomment-region (point-at-bol) (point-at-eol)) (error nil))
 641   (next-line -1)
 642   (if (> arg 1) (ff/uncomment-and-go-up (1- arg))))
 643
 644 (define-key global-map [(shift down)] 'ff/comment-and-go-down)
 645 (define-key global-map [(shift up)] 'ff/uncomment-and-go-up)
 646
 647 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 648 ;; Counting various entities in text
 649 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 650
 651 (defun ff/word-occurences ()
 652   "Display in a new buffer the list of words sorted by number of
 653 occurrences "
 654   (interactive)
 655
 656   (let ((buf (get-buffer-create "*word counting*"))
 657         (map (make-sparse-keymap))
 658         (nb (make-hash-table))
 659         (st (make-hash-table))
 660         (result nil))
 661
 662     ;; Collects all words in a hash table
 663
 664     (save-excursion
 665       (goto-char (point-min))
 666       (while (re-search-forward "\\([\\-a-zA-Z\\\\]+\\)" nil t)
 667         (let* ((s (downcase (match-string-no-properties 1)))
 668                (k (sxhash s)))
 669           (puthash k s st)
 670           (puthash k (1+ (gethash k nb 0)) nb))))
 671
 672     ;; Creates the result buffer
 673
 674     (define-key map "q" 'kill-this-buffer)
 675     (display-buffer buf)
 676     (set-buffer buf)
 677     (setq show-trailing-whitespace nil)
 678     (erase-buffer)
 679
 680     ;; Builds a list from the hash table
 681
 682     (maphash
 683      (lambda (key value)
 684        (setq result (cons (cons value (gethash key st)) result)))
 685      nb)
 686
 687     ;; Sort and display it
 688
 689     (mapc (lambda (x)
 690             (if (and (> (car x) 3)
 691                      ;; No leading backslash and at least four characters
 692                      (string-match "^[^\\]\\{4,\\}" (cdr x))
 693                      )
 694                 (insert (number-to-string (car x)) " " (cdr x) "\n")))
 695           (sort result (lambda (a b) (> (car a) (car b)))))
 696
 697     ;; Adjust the window size and stuff
 698
 699     (fit-window-to-buffer (get-buffer-window buf))
 700     (use-local-map map)
 701     (set-buffer-modified-p nil))
 702   )
 703
 704 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 705 ;; Printing
 706 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 707
 708 (load "ps-print")
 709
 710 (setq ps-print-color-p nil
 711       ps-paper-type 'letter
 712       ;; ps-paper-type 'a4
 713       ;; ps-top-margin (* 1.75 56.692)
 714       ;; ps-left-margin 56.692
 715       ;; ps-bottom-margin 56.692
 716       ;; ps-right-margin 56.692
 717
 718       ;; Simple header. Remove that silly frame shadow.
 719       ps-print-header nil
 720       ps-print-header-frame nil
 721       ps-header-line-pad 0.3
 722       ps-header-font-family 'Courier
 723       ps-header-title-font-size '(8.5 . 10)
 724       ;; ps-header-font-size '(6 . 7)
 725       ps-header-font-size '(10 . 12)
 726       ps-font-size '(7 . 8)
 727       )
 728
 729 (ps-put 'ps-header-frame-alist 'back-color 1.0)
 730 (ps-put 'ps-header-frame-alist 'shadow-color 1.0)
 731 (ps-put 'ps-header-frame-alist 'border-color 0.0)
 732 (ps-put 'ps-header-frame-alist 'border-width 0.0)
 733
 734 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 735
 736 ;; http://blog.tuxicity.se/elisp/emacs/2010/03/26/rename-file-and-buffer-in-emacs.htm
 737
 738 (defun rename-file-and-buffer ()
 739   "Renames current buffer and file it is visiting."
 740   (interactive)
 741   (let ((name (buffer-name))
 742         (filename (buffer-file-name)))
 743     (if (not (and filename (file-exists-p filename)))
 744         (message "Buffer '%s' is not visiting a file!" name)
 745       (let ((new-name (read-file-name "New name: " filename)))
 746         (cond ((get-buffer new-name)
 747                (message "A buffer named '%s' already exists!" new-name))
 748               (t
 749                (rename-file name new-name 1)
 750                (rename-buffer new-name)
 751                (set-visited-file-name new-name)
 752                (set-buffer-modified-p nil)))))))
 753
 754 (global-set-key (kbd "C-c r") 'rename-file-and-buffer)
 755
 756 (defun ff/non-existing-filename (dir prefix suffix)
 757   "Returns a filename of the form DIR/PREFIX[.n].SUFFIX whose file does
 758 not exist"
 759   (let ((n 0)
 760         (f (concat prefix suffix)))
 761     (while (file-exists-p (concat dir "/" f))
 762       (setq n (1+ n)
 763             f (concat prefix "." (prin1-to-string n) suffix)))
 764     f))
 765
 766 (defun ff/print-buffer-or-region-with-faces (&optional file)
 767
 768   ;; I am fed up with spell checking highlights
 769   (when (and flyspell-mode
 770              ;; (or ispell-minor-mode flyspell-mode)
 771              (not (y-or-n-p "The spell checking is on, still print ? ")))
 772     (error "Printing cancelled, the spell-checking is on"))
 773
 774   (unless
 775       (condition-case nil
 776           (ps-print-region-with-faces (region-beginning) (region-end) file)
 777         (error nil))
 778     (ps-print-buffer-with-faces file)))
 779
 780 (defun ff/print-to-file (file)
 781   "Prints the region if selected or the whole buffer in postscript
 782 into FILE."
 783   (interactive
 784    (list
 785     (read-file-name
 786      "PS file: " "/tmp/" nil nil
 787      (ff/non-existing-filename
 788       "/tmp"
 789       (replace-regexp-in-string "[^a-zA-Z0-9_.-]" "_" (file-name-nondirectory
 790                                                        (buffer-name)))
 791       ".ps"))
 792     ))
 793   (ff/print-buffer-or-region-with-faces file))
 794
 795 (defun ff/print-to-printer ()
 796   "Prints the region if selected or the whole buffer to a postscript
 797 printer."
 798   (interactive)
 799   (message "Printing to '%s'" (getenv "PRINTER"))
 800   (ff/print-buffer-or-region-with-faces))
 801
 802 ;; Can you believe it? There is a "print" key on PC keyboards ...
 803
 804 (define-key global-map [(print)] 'ff/print-to-file)
 805 (define-key global-map [(shift print)] 'ff/print-to-printer)
 806
 807 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 808 ;; Dealing with the laptop battery
 809 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 810
 811 (defcustom ff/battery-dirs '("/sys/class/power_supply/BAT0"
 812                              "/sys/class/power_supply/BAT1")
 813   "*Where to gather the battery information")
 814
 815 (defcustom ff/temperature-files '("/sys/class/thermal/thermal_zone0/temp"
 816                                   "/sys/class/thermal/thermal_zone1/temp")
 817   "*Where to gather the thermal information")
 818
 819 (defun ff/file-first-line (file)
 820   (with-temp-buffer
 821     (insert-file-contents-literally file)
 822     (buffer-substring (point-at-bol) (point-at-eol))))
 823
 824 (defun ff/battery-discharging (l)
 825   (and l (or (string= (ff/file-first-line (concat (car l) "/status")) "Discharging")
 826              (ff/battery-discharging (cdr l)))))
 827
 828 ;; If there is one "Discharging" among the states of all the
 829 ;; batteries, the global state is 'discharging. Otherwise, if there is
 830 ;; a "Charging", the state is 'charging. If none is true, it is
 831 ;; 'unknown
 832 (defun ff/battery-state (l)
 833   (if l
 834       (let ((u (ff/file-first-line (concat (car l) "/status"))))
 835         (if (string= u "Discharging") 'discharging
 836           (let ((s (ff/battery-state (cdr l))))
 837             (if (eq s 'discharging) 'discharging
 838               (if (or (eq s 'charging) (string= u "Charging"))
 839                   'charging
 840                 'unknown))
 841             )
 842           )
 843         )
 844     'unknown))
 845
 846 (defun ff/sum-values-from-files (list-files prefix)
 847   (apply '+
 848          (mapcar
 849           (lambda (f)
 850             (condition-case nil
 851                 (string-to-number (ff/file-first-line (format "%s/%s" f prefix)))
 852               (error 0))
 853             )
 854           list-files)))
 855
 856 (defun ff/battery-percent ()
 857   (condition-case nil
 858       (/ (* 100 (ff/sum-values-from-files ff/battery-dirs "energy_now"))
 859          (ff/sum-values-from-files ff/battery-dirs "energy_full"))
 860     (error -1))
 861   )
 862
 863 (defun ff/temp-info-string () (interactive)
 864        (condition-case nil
 865            ;; The temperature
 866
 867            (let ((temp (/
 868                         (apply 'max (mapcar
 869                                      (lambda (f) (string-to-number (ff/file-first-line f)))
 870                                      ff/temperature-files))
 871                         1000)))
 872
 873              (if (> temp 50)
 874                  (let ((s (format "%dC " temp)))
 875                    (if (> temp 70)
 876                        (propertize s 'face 'font-lock-warning-face)
 877                      s)
 878                    )
 879                )
 880              )
 881
 882          (error nil))
 883        )
 884
 885 (defun ff/battery-info-string () (interactive)
 886        (condition-case nil
 887            (pcase (ff/battery-state ff/battery-dirs)
 888              ;; (`charging (format "c%d%%" (ff/battery-percent)))
 889              ;; (`discharging (format "d%d%%" (ff/battery-percent)))
 890              ;; (`unknown "f")
 891
 892              (`charging
 893               (let ((p (ff/battery-percent)))
 894                 (if (> p 10)
 895                     (propertize (format "↑%d%%" p) 'face 'ff/battery-info-face)
 896                   (propertize (format "↑%d%%" p) 'face 'ff/battery-info-alarm-face))
 897                 )
 898               )
 899
 900              (`discharging
 901               (let ((p (ff/battery-percent)))
 902                 (if (> p 10)
 903                     (propertize (format "↓%d%%" p) 'face 'ff/battery-info-face)
 904                   (propertize (format "↓%d%%" p) 'face 'ff/battery-info-alarm-face))
 905                 )
 906               )
 907
 908              ;; (`unknown "✱")
 909              (`unknown "F")
 910              (_ "?"))
 911          (error nil))
 912        )
 913
 914 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 915
 916 (defun ff/system-info () (interactive)
 917
 918        (let* ((buf (get-buffer-create "*system info*"))
 919               (win (get-buffer-window buf))
 920               (map (make-sparse-keymap)))
 921
 922          (if win
 923              (progn
 924                (delete-window win)
 925                (kill-buffer buf))
 926
 927            (define-key map "q" 'kill-this-buffer)
 928            (display-buffer buf)
 929            (set-buffer buf)
 930            (setq show-trailing-whitespace nil)
 931            (erase-buffer)
 932
 933            (let ((highlight nil))
 934
 935              (mapc (lambda (x)
 936                      (insert
 937                       (if (setq highlight (not highlight))
 938                           (propertize
 939                            (with-temp-buffer (apply 'call-process x)
 940                                              (buffer-string))
 941                            'face '(:background "#d0d0ff"))
 942                         (with-temp-buffer (apply 'call-process x)
 943                                           (buffer-string))
 944                         ))
 945                      )
 946
 947                    '(
 948                      ("hostname" nil t nil "-f")
 949                      ("acpi" nil t)
 950                      ("df" nil t nil "-h")
 951                      ;; ("mount" nil t)
 952                      ("ifconfig" nil t)
 953                      ("ssh-add" nil t nil "-l")
 954                      )))
 955
 956            (goto-char (point-min))
 957            (while (re-search-forward "^$" nil t) (backward-delete-char 1))
 958
 959            (fit-window-to-buffer (get-buffer-window buf))
 960            (use-local-map map)
 961            (set-buffer-modified-p nil)
 962            )
 963          )
 964        )
 965
 966 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 967 ;; Display time
 968 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 969
 970 (setq
 971
 972  display-time-interval 10 ;; Check every 10s
 973
 974  display-time-string-forms `(
 975
 976                              load
 977
 978                              " "
 979
 980                              ,@(when (ff/temp-info-string)
 981                                  '((ff/temp-info-string)))
 982
 983                              ,@(when (ff/battery-info-string)
 984                                  '((ff/battery-info-string)))
 985
 986                              ;; '((propertize
 987                              ;; (ff/battery-info-string)
 988                              ;; 'face 'ff/battery-info-face)))
 989
 990                              " "
 991
 992                              (propertize
 993                               (concat ;;" ˌ"
 994                                24-hours ":" minutes
 995                                " "
 996                                ;; dayname " "
 997                                monthname " " day
 998                                ;;"ˌ"
 999                                )
1000                               'face 'ff/date-info-face)
1001
1002                              )
1003
1004  ;; display-time-format "%b %a %e %H:%M"
1005  ;; display-time-mail-face nil
1006  )
1007
1008 ;; Show the time, mail and stuff
1009 (display-time)
1010
1011 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1012 ;; Moving through buffers
1013 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1014
1015 (defun ff/next-buffer ()
1016   "Switches to the next buffer in cyclic order."
1017   (interactive)
1018   (let ((buffer (current-buffer)))
1019     (switch-to-buffer (other-buffer buffer))
1020     (bury-buffer buffer)))
1021
1022 (defun ff/prev-buffer ()
1023   "Switches to the previous buffer in cyclic order."
1024   (interactive)
1025   (let ((list (nreverse (buffer-list)))
1026         found)
1027     (while (and (not found) list)
1028       (let ((buffer (car list)))
1029         (if (and (not (get-buffer-window buffer))
1030                  (not (string-match "\\` " (buffer-name buffer))))
1031             (setq found buffer)))
1032       (setq list (cdr list)))
1033     (switch-to-buffer found)))
1034
1035 ;; (define-key global-map [?\C-x right] 'ff/next-buffer)
1036 ;; (define-key global-map [?\C-x left] 'ff/prev-buffer)
1037 ;; (define-key global-map [?\M-\]] 'ff/next-buffer)
1038 ;; (define-key global-map [?\M-\[] 'ff/prev-buffer)
1039
1040 (define-key global-map [(meta right)] 'ff/next-buffer)
1041 (define-key global-map [(meta left)] 'ff/prev-buffer)
1042
1043 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1044 ;; There is actually a decent terminal emulator in emacs!
1045 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1046
1047 (load "term")
1048
1049 (defun ff/kill-associated-buffer (process str) (interactive)
1050        (let ((buffer (process-buffer process)))
1051          (kill-buffer buffer))
1052        (message "Process finished (%s)" (replace-regexp-in-string "\n$" "" str)))
1053
1054 (defun ff/kill-associated-buffer-and-delete-windows (process str) (interactive)
1055        (let ((buffer (process-buffer process)))
1056          (delete-windows-on buffer)
1057          (kill-buffer buffer))
1058        (message "Process finished (%s)" (replace-regexp-in-string "\n$" "" str)))
1059
1060 (defun ff/shell-new-buffer (buffername program &rest param)
1061   "Start a terminal-emulator in a new buffer with the shell PROGRAM,
1062 optionally invoked with the parameters PARAM. The process associated
1063 to the shell can be killed without query."
1064
1065   (interactive)
1066
1067   (let ((n 1)
1068         (bn buffername))
1069
1070     (while (get-buffer (concat "*" bn "*"))
1071       (setq n (1+ n)
1072             bn (format "%s<%d>" buffername n)))
1073
1074     (set-buffer (apply 'make-term (append (list bn program nil) param)))
1075
1076     (setq show-trailing-whitespace nil)
1077     (term-char-mode)
1078     (message "C-c C-k term-char-mode, C-c C-j term-line-mode. \
1079 In line mode: M-p previous line, M-n next line.")
1080
1081     ;; A standard setup of the face above is not enough, I have to
1082     ;; force them here. Since I have a gray90 background, I like
1083     ;; darker colors.
1084
1085     (when window-system
1086       (ff/configure-faces
1087        '((term-green :foreground "green3")
1088          (term-cyan :foreground "cyan3")
1089          (term-default-fg-inv :foreground "gray90" :background "black")
1090          )))
1091
1092     (term-set-escape-char ?\C-x)
1093
1094     ;; I like the shell buffer and windows to be deleted when the
1095     ;; shell process terminates. It's a bit of a mess to acheive this.
1096
1097     (let ((process (get-buffer-process (current-buffer))))
1098       (process-kill-without-query process)
1099       (set-process-sentinel process
1100                             ;; 'ff/kill-associated-buffer-and-delete-windows
1101                             'ff/kill-associated-buffer
1102                             ))
1103
1104     ;; (switch-to-buffer-other-window (concat "*" bn "*"))
1105     (switch-to-buffer (concat "*" bn "*"))
1106     ))
1107
1108 (defcustom ff/default-bash-commands '("ssh")
1109   "*List of commands to be used for completion when invoking a new
1110 bash shell with `ff/bash-new-buffer'.")
1111
1112 (defun ff/bash-new-buffer (universal)
1113   "Starts a bash in a new buffer. When invoked with a universal
1114 argument, asks for a command to execute in that bash shell. The list
1115 of commands in `ff/default-bash-commands' is used for auto-completion"
1116   (interactive "P")
1117
1118   (if universal
1119       (let ((cmd (completing-read
1120                   "Command: "
1121                   (mapcar (lambda (x) (cons x t)) ff/default-bash-commands))))
1122         (ff/shell-new-buffer cmd "/bin/bash" "-c" cmd))
1123
1124     (ff/shell-new-buffer "bash" "/bin/bash")))
1125
1126 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1127 ;; vc stuff for CVS
1128 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1129
1130 (setq ;; Always follow links if the file is under version control
1131  vc-follow-symlinks t
1132  )
1133
1134 (when (load "vc-git" nil t)
1135   (add-to-list 'vc-handled-backends 'GIT))
1136
1137 ;; alarm-vc.el is one of my own scripts, check my web page
1138
1139 (when (ff/load-or-alert "alarm-vc" t)
1140   (setq alarm-vc-mode-exceptions "^VM"))
1141
1142 (when (ff/load-or-alert "git")
1143   (setq git-show-unknown nil)
1144   )
1145
1146 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1147 ;; Makes .sh and others files executable automagically
1148 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1149
1150 ;; Please consider the security-related consequences of using it
1151
1152 ;; (defun ff/make-shell-scripts-executable (&optional filename)
1153 ;; (setq filename (or filename (buffer-name)))
1154 ;; (when (and (string-match "\\.sh$\\|\\.pl$\\|\\.rb" filename)
1155 ;; (not (file-executable-p filename))
1156 ;; )
1157 ;; (set-file-modes filename 493)
1158 ;; (message "Made %s executable" filename)))
1159
1160 ;; (add-hook 'after-save-hook 'ff/make-shell-scripts-executable)
1161
1162 (add-hook 'after-save-hook
1163           'executable-make-buffer-file-executable-if-script-p)
1164
1165 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1166 ;; Cool stuff to navigate in emacs-lisp sources
1167 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1168
1169 (load "find-func")
1170
1171 (defun ff/goto-function-definition (&optional goback)
1172   "Go directly to the definition of the function at point. With
1173 goback argument, go back where we were."
1174   (interactive "P")
1175   (if goback
1176       (if (not (and (boundp 'goto-function-history) goto-function-history))
1177           (error "We were nowhere, buddy")
1178         (message "Come back")
1179         (switch-to-buffer (car (car goto-function-history)))
1180         (goto-char (cdr (car goto-function-history)))
1181         (setq goto-function-history (cdr goto-function-history)))
1182
1183     (let ((function (function-called-at-point)))
1184       (when function
1185         (let ((location (find-function-search-for-symbol
1186                          function nil
1187                          (symbol-file function))))
1188           (setq goto-function-history
1189                 (cons (cons (current-buffer) (point))
1190                       (and (boundp 'goto-function-history)
1191                            goto-function-history)))
1192           (pop-to-buffer (car location))
1193           (goto-char (cdr location)))))))
1194
1195 (define-key global-map [(meta g)] 'ff/goto-function-definition)
1196 (define-key global-map [(meta G)] (lambda () (interactive)
1197                                     (ff/goto-function-definition t)))
1198
1199 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1200
1201 ;; (setq python-indent-offset 4)
1202
1203 ;; (define-key python-mode-map [(shift right)] 'python-indent-shift-right)
1204 ;; (define-key python-mode-map [(shift left)] 'python-indent-shift-left)
1205 ;; (define-key python-mode-map [(shift right)] 'indent-rigidly-right-to-tab-stop)
1206 ;; (define-key python-mode-map [(shift left)] 'indent-rigidly-left-to-tab-stop)
1207
1208 (load "vc-git")
1209
1210 (defun ff/git-pull-push () (interactive)
1211        (message "git pull / push ...")
1212        (shell-command "git pull && git push" nil)
1213        )
1214
1215 (defun ff/git-pull () (interactive)
1216        (message "git pull ...")
1217        (shell-command "git pull" nil)
1218        )
1219
1220 (define-key global-map [(control x) (v) (p)] 'ff/git-pull-push)
1221 (define-key global-map [(control x) (v) (P)] 'ff/git-pull)
1222
1223 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1224 ;; The big stuff (bbdb, mailcrypt, etc.)
1225 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1226
1227 (setq bbdb-file "~/private/bbdb")
1228
1229 (when (file-exists-p bbdb-file)
1230
1231   ;; Failsafe version if we can't load bbdb
1232   (defun ff/explicit-name (email) email)
1233
1234   (when (ff/load-or-alert "bbdb")
1235
1236     (setq
1237      ;; Stop asking (if not t or nil, will not ask)
1238      bbdb-offer-save 'never
1239      ;; I hate when bbdb decides to mess up my windows
1240      bbdb-use-pop-up nil
1241      ;; I have no problem with bbdb asking me if the sender email
1242      ;; does not match exactly the address we have in the database
1243      bbdb-quiet-about-name-mismatches 0
1244      ;; I have european friends, too
1245      bbdb-north-american-phone-numbers-p nil
1246      ;; To cycle through all possible addresses
1247      bbdb-complete-name-allow-cycling t
1248      ;; Cycle with full names only, not through all net-addresses alone too
1249      bbdb-dwim-net-address-allow-redundancy t
1250      ;; Do not add new addresses automatically
1251      bbdb-always-add-addresses nil
1252      )
1253
1254     (defface ff/known-address-face
1255       '((t (:foreground "blue2")))
1256       "The face to display known mail identities.")
1257
1258     (defface ff/unknown-address-face
1259       '((t (:foreground "gray50")))
1260       "The face to display unknown mail identities.")
1261
1262     (defun ff/explicit-name (email)
1263       "Returns a string identity for the first address in EMAIL. The
1264 identity is taken from bbdb if possible or from the address itself
1265 with mail-extract-address-components. The suffix \"& al.\" is added if
1266 there are more than one address.
1267
1268 If no bbdb record is found, the name is propertized with the face
1269 ff/unknown-address-face. If a record is found and contains a note
1270 'face, the associated face is used, otherwise
1271 ff/known-address-face is used."
1272
1273       (and email
1274            (let* ((data (mail-extract-address-components email))
1275                   (name (car data))
1276                   (net (cadr data))
1277                   (record (bbdb-search-simple nil net)))
1278
1279              (concat
1280
1281               (condition-case nil
1282                   (propertize (bbdb-record-name record)
1283                               'face
1284                               (or (cdr (assoc 'face
1285                                               (bbdb-record-raw-notes record)))
1286                                   'ff/known-address-face))
1287                 (error
1288                  (propertize (or (and data (concat "<" net ">"))
1289                                  "*undefined*")
1290                              'face 'ff/unknown-address-face)
1291                  ))
1292               (if (string-match "," (mail-strip-quoted-names email)) " & al.")
1293               )))
1294       )
1295
1296     (ff/configure-faces '((ff/robot-address-face :foreground "green4")
1297                           (ff/personal-address-face :foreground "dark magenta" :weight 'bold)
1298                           (ff/important-address-face :foreground "red3"
1299                                                      :weight 'bold
1300                                                      )))
1301
1302     )
1303   )
1304
1305 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1306 ;; An encrypted file to put secure stuff (passwords, ...)
1307 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1308
1309 (when (ff/load-or-alert "mailcrypt")
1310   (mc-setversion "gpg")
1311   ;; Keep the passphrase for 10min
1312   (setq mc-passwd-timeout 600
1313         ff/secure-note-file "~/private/secure-notes.gpg")
1314   )
1315
1316 (defface ff/secure-date
1317   '((t (:background "white" :weight bold)))
1318   "The face to display the dates in the modeline.")
1319
1320 (defun ff/secure-note-add () (interactive)
1321
1322        (unless
1323            (let ((b (find-buffer-visiting ff/secure-note-file)))
1324              (and b (switch-to-buffer b)))
1325          (find-file ff/secure-note-file)
1326          ;; Adds a new entry (i.e. date and a bunch of empty lines)
1327          (goto-char (point-min))
1328          (insert "-- "
1329                  (format-time-string "%Y %b %d %H:%M:%S" (current-time))
1330                  " --\n\n")
1331          (previous-line 1)
1332          )
1333
1334        ;; Colorizes the dates
1335
1336        (save-excursion
1337          (goto-char (point-min))
1338          (while (re-search-forward
1339                  "^-- [0-9]+ [a-z]+ [0-9]+ [0-9]+:[0-9]+:[0-9]+ -+$"
1340                  nil t)
1341            (add-text-properties
1342             (match-beginning 0) (1+ (match-end 0))
1343             '(face ff/secure-date rear-nonsticky t))))
1344
1345        (set-buffer-modified-p nil)
1346        (setq buffer-undo-list nil)
1347        )
1348
1349 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1350 ;; Spelling
1351 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1352
1353 (setq ;; For french, aspell is far better than ispell
1354  ispell-program-name "aspell"
1355  ;; To avoid ispell errors in figure filenames, labels, references.
1356  ;;       ispell-tex-skip-alists
1357  ;;       (list
1358  ;;        (append (car ispell-tex-skip-alists)
1359  ;;                '(("\\\\citep"           ispell-tex-arg-end) ;; JMLR
1360  ;;                  ("\\\\cite"            ispell-tex-arg-end)
1361  ;;                  ("\\\\nocite"          ispell-tex-arg-end)
1362  ;;                  ("\\\\includegraphics" ispell-tex-arg-end)
1363  ;;                  ("\\\\author"          ispell-tex-arg-end)
1364  ;;                  ("\\\\ref"             ispell-tex-arg-end)
1365  ;;                  ("\\\\label"           ispell-tex-arg-end)
1366  ;;                  ))
1367  ;;        (cadr ispell-tex-skip-alists))
1368
1369  ;; So that reftex follows the text when moving in the summary
1370  reftex-toc-follow-mode nil
1371  ;; So that reftex visits files to follow
1372  reftex-revisit-to-follow t
1373  )
1374
1375 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1376 ;; Used in a \includegraphics runs xfig with the corresponding .fig
1377 ;; file or gimp with the corresponding bitmap picture
1378 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1379
1380 (defun ff/run-eps-edition (prefix rules &optional force)
1381   (if rules
1382       (let ((filename (concat prefix (car (car rules)))))
1383         (if (or force (file-exists-p filename))
1384             (start-process "latex-eps-editor" nil (cdr (car rules)) filename)
1385           (ff/run-eps-edition prefix (cdr rules) force)))
1386     (message "No original file found for %seps" prefix)))
1387
1388 (defcustom ff/xdvi-for-latex-options nil
1389   "*Options to pass to xdvi when invoking `ff/run-viewer'")
1390
1391 (defun ff/run-viewer (universal)
1392
1393   "Starts an editor for the .eps at point (either xfig or gimp,
1394 depending with the original file it can find), or starts xdvi for
1395 the current .tex if no .eps is found at point. When run with a
1396 universal argument starts xfig even if the .fig does not exist"
1397
1398   (interactive "P")
1399
1400   (if (and (save-excursion
1401              (and (re-search-backward "{" (point-at-bol) t)
1402                   (or (re-search-forward "{\\([^{}]*.\\)eps}" (point-at-eol) t)
1403                       (re-search-forward "{\\([^{}]*.\\)pdf}" (point-at-eol) t)
1404                       (re-search-forward "{\\([^{}]*.\\)pdf_t}" (point-at-eol) t)
1405                       (re-search-forward "{\\([^{}]*.\\)png}" (point-at-eol) t)
1406                       (re-search-forward "{\\([^{}]*.\\)jpg}" (point-at-eol) t)
1407                       )))
1408            (and (<= (match-beginning 1) (point))
1409                 (>= (match-end 1) (- (point) 2))))
1410
1411       (ff/run-eps-edition (match-string-no-properties 1)
1412                           '(("fig" . "xfig")
1413                             ("jpg" . "gimp" )
1414                             ("png" . "gimp") ("pgm" . "gimp") ("ppm" . "gimp")
1415                             ("jpg" . "xv"))
1416                           universal)
1417
1418     (if (not (and (buffer-file-name) (string-match "\\(.*\\)\.tex$"
1419                                                    (buffer-file-name))))
1420         (message "Not a latex file!")
1421       (condition-case nil (kill-process xdvi-process) (error nil))
1422       (let ((dvi-name (concat (match-string 1 (buffer-file-name)) ".dvi")))
1423         (if (not (file-exists-p dvi-name)) (error "Can not find %s !" dvi-name)
1424           (message "Starting xdvi with %s" dvi-name)
1425           (setq xdvi-process (apply 'start-process
1426                                     (append '("xdvi-for-latex" nil "xdvi")
1427                                             ff/xdvi-for-latex-options
1428                                             (list dvi-name))))
1429           (process-kill-without-query xdvi-process))))
1430     ))
1431
1432 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1433 ;; Tex mode
1434
1435 ;; When working on a tex file with other people, I can just change
1436 ;; ff/tex-command in the -*- part of the file so that I don't mess up
1437 ;; other's people configuration.
1438
1439 (defadvice tex-file (around ff/set-my-own-tex-command () activate)
1440   (let ((tex-command
1441          (or (and (boundp 'ff/tex-command)
1442                   ff/tex-command)
1443              tex-command)))
1444     ad-do-it))
1445
1446 ;; This is a bit hardcore, but really I can't bear the superscripts in
1447 ;; my emacs window and could not find another way to deactivate them.
1448
1449 (load "tex-mode")
1450 (defun tex-font-lock-suscript (pos) ())
1451
1452 ;; Automagically add the frame numbers in comments in a beamer file
1453
1454 (defun ff/number-beamer-frames ()
1455   "Add the frame numbers as comments after each \begin{frame}"
1456   (interactive)
1457
1458   (save-excursion
1459     (let ((total 0)
1460           (n 1))
1461
1462       ;; First, clean-up existing numbering
1463       (goto-char (point-min))
1464       (while (re-search-forward "^ *\\\\begin{frame}.*\\( %% frame [0-9]* / [0-9]*\\)$" nil t)
1465         (kill-region (match-beginning 1) (match-end 1))
1466         )
1467
1468       ;; Then count the total number of frames
1469       (goto-char (point-min))
1470       (while (re-search-forward "^ *\\\\begin{frame}" nil t)
1471         (setq total (+ total 1))
1472         )
1473
1474       ;; Then, add the updated numbers
1475       (goto-char (point-min))
1476       (while (re-search-forward "^ *\\\\begin{frame}" nil t)
1477         (move-end-of-line 1)
1478         (insert " %% frame " (prin1-to-string n) " / " (prin1-to-string total))
1479         (setq n (+ n 1))
1480         )
1481       )
1482     )
1483
1484   (message "Added frame numbers in comments.")
1485   )
1486
1487 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1488 ;; Prevents many errors from beeping and makes the others play a nifty
1489 ;; sound
1490 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1491
1492 (defun ff/ring-bell ()
1493   (unless (memq this-command
1494                 '(isearch-abort
1495                   abort-recursive-edit
1496                   exit-minibuffer
1497                   keyboard-quit
1498                   backward-delete-char-untabify
1499                   delete-backward-char
1500                   minibuffer-complete-and-exit
1501                   previous-line next-line
1502                   backward-char forward-char
1503                   scroll-up scroll-down
1504                   enlarge-window-horizontally shrink-window-horizontally
1505                   enlarge-window shrink-window
1506                   minibuffer-complete
1507                   ))
1508     ;; (message "command [%s]" (prin1-to-string this-command))
1509     ;; (ff/play-sound-async "~/local/sounds/short_la.wav")
1510     ))
1511
1512 (setq ring-bell-function 'ff/ring-bell)
1513
1514 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1515 ;; Past the content of the url currently in the kill-ring with
1516 ;; shift-click 2
1517 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1518
1519 (defun ff/insert-url (&optional url)
1520   "Downloads an URL with lynx and inserts it after the point."
1521   (interactive "MUrl: ")
1522   (when url
1523     (message "Inserting %s" url)
1524     (insert (concat "from: " url "\n\n"))
1525     ;; (call-process "lynx" nil t nil "-nolist" "-dump" url))
1526     (call-process "w3m" nil t nil "-dump" url))
1527   )
1528
1529 (define-key global-map [(shift mouse-2)]
1530   (lambda () (interactive) (ff/insert-url (current-kill 0))))
1531
1532 ;; lookup-dict is one of my own scripts, check my web page
1533
1534 (when (ff/load-or-alert "lookup-dict" t)
1535   (define-key global-map [(control \?)] 'lookup-dict))
1536
1537 ;; (defun ff/generate-password () (interactive)
1538 ;; (let ((c "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_-"))
1539 ;; (nth (random (length c)) c))
1540
1541 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1542 ;; Automatization of things I do often
1543 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1544
1545 (defun ff/snip () (interactive)
1546        (let ((start (condition-case nil (region-beginning) (error (point))))
1547              (end (condition-case nil (region-end) (error (point)))))
1548          (goto-char end)
1549          (insert "----------------------------- snip snip -----------------------------\n")
1550          (goto-char start)
1551          (insert "----------------------------- snip snip -----------------------------\n")
1552          ))
1553
1554 (defun ff/start-latex ()
1555   "Adds all that stuff to start a new LaTeX document."
1556   (interactive)
1557   (goto-char (point-min))
1558   (insert "%% -*- mode: latex; mode: reftex; mode: flyspell; coding: utf-8; tex-command: \"pdflatex.sh\" -*-
1559
1560 \\documentclass[12pt,a4paper,twoside]{article}
1561 \\usepackage[a4paper,top=2.5cm,bottom=2cm,left=2.5cm,right=2.5cm]{geometry}
1562 \\usepackage[utf8]{inputenc}
1563 \\usepackage{amsmath}
1564 \\usepackage{amssymb}
1565 \\usepackage[pdftex]{graphicx}
1566 \\usepackage{microtype}
1567 \\usepackage[colorlinks=true,linkcolor=blue,urlcolor=blue,citecolor=blue]{hyperref}
1568
1569 \\setlength{\\parindent}{0cm}
1570 \\setlength{\\parskip}{12pt}
1571 \\renewcommand{\\baselinestretch}{1.3}
1572
1573 \\def\\argmax{\\operatornamewithlimits{argmax}}
1574 \\def\\argmin{\\operatornamewithlimits{argmin}}
1575
1576 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1577 %% Open sans font
1578 %%\\usepackage[default]{opensans}
1579 %%\\usepackage{cmbright}
1580 %%\\renewcommand{\\familydefault}{fos}
1581 %%\\renewcommand{\\seriesdefault}{l}
1582 %%\\renewcommand{\\bfdefault}{sb}
1583 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1584 %% The \\todo command
1585 \\newcounter{nbdrafts}
1586 \\setcounter{nbdrafts}{0}
1587 \\makeatletter
1588 \\newcommand{\\checknbdrafts}{
1589 \\ifnum \\thenbdrafts > 0
1590 \\@latex@warning@no@line{*WARNING* The document contains \\thenbdrafts \\space draft note(s)}
1591 \\fi}
1592 \\newcommand{\\todo}[1]{\\addtocounter{nbdrafts}{1}{\\color{red} #1}}
1593 \\makeatother
1594 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1595
1596 \\begin{document}
1597
1598 ")
1599   (save-excursion
1600     (goto-char (point-max))
1601     (insert "
1602
1603 \\end{document}
1604 "))
1605   (latex-mode))
1606
1607 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1608
1609 (defun ff/add-copyrights ()
1610   "Adds two lines for the (C) at the beginning of current buffer."
1611   (interactive)
1612
1613   (let ((comment-style 'plain))
1614
1615     (goto-char (point-min))
1616
1617     ;; If this is a script, put the copyrights after the first line
1618
1619     (when (re-search-forward "^#!" nil t)
1620       (beginning-of-line)
1621       (next-line 1))
1622
1623     (let ((start (point))
1624           (comment-style 'box))
1625       (insert
1626        (concat
1627
1628         "\nSTART_IP_HEADER\n"
1629
1630         (when (boundp 'user-full-name)
1631           (concat "\nWritten by " user-full-name "\n"))
1632
1633         (when (boundp 'user-mail-address)
1634           (concat "Contact <" user-mail-address "> for comments & bug reports\n"))
1635
1636         "\nEND_IP_HEADER\n"
1637         ))
1638
1639       (comment-region start (point)))
1640
1641     ))
1642
1643 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1644
1645 (defun ff/remove-ip-header () (interactive)
1646        (save-excursion
1647          (goto-char (point-min))
1648          (when (and (re-search-forward "START_IP_HEADER" nil t)
1649                     (re-search-forward "END_IP_HEADER" nil t))
1650            (message "yep"))
1651          ))
1652
1653 (defun ff/add-gpl ()
1654   "Adds the GPL statements at the beginning of current buffer."
1655   (interactive)
1656   (let ((comment-style 'box)
1657         (gpl
1658          (concat
1659
1660           ;;           "
1661           ;; This program is free software; you can redistribute it and/or
1662           ;; modify it under the terms of the GNU General Public License
1663           ;; version 2 as published by the Free Software Foundation.
1664
1665           ;; This program is distributed in the hope that it will be useful, but
1666           ;; WITHOUT ANY WARRANTY\; without even the implied warranty of
1667           ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
1668           ;; General Public License for more details.
1669           ;; "
1670
1671           "
1672 START_IP_HEADER
1673
1674 This program is free software: you can redistribute it and/or modify
1675 it under the terms of the version 3 of the GNU General Public License
1676 as published by the Free Software Foundation.
1677
1678 This program is distributed in the hope that it will be useful, but
1679 WITHOUT ANY WARRANTY; without even the implied warranty of
1680 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
1681 General Public License for more details.
1682
1683 You should have received a copy of the GNU General Public License
1684 along with this program. If not, see <http://www.gnu.org/licenses/>.
1685
1686 "
1687           (when (boundp 'user-full-name)
1688             (concat "Written by and Copyright (C) " user-full-name "\n"))
1689
1690           (when (boundp 'user-mail-address)
1691             (concat "Contact <" user-mail-address "> for comments & bug reports\n"))
1692
1693           "
1694 END_IP_HEADER
1695 "
1696
1697           )))
1698
1699     (goto-char (point-min))
1700
1701     ;; If this is a script, put the gpl after the first line
1702     (when (re-search-forward "^#!" nil t)
1703       (beginning-of-line)
1704       (next-line 1))
1705
1706     (let ((start (point)))
1707       (insert gpl)
1708       (comment-region start (point)))
1709     ))
1710
1711 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1712
1713 (defun ff/start-c ()
1714   "Adds the header to start a C program."
1715   (interactive)
1716   ;;   (beginning-of-buffer)
1717   (insert
1718    "
1719 #include <stdio.h>
1720 #include <stdlib.h>
1721
1722 int main(int argc, char **argv) {
1723   exit(EXIT_SUCCESS);
1724 }
1725 ")
1726   (previous-line 2)
1727   )
1728
1729 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1730
1731 (defun ff/start-c++ ()
1732   "Adds the header to start a C++ program."
1733   (interactive)
1734   ;;   (beginning-of-buffer)
1735   (insert
1736    "
1737 #include <iostream>
1738 #include <fstream>
1739 #include <cmath>
1740 #include <stdio.h>
1741 #include <stdlib.h>
1742
1743 using namespace std;
1744
1745 int main(int argc, char **argv) {
1746
1747 }
1748 ")
1749   (previous-line 2)
1750   )
1751
1752 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1753
1754 (defun ff/headerize ()
1755   "Adds the #define HEADER_H, etc."
1756   (interactive)
1757   (let ((flag-name (replace-regexp-in-string
1758                     "[\. \(\)]" "_"
1759                     (upcase (file-name-nondirectory (buffer-file-name))))))
1760     (goto-char (point-max))
1761     (insert "\n#endif\n")
1762     (goto-char (point-min))
1763     (insert (concat "#ifndef " flag-name "\n"))
1764     (insert (concat "#define " flag-name "\n"))
1765     )
1766   )
1767
1768 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1769
1770 (defun ff/start-lua ()
1771   "Adds all the stuff to start a new lua file"
1772   (interactive)
1773   (goto-char (point-min))
1774   (insert "#!/usr/bin/env luajit
1775
1776 require 'torch'
1777 require 'nn'
1778 require 'image'
1779 require 'optim'
1780
1781 ")
1782   (lua-mode)
1783   )
1784
1785 (defun ff/start-python ()
1786   "Adds all the stuff to start a new python file"
1787   (interactive)
1788   (goto-char (point-min))
1789   (insert "#!/usr/bin/env python-for-pytorch
1790
1791 import torch, torchvision
1792
1793 import math
1794
1795 from torch import nn
1796 from torch.nn import functional as F
1797
1798 from torch import Tensor
1799 from torch import Tensor as T
1800
1801 from torch.autograd import Variable
1802 from torch.autograd import Variable as V
1803 from torch.nn.parameter import Parameter
1804 from torch.nn import Module
1805
1806 ")
1807   (python-mode)
1808   )
1809
1810
1811 (defun ff/start-html ()
1812   "Adds all that stuff to start a new HTML file."
1813   (interactive)
1814   (goto-char (point-min))
1815   (insert "<?xml version=\"1.0\" encoding=\"utf-8\"?>
1816 <!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">
1817
1818 <html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\" lang=\"en\">
1819
1820 <head>
1821 <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />
1822 <title></title>
1823 <style type=\"text/css\">
1824 p {
1825  color:#009900;
1826 }
1827 </style>
1828 </head>
1829
1830 <body>
1831 ")
1832   (goto-char (point-max))
1833   (insert "
1834 </body>
1835
1836 </html>
1837 ")
1838   (html-mode))
1839
1840 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1841
1842 ;; Insert a line showing all the variables written on the current line
1843 ;; and separated by commas
1844
1845 (defun ff/cout-var (arg)
1846   "Invoked on a line with a list of variables names,
1847 it inserts a line which displays their values in cout, or cerr if
1848 the function is invoked with a universal arg"
1849   (interactive "P")
1850   (let ((line (if arg "cerr" "cout")))
1851     (goto-char (point-at-bol))
1852     ;; To match '[', put it as the first char in the [...]
1853     (while (re-search-forward "\\([][a-zA-Z0-9_.:\(\)]+\\)" (point-at-eol) t)
1854       (setq line
1855             (concat line " << \" "
1856                     (match-string 1) " = \" << " (match-string 1))))
1857     (goto-char (point-at-bol))
1858     (kill-line)
1859     (insert line " << endl\;\n")
1860     (indent-region (point-at-bol 0) (point-at-eol 0) nil)
1861     ))
1862
1863 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1864
1865 (defun ff/clean-article ()
1866   "Cleans up an article by removing the leading blanks on each line
1867 and refilling all the paragraphs."
1868   (interactive)
1869   (let ((fill-column 92))
1870     (goto-char (point-min))
1871     (while (re-search-forward "^\\ +" nil t)
1872       (replace-match "" nil nil))
1873     (fill-individual-paragraphs (point-min) (point-max) t)))
1874
1875 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1876
1877 (defun ff/start-slide (universal)
1878   (interactive "P")
1879
1880   (if universal
1881       (progn
1882         (insert "\\end{frame}
1883
1884 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1885
1886 \\begin{frame}{")
1887         (save-excursion (insert "}{}
1888
1889 "))
1890         )
1891
1892     (insert "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1893
1894 \\begin{frame}{")
1895
1896     (save-excursion (insert "}{}
1897
1898 \\end{frame}
1899
1900 "))
1901     )
1902   )
1903
1904 (add-hook
1905  'latex-mode-hook
1906  (lambda ()
1907    (define-key latex-mode-map [(meta S)] 'ff/start-slide)
1908    (define-key latex-mode-map [(control c) (control a)] 'align-current)
1909    (define-key latex-mode-map [(control end)] 'tex-close-latex-block)
1910    (define-key latex-mode-map [(control tab)] 'ispell-complete-word)
1911    (copy-face 'default 'tex-verbatim)
1912    ;; (ff/configure-faces '((tex-verbatim :background "gray95")))
1913    ))
1914
1915 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1916
1917 (defun ff/start-test-code ()
1918   (interactive)
1919   (let ((start (point)))
1920     (insert "
1921 { // ******************************* START ***************************
1922 #warning Test code added on "
1923             (format-time-string "%04Y %b %02d %02H:%02M:%02S" (current-time))
1924             "
1925
1926 } // ******************************** END ****************************
1927
1928 ")
1929     (indent-region start (point) nil))
1930   (previous-line 3)
1931   (c-indent-command))
1932
1933 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1934
1935 (defun ff/code-to-html () (interactive)
1936        (save-restriction
1937          (narrow-to-region (region-beginning) (region-end))
1938          (replace-string "\"" "&quot;" nil (point-min) (point-max))
1939          (replace-string " " "&nbsp;" nil (point-min) (point-max))
1940          (replace-string ">" "&gt;" nil (point-min) (point-max))
1941          (replace-string "<" "&lt;" nil (point-min) (point-max))
1942          (replace-string "\e" "^[" nil (point-min) (point-max))
1943          (replace-string "\7f" "^?" nil (point-min) (point-max))
1944          (replace-string "\1f" "^_" nil (point-min) (point-max))
1945          (replace-regexp "$" "<br />" nil (point-min) (point-max))
1946          )
1947        )
1948
1949 (defun ff/downcase-html-tags () (interactive)
1950        (save-excursion
1951          (beginning-of-buffer)
1952          (while (re-search-forward "<\\([^>]+\\)>" nil t)
1953            (downcase-region (match-beginning 1) (match-end 1)))
1954          )
1955        )
1956
1957 ;; If we enter html mode and there is no makefile around, create a
1958 ;; compilation command with tidy (this is cool stuff)
1959
1960 (add-hook 'html-mode-hook
1961           (lambda ()
1962             (unless (or (not (buffer-file-name))
1963                         (file-exists-p "makefile")
1964                         (file-exists-p "Makefile"))
1965               (set (make-local-variable 'compile-command)
1966                    (let ((fn (file-name-nondirectory buffer-file-name)))
1967                      (format "tidy -utf8 %s > /tmp/%s" fn fn))))))
1968
1969 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1970
1971 (defun ff/count-words-region (beginning end)
1972   "Print number of words in the region.
1973 Words are defined as at least one word-constituent character
1974 followed by at least one character that is not a
1975 word-constituent.  The buffer's syntax table determines which
1976 characters these are."
1977
1978   (interactive "r")
1979   (message "Counting words in region ... ")
1980   (save-excursion
1981     (goto-char beginning)
1982     (let ((count 0))
1983       (while (< (point) end)
1984         (re-search-forward "\\w+\\W+")
1985         (setq count (1+ count)))
1986       (cond ((zerop count) (message "The region does NOT have any word."))
1987             ((= 1 count) (message "The region has 1 word."))
1988             (t (message "The region has %d words." count))))))
1989
1990 ;; (add-hook 'html-mode-hook 'flyspell-mode)
1991
1992 (defun ff/tidy-html ()
1993   "Run tidy in on the content of the current buffer, put the result in
1994 a file in /tmp"
1995   (interactive)
1996   (call-process-region (point-min) (point-max)
1997                        "/usr/bin/tidy"
1998                        nil
1999                        (list nil (make-temp-file "/tmp/tidy-html."))))
2000
2001 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2002
2003 ;; Create the adequate embryo of a file if it does not exist
2004
2005 (defun ff/start-file () (interactive)
2006        (let ((filename (buffer-file-name)))
2007          (when filename
2008
2009            (when (string-match "\\.sh$" filename)
2010              (sh-mode)
2011              (insert "#!/bin/bash\n\nset -e\nset -o pipefail\n\n")
2012              (save-excursion
2013                (ff/add-copyrights))
2014              )
2015
2016            (when (string-match "\\.lua$" filename)
2017              (lua-mode)
2018              (ff/start-lua)
2019              )
2020
2021            (when (string-match "\\.py$" filename)
2022              (python-mode)
2023              (ff/start-python)
2024              )
2025
2026            (when (string-match "\\.html$" filename)
2027              (html-mode)
2028              (ff/start-html)
2029              (previous-line 4)
2030              )
2031
2032            (when (string-match "\\.h$" filename)
2033              (c++-mode)
2034              (ff/headerize)
2035              (save-excursion
2036                (ff/add-copyrights)
2037                (newline))
2038              (newline)
2039              (newline)
2040              (previous-line 1)
2041              )
2042
2043            (when (string-match "\\.c$" filename)
2044              (c-mode)
2045              (ff/add-copyrights)
2046              (ff/start-c))
2047
2048            (when (string-match "\.\\(cc\\|cpp\\)$" filename)
2049              (c++-mode)
2050              (ff/add-copyrights)
2051              (let ((headername  (replace-regexp-in-string "\\.\\(cc\\|cpp\\)$" ".h"
2052                                                           filename)))
2053                (if (file-exists-p headername)
2054                    (insert (concat "\n#include \"" (file-name-nondirectory headername) "\"\n"))
2055                  (ff/start-c++))
2056                ))
2057
2058            (when (string-match "\\.tex$" filename)
2059              (latex-mode)
2060              (ff/start-latex)
2061              ))
2062          )
2063        (set-buffer-modified-p nil)
2064        )
2065
2066 (if (>= emacs-major-version 22)
2067     (add-to-list 'find-file-not-found-functions 'ff/start-file)
2068   (add-to-list 'find-file-not-found-hooks 'ff/start-file))
2069
2070 (when (>= emacs-major-version 24)
2071   (define-obsolete-function-alias 'make-local-hook 'ignore "21.1")
2072   (setq send-mail-function 'sendmail-send-it) ;; emacs 24.x stuff
2073
2074   (custom-set-faces
2075    '(diff-added ((default (:background "gray90" :foreground "green4" :weight bold))))
2076    '(diff-removed ((default (:background "gray90" :foreground "red2" :weight bold))))
2077    '(diff-changed ((default (:background "gray90" :foreground "blue" :weight bold))))
2078    )
2079   )
2080
2081 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2082
2083 (define-key global-map [f8] 'ff-find-other-file)
2084 (define-key global-map [(shift f8)] (lambda () (interactive) (ff-find-other-file t)))
2085
2086 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2087 ;; The compilation hacks
2088 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2089
2090 ;; If we enter c++ mode and there is no makefile around, we create a
2091 ;; make command on the fly for the specific object file
2092
2093 (add-hook 'c++-mode-hook
2094           (lambda ()
2095             (unless (or (file-exists-p "makefile") (file-exists-p "Makefile"))
2096               (set (make-local-variable 'compile-command)
2097                    (concat
2098                     "make -k "
2099                     (file-name-sans-extension
2100                      (file-name-nondirectory buffer-file-name)))))))
2101
2102 ;; <f1> runs the compilation according to the compile-command (and
2103 ;; thus does not ask any confirmation), shows the compilation buffer
2104 ;; during compilation and delete all windows showing the compilation
2105 ;; buffer if the compilation ends with no error
2106
2107 ;; <shift-f1> asks for a compilation command and runs the compilation
2108 ;; but does not restore the window configuration (i.e. the compilation
2109 ;; buffer's window will still be visible, as usual)
2110
2111 ;; <f2> goes to the next compilation error (as C-x ` does on the
2112 ;; standard configuration)
2113
2114 (defun ff/restore-windows-if-no-error (buffer msg)
2115   "Delete the windows showing the compilation buffer if msg
2116   matches \"^finished\"."
2117
2118   (when (string-match "^finished" msg)
2119     ;;     (delete-windows-on buffer)
2120     (if (boundp 'ff/window-configuration-before-compilation)
2121         (set-window-configuration ff/window-configuration-before-compilation))
2122     )
2123   )
2124
2125 (add-to-list 'compilation-finish-functions 'ff/restore-windows-if-no-error)
2126
2127 (defun ff/fast-compile ()
2128   "Compiles without asking anything."
2129   (interactive)
2130   (let ((compilation-read-command nil))
2131     (setq ff/window-configuration-before-compilation (current-window-configuration))
2132     (compile compile-command)))
2133
2134 (setq compilation-read-command t
2135       compile-command "make -j -k"
2136       ;; compile-history '("make clean" "make DEBUG=yes -j -k" "make -j -k")
2137       )
2138
2139 (defun ff/universal-compile (universal) (interactive "P")
2140        (funcall (or (cdr (assoc major-mode
2141                                 '(
2142                                   (latex-mode . tex-file)
2143                                   (html-mode . browse-url-of-buffer)
2144                                   ;; Here you can add other mode -> compile command
2145                                   )))
2146                     'ff/fast-compile         ;; And this is the failsafe
2147                     )))
2148
2149 (define-key global-map [f1] 'ff/universal-compile)
2150 (define-key global-map [(shift f1)] 'compile)
2151 (define-key global-map [f2] 'next-error)
2152
2153 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2154 ;; Related to mail
2155 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2156
2157 ;; (when (ff/load-or-alert "flyspell-timer" t)
2158 ;;   (add-hook 'flyspell-mode-hook 'flyspell-timer-ensure-idle-timer))
2159
2160 (defun ff/start-flyspell () (interactive)
2161        (ff/configure-faces
2162         '(
2163           ;; (flyspell-incorrect :background "#ff0000" :foreground "black")
2164           ;; (flyspell-duplicate :background "#ff9000" :foreground "black")
2165           (flyspell-incorrect :foreground "#ff0000" :weight 'bold)
2166           (flyspell-duplicate :foreground "#ff9000" :weight 'bold)
2167           ))
2168        ;; (flyspell-buffer)
2169        )
2170
2171 (add-hook 'flyspell-mode-hook 'ff/start-flyspell)
2172
2173 (defun ff/pick-dictionnary () (interactive)
2174        (when (and (boundp 'flyspell-mode) flyspell-mode)
2175          (if (and current-input-method (string-match "latin" current-input-method))
2176              (ispell-change-dictionary "francais")
2177            (ispell-change-dictionary "american"))
2178          ;;     (flyspell-buffer)
2179          )
2180        )
2181
2182 (defadvice toggle-input-method (after ff/switch-dictionnary nil activate)
2183   (ff/pick-dictionnary))
2184
2185 ;; (add-hook 'message-mode-hook 'auto-fill-mode)
2186 ;; (add-hook 'message-mode-hook 'flyspell-mode)
2187
2188 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2189 ;; Delete all windows which are in the same "column", which means
2190 ;; whose xmin and xmax are bounded by the xmin and xmax of the
2191 ;; currently selected column
2192 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2193
2194 ;; This is from emacs23 ! better than my old ff/delete-other-windows-in-column
2195
2196 (unless (fboundp 'delete-other-windows-vertically)
2197
2198   (defun delete-other-windows-vertically (&optional window)
2199     "Delete the windows in the same column with WINDOW, but not WINDOW itself.
2200 This may be a useful alternative binding for \\[delete-other-windows]
2201  if you often split windows horizontally."
2202     (interactive)
2203     (let* ((window (or window (selected-window)))
2204            (edges (window-edges window))
2205            (w window) delenda)
2206       (while (not (eq (setq w (next-window w 1)) window))
2207         (let ((e (window-edges w)))
2208           (when (and (= (car e) (car edges))
2209                      (= (caddr e) (caddr edges)))
2210             (push w delenda))))
2211       (mapc 'delete-window delenda)))
2212   )
2213
2214 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2215 ;; Misc things
2216 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2217
2218 ;; Entropy is cool
2219
2220 (defun ff/entropy (l)
2221   (apply '+
2222          (mapcar
2223           (lambda (x)
2224             (if (= x 0.0) 0.0
2225               (* (- x) (/ (log x) (log 2)))))
2226           l)
2227          )
2228   )
2229
2230 ;; Usefull to deal with results in latex files
2231
2232 (defun ff/round-floats-in-region () (interactive)
2233        (save-restriction
2234          (condition-case nil
2235              (narrow-to-region (region-beginning) (region-end))
2236            (error (thing-at-point 'word)))
2237          (save-excursion
2238            (goto-char (point-min))
2239            (while (re-search-forward "[0-9\.]+" nil t)
2240              (let ((value (string-to-number (buffer-substring (match-beginning 0) (match-end 0)))))
2241                (delete-region (match-beginning 0) (match-end 0))
2242                (insert (format "%0.1e" value)))))))
2243
2244 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2245 ;; Keymaping
2246 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2247
2248 (load "info" nil t)
2249
2250 (define-key global-map [(shift iso-lefttab)] 'ispell-complete-word)
2251 ;; shift-tab going backward is kind of standard
2252 (define-key Info-mode-map [(shift iso-lefttab)] 'Info-prev-reference)
2253
2254 ;; (define-key global-map [(control x) (control a)] 'auto-fill-mode)
2255
2256 ;; Put back my keys, you thief!
2257 (define-key global-map [(home)] 'beginning-of-buffer)
2258 (define-key global-map [(end)] 'end-of-buffer)
2259 ;; (define-key global-map [(insertchar)] 'overwrite-mode)
2260 (define-key global-map [(delete)] 'delete-char)
2261
2262 ;; Cool shortcuts to move to the end / beginning of block keen
2263 (define-key global-map [(control right)] 'forward-sexp)
2264 (define-key global-map [(control left)] 'backward-sexp)
2265
2266 ;; Wheel mouse moves up and down 2 lines (and DO NOT BEEP when we are
2267 ;; out of the buffer)
2268
2269 (define-key global-map [mouse-4]
2270   (lambda () (interactive) (condition-case nil (scroll-down 2) (error nil))))
2271 (define-key global-map [mouse-5]
2272   (lambda () (interactive) (condition-case nil (scroll-up 2) (error nil))))
2273
2274 ;; with shift it goes faster
2275 (define-key global-map [(shift mouse-4)]
2276   (lambda () (interactive) (condition-case nil (scroll-down 50) (error nil))))
2277 (define-key global-map [(shift mouse-5)]
2278   (lambda () (interactive) (condition-case nil (scroll-up 50) (error nil))))
2279
2280 ;; Meta-? shows the properties of the character at point
2281 (define-key global-map [(meta ??)]
2282   (lambda () (interactive)
2283     (message (prin1-to-string (text-properties-at (point))))))
2284
2285 ;; Compiles the latex file in the current buffer
2286
2287 (setq tex-start-commands "\\input")
2288 (define-key global-map [f3] 'tex-file)
2289 (define-key global-map [(shift f3)] 'tex-bibtex-file)
2290
2291 ;; To run xdvi on the dvi associated to the .tex in the current
2292 ;; buffer, and to edit the .fig or bitmap image used to generate the
2293 ;; .eps at point
2294
2295 (define-key global-map [f4] 'ff/run-viewer)
2296
2297 ;; Closes the current \begin{}
2298
2299 ;; Meta-/ remaped (completion)
2300
2301 (define-key global-map [(shift right)] 'dabbrev-expand)
2302 (define-key global-map [(meta =)] 'dabbrev-expand)
2303
2304 ;; Change the current window.
2305
2306 (defun ff/next-same-frame-window () (interactive)
2307        (select-window (next-window (selected-window)
2308                                    (> (minibuffer-depth) 0)
2309                                    nil)))
2310
2311 (defun ff/previous-same-frame-window () (interactive)
2312        (select-window (previous-window (selected-window)
2313                                        (> (minibuffer-depth) 0)
2314                                        nil)))
2315
2316 (define-key global-map [(shift prior)] 'ff/next-same-frame-window)
2317 (define-key global-map [(shift next)] 'ff/previous-same-frame-window)
2318
2319 (define-key global-map [(control })] 'enlarge-window-horizontally)
2320 (define-key global-map [(control {)] 'shrink-window-horizontally)
2321 (define-key global-map [(control \")] 'enlarge-window)
2322 (define-key global-map [(control :)] 'shrink-window)
2323
2324 ;; (define-key global-map [(control shift prior)] 'next-multiframe-window)
2325 ;; (define-key global-map [(control shift next)] 'previous-multiframe-window)
2326
2327 ;; I have two screens sometime!
2328 ;; (define-key global-map [(meta next)] 'other-frame)
2329 ;; (define-key global-map [(meta prior)] (lambda () (interactive) (other-frame -1)))
2330
2331 ;; (load "winner")
2332 (winner-mode 1)
2333 ;; (define-key global-map [(shift backspace)] 'winner-undo)
2334
2335 ;; (define-key global-map [(shift home)] 'delete-other-windows-vertically)
2336 ;; (define-key global-map [(control +)] 'enlarge-window)
2337 ;; (define-key global-map [(control -)] 'shrink-window)
2338 ;; Goes to next/previous buffer
2339 ;; (define-key global-map [(control prior)] 'ff/next-buffer)
2340 ;; (define-key global-map [(control next)] 'ff/prev-buffer)
2341
2342 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2343 ;; If M-. on a symbol, show where it is defined in another window
2344 ;; without giving focus, cycle if repeated.
2345 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2346
2347 (when (ff/load-or-alert "etags")
2348
2349   (defun ff/find-tag-nofocus () (interactive)
2350          "Show in another window the definition of the current tag"
2351          (let ((tag (find-tag-default)))
2352            (display-buffer (find-tag-noselect tag (string= tag last-tag)))
2353            (message "Tag %s" tag)
2354            )
2355          )
2356
2357   (define-key global-map [(meta .)] 'ff/find-tag-nofocus)
2358   )
2359
2360 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2361 ;; Destroys the current buffer and its window if it's not the only one
2362 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2363
2364 (defcustom ff/kill-this-buffer-and-delete-window-exceptions ""
2365   "*Regexp matching the buffer names which have to be kept when using
2366 `ff/kill-this-buffer-and-delete-window'.")
2367
2368 (defun ff/kill-this-buffer-and-delete-window (universal)
2369   "Unless its name matches
2370 `ff/kill-this-buffer-and-delete-window-exceptions', kills the
2371 current buffer and deletes the current window if it's not the
2372 only one in the frame. If the buffer has to be kept, go to the
2373 next one. With universal argument, kill all killable buffers."
2374   (interactive "P")
2375   (if universal
2376       (let ((nb-killed 0))
2377         (mapc (lambda (x)
2378                 (unless (string-match ff/kill-this-buffer-and-delete-window-exceptions
2379                                       (buffer-name x))
2380                   (kill-buffer x)
2381                   (setq nb-killed (1+ nb-killed))
2382                   ))
2383               (buffer-list))
2384         (message "Killed %d buffer%s" nb-killed (if (> nb-killed 1) "s" "")))
2385     (if (string-match ff/kill-this-buffer-and-delete-window-exceptions (buffer-name))
2386         (ff/next-buffer)
2387       (kill-this-buffer)))
2388   (unless (one-window-p t) (delete-window))
2389   )
2390
2391 (define-key global-map [(control backspace)] 'ff/kill-this-buffer-and-delete-window)
2392 ;; (define-key calc-mode-map [(control backspace)] 'calc-quit)
2393
2394
2395 (setq ff/kill-this-buffer-and-delete-window-exceptions
2396       "^ \\|\\*Messages\\*\\|\\*scratch\\*\\|\\*Group\\*\\|\\*-jabber-\\*\\|\\*-jabber-process-\\*\\|\\*media\\*")
2397
2398 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2399 ;; Misc stuff
2400 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2401
2402 (defun ff/elisp-debug-on ()
2403   "Switches `debug-on-error' and `debug-on-quit'."
2404   (interactive)
2405   (if debug-on-error
2406       (setq debug-on-error nil
2407             debug-on-quit nil)
2408     (setq debug-on-error t
2409           debug-on-quit t))
2410   (if debug-on-error
2411       (message "elisp debug on")
2412     (message "elisp debug off")))
2413
2414 (defun ff/create-dummy-buffer (&optional universal) (interactive "P")
2415        (find-file (concat "/tmp/" (ff/non-existing-filename "/tmp/" "dummy" "")))
2416        (text-mode)
2417        (if universal (ff/insert-url (current-kill 0)))
2418        (message "New dummy text-mode buffer"))
2419
2420 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2421 ;; Recentf to keep a list of recently visited files. I use it
2422 ;; exclusively with my selector.el
2423 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2424
2425 (load "recentf")
2426
2427 ;; If we just check for file-symlink-p, everytime we start emacs it
2428 ;; will check all the remote files listed in recentf-list, so we check
2429 ;; that they are not remote first
2430 (defun ff/file-not-remote-but-symlink (filename)
2431   (and (not (file-remote-p filename)) (file-symlink-p filename)))
2432
2433 (setq recentf-exclude (append recentf-exclude
2434                               '(
2435                                 ff/file-not-remote-but-symlink
2436                                 "enotes$" "secure-notes$" "media-playlists$"
2437                                 "bbdb$"
2438                                 "svn-commit.tmp$" ".git/COMMIT_EDITMSG$"
2439                                 "\.bbl$" "\.aux$" "\.toc$"
2440                                 ))
2441       recentf-max-saved-items 10000
2442       recentf-save-file (concat ff/emacs-dir "/recentf")
2443       )
2444
2445 (when (boundp 'recentf-keep) (add-to-list 'recentf-keep 'file-remote-p))
2446
2447 (recentf-mode 1)
2448
2449 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2450 ;; My front-end to mplayer
2451 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2452
2453 ;; (ff/compile-when-needed "media/mplayer")
2454 ;; (ff/compile-when-needed "media")
2455
2456 (when (ff/load-or-alert "media")
2457
2458   (unless window-system
2459     (ff/configure-faces
2460      '(
2461        (media/mode-string-face
2462         :foreground "blue4" :weight 'bold)
2463
2464        (media/current-tune-face
2465         :foreground "black" :background "yellow" :weight 'normal)
2466
2467        (media/instant-highlight-face
2468         :foreground "black" :background "orange" :weight 'normal)
2469        ))
2470     )
2471
2472   (define-key global-map [(meta \\)] 'media)
2473
2474   (setq media/expert t
2475         media/add-current-song-to-interrupted-when-killing t
2476         media/duration-to-history 30
2477         media/history-size 1000
2478         media/playlist-file (concat ff/emacs-dir "/media-playlists")
2479         media/continue-mode-hint (if window-system "⤸" "*")
2480         media/mplayer/args '(
2481                              "-framedrop"
2482                              "-zoom"
2483                              "-cache" "512"
2484                              "-subfont-osd-scale" "3"
2485                              ;; "-stop-xscreensaver"
2486                              ;; "-osdlevel" "3"
2487                              )
2488         media/mplayer/timing-request-period 1.0
2489         )
2490
2491   )
2492
2493 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2494 ;; A dynamic search
2495 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2496
2497 ;; selector.el is one of my own scripts, check my web page
2498
2499 (when (ff/load-or-alert "selector" t)
2500   ;; (define-key global-map [(shift return)] 'selector/quick-move-in-buffer)
2501   (define-key global-map [(control x) (control b)] 'selector/switch-buffer)
2502
2503   (defun ff/visit-debpkg-file (&optional regexp)
2504     "This function lists all the files found with dpkg -S and
2505 proposes to visit them."
2506     (interactive "sPattern: ")
2507
2508     (selector/select
2509
2510      (mapcar
2511       (lambda (s)
2512         (cons (selector/filename-to-string s) s))
2513       (split-string
2514        (shell-command-to-string (concat "dpkg -S " regexp " | awk '{print $2}'"))))
2515
2516      'selector/find-file
2517      "*selector find-file*"
2518      ))
2519   )
2520
2521 (add-hook 'selector/mode-hook (lambda () (setq truncate-lines t)))
2522
2523 (defun ff/selector-insert-record-callback (r)
2524   (bbdb-display-records (list r))
2525   ;; Weird things will happen if you kill the buffer from which you
2526   ;; invoked ff/selector-mail-from-bbdb
2527   (insert (car (elt r 6)))
2528   )
2529
2530 (defun ff/selector-compose-mail-callback (r)
2531   (vm-compose-mail (car (elt r 6)))
2532   )
2533
2534 (defun ff/selector-mail-from-bbdb () (interactive)
2535        (selector/select
2536         (mapcar
2537          (lambda (r) (cons (concat (elt r 0)
2538                                    " "
2539                                    (elt r 1)
2540                                    " ("
2541                                    (car (elt r 6))
2542                                    ")")
2543                            r))
2544          (bbdb-records))
2545         (if (string= mode-name "Mail")
2546             'ff/selector-insert-record-callback
2547           'ff/selector-compose-mail-callback)
2548         "*bbdb-search*"
2549         )
2550        )
2551
2552 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2553 ;; My script to automatically count the number of words and characters
2554 ;; between two markers
2555
2556 (ff/load-or-alert "text-counters.el")
2557
2558 ;; Display them in the modeline when in text-mode
2559
2560 (add-hook 'text-mode-hook 'tc/add-text-counters-in-modeline)
2561
2562 ;; (add-hook 'text-mode-hook
2563 ;; (lambda ()
2564 ;; (setq comment-start " > ")))
2565
2566 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2567 ;; A function to remove temporary alarm windows
2568 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2569
2570 (defcustom ff/annoying-windows-regexp
2571   "\\*Messages\\*\\|\\*compilation\\*\\|\\*tex-shell\\*\\|\\*Help\\*\\|\\*info\\*\\|\\*Apropos\\*\\|\\*BBDB\\*\\|\\*.*-diff\\*"
2572   "The regexp matching the windows to be deleted by `ff/delete-annoying-windows'"
2573   )
2574
2575 (defun ff/delete-annoying-windows ()
2576   "Close all the windows showing buffers whose names match
2577 `ff/annoying-windows-regexp'."
2578   (interactive)
2579   (when ff/annoying-windows-regexp
2580     (mapc (lambda (w)
2581             (when (and (not (one-window-p w))
2582                        (string-match ff/annoying-windows-regexp
2583                                      (buffer-name (window-buffer w))))
2584               (delete-window w)))
2585           (window-list)
2586           )
2587     (message "Removed annoying windows")
2588     )
2589   )
2590
2591 (setq ff/annoying-windows-regexp
2592       (concat ff/annoying-windows-regexp
2593               "\\|\\*unspooled mails\\*\\|\\*enotes alarms\\*\\|\\*system info\\*"))
2594
2595 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2596 ;; Some handy functions
2597 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2598
2599 (defun ff/twin-horizontal-current-buffer () (interactive)
2600        (delete-other-windows)
2601        (split-window-horizontally)
2602        (balance-windows)
2603        )
2604
2605 (defun ff/twin-vertical-current-buffer () (interactive)
2606        (delete-other-windows)
2607        (split-window-vertically)
2608        (balance-windows)
2609        )
2610
2611 (defun ff/flyspell-mode (arg) (interactive "p")
2612        (if flyspell-mode (flyspell-mode -1)
2613          (flyspell-mode 1)
2614          (flyspell-buffer))
2615        )
2616
2617 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2618 ;; The fridge!
2619 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2620
2621 (defun ff/move-region-to-fridge (&optional universal) (interactive "P")
2622        "Cut the current region, paste it in a file called ./fridge
2623 with a time tag, and save this file"
2624        (unless (use-region-p) (error "No region selected"))
2625        (let ((bn (file-name-nondirectory (buffer-file-name))))
2626          (if universal
2627              (copy-region-as-kill (region-beginning) (region-end))
2628            (kill-region (region-beginning) (region-end))
2629            )
2630          (with-current-buffer (find-file-noselect "fridge")
2631            (goto-char (point-max))
2632            (insert "\n")
2633            (insert "######################################################################\n")
2634            (insert "\n"
2635                    (format-time-string "%Y %b %d %H:%M:%S" (current-time))
2636                    " (from "
2637                    bn
2638                    ")\n\n")
2639            (yank)
2640            (save-buffer)
2641            (message "Region moved to fridge")
2642            )
2643          )
2644        )
2645
2646 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2647 ;; My own keymap mapped to C-`
2648 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2649
2650 (setq ff/map (make-sparse-keymap))
2651 (define-key global-map [(control \`)] ff/map)
2652
2653 ;; (defun ff/start-stop-macro-recording () (interactive)
2654   ;; (if (or defining-kbd-macro executing-kbd-macro)
2655       ;; (kmacro-end-macro)
2656     ;; (kmacro-start-macro))
2657   ;; )
2658
2659 ;; (define-key global-map [(shift return)] 'ff/start-stop-macro-recording)
2660
2661 (unless window-system
2662   ;; (define-key global-map [(control @)] ff/map)
2663   (define-key global-map [(meta O) \`] ff/map)
2664   )
2665
2666 (define-key esc-map "`" ff/map)
2667
2668 (defun ff/kill-downto-signature () (interactive)
2669        (let ((s (point)))
2670          (when (re-search-forward "^-- $")
2671            (kill-region s (match-beginning 0))
2672            (goto-char s))))
2673
2674 (defun ff/git-status (&optional dir) (interactive)
2675        (if (buffer-file-name)
2676            (git-status (file-name-directory (buffer-file-name)))
2677          (error "No file attached to this buffer")))
2678
2679 (defun ff/insert-date (&optional universal) (interactive "P")
2680        ;; (insert (format-time-string "\n * %Y %b %d %H:%M:%S\n\n" (current-time)))
2681        ;; (insert (format-time-string "%Y %b %d %H:%M:%S" (current-time)))
2682        ;; (insert (format-time-string "%d.%m.%y" (current-time)))
2683        (if universal
2684            (insert (format-time-string "%d.%m.%Y %H:%M:%S" (current-time)))
2685          (insert (format-time-string "%d.%m.%Y" (current-time))))
2686        )
2687
2688 (define-key ff/map [(control g)] 'ff/git-status)
2689 ;; (define-key ff/map [(control w)] 'server-edit)
2690 (define-key ff/map [(control d)] 'ff/elisp-debug-on)
2691 ;; (define-key ff/map "d" 'diary)
2692 (define-key ff/map "d" 'ff/insert-date)
2693 (define-key ff/map [(control \`)] 'ff/bash-new-buffer)
2694 (define-key ff/map [(control n)] 'enotes/show-all-notes)
2695 (define-key ff/map [(control s)] 'ff/secure-note-add)
2696 (define-key ff/map [(control t)] 'ff/start-test-code)
2697 (define-key ff/map [(control q)] 'ff/create-dummy-buffer)
2698 (define-key ff/map [(control a)] 'auto-fill-mode)
2699 (define-key ff/map [(control i)] 'ff/system-info)
2700 (define-key ff/map "w" 'ff/word-occurences)
2701 (define-key ff/map [(control c)] 'calendar)
2702 ;; (define-key ff/map [(control c)] (lambda () (interactive) (save-excursion (calendar))))
2703 (define-key ff/map [(control l)] 'goto-line)
2704 (define-key ff/map "l" 'longlines-mode)
2705 (define-key ff/map [(control o)] 'selector/quick-pick-recent)
2706 (define-key ff/map "s" 'selector/quick-move-in-buffer)
2707 (define-key ff/map "S" 'selector/search-sentence)
2708 (define-key ff/map "t" (lambda () (interactive) (find-file "~/private/TODO.txt")))
2709 (define-key ff/map "h" 'ff/tidy-html)
2710 (define-key ff/map "c" 'ff/count-char)
2711 (define-key ff/map [(control p)] 'ff/print-to-file)
2712 (define-key ff/map "P" 'ff/print-to-printer)
2713 (define-key ff/map [(control b)] 'bbdb)
2714 (define-key ff/map "m" 'ff/selector-mail-from-bbdb)
2715 (define-key ff/map [(control m)] 'woman)
2716 (define-key ff/map "b" 'bookmark-jump)
2717 (define-key ff/map [(control =)] 'calc)
2718 (define-key ff/map "=" 'ff/number-beamer-frames)
2719 (define-key ff/map [(control shift b)]
2720   (lambda () (interactive)
2721     (bookmark-set)
2722     (bookmark-save)))
2723 (define-key ff/map "f" 'ff/move-region-to-fridge)
2724 (define-key ff/map [(control f)] 'ff/flyspell-mode)
2725 (define-key ff/map [(control k)] 'ff/kill-downto-signature)
2726
2727 (define-key ff/map [?\C-0] 'ff/delete-annoying-windows)
2728 (define-key ff/map "1" 'delete-other-windows)
2729 (define-key ff/map [?\C-1] 'delete-other-windows)
2730 (define-key ff/map "2" 'ff/twin-vertical-current-buffer)
2731 (define-key ff/map [?\C-2] 'ff/twin-vertical-current-buffer)
2732 (define-key ff/map "3" 'ff/twin-horizontal-current-buffer)
2733 (define-key ff/map [?\C-3] 'ff/twin-horizontal-current-buffer)
2734
2735 (define-key ff/map " " 'delete-trailing-whitespace)
2736
2737 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2738 ;; Hacks so that all keys are functionnal in xterm and through ssh.
2739 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2740
2741 (unless window-system
2742
2743   ;; One day I will understand these clipboard business. Until then,
2744   ;; so that it works in xterm (yes), let's use xclip. This is a bit
2745   ;; ugly.
2746
2747   ;; (defun ff/yank-with-xclip (&optional arg)
2748   ;; "Paste the content of the X clipboard with the xclip
2749   ;; command. Without ARG converts some of the '\\uxxxx' characters."
2750   ;; (interactive "P")
2751   ;; (with-temp-buffer
2752   ;; (shell-command "xclip -o" t)
2753   ;; (unless arg
2754   ;; (mapc (lambda (x) (replace-string (concat "\\u" (car x)) (cdr x) nil (point-min) (point-max)))
2755   ;; '(("fffd" . "??")
2756   ;; ("2013" . "-")
2757   ;; ("2014" . "--")
2758   ;; ("2018" . "`")
2759   ;; ("2019" . "'")
2760   ;; ("201c" . "``")
2761   ;; ("201d" . "''")
2762   ;; ("2022" . "*")
2763   ;; ("2026" . "...")
2764   ;; ("20ac" . "EUR")
2765   ;; )))
2766   ;; (kill-ring-save (point-min) (point-max)))
2767
2768   ;; (yank))
2769
2770   ;; (define-key global-map [(meta y)] 'ff/yank-with-xclip)
2771
2772   ;;   (set-terminal-coding-system 'iso-latin-1)
2773   ;; (set-terminal-coding-system 'utf-8)
2774
2775   ;; I have in my .Xressource
2776
2777   ;; XTerm.VT100.translations: #override\n\
2778   ;;   <Btn4Down>,<Btn4Up>:scroll-back(2,line)\n\
2779   ;;   <Btn5Down>,<Btn5Up>:scroll-forw(2,line)\n\
2780   ;;   Ctrl<Btn4Down>,Ctrl<Btn4Up>:scroll-back(1,page)\n\
2781   ;;   Ctrl<Btn5Down>,Ctrl<Btn5Up>:scroll-forw(1,page)\n\
2782   ;;   Shift<Btn4Down>,Shift<Btn4Up>:scroll-back(1,halfpage)\n\
2783   ;;   Shift<Btn5Down>,Shift<Btn5Up>:scroll-forw(1,halfpage)\n\
2784   ;;   Alt<KeyPress>:insert-eight-bit()\n\
2785   ;;   !Shift<Key>BackSpace: string("\7f")\n\
2786   ;;   Ctrl<Key>BackSpace: string("\eOZ")\n\
2787   ;;   Shift<Key>Prior: string("\e[5;2~")\n\
2788   ;;   Shift<Key>Next: string("\e[6;2~")\n\
2789   ;;   Shift Ctrl<Key>]: string("\eO}")\n\
2790   ;;   Shift Ctrl<Key>[: string("\eO{")\n\
2791   ;;   Shift Ctrl<Key>/: string("\eO?")\n\
2792   ;;   Ctrl<Key>/: string("\eO/")\n\
2793   ;;   Shift Ctrl<Key>=: string("\eO+")\n\
2794   ;;   Ctrl<Key>=: string("\eO=")\n\
2795   ;;   Shift Ctrl<Key>;: string("\eO:")\n\
2796   ;;   Ctrl<Key>;: string("\eO;")\n\
2797   ;;   Shift Ctrl<Key>`: string("\eO~")\n\
2798   ;;   Ctrl<Key>`: string("\eO`")\n\
2799   ;;   Shift Ctrl<Key>': string("\eO\\\"")\n\
2800   ;;   Ctrl<Key>': string("\eO'")\n\
2801   ;;   Shift Ctrl<Key>.: string("\eO>")\n\
2802   ;;   Ctrl<Key>.: string("\eO.")\n\
2803   ;;   Shift Ctrl<Key>\\,: string("\eO<")\n\
2804   ;;   Ctrl<Key>\\,: string("\eO,")
2805
2806   (define-key function-key-map "\e[2~" [insert])
2807
2808   (define-key function-key-map "\e[Z" [S-iso-lefttab])
2809
2810   (define-key function-key-map "\e[1;2A" [S-up])
2811   (define-key function-key-map "\e[1;2B" [S-down])
2812   (define-key function-key-map "\e[1;2C" [S-right])
2813   (define-key function-key-map "\e[1;2D" [S-left])
2814   (define-key function-key-map "\e[1;2F" [S-end])
2815   (define-key function-key-map "\e[1;2H" [S-home])
2816
2817   (define-key function-key-map "\e[2;2~" [S-insert])
2818   (define-key function-key-map "\e[5;2~" [S-prior])
2819   (define-key function-key-map "\e[6;2~" [S-next])
2820
2821   (define-key function-key-map "\e[1;2P" [S-f1])
2822   (define-key function-key-map "\e[1;2Q" [S-f2])
2823   (define-key function-key-map "\e[1;2R" [S-f3])
2824   (define-key function-key-map "\e[1;2S" [S-f4])
2825   (define-key function-key-map "\e[15;2~" [S-f5])
2826   (define-key function-key-map "\e[17;2~" [S-f6])
2827   (define-key function-key-map "\e[18;2~" [S-f7])
2828   (define-key function-key-map "\e[19;2~" [S-f8])
2829   (define-key function-key-map "\e[20;2~" [S-f9])
2830   (define-key function-key-map "\e[21;2~" [S-f10])
2831
2832   (define-key function-key-map "\e[1;5A" [C-up])
2833   (define-key function-key-map "\e[1;5B" [C-down])
2834   (define-key function-key-map "\e[1;5C" [C-right])
2835   (define-key function-key-map "\e[1;5D" [C-left])
2836   (define-key function-key-map "\e[1;5F" [C-end])
2837   (define-key function-key-map "\e[1;5H" [C-home])
2838
2839   (define-key function-key-map "\e[2;5~" [C-insert])
2840   (define-key function-key-map "\e[5;5~" [C-prior])
2841   (define-key function-key-map "\e[6;5~" [C-next])
2842
2843   (define-key function-key-map "\e[1;9A" [M-up])
2844   (define-key function-key-map "\e[1;9B" [M-down])
2845   (define-key function-key-map "\e[1;9C" [M-right])
2846   (define-key function-key-map "\e[1;9D" [M-left])
2847   (define-key function-key-map "\e[1;9F" [M-end])
2848   (define-key function-key-map "\e[1;9H" [M-home])
2849
2850   (define-key function-key-map "\e[2;9~" [M-insert])
2851   (define-key function-key-map "\e[5;9~" [M-prior])
2852   (define-key function-key-map "\e[6;9~" [M-next])
2853
2854   ;; The following ones are not standard
2855
2856   (define-key function-key-map "\eO}" (kbd "C-}"))
2857   (define-key function-key-map "\eO{" (kbd "C-{"))
2858   (define-key function-key-map "\eO?" (kbd "C-?"))
2859   (define-key function-key-map "\eO/" (kbd "C-/"))
2860   (define-key function-key-map "\eO:" (kbd "C-:"))
2861   (define-key function-key-map "\eO;" (kbd "C-;"))
2862   (define-key function-key-map "\eO~" (kbd "C-~"))
2863   (define-key function-key-map "\eO`" (kbd "C-\`"))
2864   (define-key function-key-map "\eO\"" (kbd "C-\""))
2865   (define-key function-key-map "\eO|" (kbd "C-|"))
2866   (define-key function-key-map "\eO'" (kbd "C-'"))
2867   (define-key function-key-map "\eO>" (kbd "C->"))
2868   (define-key function-key-map "\eO." (kbd "C-."))
2869   (define-key function-key-map "\eO<" (kbd "C-<"))
2870   (define-key function-key-map "\eO," (kbd "C-,"))
2871   (define-key function-key-map "\eO-" (kbd "C--"))
2872   (define-key function-key-map "\eO=" (kbd "C-="))
2873   (define-key function-key-map "\eO+" (kbd "C-+"))
2874
2875   (define-key function-key-map "\eOZ" [C-backspace])
2876
2877   (define-key minibuffer-local-map "\10" 'previous-history-element)
2878   (define-key minibuffer-local-map "\ e" 'next-history-element)
2879
2880   ;; (define-key global-map [(alt prior)] 'ff/prev-buffer)
2881   ;; (define-key global-map [(alt next)] 'ff/next-buffer)
2882
2883   )
2884
2885 ;; I am fed up with Alt-Backspace in the minibuffer erasing the
2886 ;; content of the kill-ring
2887
2888 (defun ff/backward-delete-word (arg)
2889   "Delete characters forward until encountering the end of a word, but do not put them in the kill ring.
2890 With argument ARG, do this that many times."
2891   (interactive "p")
2892   (delete-region (point) (progn (forward-word (- arg)) (point))))
2893
2894 (define-key minibuffer-local-map
2895   [remap backward-kill-word] 'ff/backward-delete-word)
2896
2897 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2898 ;; Privacy
2899 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2900
2901 ;; Where to save the bookmarks
2902
2903 (setq bookmark-default-file (concat ff/emacs-dir "/bmk")
2904       custom-file (concat ff/emacs-dir "/custom"))
2905
2906 ;; enotes.el is one of my own scripts, check my web page
2907
2908 ;; ** ;; (when (ff/load-or-alert "enotes" t)
2909 ;; ** ;;   (setq enotes/file "~/private/enotes"
2910 ;; ** ;;         enotes/show-help nil
2911 ;; ** ;;         enotes/full-display nil
2912 ;; ** ;;         enotes/default-time-fields "9:30")
2913 ;; ** ;;
2914 ;; ** ;;   (enotes/init)
2915 ;; ** ;;   )
2916
2917 (when (ff/load-or-alert "goto-last-change.el")
2918   (define-key global-map [(control -)] 'goto-last-change)
2919   )
2920
2921 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2922 ;; My private stuff (email adresses, mail filters, etc.)
2923 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2924
2925 (ff/load-or-alert "~/private/emacs.perso.el" t)
2926
2927 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2928 ;; emacs server
2929 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2930
2931 ;; Runs in server mode, so that emacsclient works
2932 (server-start)
2933
2934 (defun ff/raise-frame-and-give-focus ()
2935   (when window-system
2936     (raise-frame)
2937     (x-focus-frame (selected-frame))
2938     (set-mouse-pixel-position (selected-frame) 4 4)
2939     ))
2940
2941 ;; Raises the window when the server is invoked
2942
2943 (add-hook 'server-switch-hook 'ff/raise-frame-and-give-focus)