Open new terminal in current folder from emacs

Xsession/.xprofile

@@ -2,3 +2,4 @@
 setxkbmap us altgr-intl -option ctrl:nocaps
 #xmodmap ~/.Xmodmap
 #source ~/.xinitrc
+export XTERMINAL='termite'

emacs/.emacs.d/init.el

@@ -687,6 +687,7 @@
             )
   )
 
+(setq PREVSHELL (getenv "SHELL")) ;; Workaround for tramp
 (eval-after-load 'tramp '(setenv "SHELL" "/bin/bash"))
 (setq tramp-default-method "ssh")
 
@@ -709,5 +710,14 @@
 (setenv "PATH" (concat (getenv "PATH") ":" (getenv "HOME") "/.bin" ":" (getenv "HOME") "/.local/bin"))
 (setq exec-path (append exec-path (list (concat (getenv "HOME") "/.bin") (concat (getenv "HOME") ".local/bin") "/usr/bin")))
 
+;; Launch terminal
+
+(defun open-terminal ()
+  (interactive)
+  (call-process (or (getenv "XTERMINAL") "xterm") nil 0 nil "-e" PREVSHELL))
+;; This does not work: (concat "echo -c 'cd " default-directory "'"))
+
+(global-set-key (kbd "C-c t") 'open-terminal)
+
 (provide '.init)
 ;;; init.el ends here

zsh/.zprofile

@@ -18,7 +18,7 @@ fi
 #
 
 export EDITOR='vi'
-export VISUAL="myemacs -t"
+export VISUAL="myemacs -c"
 export ALTERNATE_EDITOR=""
 export PAGER='less'