forked from pprevos/emacs-writing-studio
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathextra.el
134 lines (107 loc) · 4.4 KB
/
extra.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
;;; extra.el --- Description -*- lexical-binding: t; -*-
;;
;; Copyright (C) 2025 Junghan Kim
;;
;; Author: Junghan Kim <[email protected]>
;; Maintainer: Junghan Kim <[email protected]>
;; Created: January 06, 2025
;; Modified: January 06, 2025
;; Version: 0.0.1
;; Keywords: abbrev bib c calendar comm convenience data docs emulations extensions faces files frames games hardware help hypermedia i18n internal languages lisp local maint mail matching mouse multimedia news outlines processes terminals tex text tools unix vc wp
;; Homepage: https://github.com/junghan0611/extra
;; Package-Requires: ((emacs "24.3"))
;;
;; This file is not part of GNU Emacs.
;;
;;; Commentary:
;;
;; Description
;;
;;; Code:
;;;; Hangul Korean
(progn
(setq default-input-method "korean-hangul")
(set-language-environment "Korean")
(set-keyboard-coding-system 'utf-8)
(setq locale-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
(set-charset-priority 'unicode)
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(setq-default buffer-file-coding-system 'utf-8-unix)
(set-selection-coding-system 'utf-8) ;; important
;; Treat clipboard input as UTF-8 string first; compound text next, etc.
(setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
(setq-default line-spacing 3) ; use fontaine
;; (setenv "LANG" "en_US.UTF-8")
;; (setenv "LC_ALL" "en_US.UTF-8")
;; (setenv "LANG" "ko_KR.UTF-8")
;; 날짜 표시를 영어로한다. org mode에서 time stamp 날짜에 영향을 준다.
(setq system-time-locale "C")
(setq input-method-verbose-flag nil
input-method-highlight-flag nil)
(global-set-key (kbd "<S-SPC>") 'toggle-input-method)
;; (global-set-key (kbd "<Alt_R>") 'toggle-input-method)
(global-set-key (kbd "<Hangul>") 'toggle-input-method)
;; (global-unset-key (kbd "S-SPC"))
;; +------------+------------+
;; | 일이삼사오 | 일이삼사오 |
;; +------------+------------+
;; | ABCDEFGHIJ | ABCDEFGHIJ |
;; +------------+------------+
;; | 1234567890 | 1234567890 |
;; +------------+------------+
;; | 일이삼사오 | 일이삼사오 |
;; | abcdefghij | abcdefghij |
;; +------------+------------+
(when (display-graphic-p)
(set-face-attribute 'default nil :family "Monoplex KR Nerd" :width 'normal :weight 'regular :height 140)
(set-fontset-font nil 'hangul (font-spec :family "Monoplex KR Nerd"))
;; (set-face-attribute 'fixed-pitch nil :family "Sarasa Term K" :width 'normal :weight 'regular)
;; (set-face-attribute 'fixed-pitch-serif nil :family "Hahmlet" :width 'normal :weight 'regular)
;; (set-face-attribute 'variable-pitch nil :family "Pretendard Variable"
;; :width 'normal :weight 'regular)
(set-fontset-font t 'emoji (font-spec :family "Noto Color Emoji") nil)
(set-fontset-font t 'emoji (font-spec :family "Noto Emoji") nil 'prepend) ; Top
(set-fontset-font t 'symbol (font-spec :family "Symbola") nil)
(set-fontset-font t 'symbol (font-spec :family "Noto Sans Symbols 2") nil 'prepend)
(set-fontset-font t 'symbol (font-spec :family "Noto Sans Symbols") nil 'prepend)
)
(defvar after-load-theme-hook nil
"Hook run after a color theme is loaded using `load-theme'.")
(defun load-theme@run-hooks (&rest _)
"Run `after-load-theme-hook'."
(run-hooks 'after-load-theme-hook))
(advice-add 'load-theme :after #'load-theme@run-hooks)
(defun load-theme@theme-dont-propagate (&rest _)
"Discard all themes before loading new."
(mapc #'disable-theme custom-enabled-themes))
(advice-add #'load-theme :before #'load-theme@theme-dont-propagate)
)
;;;; ccmenu with casual-suite
;; (use-package google-this
;; :init (setq google-this-location-suffix "co.kr"))
(use-package webpaste
:bind (("C-c C-p C-b" . webpaste-paste-buffer)
("C-c C-p C-r" . webpaste-paste-region)
("C-c C-p C-p" . webpaste-paste-buffer-or-region)))
(use-package google-translate
:config
(setq google-translate-translation-directions-alist
'(("ko" . "en") ("en" . "ko"))))
(use-package yasnippet)
;; (use-package ace-window)
(use-package wgrep)
(use-package transpose-frame)
(use-package casual-suite
:defer 2
:config
(add-to-list 'load-path (concat user-emacs-directory "ccmenu/"))
(require 'ccmenu))
;;;; Temporarly
(modus-themes-toggle)
(spacious-padding-mode -1)
(menu-bar-mode 1)
(tool-bar-mode 1)
(tooltip-mode 1)
;;; extra.el ends here