(require 'uniquify)
(require 'themes)
+
;; ,----
;; | Couleurs et apparence
;; `----
(if window-system
- (progn
- (tool-bar-mode nil)
- (tooltip-mode nil)
- (scroll-bar-mode t)))
+ (color-theme-tango))
;; font
(if (>= emacs-major-version 23)
(set-frame-font "DejaVu Sans Mono-10"))
-(require 'color-theme)
-;;(color-theme-initialize)
-(setq color-theme-is-global t)
-(setq color-theme-is-cumulative t)
-(setq color-theme-load-all-themes nil)
-
-(color-theme-tangotango)
-
-(add-hook 'message-mode-hook 'color-theme-tangotango)
-(add-hook 'gnus-article-mode-hook 'color-theme-tangotango)
-
-(add-hook 'after-make-frame-functions
- (lambda (frame)
- (set-variable 'color-theme-is-global nil)
- (select-frame frame)
- (if window-system
- (color-theme-tangotango)
- (color-theme-tty-dark))))
-
;; ,----
;; | Comportement
;; `----
(setq scroll-bar-mode 'right)
(column-number-mode 1)
-;; ;; Desktop-mode
-;; (desktop-save-mode t) ; remember which files were open
-;; (require 'midnight) ; Clear up unimportant buffers
-;; ;;(require 'savehist-20+)
-;; (savehist-mode 1)
-
;; Configuration d'uniquify
(setq uniquify-buffer-name-style 'reverse)
(setq uniquify-separator "|")
;; Enable longlines-mode for LaTeX files
(add-hook 'latex-mode-hook 'longlines-mode)
-;; Impression
-(setq lpr-command "/usr/bin/gtklp")
-(setq ps-lpr-command "/usr/bin/gtklp")
-
-;; On utilise Mozilla Firefox
-(defun browse-url-firefox-new-tab (url &optional new-window)
- "Open URL in a new tab in Firefox."
- ;; (interactive (browse-url-interactive-arg "URL: "))
- (let ((cmd (shell-command-to-string
- (concat "mozilla-firefox -a firefox -remote 'openURL("
- url ",new-tab)' > /dev/null"))))
- (unless (string= "" cmd)
- (message "Starting Firefox...")
- (start-process (concat "firefox " url) nil "/bin/sh" "-c"
- (concat "mozilla-firefox " url "|| true"))
- (message "Starting Firefox...done"))))
-
-(setq browse-url-browser-function 'browse-url-firefox-new-tab)
-
;; ,--------------
;; | Les racourcis
;; `--------------
;; | Configuration pour les différants modes
;; `----
-;; Xtla
-;;(setq tla-arch-branch 'baz)
-;;(tla-insinuate-gnus)
-
;; Ispell/Aspell
(setq ispell-program-name "aspell")
(setq ispell-dictionary "french")
-;; Pour JDE (Bug dans la sid)
-(setq global-senator-minor-mode t)
-
;; Pour TEX
(setq tex-dvi-view-command "evince")
(setq LaTeX-verbatim-environments (quote ("verbatim" "verbatim*" "lstlisting")))
(push (expand-file-name "~/.elisp/twittering-mode") load-path)
(require 'twittering-mode)
(setq twittering-use-master-password t)
+(setq twittering-icon-mode t)
+(setq twittering-timer-interval 300)
+(setq twittering-url-show-status nil)
+(add-hook 'twittering-new-tweets-hook
+ (lambda ()
+ (let ((n twittering-new-tweets-count))
+ (start-process "twittering-notify" nil "notify-send"
+ "-i" "/usr/share/pixmaps/gnome-emacs.png"
+ "New tweets"
+ (format "You have %d new tweet%s"
+ n (if (> n 1) "s" ""))))))
+(setq twittering-initial-timeline-spec-string
+ '(":home"
+ ":replies"
+ ":mentions"
+ ":direct_messages"))
+
;; -> END <-
(custom-set-variables