From: Francois Fleuret Date: Mon, 13 Aug 2018 06:51:50 +0000 (+0200) Subject: Update. X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=b01b564e2f6c23ab0b5440c7473c724901c600f5;p=elisp.git Update. --- 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)