emacs/.emacs

;;; 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 . 35)(left . 10)
			    (width . 80)(height . 45)))
;; Opacity
(set-frame-parameter (selected-frame) 'alpha '(85 . 50))
(add-to-list 'default-frame-alist '(alpha . (90 . 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-18"))
;;+++++++
;;auctex:
(is-installed 'auctex)
(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)
;;Use brew upgrade pdf-tools instead.
(setq pdf-info-epdfinfo-program "/usr/local/bin/epdfinfo")
(pdf-tools-install)
(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)))
(setq TeX-source-correlate-method 'synctex)
;;--end----
;;++++++++
;; 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
;;---------
;;Dashboard
(is-installed 'dashboard)
(require 'dashboard)
(dashboard-setup-startup-hook)
;; Set the title
(setq dashboard-banner-logo-title "Welcome to Emacs Marx")
;; Set the banner
(setq dashboard-startup-banner 'logo)
;; Value can be
;; 'official which displays the official emacs logo
;; 'logo which displays an alternative emacs logo
;; 1, 2 or 3 which displays one of the text banners
;; "path/to/your/image.gif", "path/to/your/image.png" or "path/to/your/text.txt" which displays whatever gif/image/text you would prefer
;; Content is not centered by default. To center, set
(setq dashboard-center-content nil)
;; To disable shortcut "jump" indicators for each section, set
(setq dashboard-show-shortcuts nil)
(setq dashboard-items '((recents  . 5)
                        (bookmarks . 5)
                        (projects . 5)
                        (agenda . 5)
                        (registers . 5)))
;;========
;;Flyspell
(setq ispell-program-name "/usr/local/bin/aspell")
;(setq ispell-aspell-data-dir "/usr/local/Cellar/ispell/3.4.04/lib/ispell/")
;(setq ispell-aspell-dict-dir ispell-aspell-data-dir)
(dolist (hook '(text-mode-hook))
  (add-hook hook (lambda () (flyspell-mode 1))))
;; ==========
;; ORG files:
(is-installed 'org-ref)
(is-installed 'org-ref)
(setq org-latex-pdf-process (list "latexmk -shell-escape -bibtex -f -pdf %f"))
(setq org-latex-prefer-user-labels t)
(is-installed 'org-bullets)
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
;;(plist-put org-format-latex-options :scale 1.5)
;;(setq org-format-latex-options (plist-put org-format-latex-options :scale 2.0))
 ; inline images
;;(setq org-image-actual-width nil)
(setq shr-max-image-proportion 0.5)
; source blocks no confirmation to run
(setq org-confirm-babel-evaluate nil)
;; languages for source blocks
(org-babel-do-load-languages
 'org-babel-load-languages
 '((emacs-lisp . t)
   (shell . t)  ; in my case /bin/bash
;   (scheme . t)
   (python . t)
;   (ledger . t)
;   (sed . t)
;   (awk . t)
;   (clojure . t)
   ))
;;keybindings in org-mode
(define-key org-mode-map (kbd "C-<tab>") 'completion-at-point)
;; ==========
;; TRMAP
(eval-after-load 'tramp '(setenv "SHELL" "/bin/bash"))
;;=========
;;Shell
(setq-default explicit-shell-file-name "/bin/bash")
(define-key shell-mode-map (kbd "<tab>") 'completion-at-point)
;; =========
;; 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))
;; ========
;; docker
(is-installed 'docker-compose-mode)
(require 'docker-compose-mode)
;;========
;;Neotree
(is-installed 'neotree)
(require 'neotree)
(global-set-key [f8] 'neotree-toggle)
;;========
;; auto-complete
(is-installed 'auto-complete)
(ac-config-default)
;;=======
;; Python completion:
(is-installed 'corfu)
(corfu-global-mode t)

;;=======
;; 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")
;;--------
;;ace-windows:
(is-installed 'ace-window)
(global-set-key (kbd "M-o") 'ace-window)
;;--------
;;avy
(is-installed 'avy)
(global-set-key (kbd "C-:") 'avy-goto-char)
(global-set-key (kbd "M-l") 'avy-goto-line)
(global-set-key (kbd "C-'") 'avy-goto-char-2)
(global-set-key (kbd "M-g w") 'avy-goto-word-1)
;;--------
;;multiple-cursors
(is-installed '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)
;;-=-=-=-=-=-=-=
(is-installed 'browse-kill-ring)
(require 'browse-kill-ring)
(browse-kill-ring-default-keybindings)
;;+0+0+0+0+0+0+
;; MacOS only:
(is-installed 'osx-dictionary)
(global-set-key (kbd "C-c d") 'osx-dictionary-search-word-at-point) ;; Key bindings
;;+0+0+0+0+0+0+0+
;;-+-+-+-+-+-+-+-
;; My functions gmarx:
(defun python-shell-send-chunk ()
  (interactive)
  (save-excursion
    (mark-paragraph)
    (let ((start (region-beginning))
	(end (region-end)))
      (python-shell-send-region start end))
    (keyboard-quit)))
;; my keybindings:
(global-set-key (kbd "C-c C-k") 'python-shell-send-chunk)
;;Pomodoro
;;(is-installed 'org-pomodoro)
;;(pomodoro-add-to-mode-line)
;;==========
(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.
 '(LaTeX-command "latex -synctex=1")
 '(custom-safe-themes
   '("4bca89c1004e24981c840d3a32755bf859a6910c65b829d9441814000cf6c3d0" "f2927d7d87e8207fa9a0a003c0f222d45c948845de162c885bf6ad2a255babfd" "8f5a7a9a3c510ef9cbb88e600c0b4c53cdcdb502cfe3eb50040b7e13c6f4e78e" "d74c5485d42ca4b7f3092e50db687600d0e16006d8fa335c69cf4f379dbd0eee" "5b809c3eae60da2af8a8cfba4e9e04b4d608cb49584cb5998f6e4a1c87c057c4" "0fe24de6d37ea5a7724c56f0bb01efcbb3fe999a6e461ec1392f3c3b105cc5ac" "aaa4c36ce00e572784d424554dcc9641c82d1155370770e231e10c649b59a074" "08a27c4cde8fcbb2869d71fdc9fa47ab7e4d31c27d40d59bf05729c4640ce834" "f4876796ef5ee9c82b125a096a590c9891cec31320569fc6ff602ff99ed73dca" "7a994c16aa550678846e82edc8c9d6a7d39cc6564baaaacc305a3fdc0bd8725f" "c4bdbbd52c8e07112d1bfd00fee22bf0f25e727e95623ecb20c4fa098b74c1bd" "e074be1c799b509f52870ee596a5977b519f6d269455b84ed998666cf6fc802a" "4a8d4375d90a7051115db94ed40e9abb2c0766e80e228ecad60e06b3b397acab" "75b8719c741c6d7afa290e0bb394d809f0cc62045b93e1d66cd646907f8e6d43" "e3c64e88fec56f86b49dcdc5a831e96782baf14b09397d4057156b17062a8848" default))
 '(org-agenda-files
   '("~/ownCloud/projects/iProjects.org" "~/ownCloud/projects/postdoctorado/postdoctorado.org" "~/ownCloud/projects/phd/phd.org" "~/ownCloud/org/linux.org" "~/ownCloud/org/iDesiIng.org"))
 '(package-selected-packages
   '(browse-kill-ring dashboard org-bullets org-pomodoro pomodoro corfu company-anaconda company-jedi anaconda-mode which-key use-package pyvenv pkg-info org-ref neotree markdown-mode jedi helm-projectile doom-themes doom-modeline docker-compose-mode auctex))
 '(pdf-tools-handle-upgrades nil)
 '(safe-local-variable-values
   '((org-attach-preferred-new-method . ask)
     (display-line-numbers . t)
     (LaTeX-includegraphics-read-file . LaTeX-includegraphics-read-file-relative)
     (org-attach-use-inheritance . t)
     (org-attach-id-dir . /Users/gmarx/ownCLoud/org/phd/)
     (org-attach-id-dir . /Users/gmarx/ownCloud/org/phd/)
     (org-startup-folded . "fold")
     (org-startup-folded . fold)
     (org-startup-folded . t)
     (gnus-group-uncollapsed-levels)
     (gnus-group-uncollapsed-levels . t)
     (org-todo-keywords
      (sequence "Marx" "Luis" "Pascual" "Osvaldo" "DONE"))
     (org-todo-keywords
      (sequence "Marx" "Luis" "Pascual" "Osvaldo" | "DONE"))
     (org-todo-keywords
      (type "Marx" "Luis" "Pascual" "Osvaldo" | "DONE"))
     (org-todo-keywords quote
			((type "Marx" "Luis" "Pascual" "Osvaldo" | "DONE"))))))

(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.
 )