init.el

;;; package --- @515hikaru emacs initialization

;; Copyright (C) 2019 by Takahiro KOJIMA
;; Author: Takahiro KOJIMA <12kojima.takahiro@gmail.com>
;; URL: https://github.com/515hikaru/dotemacs
;; Version: 0.0.1
;; LICENSE: MIT

;;; Commentary:
;; This package provides Emacs environment for @515hikaru

;;; Code:
;; package el
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/") t)
(package-initialize)
;;; use use-package
(package-install 'use-package)
(require 'use-package)
(add-to-list 'load-path "~/.emacs.d/pnovel-mode/")
;;; start up
(setq inhibit-splash-screen t)
(setq inhibit-startup-message t)
;;; indentation
(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)
(tool-bar-mode 0)
(menu-bar-mode 0)
(global-set-key (kbd "C-c t") 'toggle-truncate-lines)
;;; IME
;;; mozc
(use-package mozc
  :ensure t
  :config
  (set-language-environment "Japanese")
  (setq default-input-method "japanese-mozc")
  (prefer-coding-system 'utf-8))
;;; theme
(use-package doom-themes
  :ensure t
  :config
    (load-theme 'doom-rouge t)
    (doom-themes-neotree-config)
    (doom-themes-org-config))
(use-package doom-modeline
  :ensure t
  :init (doom-modeline-mode 1)
  (doom-modeline-def-segment count-chars
    "Display current buffer size"
    (format-mode-line " %i"))
  (defvar doom-modeline-main-p t)
  (doom-modeline-def-modeline 'sub-modeline
    '(bar workspace-name window-number modals matches buffer-info remote-host buffer-position parrot selection-info)
    '(objed-state misc-info persp-name battery grip irc mu4e gnus github debug repl lsp minor-modes input-method count-chars indent-info buffer-encoding major-mode process vcs checker))
  (defun switch-modeline ()
  (interactive)
  (if doom-modeline-main-p
      (doom-modeline-set-modeline 'sub-modeline)
    (doom-modeline-set-modeline 'main))
  (force-mode-line-update)
  (setq doom-modeline-main-p (not doom-modeline-main-p)))
  :bind ("C-c C-t" . switch-modeline)
  :config (line-number-mode 0)
  (column-number-mode 0))
(use-package rainbow-delimiters
  :ensure t
  :hook (prog-mode . rainbow-delimiters-mode)
  :config (rainbow-delimiters-mode 1)
  (setq rainbow-delimiters-outermost-only-face-count 1))
;;; font
;;; too ugly
(if (eq system-type 'darwin)
    (let* ((size 12)
          (asciifont "Ricty Diminished")
          (jpfont "Ricty Diminished")
          (h (* size 14))
          (fontspec (font-spec :family asciifont))
          (jp-fontspec (font-spec :family jpfont)))
     (set-face-attribute 'default nil :family asciifont :height h)
     (set-fontset-font nil 'japanese-jisx0213.2004-1 jp-fontspec)
     (set-fontset-font nil 'japanese-jisx0213-2 jp-fontspec)
     (set-fontset-font nil 'katakana-jisx0201 jp-fontspec)
     (set-fontset-font nil '(#x0080 . #x024F) fontspec)
     (set-fontset-font nil '(#x0370 . #x03FF) fontspec))
  (let* ((size 14)
         (asciifont "Ricty")
         (jpfont "Ricty")
         (h (* size 16))
         (fontspec (font-spec :family asciifont))
         (jp-fontspec (font-spec :family jpfont)))
      (set-face-attribute 'default nil :family asciifont :height h)
      (set-fontset-font nil 'japanese-jisx0213.2004-1 jp-fontspec)
      (set-fontset-font nil 'japanese-jisx0213-2 jp-fontspec)
      (set-fontset-font nil 'katakana-jisx0201 jp-fontspec)
      (set-fontset-font nil '(#x0080 . #x024F) fontspec)
      (set-fontset-font nil '(#x0370 . #x03FF) fontspec)))
;; no backup
(setq make-backup-files nil)
(setq make-backup-files nil)
;;; exec-path-from-shell
(use-package exec-path-from-shell
  :ensure t)
(when (memq window-system '(mac ns x))
        (exec-path-from-shell-copy-envs '("PATH" "GOPATH")))
;;; magit
(use-package magit
  :ensure t
  :bind ("C-x g" . magit-status))
;;; junk file
(use-package open-junk-file
  :ensure t
  :config (setq open-junk-file-format (concat (getenv "HOME") "/memo/%Y-%m-%d-%H%M%S."))
  :bind ("C-c j" . open-junk-file))
(defun edit-init-file()
  "open $HOME/.emacs.d/init.el"
  (interactive)
  (find-file (concat (getenv "HOME") "/.emacs.d/init.el")))
(global-set-key "\C-c\C-e" 'edit-init-file)
(use-package recentf
  :ensure t
  :bind ("C-x C-r" . 'counsel-recentf)
  :config
  (setq recentf-save-file "~/.emacs.d/.recentf")
  (setq recentf-max-saved-items 200)
  (setq recentf-exclude '(".recentf"))
  (setq recentf-auto-cleanup 'never))
(use-package recentf-ext
  :ensure t)
(use-package counsel
  :ensure t
  :init (ivy-mode 1) ;; デフォルトの入力補完がivyになる
  (counsel-mode 1))
;;; company-mode
(use-package company
  :ensure t
  :hook ((after-init . global-company-mode))
  :config (setq company-minimum-prefix-length 1
                company-idle-delay 0.0))
(use-package typescript-mode
  :ensure t
  :hook (typescript-mode . my/typescript-mode-hook)
  :commands typescript-mode
  :config (defun my/typescript-mode-hook ()
  (interactive)
  (setq-default typescript-indent-level 2)))
;;; lsp-mode
(setq lsp-keymap-prefix "C-c l")
(use-package lsp-mode
  :ensure t
  :hook ((python-mode . lsp)
         (typescript-mode . lsp))
  :commands lsp)
;; optionally
(use-package lsp-ui
  :ensure t
  :commands lsp-ui-mode)
;; if you are ivy user
(use-package lsp-ivy
  :ensure t
  :commands lsp-ivy-workspace-symbol)
;;; projectile
(use-package projectile
  :ensure t
  :config (projectile-mode +1)
  (define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map)
  (with-eval-after-load 'magit
    (setq magit-repository-directories
        '(;; Directory containing project root directories
          ("~/ghq/src"      . 3))))
    (with-eval-after-load 'projectile
      (when (require 'magit nil t)
      (mapc #'projectile-add-known-project
            (mapcar #'file-name-as-directory (magit-list-repos)))
      ;; Optionally write to persistent `projectile-known-projects-file'
      (projectile-save-known-projects))))
;;; easy-hugo
(use-package easy-hugo
  :ensure t
  :init (setq easy-hugo-basedir "~/ghq/src/github.com/515hikaru/tech-memo/")
        (setq easy-hugo-url "https://tech.515hikaru.net")
        (define-key global-map (kbd "C-c C-h") 'easy-hugo)
        (setq easy-hugo-bloglist
        '(((easy-hugo-basedir . "~/src/github.com/masasam/hugo2/")
           (easy-hugo-url . "http://example2.com")
           (easy-hugo-sshdomain . "myblogdomain")
           (easy-hugo-root . "/home/hugo/"))))
        :bind ("C-c C-h" . easy-hugo))
;;; markdown-mode
(use-package markdown-mode
  :ensure t)
;;; org-mode
;;; org-agenda
(define-key global-map "\C-ca" 'org-agenda)
(define-key global-map "\C-cc" 'org-capture)
(setq org-agenda-files
      '("~/dev/github.com/515hikaru/org-memo/top.org"
        "~/dev/github.com/515hikaru/org-memo/knowledge.org"
        "~/dev/github.com/515hikaru/org-memo/remind.org"))
;;; org-capture
(setq org-capture-templates
      '(("t" "Todo" entry (file+headline "~/dev/github.com/515hikaru/org-memo/remind.org" "■Capture") "* REMIND %? (wrote on %U)")
        ("k" "Knowledge" entry (file+headline "~/dev/github.com/515hikaru/org-memo/knowledge.org" "TOP") "* %?\n  # Wrote on %U")
        ("n" "News" entry (file+headline "~/dev/github.com/515hikaru/org-memo/news.org" "NEWS") "* %?\n  # Wrote on %U")
        ("p" "Technology" entry (file+headline "~/dev/github.com/515hikaru/org-memo/techs.org" "Techs") "* %?\n  # Wrote on %U")
        ("w" "Work" entry (file+headline "~/dev/github.com/515hikaru/org-memo/work.org" "Work") "* %?\n  # Wrote on %U")))
;;; TODO
(setq org-todo-keywords
      '((sequence "TODO(t)" "WAIT(w)" "REMIND(r)" "|" "DONE(d)" "SOMEDAY(s)" "CANCELED(c)")))
;;; ox-hugo
(use-package ox-hugo
  :ensure t
  :after ox)
;; pnovel mode
(use-package pnovel)
;;; writeroom-mode
(use-package writeroom-mode
  :ensure t
  :bind ("C-c C-w" . writeroom-mode)
  :config (setq write-room-major-modes '(text-mode org-mode pnovel-mode)))
;;; auto config
(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.
 '(company-lsp-enable-snippet nil)
 '(conda-anaconda-home "~/miniconda3")
 '(doom-modeline-buffer-file-name-style (quote relative-to-project))
 '(doom-modeline-buffer-modification-icon nil)
 '(doom-modeline-enable-word-count t)
 '(doom-modeline-major-mode-color-icon nil)
 '(doom-modeline-major-mode-icon nil)
 '(doom-modeline-modal-icon nil)
 '(lsp-clients-go-func-snippet-enabled nil)
 '(lsp-pyls-plugins-pylint-enabled t)
 '(lsp-pyls-server-command (quote ("~/.local/bin/pyls")))
 '(nyan-bar-length 128)
 '(package-selected-packages
   (quote
    (typescript-mode company-mode lsp-ivy switch-buffer-functions nyan-mode ox-hugo mozc prettier-js auto-virtualenvwrapper poetry easy-hugo doom-modeline all-the-icons doom-themes projectile yasnippet-snippets solidity-flycheck recentf-ext elm-mode counsel-ghq counsel ivy writeroom-mode hcl-mode subr-x neotree elixir-mode dockerfile-mode toml-mode yaml-mode julia-repl flycheck-julia julia-mode conda ein go-mode yasnippet lsp-ui python-mode company-lsp lsp-mode markdown-mode racer flycheck-rust exec-path-from-shell company-racer rust-mode magit open-junk-file flycheck-elm company use-package atom-one-dark-theme org-plus-contrib)))
 '(projectile-project-root-files
   (quote
    ("pubspec.yaml" "info.rkt" "Cargo.toml" "stack.yaml" "DESCRIPTION" "Cask" "shard.yml" "Gemfile" ".bloop" "deps.edn" "build.boot" "project.clj" "build.sbt" "application.properties" "gradlew" "build.gradle" "pom.xml" "Pipfile" "tox.ini" "setup.py" "requirements.txt" "manage.py" "angular.json" "package.json" "gulpfile.js" "Gruntfile.js" "mix.exs" "rebar.config" "composer.json" "CMakeLists.txt" "Makefile" "WORKSPACE" "default.nix" "meson.build" "SConstruct" "GTAGS" "TAGS" "configure.ac" "configure.in" "cscope.out" ".dummy_project_root"))))
(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.
 )
(provide 'init)
;;; init.el ends here