;; NOTE: Make sure running package-initialize before load this file.

;; Functions

(defalias 'yes-or-no-p 'y-or-n-p)

(defun select-next-window ()

(interactive)

(select-window (next-window (selected-window))))

(defun select-previous-window ()

(interactive)

(select-window (previous-window (selected-window))))

(defun up-down-case-char ()

(interactive)

(set-mark-command ())

(forward-char 1)

(setq myStr (buffer-substring (region-beginning) (region-end)))

(if (string-equal myStr (upcase myStr))

(downcase-region (region-beginning) (region-end))

(upcase-region (region-beginning) (region-end)))

(backward-char 1))

(defun unfill-paragraph () ; by Stefan Monnier (foo at acm.org)

"Takes a multi-line paragraph and makes it into a single line of text."

(interactive)

(let ((fill-column (point-max)))

(fill-paragraph nil)))

(defun eshell-clear () ; by Sailor (http://www.khngai.com/)

"Clear the eshell buffer."

(interactive)

(let ((inhibit-read-only t))

(erase-buffer)))

(defun set-font-size (size)

"Set font size."

(interactive "nSize: ")

(set-face-attribute 'default nil :height (* size 10)))

(defun get-root ()

(string-trim (shell-command-to-string "git rev-parse --show-toplevel")))

(defun real ()

"Open the corresponding file of working directory from a file of a

specific git commit."

(interactive)

(let ((cur-point (point))

(rel-path (substring (buffer-name) 0 (string-match "\\.~" (buffer-name)))))

(find-file (file-name-concat (get-root) rel-path))

(goto-char cur-point)))

;; Default settings

(when my-init-fontset-enabled

(set-fontset-font "fontset-default" 'latin "Cousine")

(set-fontset-font "fontset-default" 'hangul "NanumBarunGothic")

(set-fontset-font "fontset-default" 'symbol "Noto Color Emoji")

(set-fontset-font "fontset-default" 'japanese-jisx0208 "Noto Sans CJK JP")

(set-face-attribute 'default nil :font "fontset-default"))

(setq inhibit-startup-message t)

(setq auto-save-default nil)

(setq auto-save-list-file-name nil)

(setq make-backup-files nil)

(set-language-environment-input-method "Korean")

(prefer-coding-system 'utf-8)

(set-default-coding-systems 'utf-8)

(set-terminal-coding-system 'utf-8)

(column-number-mode t)

(tool-bar-mode -1)

(setq x-alt-keysym 'meta)

(when (eq system-type 'darwin)

(setq mac-command-modifier 'meta))

(global-font-lock-mode 1) ; Syntax highlight

(show-paren-mode 1)

(setq search-highlight t)

(setq query-replace-highlight t)

(setq TeX-PDF-mode t)

(global-set-key (kbd "<C-tab>") 'select-next-window)

(global-set-key (kbd "<C-S-tab>") 'select-previous-window)

(global-set-key (kbd "<C-iso-lefttab>") 'select-previous-window)

(global-set-key (kbd "C-x C-k") 'kill-this-buffer)

(global-set-key (kbd "C-x C-n") 'next-buffer)

(global-set-key (kbd "C-x C-p") 'previous-buffer)

(global-set-key (kbd "C-x C-b") 'ibuffer)

(global-set-key (kbd "C-c ;") 'comment-region)

(global-set-key (kbd "C-c :") 'uncomment-region)

(global-set-key (kbd "C-`") 'up-down-case-char)

(global-set-key (kbd "M-Q") 'unfill-paragraph)

(when window-system ; Disable suspend

(global-unset-key (kbd "C-z")))

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

(if (eq system-type 'darwin)

(set-font-size 15)

(set-font-size 12))

(setq-default indent-tabs-mode nil)

;; Packages

;; multiple-cursors

;; https://github.com/magnars/multiple-cursors.el

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

;; expand-region

;; https://github.com/magnars/expand-region.el

(global-set-key (kbd "C-=") 'er/expand-region)

;; OPAM packages: tuareg, ocp-indent & merlin

(when my-init-ocaml-enabled

(setq opam-share (substring (shell-command-to-string "opam var share 2> /dev/null") 0 -1))

(load (concat opam-share "/emacs/site-lisp/tuareg-site-file"))

(add-to-list 'load-path (concat opam-share "/emacs/site-lisp"))

(require 'ocp-indent)

(require 'merlin)

(add-hook 'tuareg-mode-hook 'merlin-mode t)

(add-hook 'caml-mode-hook 'merlin-mode t)

(setq merlin-use-auto-complete-mode 'easy)

(setq merlin-command 'opam)

(setq merlin-locate-preference 'ml))

;; auto-complete

;; NOTE: the popup package is installed together.

(require 'auto-complete)

(global-set-key (kbd "C-c <tab>") 'ac-complete-merlin)

;; Color theme: dracula

;; https://github.com/zenorocha/dracula-theme

(add-to-list 'custom-theme-load-path "~/.emacs.d/themes")

(load-theme 'dracula t)

;; company-coq

;; https://github.com/cpitclaudel/company-coq

;; Load company-coq when opening Coq files

(when my-init-coq-enabled

(add-hook 'coq-mode-hook #'company-coq-mode)

(put 'company-coq-fold 'disabled nil))

;; OCamlFormat

;; https://github.com/ocaml-ppx/ocamlformat

(when my-init-ocaml-enabled

(if my-init-ocamlformat-el

(load-file my-init-ocamlformat-el)

(load (concat opam-share "/emacs/site-lisp/ocamlformat")))

(add-hook 'before-save-hook 'ocamlformat-before-save))

;; TypeScript

(when my-init-typescript-enabled

(defun setup-tide-mode ()

(interactive)

(tide-setup)

(flycheck-mode +1)

(setq flycheck-check-syntax-automatically '(save mode-enabled))

(eldoc-mode +1)

(tide-hl-identifier-mode +1)

;; company is an optional dependency. You have to

;; install it separately via package-install

;; `M-x package-install [ret] company`

(company-mode +1))

;; aligns annotation to the right hand side

(setq company-tooltip-align-annotations t)

;; formats the buffer before saving

(add-hook 'before-save-hook 'tide-format-before-save)

(add-hook 'typescript-mode-hook #'setup-tide-mode)

;; TSX

(require 'web-mode)

(add-to-list 'auto-mode-alist '("\\.tsx\\'" . web-mode))

(add-hook 'web-mode-hook

(lambda ()

(when (string-equal "tsx" (file-name-extension buffer-file-name))

(setup-tide-mode))))

(setq web-mode-enable-auto-quoting nil)

;; enable typescript-tslint checker

;; (flycheck-add-mode 'typescript-tslint 'web-mode)

)

;; JavaScript

(when my-init-javascript-enabled

(add-hook 'js-mode-hook

(lambda () (setq-default indent-tabs-mode nil))))

;; PHP

(when my-init-php-enabled

(add-to-list 'load-path "~/.emacs.d/php-cs-fixer-el/")

(require 'php-cs-fixer)

(setq php-cs-fixer-command "~/.emacs.d/php-cs-fixer")

(setq php-cs-fixer-rules-level-part-options '("@PSR12"))

(add-hook 'before-save-hook 'php-cs-fixer-before-save)

;; Add lsp or lsp-deferred function call to functions for your php-mode customization

(defun init-php-mode ()

(lsp-deferred))

(with-eval-after-load 'php-mode

;; If phpactor command is not installed as global, write the full path

;; (custom-set-variables '(lsp-phpactor-path "/path/to/phpactor"))

(add-hook 'php-mode-hook #'init-php-mode)))

;; Json

(add-hook 'json-mode-hook

(lambda ()

(make-local-variable 'js-indent-level)

(setq js-indent-level 2)))

;; Rust

(when my-init-rust-enabled

(require 'lsp-mode)

(add-hook 'rust-mode-hook #'lsp)

(setq warning-minimum-level :error)

;; This is too slow in X11. :(

;; (setq lsp-eldoc-render-all t)

(define-key lsp-mode-map (kbd "C-c C-l") lsp-command-map)

(setq lsp-file-watch-threshold 4000))