(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
   '(notmuch org-modern doom-modeline doom-modelie highlight-indent-guides flycheck-inline flyckeck-inline eglot magit dired-rsync exec-path-from-shell consult all-the-icons-completion all-the-icons marginalia vertico orderless which-key rainbow-delimiters org-superstar ox-gfm flycheck org-download material-theme better-defaults)))
(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)

;; 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")

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

;; better candidate filtering
(use-package orderless
  :custom
  (completion-styles '(orderless basic))
  (completion-category-overrides '((file (styles basic partial-completion)))))

;; 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)))

;; company - completions using small popups
(use-package company
  :init
  (global-company-mode)
  (setq company-idle-delay 0.4)
  (setq company-minimum-prefix-length 1)
  (setq company-transformers '(company-sort-by-occurrence))
  (add-hook 'shell-mode-hook (lambda () (company-mode -1)) 'append)
  (add-hook 'eshell-mode-hook (lambda () (company-mode -1)) 'append)
  :bind
  (:map company-active-map
              ("C-n". company-select-next)
              ("C-p". company-select-previous)
              ("M-<". company-select-first)
              ("M->". company-select-last)))
;;  (:map company-mode-map
;;        ("<tab>". tab-indent-or-complete)
;;        ("TAB". tab-indent-or-complete)))
;;(add-hook 'shell-mode-hook (lambda () (company-mode -1)) 'append)
;;(add-hook 'eshell-mode-hook (lambda () (company-mode -1)) 'append)

;; disable company completion of *all* remote filenames, whether   
;; connected or not
;;(defun company-files--connected-p (file)
;;  (not (file-remote-p file)))

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

;; Nice bullets
;;(use-package org-superstar
;;  :after org
;;  :hook (org-mode . org-superstar-mode))

;; 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)))
(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)")))

;; org-mode export to qiita-flavored markdown
;;(require 'ox-qmd)

;; org-download
;;(require 'org-download)
;;(setq-default org-download-image-dir "~/Documents/AW/orgimages")
;;(add-hook 'dired-mode-hook 'org-download-enable)
;;
;;(setq org-startup-with-inline-images t)

;; ====== python ============================================

;; 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)))

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

;; suppress warnings
(setq python-indent-guess-indent-offset-verbose nil)

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

;; eglot - lsp client
(use-package eglot)
(add-to-list 'eglot-server-programs
               '(python-mode "pylsp"))
(use-package python-mode
  :ensure nil
  :hook
  (python-mode . eglot-ensure))

;; elpy
;;(elpy-enable)
;;(setq elpy-rpc-virtualenv-path 'current)
;; black
;;(add-hook 'elpy-mode-hook (lambda ()
;;                          (add-hook 'before-save-hook
;;                                    'elpy-black-fix-code nil t)))
;; Flycheck
;;(when (require 'flycheck nil t)
;;  (setq elpy-modules (delq 'elpy-module-flymake elpy-modules))
;;  (add-hook 'elpy-mode-hook 'flycheck-mode))
;; autopep8
;;(require 'py-autopep8)
;;(add-hook 'elpy-mode-hook 'py-autopep8-enable-on-save)

;; ====== 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)

;; ====== font settings =====================================

(if (display-graphic-p)
    (set-face-attribute 'default nil :height 160))

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

(when (memq window-system '(mac ns x))
  (exec-path-from-shell-initialize))

;; This works for copying, but not pasting for some reason
;;(setq select-enable-clipboard t)

;; Whatever... it's easy enough to implement that part ourselves
;;(setq interprogram-paste-function
;;      (lambda ()
;;        (shell-command-to-string "pbpaste")))

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

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

;;(setq user-full-name "<Your Name>")
;;(setq user-mail-address "<メールアドレス>@gmail.com")
;;(setq message-directory "~/mail"
;;      notmuch-fcc-dirs nil
;;      read-mail-command (quote notmuch)
;;      message-citation-line-format "On %a, %b %d, %Y at %R, %f wrote:"
;;      message-citation-line-function 'message-insert-formatted-citation-line
;;      )

(setq message-send-mail-function 'smtpmail-send-it
      smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))
      smtpmail-auth-credentials '(("smtp.gmail.com" 587 "<メールアドレス>@gmail.com" nil))
      smtpmail-default-smtp-server "smtp.gmail.com"
      smtpmail-smtp-server "smtp.gmail.com"
      smtpmail-smtp-service 587
      starttls-use-gnutls t
      )