init.el

;; package-refresh-contents if fails
(require 'package)
;; (setq package-enable-at-startup nil)
(add-to-list 'package-archives
             '("melpa" . "https://melpa.org/packages/"))

(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/") t) ; Org-mode's repository

;; DEBUG errors
;;(setq max-specpdl-size 5)
;;(setq max-lisp-eval-depth 10000)
;;(setq debug-on-error t)
;;(toggle-debug-on-quit t)


(package-initialize)

(setq package-check-signature nil)

(setq tramp-default-method "ssh")

;; If this fails , use local version of use-package
;;
;; Bootstrap `use-package'
(unless (package-installed-p 'use-package)
  (package-refresh-contents)
  (package-install 'use-package))

;; This is only needed once, near the top of the file
(eval-when-compile
  ;; Following line is not needed if use-package.el is in ~/.emacs.d
  ;; (add-to-list 'load-path "~/.emacs.d/local/use-package")
  (require 'use-package))

(use-package exec-path-from-shell
  :ensure t
  :config
  (setq exec-path-from-shell-arguments '("-l"))
  (exec-path-from-shell-initialize)
  (exec-path-from-shell-copy-envs
   '("GOPATH" "GO111MODULE" "GOPROXY" ;; golang
     "LC_ALL" "LANG" "LC_TYPE"
     "SSH_AGENT_PID" "SSH_AUTH_SOCK" ;; ssh
     "SHELL"
     "GPG_TTY" ;; gpg session
     "NPMBIN"  ;; npm
     ;; Using x11 the .bashrc or .zshrc could have not been sourcered yet
     ;; so it may need this symlink:
     ;; ln -s /home/manu/.nvm/versions/node/v17.5.0/bin/node /usr/bin/node
     )))

(use-package use-package-ensure-system-package
  :ensure t)


(use-package auto-package-update
  :ensure t
  :bind ("C-x P" . auto-package-update-now)
  :config
  (setq auto-package-update-delete-old-versions t))

;; ACTIVATE BENCHMARKS
;; (require 'benchmark-init)
;; (benchmark-init/activate)

;; SHOWING BENCHMARKS
;; (benchmark-init/show-durations-tabulated)
;; (benchmark-init/show-durations-tree)

;; general vars
(setq gc-cons-threshold 100000000 ;; performance
      read-process-output-max (* 1024 1024) ;; 1mb
      use-package-verbose t
      explicit-shell-file-name "/bin/zsh")

;; Restore after startup
(add-hook 'after-init-hook
          (lambda ()
            (setq gc-cons-threshold 1000000)
            (message "gc-cons-threshold restored to %S"
                     gc-cons-threshold)))

(eval-after-load "term"
  '(define-key term-raw-map (kbd "C-c C-y") 'term-paste))

(use-package eyebrowse
  :ensure t
  :init (eyebrowse-mode t))

;; http://www.funtoo.org/Keychain
(use-package keychain-environment
  :ensure t
  :init (keychain-refresh-environment))

(use-package hydra
  :ensure t)

(use-package yasnippet
  :ensure t
  :diminish yas-minor-mode
  :config
  (add-to-list 'load-path
               "~/.emacs.d/snippets")
  (yas-global-mode 1))

(use-package magit
  :ensure t
  :diminish magit-auto-revert-mode
  :diminish auto-revert-mode
  :bind (("C-x g" . #'magit-status))
  :config
  ;; perfomance tips
  (setq magit-commit-show-diff nil)
  (setq magit-refresh-status-buffer nil)
  (setq magit-git-executable "/usr/bin/git"))

;; M-x package-install RET xclip RET
;; (xclip-mode 1)

;; TODO: fix something with the build and the file libegit2.dylib
;; (use-package libgit
;;   :ensure t)

;; (use-package magit-libgit
;;   :ensure t
;;   :after (magit libgit))

;; (use-package forge
;;   :ensure t
;;   :after magit)

(use-package restclient
  :ensure t
  :mode ("\\.restclient$" . restclient-mode))

(use-package general
  :load-path "lisp/")

(use-package tools-edit
  :load-path "lisp/"
  :bind (("C-x c" . manu/comment-or-uncomment-region-or-line)
         ("C-c d" . manu/duplicate-current-line-or-region)))

(use-package appearance
 :load-path "lisp/")

(use-package init-autocomplete
  :load-path "lisp/")

(use-package init-flycheck
  :load-path "lisp/")

(use-package smartparens
  :ensure t
  :config (smartparens-global-mode 1)
  :diminish smartparens-mode)

(use-package custom-org
  :load-path "lisp/")

(use-package web-mode
  :ensure t
  :mode (("\\.phtml\\'" . web-mode)
         ("\\.erb\\'" . web-mode)
         ("\\.mustache\\'" . web-mode)
         ("\\.djhtml\\'" . web-mode)
         ("\\.tmpl\\'" . web-mode)
         ("\\.html\\'" . web-mode))
  :config
  (setq web-mode-markup-indent-offset 4)
  (setq web-mode-enable-current-column-highlight t)
  (setq web-mode-enable-current-element-highlight t))

(use-package rainbow-delimiters
  :ensure t
  :diminish rainbow-delimiters-mode
  :config
  (add-hook 'prog-mode-hook #'rainbow-delimiters-mode))

;; https://emacs.stackexchange.com/questions/38553/dired-missing-from-melpa
;; (use-package dired+
;;   :ensure t
;;   :defer t
;;   :config
;;   (setq diredp-hide-details-initially-flag nil)
;;   (set-face-foreground 'diredp-file-name nil)
;;   ;; Keep dired buffers updated when the file system changes.
;;   (setq global-auto-revert-non-file-buffers t)
;;   (setq auto-revert-verbose nil))

(use-package key-chord
  :ensure t
  :config
  (key-chord-mode 1)
  (key-chord-define-global "--" "_"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;Init config PLs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(use-package init-lsp
 :load-path "lisp/")


(use-package init-lisp
  :load-path "lisp/")


;; FILES MODE
(use-package adoc-mode
  :ensure t
  :mode ("\\.asciidoc\\'" . adoc-mode))


(use-package web-server
  :ensure t
  :defer t)


(use-package markdown-mode
  :ensure t
  :commands (markdown-mode gfm-mode)
  :mode (("README\\.md\\'" . gfm-mode)
         ("CONTRIBUTING\\.md\\'" . gfm-mode)
         ("\\.md\\'" . markdown-mode)
         ("\\.markdown\\'" . markdown-mode))
  :init (setq markdown-command "multimarkdown"))

;; (use-package markdown-preview-mode
;;   :ensure t
;;   :after markdown-mode
;;   :bind (("C-c m p" . markdown-preview-mode);;
;;          ("C-c m o" . markdown-preview-open-browser))
;;   :config
;;   (add-hook 'markdown-mode-hook (lambda () ( markdown-preview-mode 1 )))
;;   (add-hook 'gfm-mode-hook (lambda () ( markdown-preview-mode 1 ))))


(use-package toml-mode
  :ensure t
  :mode ("\\.toml\\'" . toml-mode))


(use-package mustache-mode
  :ensure t
  :mode ("\\.mustache\\'" . mustache-mode))


(use-package rego-mode
  :ensure t
  :mode ("\\.rego\\'" . rego-mode))


(use-package protobuf-mode
  :ensure t
  :mode ("\\.proto\\'" . protobuf-mode))


;; INIT DAEMON SERVER
(require 'server)
(unless (server-running-p)
  (server-start))
(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.
 '(lsp-ui-doc-background ((t (:background "lightyellow")))))
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)
(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.
 '(package-selected-packages
   '(protobuf-mode all-the-icons jsonnet-mode xclip terraform-mode moody flycheck-inline modus-operandi-theme modus-themes spaceline spacemacs-theme doom-themes restclient all-the-icons-dired undo-tree nord-theme whole-line-or-region rego-mode mustache-mode graphql-mode toml-mode web-server adoc-mode flycheck-pos-tip clj-refactor cider inf-clojure company-racer flycheck-rust racer rust-mode add-node-modules-path typescript-mode rjsx-mode dockerfile-mode json-mode yaml-mode python-mode exunit alchemist elixir-mode gotest go-eldoc lsp-ui lsp-mode key-chord rainbow-delimiters web-mode org-roam org-bullets org-beautify-theme htmlize smartparens flycheck-color-mode-line flycheck company-box company-emoji company-statistics company-quickhelp company ns-auto-titlebar zerodark-theme base16-theme memoize which-key projectile-ripgrep ripgrep projectile popwin anzu ido-vertical-mode smex yasnippet hydra keychain-environment eyebrowse exec-path-from-shell auto-package-update use-package-ensure-system-package use-package))
 '(safe-local-variable-values
   '((setq projectile-project-root-functions
           '(projectile-root-local projectile-root-top-down projectile-root-top-down-recurring projectile-root-bottom-up))))
 '(warning-suppress-types '((comp) (comp) (comp) undo discard-info)))