(add-to-list 'load-path "~/sources/gpl/elisp")
(add-to-list 'load-path "~/sources/elisp")
+(add-to-list 'load-path "~/local/elisp")
;; No, I do not like menus
(menu-bar-mode -1)
(font-lock-function-name-face :foreground "cyan")
(flyspell-incorrect-face :foreground "red2")
(flyspell-duplicate-face :foreground "OrangeRed2")
+ (hl-line :background "white")
(sh-heredoc :foreground "blue")
(sh-heredoc-face :foreground "blue")
(font-lock-keyword-face :foreground "blue")
;; (font-lock-comment-face :foreground "dark violet")
(flyspell-incorrect-face :foreground "red2")
(flyspell-duplicate-face :foreground "OrangeRed2")
+ (hl-line :background "white")
(header-line :background "gray65")
(sh-heredoc :foreground "darkorange3")
(sh-heredoc-face :foreground "darkorange3")
(propertize
(with-temp-buffer (apply 'call-process x)
(buffer-string))
- 'face '(:background "gray80"))
+ 'face '(:background "#c0c0ff"))
(with-temp-buffer (apply 'call-process x)
(buffer-string))
))
)
- ;; display-time-format "%b %a %e %H:%M"
- ;; display-time-mail-face nil
+ ;; display-time-format "%b %a %e %H:%M"
+ ;; display-time-mail-face nil
)
;; Show the time, mail and stuff
;; Please consider the security-related consequences of using it
-(defun ff/make-shell-scripts-executable (&optional filename)
- (setq filename (or filename (buffer-name)))
- (when (and (string-match "\\.sh$\\|\\.pl$\\|\\.rb" filename)
- (not (file-executable-p filename))
- )
- (set-file-modes filename 493)
- (message "Made %s executable" filename)))
+;; (defun ff/make-shell-scripts-executable (&optional filename)
+ ;; (setq filename (or filename (buffer-name)))
+ ;; (when (and (string-match "\\.sh$\\|\\.pl$\\|\\.rb" filename)
+ ;; (not (file-executable-p filename))
+ ;; )
+ ;; (set-file-modes filename 493)
+ ;; (message "Made %s executable" filename)))
-(add-hook 'after-save-hook 'ff/make-shell-scripts-executable)
+;; (add-hook 'after-save-hook 'ff/make-shell-scripts-executable)
+
+(add-hook 'after-save-hook
+ 'executable-make-buffer-file-executable-if-script-p)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Cool stuff to navigate in emacs-lisp sources
(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)
- (flyspell-mode)
- (reftex-mode)
+ ;; (flyspell-mode 1)
+ ;; (reftex-mode 1)
))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
)
)
-(setq compilation-finish-functions (cons 'ff/restore-windows-if-no-error compilation-finish-functions))
+(add-to-list 'compilation-finish-functions 'ff/restore-windows-if-no-error)
(defun ff/fast-compile ()
"Compiles without asking anything."
(while (re-search-forward "[0-9\.]+" nil t)
(let ((value (string-to-number (buffer-substring (match-beginning 0) (match-end 0)))))
(delete-region (match-beginning 0) (match-end 0))
- (insert (format "%0.2f" value)))))))
+ (insert (format "%0.0f" value)))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Keymaping
(kill-region (region-beginning) (region-end))
(with-current-buffer (find-file-noselect "fridge")
(goto-char (point-max))
+ (insert "\n")
+ (insert "######################################################################\n")
(insert "\n"
(format-time-string "%Y %b %d %H:%M:%S" (current-time))
" (from "