From f6955bc9a0216e527bf0fc9a4554d5ceda1333fe Mon Sep 17 00:00:00 2001
From: Julin S <julinshaji01@gmail.com>
Date: Thu, 29 Jul 2021 12:17:34 +0530
Subject: [PATCH] change default view of proof general

---
 emacs/.emacs         | 51 ++++++++++++++++++++++++++++++++++----------
 nvim/init.vim        |  4 +++-
 vim/digraph_defs.vim |  4 ++++
 3 files changed, 47 insertions(+), 12 deletions(-)

diff --git a/emacs/.emacs b/emacs/.emacs
index 7b8fca6..d86b524 100644
--- a/emacs/.emacs
+++ b/emacs/.emacs
@@ -2,21 +2,22 @@
 (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
 (package-initialize)
 
-; Activate Evil mode
-;; https://www.emacswiki.org/emacs/Evil
+
+;; Activate Evil mode
+; https://www.emacswiki.org/emacs/Evil
 (require 'evil)
-(evil-mode 1)
+(evil-mode t)
 
 
 (setq-default word-wrap t)
 
 
-; Display current column
-;; https://www.gnu.org/software/emacs/manual/html_node/efaq/Displaying-the-current-line-or-column.html
+;; Display current column
+; https://www.gnu.org/software/emacs/manual/html_node/efaq/Displaying-the-current-line-or-column.html
 (setq column-number-mode t)
 
 
-; Set default encoding as UTF-8
+;; Set default encoding as UTF-8
 (set-terminal-coding-system 'utf-8)
 
 
@@ -24,8 +25,8 @@
 (setq inhibit-startup-screen t)
 
 
-; Scroll buffer without moving cursor
-;; https://www.emacswiki.org/emacs/Scrolling#h5o-2
+;; Scroll buffer without moving cursor
+; https://www.emacswiki.org/emacs/Scrolling#h5o-2
 (defun gcm-scroll-down ()
   (interactive)
   (scroll-up 1))
@@ -34,11 +35,39 @@
   (interactive)
   (scroll-down 1))
 
+; C-Down scroll down without moving cursor
 (global-set-key [(control down)] 'gcm-scroll-down)
+
+; C-Up scroll up without moving cursor
 (global-set-key [(control up)]   'gcm-scroll-up)
 
 
-; Zooming
+;; Zooming
 ; https://stackoverflow.com/questions/5533110/emacs-zoom-in-zoom-out
-(global-set-key [C-mouse-4] 'text-scale-increase)  ; scroll up
-(global-set-key [C-mouse-5] 'text-scale-decrease)  ; scroll down
+
+; zoom in with mouse scroll up
+(global-set-key [C-mouse-4] 'text-scale-increase)
+
+; zoom out with mouse scroll down
+(global-set-key [C-mouse-5] 'text-scale-decrease)
+
+
+;; shortcuts only for proofgeneral mode
+(eval-after-load "proof-script"
+  '(setq proof-three-window-mode-policy 'hybrid))
+
+
+;; tab-bar
+; https://www.emacswiki.org/emacs/TabBarMode
+; https://github.com/noctuid/evil-guide
+; https://stackoverflow.com/a/7790759
+(when (require 'tab-bar nil 'noerror)
+  (setq tab-bar-show 1)  ; hide tab bar when there's only one tab
+  (evil-ex-define-cmd "tabc[lose]" 'tab-bar-close-tab)
+  (evil-ex-define-cmd "tabon[ly]" 'tab-bar-close-other-tabs))
+
+
+;; Show emacs startup time
+(add-hook 'emacs-startup-hook
+  (lambda ()
+    (message (format "Emacs started in %s" (emacs-init-time)))))
diff --git a/nvim/init.vim b/nvim/init.vim
index d2ae078..a02df56 100644
--- a/nvim/init.vim
+++ b/nvim/init.vim
@@ -3,13 +3,15 @@ call plug#begin('~/.config/nvim/plugged')
 
 " Make sure you use single quotes
 Plug 'whonore/Coqtail'
-Plug 'joom/latex-unicoder.vim'
+"Plug 'joom/latex-unicoder.vim'
 
 " Initialize plugin system
 call plug#end()
 
 source ~/.vimrc
 
+se nohls
+
 " Coqtail stuff
 let @i=":CoqJumpToEnd | call append('.', ['(* -- AUTO OUTPUT (Info) --'] + getbufline(b:coqtail_panel_bufs['info'], 1, '$') + ['*)'])
"
 
diff --git a/vim/digraph_defs.vim b/vim/digraph_defs.vim
index 17626d9..7425a81 100644
--- a/vim/digraph_defs.vim
+++ b/vim/digraph_defs.vim
@@ -2,6 +2,10 @@
 " https://en.wikipedia.org/wiki/Mathematical_operators_and_symbols_in_Unicode
 " https://github.com/joom/latex-unicoder.vim/blob/master/autoload/unicoder.vim
 
+"" Currency
+digr Rs 8360  " ₨  
+digr rs 8377  " ₹ (INR)
+
 
 "" Set theory
 digr )- 8713  " ∉