;;; init.el --- emacs setting file
;; Copyright (C) 2017-2018 by Hiroki Yamamoto
;; Author: H.Yamamoto <ice-float@outlook.jp>;; Maintainer: H.Yamamoto <ice-float@outlook.jp>;; Created: 2017.12.31;; Version: 1.10;; Keywword:;; Homepage:;; Package-Version:;; Package-Requires:
;;; Commentary:
;; none
;;; Change Log:
;; 1.00 2017.12.31 新規作成;; 1.01 2018.8.11 とりあえず、色々弄ってみる;; 1.10 2022.8.16 書式変更、追記
;;; Code:
;; Load-Path(setq load-pash '("~/emacs.d/site-lisp"))
;; Japanese environment(set-language-environment "Japanese")(set-default-coding-systems 'utf-8-unix) ; Default encoding (set-file-name-coding-system 'utf-8-unix) ; Filename encoding(set-keyboard-coding-system 'utf-8-unix) ; Keyboard encoding(set-terminal-coding-system 'utf-8-unix) ; Console encoding(set-clipboard-coding-system 'utf-8-unix) ; Clipboard encoding
;; Japanese input;; `Quail'(require 'quail)(setq quail-japanese-use-double-n t) ; If non-nill, use type "nn" to insert ん(define-key quail-conversion-keymap (kbd "C-h") 'quail-conversion-backward-delete-char);; `Kana_Kanji_converter'(require 'kkc) (define-key kkc-keymap (kbd "C-h") 'kkc-cancel) ; Exit from KKC mode by canceling any conversions.(define-key kkc-keymap (kbd "C-m") 'kkc-terminate) ; Exit from KKC mode by fixing the current conversion.(define-key kkc-keymap (kbd "C-j") 'kkc-shorter) ; Make the Kana string to be converted shorter.(define-key kkc-keymap (kbd "C-k") 'kkc-longer) ; Make the Kana string to be converted longer.
;; Face Attribute(set-face-attribute 'default nil :family "Ricty Diminished Discord" :height 100) ; Font(set-face-attribute 'default nil :foreground "snow") ; Default Font Color(set-face-attribute 'default nil :background "black") ; Default Background Color(set-face-attribute 'mode-line nil :foreground "yellow") ; Modeline Font Color(set-face-attribute 'mode-line nil :background "black") ; Modeline Background Color(set-face-attribute 'region nil :foreground "snow") ; Selection Font Color(set-face-attribute 'region nil :background "DeepSkyBlue3") ; Selection Background Color(set-face-attribute 'tooltip nil :foreground "black") ; Tooltip Font Color(set-face-attribute 'tooltip nil :background "yellow") ; Tooltip Background Color(set-face-attribute 'cursor nil :background "snow") ; Cursor
;; Font setting;; `Ricty_Diminished'(set-fontset-font (frame-parameter nil 'font) 'japanese-jisx0208 (cons "Ricty Diminished Discord" "iso10646-1"))(set-fontset-font (frame-parameter nil 'font) 'japanese-jisx0212 (cons "Ricty Diminished Discord" "iso10646-1"))(set-fontset-font (frame-parameter nil 'font) 'katakana-jisx0201 (cons "Ricty Diminished Discord" "iso10646-1"));; `Incolsolate_&_Takaoゴシック';(add-to-list 'default-frame-alist '(font . "Incolsolate-12"));(set-default-font "Incolsolate-12");(set-frame-font "Incolsolate-12");(set-face-font 'variable-pitch "Incolsolate-12");old fomat;(set-fontset-font (frame-parameter nil 'font) 'japanese-jisx0208 '("Takaoゴシック" . "unicode-bmp"));; `Ricty';(set-frame-font "ricty-12")
;; Frame setting(set-frame-parameter nil 'alpha '(90 70)) ; alpha(Current, Others) ;(setq initial-frame-alist '((width . 80) (height . 30) (top . 40) (left . 10) (alpha . (90 70)))) ; start-up;(setq default-frame-alist '((width . 80) (height . 30) (top . 40) (left . 10) (alpha . (90 70)))) ; new frame(setq frame-title-format '("emacs: " system-name)) ; Title(scroll-bar-mode 0) ; スクロールバー無効(tool-bar-mode 0) ; ツールバー無効(menu-bar-mode 1) ; メニューバー
;; Modeline setting(setq display-time-string-forms '(month "/" day "(" dayname ") " 24-hours ":" minutes)) ; Date Time(setq display-time-default-load-average nil) ; Hide Default Load Average(line-number-mode 1) ; 列番号 (column-number-mode 1) ; 行番号(display-time-mode 1) ; 時刻
;; Minibuffer setting(define-key minibuffer-local-map (kbd "C-p") 'previous-history-element) ; (define-key minibuffer-local-map (kbd "C-n") 'next-history-element) ; (define-key minibuffer-local-completion-map (kbd "C-p") 'previous-history-element) ; (define-key minibuffer-local-completion-map (kbd "C-n") 'next-history-element) ; (define-key minibuffer-local-must-match-map (kbd "C-p") 'previous-history-element) ; (define-key minibuffer-local-must-match-map (kbd "C-n") 'next-history-element) ;
;; (setq inhibit-startup-screen -1) ; スタートアップスクリーン
;; 矩形選択(cua-mode t)(setq cua-enable-cua-keys nil)
;; global indent(setq-default indent-tabs-mode nil) ; Indent is SPC(setq-default tab-width) ; Tab width 2
;;; init.el end here