From b01b564e2f6c23ab0b5440c7473c724901c600f5 Mon Sep 17 00:00:00 2001
From: Francois Fleuret <francois@fleuret.org>
Date: Mon, 13 Aug 2018 08:51:50 +0200
Subject: [PATCH] Update.

---
 emacs.el | 36 ++++++++++++++++++++++--------------
 1 file changed, 22 insertions(+), 14 deletions(-)

diff --git a/emacs.el b/emacs.el
index 1bfffc3..d9d2ec5 100644
--- a/emacs.el
+++ b/emacs.el
@@ -644,6 +644,14 @@ load-warning buffer in case of failure."
 (define-key global-map [(shift down)] 'ff/comment-and-go-down)
 (define-key global-map [(shift up)] 'ff/uncomment-and-go-up)
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(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*")
+)
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Counting various entities in text
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -1209,7 +1217,7 @@ goback argument, go back where we were."
 
 (defun ff/git-pull-push () (interactive)
        (message "git pull / push ...")
-       (shell-command "git pull && git push" nil)
+       (async-shell-command "git pull && git push" nil)
        )
 
 (defun ff/git-pull () (interactive)
@@ -1569,6 +1577,8 @@ universal argument starts xfig even if the .fig does not exist"
 \\setlength{\\parindent}{0cm}
 \\setlength{\\parskip}{12pt}
 \\renewcommand{\\baselinestretch}{1.3}
+%\\setlength{\\tabcolsep}{0pt}
+%\\renewcommand{\\arraystretch}{1.0}
 
 \\def\\argmax{\\operatornamewithlimits{argmax}}
 \\def\\argmin{\\operatornamewithlimits{argmin}}
@@ -1788,18 +1798,15 @@ require 'optim'
   (goto-char (point-min))
   (insert "#!/usr/bin/env python-for-pytorch
 
-import torch, torchvision
-
 import math
 
-from torch import nn
-from torch.nn import functional as F
+import torch, torchvision
 
 from torch import Tensor
 from torch import Tensor as T
 
-from torch.autograd import Variable
-from torch.autograd import Variable as V
+from torch import nn
+from torch.nn import functional as F
 from torch.nn.parameter import Parameter
 from torch.nn import Module
 
@@ -2677,12 +2684,12 @@ with a time tag, and save this file"
          (error "No file attached to this buffer")))
 
 (defun ff/insert-date (&optional universal) (interactive "P")
-       ;; (insert (format-time-string "\n * %Y %b %d %H:%M:%S\n\n" (current-time)))
-       ;; (insert (format-time-string "%Y %b %d %H:%M:%S" (current-time)))
-       ;; (insert (format-time-string "%d.%m.%y" (current-time)))
-       (if universal
-           (insert (format-time-string "%d.%m.%Y %H:%M:%S" (current-time)))
-         (insert (format-time-string "%d.%m.%Y" (current-time))))
+       (insert (format-time-string "\n * %H:%M:%S %A %B %d, %Y\n\n" (current-time)))
+       ;; ;; (insert (format-time-string "%Y %b %d %H:%M:%S" (current-time)))
+       ;; ;; (insert (format-time-string "%d.%m.%y" (current-time)))
+       ;; (if universal
+           ;; (insert (format-time-string "%d.%m.%Y %H:%M:%S" (current-time)))
+         ;; (insert (format-time-string "%d.%m.%Y" (current-time))))
        )
 
 (define-key ff/map [(control g)] 'ff/git-status)
@@ -2698,7 +2705,8 @@ with a time tag, and save this file"
 (define-key ff/map [(control a)] 'auto-fill-mode)
 (define-key ff/map [(control i)] 'ff/system-info)
 (define-key ff/map "w" 'ff/word-occurences)
-(define-key ff/map [(control c)] 'calendar)
+;; (define-key ff/map [(control c)] 'calendar)
+(define-key ff/map [(control c)] 'ff/show-compilation-buffer-split-window)
 ;; (define-key ff/map [(control c)] (lambda () (interactive) (save-excursion (calendar))))
 (define-key ff/map [(control l)] 'goto-line)
 (define-key ff/map "l" 'longlines-mode)
-- 
2.20.1