(menu-bar-mode -1)
;; Nor fringes
-(when (functionp 'fringe-mode) (fringe-mode '(0 . 0)))
+;; (when (functionp 'fringe-mode) (fringe-mode '(0 . 0)))
;; (when (functionp 'fringe-mode) (fringe-mode '(0 . 1)))
;; And I do not like scrollbar neither
;; make emacs use the clipboard so that copy/paste works for other
;; x-programs. I have no clue how all that clipboard thing works.
+
;; (setq x-select-enable-clipboard t)
;; (setq interprogram-paste-function 'x-cut-buffer-or-selection-value)
+;; (setq x-select-enable-primary t)
+;; (setq x-select-enable-clipboard t)
+;; (global-set-key "\C-y" 'clipboard-yank)
(setq
;; What modes for what file extentions
(add-to-list 'auto-mode-alist '("\\.h\\'" . c++-mode))
+(require 'org-table)
+
(add-to-list 'auto-mode-alist '("\\.txt\\'" . (lambda()
(text-mode)
(orgtbl-mode)
))
;; "tool" bar? Are you kidding?
-(when (boundp 'tool-bar-mode) (tool-bar-mode -1))
+(when (fboundp 'tool-bar-mode) (tool-bar-mode -1))
;; ;; If my own letter icon is here, use it and change its color
;; (when (file-exists-p "~/local/share/emacs/letter.xbm")
(ff/configure-faces
'(
- (escape-glyph :foreground "#c0c0c0" :weight 'bold)
+ ;; (escape-glyph :foreground "#c0c0c0" :weight 'bold)
+
+ (escape-glyph :foreground "green3" :weight 'bold)
(default :background "gray90" :foreground "black")
(cperl-array-face :background "gray90" :foreground "blue" :weight 'bold)
(cperl-hash-face :background "gray90" :foreground "purple" :weight 'bold)
(mode-line-inactive :background "#b0b0b0" :foreground "black" :box nil
:inverse-video nil)
;; (fringe :background "black" :foreground "gray90")
- (fringe :background "gray65")
- (tex-verbatim :family "courrier")
+ (fringe :background "gray75")
(ff/date-info-face :foreground "white" :weight 'bold)
(ff/mail-alarm-face :foreground "white" :background "red2")
;; (alarm-vc-face :foreground "black" :background "yellow" :weight 'normal)
- ))
+ ))
)
;; When we are root, put the modeline in red
(add-hook 'sh-mode-hook
(lambda ()
(set-face-attribute 'sh-heredoc nil
- :foreground "black"
- :background "#fff0f0")
+ :foreground "#604000"
+ :background "white"
+ :italic t)
(set-face-attribute 'sh-heredoc-face nil
- :foreground "black"
- :background "#fff0f0")
+ :foreground "#604000"
+ :background "white"
+ :italic t)
))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(load "ps-print")
(setq ps-print-color-p nil
- ;; ps-paper-type 'letter
- ps-paper-type 'a4
+ ps-paper-type 'letter
+ ;; ps-paper-type 'a4
;; ps-top-margin (* 1.75 56.692)
;; ps-left-margin 56.692
;; ps-bottom-margin 56.692
(ff/battery-percent "energy"))))
((string= battery-status "Discharging")
- (format "B%d%%" (max (ff/battery-percent "charge")
- (ff/battery-percent "energy"))))
+ (let* ((c (max (ff/battery-percent "charge")
+ (ff/battery-percent "energy")))
+ (s (format "B%d%%" c)))
+ (if (>= c 20) s (propertize s 'face 'font-lock-warning-face))))
(t battery-status)
;; Failsafe version if we can't load bbdb
(defun ff/explicit-name (email) email)
+(load "vc-git")
+
(when (ff/load-or-alert "bbdb")
(setq
)
(ff/configure-faces '((ff/robot-address-face :foreground "green4")
+ (ff/personal-address-face :foreground "dark magenta"
+ :weight 'bold)
(ff/important-address-face :foreground "blue2"
;; :underline t
;; :background "white"
;; :slant 'italic
)))
-
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
)
(defface ff/secure-date
- '((t (:background "gold" :weight bold)))
+ '((t (:background "white" :weight bold)))
"The face to display the dates in the modeline.")
(defun ff/secure-note-add () (interactive)
(goto-char (point-min))
(insert "-- "
(format-time-string "%Y %b %d %H:%M:%S" (current-time))
- " ------------------------------------------------\n\n")
+ " --\n\n")
(previous-line 1)
;; Colorizes the dates
(save-excursion
(goto-char (point-min))
(while (re-search-forward
- "^-+ [0-9]+ [a-z]+ [0-9]+ [0-9]+:[0-9]+:[0-9]+.+$"
+ "^-- [0-9]+ [a-z]+ [0-9]+ [0-9]+:[0-9]+:[0-9]+ -+$"
nil t)
(add-text-properties
- (match-beginning 0) (match-end 0) '(face ff/secure-date))))
+ (match-beginning 0) (1+ (match-end 0))
+ '(face ff/secure-date rear-nonsticky t))))
(set-buffer-modified-p nil)
(setq buffer-undo-list nil)
(insert "%% -*- mode: latex; mode: reftex; mode: flyspell; coding: utf-8; tex-command: \"pdflatex.sh\" -*-
\\documentclass[12pt]{article}
-\\usepackage[a4paper,top=2.5cm,bottom=2cm,left=1.5cm,right=1.5cm]{geometry}
+\\usepackage[a4paper,top=2.5cm,bottom=2cm,left=2.5cm,right=2.5cm]{geometry}
\\usepackage[utf8]{inputenc}
\\usepackage{amsmath}
\\usepackage{amssymb}
-\\usepackage{hyperref}
+\\usepackage[pdftex]{graphicx}
+\\usepackage{microtype}
+\\usepackage[colorlinks=true,linkcolor=blue,urlcolor=blue,citecolor=blue]{hyperref}
-%% \\usepackage[pdftex]{graphicx}
-%% \\usepackage{eurosym}
+\\setlength{\\parindent}{0cm}
+\\setlength{\\parskip}{12pt}
+\\renewcommand{\\baselinestretch}{1.3}
-\\hypersetup{
- colorlinks=true,
- linkcolor=blue,
- urlcolor=blue,
- citecolor=blue
-}
+\\def\\argmax{\\operatornamewithlimits{argmax}}
+\\def\\argmin{\\operatornamewithlimits{argmin}}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Sans serif fonts
%% \\renewcommand{\\ttdefault}{pcr}
%% \\renewcommand*\\familydefault{\\sfdefault}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% \\def\\argmax{\\operatornamewithlimits{argmax}}
-%% \\def\\argmin{\\operatornamewithlimits{argmin}}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% \\setlength{\\parindent}{0cm}
-%% \\setlength{\\parskip}{12pt}
-%% \\renewcommand{\\baselinestretch}{1.3}
+%% The \\todo command
+\\newcounter{nbdrafts}
+\\setcounter{nbdrafts}{0}
+\\makeatletter
+\\newcommand{\\checknbdrafts}{
+\\ifnum \\thenbdrafts > 0
+\\@latex@warning@no@line{*WARNING* The document contains \\thenbdrafts \\space draft note(s)}
+\\fi}
+\\newcommand{\\todo}[1]{\\addtocounter{nbdrafts}{1}{\\color{red} #1}}
+\\makeatother
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\\begin{document}
(define-key latex-mode-map [(control c) (control a)] 'align-current)
(define-key latex-mode-map [(control end)] 'tex-close-latex-block)
(define-key latex-mode-map [(control tab)] 'ispell-complete-word)
- ;; Strange that I have to specify that
- ;; (setq paragraph-separate "[% \f]*$")
- ;; (setq paragraph-separate
- ;; (concat "[%]*\\|[\f%]\\|[ \t]*\\($\\|"
- ;; "\\\\[][]\\|"
- ;; "\\\\" (regexp-opt (append
- ;; (mapcar 'car latex-section-alist)
- ;; '("begin" "label" "end" )) t)
- ;; "\\>\\|\\\\\\(" (regexp-opt '("item" "bibitem" "newline"
- ;; "noindent" "newpage" "footnote"
- ;; "marginpar" "parbox" "caption"))
- ;; "\\|\\$\\$\\|[a-z]*\\(space\\|skip\\|page[a-z]*\\)"
- ;; "\\>\\)[ \t]*\\($\\|%\\)\\)"))
- ;; (flyspell-mode 1)
- ;; (reftex-mode 1)
+ (copy-face 'default 'tex-verbatim)
+ ;; (ff/configure-faces '((tex-verbatim :background "gray95")))
))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(when (string-match "\\.sh$" filename)
(sh-mode)
- (insert "#!/bin/bash\n\nset -e\n\n")
+ (insert "#!/bin/bash\n\nset -e\nset -o pipefail\n\n")
(save-excursion
(ff/add-copyrights))
)
(setq longlines-show-hard-newlines t
longlines-auto-wrap t
;; longlines-show-effect #("|\n" 0 2 (face escape-glyph))
+ ;; longlines-show-effect #("∴\n" 0 2 (face escape-glyph))
+ longlines-show-effect #("•\n" 0 2 (face escape-glyph))
+ ;; longlines-show-effect #("↵\n" 0 2 (face escape-glyph))
)
;; (defun ff/auto-longlines ()
(load "recentf")
-(setq recentf-exclude
- (append recentf-exclude
- '("enotes$" "secure-notes$" "media-playlists$"
- "bbdb$"
- "svn-commit.tmp$" ".git/COMMIT_EDITMSG$"
- "\.bbl$" "\.aux$" "\.toc$"))
+;; If we just check for file-symlink-p, everytime we start emacs it
+;; will check all the remote files listed in recentf-list, so we check
+;; that they are not remote first
+(defun ff/file-not-remote-but-symlink (filename)
+ (and (not (file-remote-p filename)) (file-symlink-p filename)))
+
+(setq recentf-exclude (append recentf-exclude
+ '(
+ ff/file-not-remote-but-symlink
+ "enotes$" "secure-notes$" "media-playlists$"
+ "bbdb$"
+ "svn-commit.tmp$" ".git/COMMIT_EDITMSG$"
+ "\.bbl$" "\.aux$" "\.toc$"
+ ))
recentf-max-saved-items 1000
recentf-save-file "~/private/emacs/recentf"
)
(when (boundp 'recentf-keep) (add-to-list 'recentf-keep 'file-remote-p))
-;; Removes the link if we add the file itself (I am fed up with
-;; duplicates because of vc-follow-symlinks)
-
-(defadvice recentf-add-file (before ff/remove-links (filename) activate)
- ;; If we are adding a filename corresponding to the last link we
- ;; have added, remove the latter
- (when (and recentf-list
- (file-symlink-p (car recentf-list))
- (string= filename (file-chase-links filename)))
- (setq recentf-list (cdr recentf-list))
- ))
-
(recentf-mode 1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq ff/map (make-sparse-keymap))
(define-key global-map [(control \`)] ff/map)
+;;(define-key global-map [(control @)] ff/map)
+
(define-key esc-map "`" ff/map)
(defun ff/git-status (&optional dir) (interactive)
(define-key ff/map [(control o)] 'selector/quick-pick-recent)
(define-key ff/map "s" 'selector/quick-move-in-buffer)
(define-key ff/map "S" 'selector/search-sentence)
+(define-key ff/map "t" (lambda () (interactive) (find-file "~/private/TODO.txt")))
(define-key ff/map "h" 'ff/tidy-html)
(define-key ff/map "c" 'ff/count-char)
(define-key ff/map [(control p)] 'ff/print-to-file)
projects / elisp.git / blobdiff