;;; My basic configuration Gerardo Marx 20/May/2021
;; MacOS version
;;--------
;; Melpa repository:
(require 'package)
(add-to-list 'package-archives
	     '("melpa" . "https://melpa.org/packages/")t)
(package-initialize)
;;+++++++++++++
;;function to check installed packages:
(defun is-installed (pack)
  "Check if a package is istalled"
  (unless (package-installed-p pack)
    (package-refresh-contents)
    (package-install pack)))
;;++++++++++++++++
;; use-package
(is-installed 'use-package)
(is-installed 'helm)
(require 'helm-config)
(global-set-key (kbd "M-x") 'helm-M-x)
(global-set-key (kbd "C-x r b") #'helm-filtered-bookmarks)
(global-set-key (kbd "C-x C-f") #'helm-find-files)
(helm-mode 1)
;;++++++++++++
;; which-key
(is-installed 'which-key)
(require 'which-key)
(which-key-mode)

;;+++++++++++++
;; frame size
;;(setq initial-frame-alist '((top . 325)(left . 0)
;;			    (width . 80)(height . 50)))
;;+++++++++++
;; Doom-themes, all-the-icons, mode-line and font
(unless (package-installed-p 'doom-themes)
  (package-install 'doom-themes))
(unless (package-installed-p 'all-the-icons)
  (package-install 'all-the-icons))
(require 'doom-themes)
;; Global settings (defaults)
(setq doom-themes-enable-bold t    ; if nil, bold is universally disabled
      doom-themes-enable-italic t) ; if nil, italics is universally disabled
;; Load the theme (doom-one, doom-molokai, etc); keep in mind that each
;; theme may have their own settings.
(load-theme 'doom-one t)
;; Enable flashing mode-line on errors
(doom-themes-visual-bell-config)
;; Enable custom neotree theme
(doom-themes-neotree-config)  ; all-the-icons fonts must be installed!
;; Installling doom-modeline:
(unless (package-installed-p 'doom-modeline)
  (package-install 'doom-modeline))
(require 'doom-modeline)
(doom-modeline-mode 1)
;;Intalling all-the-icons font:
(unless (package-installed-p 'all-the-icons)
  (package-install 'all-the-icons))
;; Set default font:
(add-to-list 'default-frame-alist
	     '(font . "Source Code Pro-13"))
;;+++++++
;;auctex:
(is-installed 'auctex)
(is-installed 'pdf-tools);; PDFtools
(pdf-tools-install)
(setenv "PATH" (concat "/Library/TeX/texbin:"
                       (getenv "PATH")))
(add-to-list 'exec-path "/Library/TeX/texbin")
(setq TeX-auto-save t)
(setq TeX-save-query nil)
(setq LaTeX-includegraphics-read-file 'LaTeX-includegraphics-read-file-relative)
(setq TeX-parse-self t)
(setq-default TeX-master nil)
(add-hook 'LaTeX-mode-hook 'visual-line-mode)
(add-hook 'LaTeX-mode-hook 'flyspell-mode)
(add-hook 'LaTeX-mode-hook 'LaTeX-math-mode)
(add-hook 'LaTeX-mode-hook 'turn-on-reftex)
(setq reftex-plug-into-AUCTeX t)
(setq TeX-view-program-selection '((output-pdf "PDF Tools"))
      TeX-source-correlate-start-server t)
;; Update PDF buffers after successful LaTeX runs
(add-hook 'TeX-after-compilation-finished-functions
          #'TeX-revert-document-buffer)
(add-to-list 'auto-mode-alist '("\\.pdf\\'" . pdf-view-mode))
(add-hook 'pdf-view-mode-hook
	  (lambda () (pdf-tools-enable-minor-modes)))
(add-hook 'LaTeX-mode-hook 'TeX-source-correlate-mode)
(setq TeX-source-correlate-start-server t)
;(setq TeX-source-correlate-method 'synctex)

;;--end----
;;..............
;;========
;;Flyspell
(setq ispell-program-name "/usr/bin/aspell")
(dolist (hook '(text-mode-hook))
  (add-hook hook (lambda () (flyspell-mode 1))))
;; ==========
;; ORG files:
(is-installed 'org-ref)
(require 'org-ref)
(setq org-latex-pdf-process (list "latexmk -shell-escape -bibtex -f -pdf %f"))
(setq org-latex-prefer-user-labels t)
;;; Crear gráficos con org-mode con ditaa y plantuml
(setq org-plantuml-jar-path
      (expand-file-name "/opt/plantuml.jar"))
(setq org-ditaa-jar-path "/usr/bin/ditaa")
(org-babel-do-load-languages 'org-babel-load-languages '((emacs-lisp . t)
							 (latex . t)
							 (python . t)
							;; (shell . t)
							 (ditaa . t)
							 (plantuml . t)
							 (ipython . t)
							 ))
;; Syntax highlight in #+BEGIN_SRC blocks
(setq org-src-fontify-natively t)
;; Don't prompt before running code in org
(setq org-confirm-babel-evaluate nil)
;; Fix an incompatibility between the ob-async and ob-ipython packages
(setq ob-async-no-async-languages-alist '("ipython"))
(require 'ob-ipython)
(add-hook 'org-babel-after-execute-hook 'org-redisplay-inline-images)
(is-installed 'org-bullets)
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
;(setq org-ditaa-jar-path "/usr/bin/ditaa")
;(is-installed 'ditaa)

;; ==========
;; TRMAP
(eval-after-load 'tramp '(setenv "SHELL" "/bin/bash"))
;;=========
;;Shell
(setq-default explicit-shell-file-name "/bin/bash")
;; =========
;; markdown
(is-installed 'markdown-mode)
 (autoload 'markdown-mode "markdown-mode"
   "Major mode for editing Markdown files" t)
(add-to-list 'auto-mode-alist '("\\.markdown\\'" . markdown-mode))
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))

(autoload 'gfm-mode "markdown-mode"
   "Major mode for editing GitHub Flavored Markdown files" t)
(add-to-list 'auto-mode-alist '("README\\.md\\'" . gfm-mode))
;; ========
;;Neotree
(is-installed 'neotree)
(require 'neotree)
(global-set-key [f8] 'neotree-toggle)
;;=======
;; Python completion:
(is-installed 'anaconda-mode)
(add-hook 'python-mode-hook 'anaconda-mode)
(add-hook 'python-mode-hook 'anaconda-eldoc-mode)
(is-installed 'elpy)
(elpy-enable)
;(add-hook 'python-mode-hook 'jedi:setup)
;(setq jedi:complete-on-dot t) ; optional
;(setq jedi:environment-root "/usr/local/bin/python3")
;;=======
;; Python pyvenv
(is-installed 'pyvenv)
(pyvenv-mode t)
(setenv "WORKON_HOME" "~/.pyvenv/")
;;(setq python-shell-interpreter (concat pyvenv-virtual-env "bin/python3"))					;;(setq python-shell-interpreter "/usr/local/bin/python3")
;;-+-+-+-+-+-+-+-+-+-
;; My functions gmarx 
;; Python chunk:
(defun python-shell-send-chunk ()
  "Eval a region on python console"
  (interactive)
  (save-excursion
    (mark-paragraph)
    (let ((start (region-beginning))
	(end (region-end)))
      (python-shell-send-region start end))
    (keyboard-quit)))
;; my keybindings:
;; requires that only be active on the pytho-hook
(global-set-key (kbd "C-.") 'python-shell-send-chunk)
(global-set-key (kbd "C-,") 'python-shell-send-statement)
;;====================
;; emacs startup config
(setq inhibit-startup-message t) ;;inhibit startup
(global-visual-line-mode t)
(tool-bar-mode -1)
(menu-bar-mode -1)
(global-hl-line-mode +1) ;; highlith current line
(delete-selection-mode +1) ;; deletes selected text and replace it
(scroll-bar-mode -1)
(setq ns-right-alternate-modifier nil) ;; right option macos key enable
(fset 'yes-or-no-p 'y-or-n-p) ;; Ask y/n instead of yes/no
(add-hook 'prog-mode-hook 'display-line-numbers-mode) ;; display line number when programming
(show-paren-mode +1) ;; show matching parentheses

;; 2.6 ace-window
(is-installed 'ace-window)
(global-set-key (kbd "M-o") 'ace-window)
;; 2.7 avy
(is-installed 'avy)
(avy-setup-default)
(global-set-key (kbd "M-g f") 'avy-goto-line)
(global-set-key (kbd "M-g w") 'avy-goto-word-1)

;; 2.8 multiple-cursors
(is-installed 'multiple-cursors)
(require 'multiple-cursors)
(global-set-key (kbd "C-S-c C-S-c") 'mc/edit-lines)
(global-set-key (kbd "C->") 'mc/mark-next-like-this)
(global-set-key (kbd "C-<") 'mc/mark-previous-like-this)
(global-set-key (kbd "C-c C-<") 'mc/mark-all-like-this)
;;---------
;;3 language tools
;;---------------
;; (is-installed 'langtool)
;; (setq langtool-http-server-host "localhost"
;;       langtool-http-server-port 8010)
;; (setq langtool-java-user-arguments '("-Dfile.encoding=UTF-8"))
;; (setq langtool-default-language "en-US")
;; (global-set-key "\C-x4w" 'langtool-check)
;; (global-set-key "\C-x4W" 'langtool-check-done)
;; (global-set-key "\C-x4l" 'langtool-switch-default-language)
;; (global-set-key "\C-x44" 'langtool-show-message-at-point)
;; (global-set-key "\C-x4c" 'langtool-correct-buffer)
;; (defun langtool-autoshow-detail-popup (overlays)
;;   (when (require 'popup nil t)
;;     ;; Do not interrupt current popup
;;     (unless (or popup-instances
;;                 ;; suppress popup after type `C-g` .
;;                 (memq last-command '(keyboard-quit)))
;;       (let ((msg (langtool-details-error-message overlays)))
;;         (popup-tip msg)))))
;; (setq langtool-autoshow-message-function
;;       'langtool-autoshow-detail-popup)
;;---------------
;;4 Grammarly
;; (is-installed 'grammarly)
;; (defun test-on-message (data)
;;   "On message callback with DATA."
;;   (message "[DATA] %s" data))
;; ;; Set callback for receiving data.
;; (add-to-list 'grammarly-on-message-function-list 'test-on-message)
;; ;; Send check text request.
;; (grammarly-check-text "Hello World")
;;-------
;;4.1 Grammarly
(is-installed 'flycheck-grammarly)
(with-eval-after-load 'flycheck
  (flycheck-grammarly-setup))
(setq flycheck-grammarly-check-time 0.8)
;;------
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(custom-safe-themes
   '("613aedadd3b9e2554f39afe760708fc3285bf594f6447822dd29f947f0775d6c" "b0e446b48d03c5053af28908168262c3e5335dcad3317215d9fdeb8bac5bacf9" "e19ac4ef0f028f503b1ccafa7c337021834ce0d1a2bca03fcebc1ef635776bea" "d268b67e0935b9ebc427cad88ded41e875abfcc27abd409726a92e55459e0d01" "745d03d647c4b118f671c49214420639cb3af7152e81f132478ed1c649d4597d" "246a9596178bb806c5f41e5b571546bb6e0f4bd41a9da0df5dfbca7ec6e2250c" "4f1d2476c290eaa5d9ab9d13b60f2c0f1c8fa7703596fa91b235db7f99a9441b" default))
 '(package-selected-packages
   '(flycheck-grammarly grammarly org-bullets multiple-cursors ace-window ipython-shell-send ob-ipython elpy ditaa pyvenv anaconda-mode which-key use-package org-ref neotree markdown-mode doom-themes doom-modeline auctex))
 '(safe-local-variable-values
   '((TeX-auto-save . t)
     (TeX-parse-self . t)
     (org-attach-use-inheritance . t)
     (LaTeX-includegraphics-read-file . LaTeX-includegraphics-read-file-relative))))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )