;;; init.el --- for MacBook Pro 16
;;; Commentary:
(require 'package)
(setq package-archives
      '(("gnu" . "http://elpa.gnu.org/packages/")
	("melpa" . "http://melpa.org/packages/")
	("org" . "http://orgmode.org/elpa/")))
(package-initialize)
(when (not package-archive-contents)
  (package-refresh-contents))

;; for use-package
(unless (package-installed-p 'use-package)
  (package-install 'use-package))
(require 'use-package)
(setq use-package-always-ensure t)

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


;; Material theme
(load-theme 'material t) ;; require material-theme

;; doom modeline
(use-package doom-modeline
  :init (doom-modeline-mode 1))

;; No startup message
(setq inhibit-startup-message t)

;; no backup files
(setq make-backup-files nil)
(setq auto-save-default nil)

;; Delete auto-save files
(setq delete-auto-save-files nil)

;; columm and line number
(column-number-mode t)

;; 1-line scroll
(setq scroll-conservatively 1)

;; silence bell
(setq ring-bell-function 'ignore)

;; dired
(require 'dired-x)

;; yes or no to y or n
(fset 'yes-or-no-p 'y-or-n-p)

;; hide menu/tool bar
(menu-bar-mode 0)
(tool-bar-mode 0)

;; rainbow-delimiters
(use-package rainbow-delimiters
  :hook (prog-mode . rainbow-delimiters-mode))

;; Blink corresponding paren
(show-paren-mode 1)

;; visualize indent
(use-package highlight-indent-guides
  :config
  (add-hook 'prog-mode-hook 'highlight-indent-guides-mode)
  :custom
  (highlight-indent-guides-method 'column))

;; key binding hint
(use-package which-key
  :defer 0
  :config
  (which-key-mode)
  (setq which-key-idle-delay 0.3))

;; add to load-path
(add-to-list 'load-path "~/.emacs.d/site-lisp")

;; for faster movements between windows
(global-set-key (kbd "M-o") 'other-window)

;; ====== undo ==========================================

;; visual undo-tree for emacs-28
(use-package vundo
  :bind (("C-x u" . vundo)
	 ("C-/" . undo-only)
	 ("C-?" . undo-redo))
  :config
  (setq vundo-glyph-alist vundo-ascii-symbols))

;; ====== for mac ===========================================

(use-package exec-path-from-shell
  :ensure t
  :config
  (when (memq window-system '(mac ns x))
    (exec-path-from-shell-initialize)))

;; font settings for MacBook Pro 16
(if (display-graphic-p)
    (set-face-attribute 'default nil :height 160))
(if (window-system)
    (set-frame-height (selected-frame) 44))

;; ====== completion ========================================

;; better candidate filtering (was orderless)
(use-package fussy
  :ensure t
  :config
  (push 'fussy completion-styles)
  (setq
   completion-category-defaults nil
   completion-category-overrides nil))

;; Corfu integration
(advice-add 'corfu--capf-wrapper :before 'fussy-wipe-cache)
(add-hook 'corfu-mode-hook
	  (lambda ()
	    (setq-local fussy-max-candidate-limit 5000
			fussy-default-regex-fn 'fussy-pattern-first-letter
			fussy-prefer-prefix nil)))
;; eglot intgration
(with-eval-after-load 'eglot
  (add-to-list 'completion-category-overrides
	       '(eglot (styles fussy basic))))

;; vertico - vertial completion
(use-package vertico
  :init (vertico-mode 1)
  :config (setq vertico-count 14))
(use-package savehist
  :init (savehist-mode 1))

;; marginalia - rich annotations
(use-package marginalia
  :init (marginalia-mode))
(use-package all-the-icons  ;; M-x all-the-icons-install-fonts required
  :if (display-graphic-p))
(use-package all-the-icons-completion
  :after (marginalia all-the-icons)
  :hook (marginalia-mode . all-the-icons-completion-marginalia-setup)
  :init (all-the-icons-completion-mode))

;; consult - preview everything
(use-package consult
  :bind (("C-x b" . consult-buffer)
	 ("M-g g" . consult-goto-line) ;; line number
	 ("M-g o" . consult-outline)
	 ("M-s f" . consult-find)
	 ("M-s l" . consult-line)  ;; key word
	 ("M-s g" . consult-grep)))

;; corfu - in-buffer completion with a small popup
;; (use-package corfu-terminal
;;   :ensure t
;;   :if (not (display-graphic-p))
;;   :config
;;   (corfu-terminal-mode +1))

(use-package corfu
  :ensure t
  :custom ((corfu-auto t)
	   (corfu-auto-prefix 2)
	   (corfu-auto-delay 0.4)
	   (corfu-cycle t))
  :init
  (global-corfu-mode)
  (corfu-popupinfo-mode))

;; completion-at-point extensions
(use-package cape
  :ensure t
  :init
  ;; Add `completion-at-point-functions', used by `completion-at-point'.
  (add-to-list 'completion-at-point-functions #'cape-file)
  (add-to-list 'completion-at-point-functions #'cape-dabbrev)
  ;; (add-to-list 'completion-at-point-functions #'cape-history)
  (add-to-list 'completion-at-point-functions #'cape-keyword)
  ;; (add-to-list 'completion-at-point-functions #'cape-tex)
  ;; (add-to-list 'completion-at-point-functions #'cape-sgml)
  ;; (add-to-list 'completion-at-point-functions #'cape-rfc1345)
  ;; (add-to-list 'completion-at-point-functions #'cape-abbrev)
  ;; (add-to-list 'completion-at-point-functions #'cape-ispell)
  ;; (add-to-list 'completion-at-point-functions #'cape-dict)
  ;; (add-to-list 'completion-at-point-functions #'cape-symbol)
  ;; (add-to-list 'completion-at-point-functions #'cape-line)
)

;; ====== org-mode settings =================================

;; Modern-looking org-mode (requires installing org-modern)
(use-package org-modern
  :hook (org-mode . org-modern-mode))

;; hide emphasis markup
(setq org-hide-emphasis-markers t)

;; disable org-mode truncate-lines
(add-hook 'org-mode-hook
	  (lambda () (setq truncate-lines nil)))

;; Suppress auto-indent for org-mode
(add-hook 'org-mode-hook (lambda () (electric-indent-local-mode -1)))

;; org-mode export github-flavored markdown
;;(eval-after-load "org"
;;  '(require 'ox-gfm nil t))

;; enable shortcuts such as <s + TAB
(require 'org-tempo)

;; Add to TODO status
(setq org-todo-keywords
      '((sequence "<TODO>(t)" "<WAIT>(w)" "|" "<DONE>(d)" "<CANCEL>(c)")))

;; ====== eglot ============================================

;; Flycheck
(use-package flycheck
  :init
  (add-hook 'after-init-hook 'global-flycheck-mode))
(use-package flycheck-inline
  :init
  (with-eval-after-load 'flycheck
    (add-hook 'flycheck-mode-hook #'flycheck-inline-mode)))
(use-package flycheck-eglot
  :ensure t
  :after (flyckeck eglot)
  :config
  (global-flycheck-eglot-mode 1))

;; black
(use-package blacken
  :config
  (add-hook 'python-mode-hook 'blacken-mode))

;; suppress warnings (is this needed?)
(setq python-indent-guess-indent-offset-verbose nil)

;; pyvenv
(use-package pyvenv
  :config
  (pyvenv-mode 1))

;; eglot - lsp client
(setq lsp-java-server-install-dir "/Users/kachiwa/.emacs.d/share/eclipse.jdt.ls")

(use-package eglot
  :hook
  (python-mode . eglot-ensure)
  (js-mode . eglot-ensure))
;;  (org-mode . eglot-ensure)
;;  :config
;;  (add-to-list 'eglot-server-programs
;;	       '(org-mode . ("efm-langserver"))))

;;(use-package python-mode
;;  :ensure nil
;;  :hook
;;  (python-mode . eglot-ensure))

;;  (js-mode . eglot-ensure))

;; (use-package eglot
;;   :ensure t
;;   :hook
;;   ((python-mode . eglot-ensure))
;;   :config
;;   (add-to-list 'eglot-server-programs
;; 	       '(python-mode . ("pylsp")))
;;   (setq-default eglot-workspace-configuration
;;                 '((:pylsp . (:configurationSources ["flake8"] :plugins (:pycodestyle (:enabled nil) :mccabe (:enabled nil) :flake8 (:enabled t)))))))

;; ====== for java =========================================

(add-hook 'java-mode-hook 'eglot-java-mode)
(add-hook 'eglot-java-mode-hook
	  (lambda ()
	    (define-key eglot-java-mode-map (kbd "C-c l n") #'eglot-java-file-new)
	    (define-key eglot-java-mode-map (kbd "C-c l x") #'eglot-java-run-main)
	    (define-key eglot-java-mode-map (kbd "C-c l t") #'eglot-java-run-test)
	    (define-key eglot-java-mode-map (kbd "C-c l N") #'eglot-java-project-new)
	    (define-key eglot-java-mode-map (kbd "C-c l T") #'eglot-java-project-build-task)
	    (define-key eglot-java-mode-map (kbd "C-c l R") #'eglot-java-project-build-refresh)))

(setq lsp-java-server-install-dir "/Users/kachiwa/.emacs.d/share/eclipse.jdt.ls")

;; ====== for tramp mode ===================================

;; use rsync for copying
(use-package dired-rsync
  :config
  (bind-key "C-c C-r" 'dired-rsync dired-mode-map))

;; need this for eglot to find pylsp in a remote server
(add-to-list 'tramp-remote-path 'tramp-own-remote-path)

;; for M-x shell
(add-to-list 'tramp-connection-properties
	     (list (regexp-quote "/sshx:user@host:")
		   "remote-shell" "/bin/bash"))


;; ====== email =============================================

(use-package notmuch
  :commands notmuch-hello
  :bind (("C-c m" . notmuch-hello)))
(setq notmuch-command "~/bin/remote-notmuch.sh")

(setq message-send-mail-function 'smtpmail-send-it
      smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))
      smtpmail-auth-credentials '(("smtp.gmail.com" 587 "achiwa912@gmail.com" nil))
      smtpmail-default-smtp-server "smtp.gmail.com"
      smtpmail-smtp-server "smtp.gmail.com"
      smtpmail-smtp-service 587
      starttls-use-gnutls t
      )

;; ====== journal ==========================================

(use-package org-journal
  :ensure t
  :defer t
  :custom
  (org-journal-dir "~/py/memo/journal")
  (org-journal-date-format "%A, %d %B %Y")
  (org-journal-file-format "%Y%m%d.org")
  (org-journal-file-type 'monthly))

(global-set-key (kbd "C-c j") 'org-journal-new-entry)

(pixel-scroll-precision-mode)

;;; init.el ends here