Fun about emacs and linux

(defun +git-push(dir)
  "Run git push in a specific directory"
  (interactive)
  (with-dir dir
            (shell-command "git add .")
            (--> (format-time-string "%Y-%m-%d %H:%M" (current-time))
                 (concat "git commit -m \"" it "\"")
                 (shell-command it))
            (shell-command "git push")))

;;; git sync
;;;###autoload
(defun +git-pull(dir)
  "Run git push in a specific directory"
  (interactive)
  (with-dir dir
            (shell-command "git pull")))

(+general-global-menu! "file" "f"
  "f" '(:ignore t :which-key "find file")
  "S" '((lambda () (interactive)
	  (progn
	    (+git-push "~/EnvSetup")
	    (+git-push "~/.scratch.emacs.d")
	    (+git-push "~/.evil.emacs.d")
	    (+git-push "~/org")
	    )) :which-key "push fundamental repos")
  "s" '((lambda () (interactive)
	  (progn
	    (+git-pull "~/EnvSetup")
	    (+git-pull "~/.scratch.emacs.d")
	    (+git-pull "~/.evil.emacs.d")
	    (+git-pull "~/org")
	    )) :which-key "pull fundamental repos"))

mount /dev/sda3 /mnt/sda3
mount -t bind /proc /proc
mount -t bind /dev /dev
sudo chroot /mnt/sda3 /bin/bash