X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=blobdiff_plain;f=emacs.el;h=96874b0c183d9b378280b3f9135d1cc5d2bba1db;hb=HEAD;hp=5f7aed0980d2241ceb29f973a01ea5f490364c98;hpb=da37931ecad6bda8a1f1dc6146c1ca805359cba6;p=elisp.git diff --git a/emacs.el b/emacs.el index 5f7aed0..b22d494 100644 --- a/emacs.el +++ b/emacs.el @@ -18,6 +18,11 @@ ;; Contact for comments & bug reports ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; (defadvice display-warning (before ff/blah (type message &optional level buffer-name) activate) + ;; (message "--- BLAH %s ---" message) + ;; (backtrace) +;; ) + ;; It's better to set the preferences in the .Xresources so that the ;; window is not first displayed with the wrong options @@ -31,10 +36,13 @@ ;; Xft.antialias: true ;; Xft.rgba: rgb -(set-default-font "Inconsolata 14") +(set-frame-font "Inconsolata 15") ;; (package-initialize) +;;(set-face-attribute 'default nil :height 130) + +;;(set-default-font "Inconsolata 13") ;; (set-default-font "Bitstream vera sans mono 12") ;; (set-default-font "Liberation Mono-13") ;; (set-default-font "DejaVu sans mono 15") @@ -58,8 +66,8 @@ ;; Where I keep my own scripts -(add-to-list 'load-path "~/sources/gpl/elisp") -(add-to-list 'load-path "~/sources/elisp") +(add-to-list 'load-path "~/src/gpl/elisp") +(add-to-list 'load-path "~/src/elisp") (add-to-list 'load-path "~/local/elisp") ;; No, I do not like menus @@ -88,6 +96,8 @@ ;; use colorization for all modes (global-font-lock-mode t) +;; (load "auctex") + (setq font-lock-maximum-decoration 3 ;;'((latex-mode . 2) (t . 2)) ) @@ -125,10 +135,14 @@ uses `load-path' to find it." (let* ((src (concat dir "/" name))) ;; (message "Compiling " scr) ;;*********** (when (file-newer-than-file-p src (concat src "c")) - (if (let ((byte-compile-verbose nil)) - (condition-case nil - (byte-compile-file src) - (error nil))) + (if + ;; (let ((byte-compile-verbose nil)) + ;; (condition-case nil + ;; (byte-compile-file src) + ;; (error nil))) + + (byte-compile-file src) + (message (format "Compiled %s" src )) (message (format "Failed compilation of %s" src)))))) load-path))) @@ -185,7 +199,7 @@ load-warning buffer in case of failure." next-error-highlight t ;; blink the screen instead of beeping - ;; visible-bell t + visible-bell t ;; take the CR when killing a line kill-whole-line t @@ -254,9 +268,11 @@ load-warning buffer in case of failure." ;; vertically, even when the said window is very wide split-height-threshold 0 split-width-threshold nil - ) +(custom-set-variables + '(query-replace-from-to-separator nil)) + ;; The backups (setq @@ -336,7 +352,7 @@ load-warning buffer in case of failure." ;; What modes for what file extentions (add-to-list 'auto-mode-alist '("\\.h\\'" . c++-mode)) -(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode)) +;;(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode)) (require 'org-table) @@ -350,8 +366,8 @@ load-warning buffer in case of failure." ;; (add-hook 'lua-mode-hook 'flyspell-prog-mode) (add-hook 'log-edit-mode-hook 'flyspell-mode) -(add-hook 'markdown-mode-hook 'flyspell-mode) -(add-hook 'markdown-mode-hook 'auto-fill-mode) +;; (add-hook 'markdown-mode-hook 'flyspell-mode) +;; (add-hook 'markdown-mode-hook 'auto-fill-mode) ;; I am a power-user @@ -442,7 +458,7 @@ load-warning buffer in case of failure." (sh-heredoc :foreground "black" :background "#fff0f0") (sh-heredoc-face :foreground "black" :background "#fff0f0") (header-line :background "gray65") - (highlight :background "turquoise") + (highlight :background "white") (message-cited-text-face :foreground "firebrick") (isearch :background "yellow" :foreground "black") (isearch-lazy-highlight-face' :background "yellow3" :foreground "black") @@ -462,7 +478,7 @@ load-warning buffer in case of failure." ;; (fringe :background "black" :foreground "gray90") (fringe :background "gray80") (ff/date-info-face :foreground "white") - (ff/battery-info-face :foreground "black") + (ff/battery-info-face :foreground "blue") (ff/battery-info-alarm-face :foreground "red") ;; (ff/mail-alarm-face :foreground "white" :background "red2") ;; (alarm-vc-face :foreground "black" :background "yellow" :weight 'normal) @@ -501,7 +517,7 @@ load-warning buffer in case of failure." (sh-heredoc :foreground "black" :background "#fff0f0") (sh-heredoc-face :foreground "black" :background "#fff0f0") (font-lock-keyword-face :foreground "blue") - (highlight :background "darkseagreen3") + (highlight :background "white") (isearch :background "orange" :foreground "black") (isearch-lazy-highlight-face' :background "yellow" :foreground "black") ;; (display-time-mail-face :background "white") @@ -615,7 +631,7 @@ load-warning buffer in case of failure." (defun ff/alsa-sound (file) "Plays a sound with ALSA." (interactive) - (process-kill-without-query (start-process-shell-command "aplay" + (process-query-on-exit-flag (start-process-shell-command "aplay" nil "aplay" "-q" file))) @@ -630,31 +646,37 @@ load-warning buffer in case of failure." ;; then uncommenting would be very counter-intuitive). ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defun ff/comment-and-go-down (arg) - "Comments and goes down ARG lines." - (interactive "p") - (condition-case nil - (comment-region (point-at-bol) (point-at-eol)) (error nil)) - (next-line 1) - (if (> arg 1) (ff/comment-and-go-down (1- arg)))) +;; (defun ff/comment-and-go-down (arg) +;; "Comments and goes down ARG lines." +;; (interactive "p") +;; (condition-case nil +;; (comment-region (point-at-bol) (point-at-eol)) (error nil)) +;; (next-line 1) +;; (if (> arg 1) (ff/comment-and-go-down (1- arg)))) +;; +;; (defun ff/uncomment-and-go-up (arg) +;; "Uncomments and goes up ARG lines." +;; (interactive "p") +;; (condition-case nil +;; (uncomment-region (point-at-bol) (point-at-eol)) (error nil)) +;; (next-line -1) +;; (if (> arg 1) (ff/uncomment-and-go-up (1- arg)))) +;; +;; (define-key global-map [(shift down)] 'ff/comment-and-go-down) +;; (define-key global-map [(shift up)] 'ff/uncomment-and-go-up) -(defun ff/uncomment-and-go-up (arg) - "Uncomments and goes up ARG lines." - (interactive "p") - (condition-case nil - (uncomment-region (point-at-bol) (point-at-eol)) (error nil)) - (next-line -1) - (if (> arg 1) (ff/uncomment-and-go-up (1- arg)))) - -(define-key global-map [(shift down)] 'ff/comment-and-go-down) -(define-key global-map [(shift up)] 'ff/uncomment-and-go-up) +(define-key global-map [(shift down)] 'comment-line) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun ff/show-compilation-buffer-split-window () "Split the window vertically and show the compilation buffer in the newly created right one" (interactive) - (show-buffer (split-window-right) "*compilation*") + + (let ((b (get-buffer "*compilation*"))) + (if b (display-buffer b) + (error "Cannot find a compilation buffer")) + ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -921,8 +943,9 @@ printer." ) ) - ;; (`unknown "✱") - (`unknown "F") + (`unknown (propertize "☼" 'face 'ff/battery-info-face)) + ;; (`unknown "☼") + ;; (`unknown "F") (_ "?")) (error nil)) ) @@ -1022,7 +1045,7 @@ printer." ) ;; Show the time, mail and stuff -(display-time) +;; (display-time) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Moving through buffers @@ -1108,10 +1131,10 @@ In line mode: M-p previous line, M-n next line.") (term-set-escape-char ?\C-x) ;; I like the shell buffer and windows to be deleted when the - ;; shell process terminates. It's a bit of a mess to acheive this. + ;; shell process terminates. It's a bit of a mess to achieve this. (let ((process (get-buffer-process (current-buffer)))) - (process-kill-without-query process) + (process-query-on-exit-flag process) (set-process-sentinel process ;; 'ff/kill-associated-buffer-and-delete-windows 'ff/kill-associated-buffer @@ -1155,9 +1178,9 @@ of commands in `ff/default-bash-commands' is used for auto-completion" (when (ff/load-or-alert "alarm-vc" t) (setq alarm-vc-mode-exceptions "^VM")) -(when (ff/load-or-alert "git") - (setq git-show-unknown nil) - ) +;; (when (ff/load-or-alert "git") + ;; (setq git-show-unknown nil) + ;; ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Makes .sh and others files executable automagically @@ -1224,9 +1247,13 @@ goback argument, go back where we were." (load "vc-git") (defun ff/git-pull-push (universal) (interactive "P") + (message "black *.py ...") + (shell-command "black *.py" nil) (when universal (shell-command "git commit -a -m \"Update.\"" nil)) (message "git pull / push ...") - (async-shell-command "git remote get-url origin && git pull && git push" nil) + (shell-command "git pull && git push" nil) + ;;(async-shell-command "git remote get-url origin && git pull && git push" nil) + (message "All good captain") ) (defun ff/git-pull () (interactive) @@ -1237,88 +1264,6 @@ goback argument, go back where we were." (define-key global-map [(control x) (v) (p)] 'ff/git-pull-push) (define-key global-map [(control x) (v) (P)] 'ff/git-pull) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; The big stuff (bbdb, mailcrypt, etc.) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(setq bbdb-file "~/private/bbdb") - -(when (file-exists-p bbdb-file) - - ;; Failsafe version if we can't load bbdb - (defun ff/explicit-name (email) email) - - (when (ff/load-or-alert "bbdb") - - (setq - ;; Stop asking (if not t or nil, will not ask) - bbdb-offer-save 'never - ;; I hate when bbdb decides to mess up my windows - bbdb-use-pop-up nil - ;; I have no problem with bbdb asking me if the sender email - ;; does not match exactly the address we have in the database - bbdb-quiet-about-name-mismatches 0 - ;; I have european friends, too - bbdb-north-american-phone-numbers-p nil - ;; To cycle through all possible addresses - bbdb-complete-name-allow-cycling t - ;; Cycle with full names only, not through all net-addresses alone too - bbdb-dwim-net-address-allow-redundancy t - ;; Do not add new addresses automatically - bbdb-always-add-addresses nil - ) - - (defface ff/known-address-face - '((t (:foreground "blue2"))) - "The face to display known mail identities.") - - (defface ff/unknown-address-face - '((t (:foreground "gray50"))) - "The face to display unknown mail identities.") - - (defun ff/explicit-name (email) - "Returns a string identity for the first address in EMAIL. The -identity is taken from bbdb if possible or from the address itself -with mail-extract-address-components. The suffix \"& al.\" is added if -there are more than one address. - -If no bbdb record is found, the name is propertized with the face -ff/unknown-address-face. If a record is found and contains a note -'face, the associated face is used, otherwise -ff/known-address-face is used." - - (and email - (let* ((data (mail-extract-address-components email)) - (name (car data)) - (net (cadr data)) - (record (bbdb-search-simple nil net))) - - (concat - - (condition-case nil - (propertize (bbdb-record-name record) - 'face - (or (cdr (assoc 'face - (bbdb-record-raw-notes record))) - 'ff/known-address-face)) - (error - (propertize (or (and data (concat "<" net ">")) - "*undefined*") - 'face 'ff/unknown-address-face) - )) - (if (string-match "," (mail-strip-quoted-names email)) " & al.") - ))) - ) - - (ff/configure-faces '((ff/robot-address-face :foreground "green4") - (ff/personal-address-face :foreground "dark magenta" :weight 'bold) - (ff/important-address-face :foreground "red3" - :weight 'bold - ))) - - ) - ) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; An encrypted file to put secure stuff (passwords, ...) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -1431,7 +1376,7 @@ universal argument starts xfig even if the .fig does not exist" '(("fig" . "xfig") ("jpg" . "gimp" ) ("png" . "gimp") ("pgm" . "gimp") ("ppm" . "gimp") - ("jpg" . "xv")) + ("svg" . "inkscape")) universal) (if (not (and (buffer-file-name) (string-match "\\(.*\\)\.tex$" @@ -1445,22 +1390,31 @@ universal argument starts xfig even if the .fig does not exist" (append '("xdvi-for-latex" nil "xdvi") ff/xdvi-for-latex-options (list dvi-name)))) - (process-kill-without-query xdvi-process)))) + (process-query-on-exit-flag xdvi-process)))) )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Tex mode -;; When working on a tex file with other people, I can just change -;; ff/tex-command in the -*- part of the file so that I don't mess up -;; other's people configuration. +(defun ff/save-window-configuration (universal) (interactive "P") + (if universal + (progn + (setq ff/window-configuration (current-window-configuration)) + (message "Window configuration stored") + ) + (set-window-configuration ff/window-configuration)) + ) -(defadvice tex-file (around ff/set-my-own-tex-command () activate) - (let ((tex-command - (or (and (boundp 'ff/tex-command) - ff/tex-command) - tex-command))) - ad-do-it)) +(define-key global-map [(control =)] 'ff/save-window-configuration) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Tex mode + +;; (defadvice tex-file (around ff/set-my-own-tex-command () activate) + ;; (let ((ff/window-configuration-before-compilation (current-window-configuration))) + ;; ad-do-it + ;; (set-window-configuration ff/window-configuration-before-compilation) + ;; ) + ;; ) ;; This is a bit hardcore, but really I can't bear the superscripts in ;; my emacs window and could not find another way to deactivate them. @@ -1528,7 +1482,7 @@ universal argument starts xfig even if the .fig does not exist" ;; (ff/play-sound-async "~/local/sounds/short_la.wav") )) -(setq ring-bell-function 'ff/ring-bell) +;; (setq ring-bell-function 'ff/ring-bell) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Past the content of the url currently in the kill-ring with @@ -1545,8 +1499,15 @@ universal argument starts xfig even if the .fig does not exist" (call-process "w3m" nil t nil "-dump" url)) ) -(define-key global-map [(shift mouse-2)] - (lambda () (interactive) (ff/insert-url (current-kill 0)))) +;; (define-key global-map [(shift mouse-2)] + ;; (lambda () (interactive) (ff/insert-url (current-kill 0)))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Trying to deal with cut-paste + +(setq x-select-enable-clipboard t) +(setq interprogram-paste-function 'x-cut-buffer-or-selection-value) +(define-key global-map [(shift mouse-2)] 'clipboard-yank) ;; lookup-dict is one of my own scripts, check my web page @@ -1576,31 +1537,32 @@ universal argument starts xfig even if the .fig does not exist" (goto-char (point-min)) (insert "%% -*- mode: latex; mode: reftex; mode: flyspell; coding: utf-8; tex-command: \"pdflatex.sh\" -*- -\\documentclass[12pt,a4paper,twoside]{article} +\\documentclass[11pt,a4paper,twoside]{article} \\usepackage[a4paper,top=2.5cm,bottom=2cm,left=2.5cm,right=2.5cm]{geometry} \\usepackage[utf8]{inputenc} -\\usepackage{amsmath} -\\usepackage{amssymb} +\\usepackage{amsmath,amssymb,dsfont} \\usepackage[pdftex]{graphicx} -\\usepackage{microtype} \\usepackage[colorlinks=true,linkcolor=blue,urlcolor=blue,citecolor=blue]{hyperref} +\\usepackage[round]{natbib} +\\usepackage{tikz} +\\usetikzlibrary{arrows,arrows.meta,calc} +\\usetikzlibrary{patterns,backgrounds} +\\usetikzlibrary{positioning,fit} +\\usetikzlibrary{shapes.geometric,shapes.multipart} +\\usetikzlibrary{patterns.meta,decorations.pathreplacing,calligraphy} +\\usetikzlibrary{tikzmark} +\\usetikzlibrary{decorations.pathmorphing} \\setlength{\\parindent}{0cm} \\setlength{\\parskip}{12pt} -\\renewcommand{\\baselinestretch}{1.3} +%\\renewcommand{\\baselinestretch}{1.3} %\\setlength{\\tabcolsep}{0pt} %\\renewcommand{\\arraystretch}{1.0} \\def\\argmax{\\operatornamewithlimits{argmax}} \\def\\argmin{\\operatornamewithlimits{argmin}} +\\def\\expect{\\mathds{E}} -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Open sans font -%%\\usepackage[default]{opensans} -%%\\usepackage{cmbright} -%%\\renewcommand{\\familydefault}{fos} -%%\\renewcommand{\\seriesdefault}{l} -%%\\renewcommand{\\bfdefault}{sb} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% The \\todo command \\newcounter{nbdrafts} @@ -1621,6 +1583,12 @@ universal argument starts xfig even if the .fig does not exist" (goto-char (point-max)) (insert " +\\bibliographystyle{abbrvnat} + +\\bibliography{dlc} + +\\checknbdrafts + \\end{document} ")) (latex-mode)) @@ -1896,7 +1864,7 @@ and refilling all the paragraphs." %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -\\begin{frame}{") +\\begin{frame}[fragile]{") (save-excursion (insert "}{} ")) @@ -1904,7 +1872,7 @@ and refilling all the paragraphs." (insert "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -\\begin{frame}{") +\\begin{frame}[fragile]{") (save-excursion (insert "}{} @@ -2163,6 +2131,17 @@ a file in /tmp" (define-key global-map [(shift f1)] 'compile) (define-key global-map [f2] 'next-error) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Horrible hack +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(defun dont-delay-compile-warnings (fun type &rest args) + (if (eq type 'bytecomp) + (let ((after-init-time t)) + (apply fun type args)) + (apply fun type args))) +(advice-add 'display-warning :around #'dont-delay-compile-warnings) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Related to mail ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -2297,6 +2276,8 @@ This may be a useful alternative binding for \\[delete-other-windows] ;; Compiles the latex file in the current buffer + + (setq tex-start-commands "\\input") (define-key global-map [f3] 'tex-file) (define-key global-map [(shift f3)] 'tex-bibtex-file) @@ -2305,7 +2286,14 @@ This may be a useful alternative binding for \\[delete-other-windows] ;; buffer, and to edit the .fig or bitmap image used to generate the ;; .eps at point -(define-key global-map [f4] 'ff/run-viewer) +(defun ff/speech-whisper () (interactive) + (shell-command + (concat "speech-whisper.sh " (if current-input-method "fr" "en")) + (current-buffer) + ) +) + +(define-key global-map [f4] 'ff/speech-whisper) ;; Closes the current \begin{} @@ -2385,20 +2373,24 @@ current buffer and deletes the current window if it's not the only one in the frame. If the buffer has to be kept, go to the next one. With universal argument, kill all killable buffers." (interactive "P") - (if universal - (let ((nb-killed 0)) - (mapc (lambda (x) - (unless (string-match ff/kill-this-buffer-and-delete-window-exceptions - (buffer-name x)) - (kill-buffer x) - (setq nb-killed (1+ nb-killed)) - )) - (buffer-list)) - (message "Killed %d buffer%s" nb-killed (if (> nb-killed 1) "s" ""))) - (if (string-match ff/kill-this-buffer-and-delete-window-exceptions (buffer-name)) - (ff/next-buffer) - (kill-this-buffer))) - (unless (one-window-p t) (delete-window)) + (unless (minibuffer-window-active-p (selected-window)) + (if universal + (let ((nb-killed 0)) + (mapc (lambda (x) + (unless (string-match ff/kill-this-buffer-and-delete-window-exceptions + (buffer-name x)) + (kill-buffer x) + (setq nb-killed (1+ nb-killed)) + )) + (buffer-list)) + (message "Killed %d buffer%s" nb-killed (if (> nb-killed 1) "s" ""))) + (if (string-match ff/kill-this-buffer-and-delete-window-exceptions (buffer-name)) + (ff/next-buffer) + (let ((kill-buffer-query-functions nil)) + (kill-this-buffer)) + )) + (unless (one-window-p t) (delete-window)) + ) ) (define-key global-map [(control backspace)] 'ff/kill-this-buffer-and-delete-window) @@ -2447,7 +2439,7 @@ next one. With universal argument, kill all killable buffers." '( ff/file-not-remote-but-symlink "enotes$" "secure-notes$" "media-playlists$" - "bbdb$" + ;; "bbdb$" "svn-commit.tmp$" ".git/COMMIT_EDITMSG$" "\.bbl$" "\.aux$" "\.toc$" )) @@ -2484,7 +2476,8 @@ next one. With universal argument, kill all killable buffers." (define-key global-map [(meta \\)] 'media) - (setq media/expert t + (setq media/mplayer/executable "mpv" + media/expert t media/add-current-song-to-interrupted-when-killing t media/duration-to-history 30 media/history-size 1000 @@ -2698,7 +2691,8 @@ with a time tag, and save this file" ;; (insert (format-time-string "%d.%m.%Y" (current-time)))) ) -(define-key ff/map [(control g)] 'ff/git-status) +(define-key ff/map [(control g)] 'magit) +;;(define-key ff/map [(control g)] 'ff/git-status) ;; (define-key ff/map [(control w)] 'server-edit) (define-key ff/map [(control d)] 'ff/elisp-debug-on) ;; (define-key ff/map "d" 'diary) @@ -2724,7 +2718,7 @@ with a time tag, and save this file" (define-key ff/map "c" 'ff/count-char) (define-key ff/map [(control p)] 'ff/print-to-file) (define-key ff/map "P" 'ff/print-to-printer) -(define-key ff/map [(control b)] 'bbdb) +;; (define-key ff/map [(control b)] 'bbdb) (define-key ff/map "m" 'ff/selector-mail-from-bbdb) (define-key ff/map [(control m)] 'woman) (define-key ff/map "b" 'bookmark-jump) @@ -2943,15 +2937,23 @@ With argument ARG, do this that many times." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Runs in server mode, so that emacsclient works -(server-start) +;; ;;(server-start) -(defun ff/raise-frame-and-give-focus () - (when window-system - (raise-frame) - (x-focus-frame (selected-frame)) - (set-mouse-pixel-position (selected-frame) 4 4) - )) +;; (defun ff/raise-frame-and-give-focus () + ;; (when window-system + ;; (raise-frame) + ;; (x-focus-frame (selected-frame)) + ;; (set-mouse-pixel-position (selected-frame) 4 4) + ;; )) -;; Raises the window when the server is invoked +;; ;; Raises the window when the server is invoked + +;; (add-hook 'server-switch-hook 'ff/raise-frame-and-give-focus) + +(defun ff/black-current-file () (interactive) + (save-buffer) + (shell-command (concat "black " (buffer-file-name))) + (revert-buffer nil t) +) -(add-hook 'server-switch-hook 'ff/raise-frame-and-give-focus) +(define-key ff/map [(control b)] 'ff/black-current-file)