dotfiles

commit 08885719c439036b933b40ab28b6e908f540724b
parent ffa9c2feb1aa2cc52c0c90e2be082f96847109a7
Author: Alex Balgavy <alex@balgavy.eu>
Date:   Fri,  2 Sep 2022 12:33:33 +0200

emacs: create slovak-qwerty input method

Diffstat:
M
dot.map
 | 
1
+
M
emacs/config.org
 | 
7
+++++++
A
emacs/lisp/slovak-qwerty.el
 | 
134
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

3 files changed, 142 insertions(+), 0 deletions(-)
diff --git a/dot.map b/dot.map
@@ -83,6 +83,7 @@ emacs:
 - jokull-theme.el: ~/.config/emacs/jokull-theme.el
 - junipero-theme.el: ~/.config/emacs/junipero-theme.el
 - notification.wav: ~/.config/emacs/notification.wav
+- lisp: ~/.config/emacs/lisp
 
 # Config: shell
 shell:
diff --git a/emacs/config.org b/emacs/config.org
@@ -2330,6 +2330,13 @@ Also, counsel doesn't provide some keybindings that I can get from helpful.
       "Settings on enabling helpful mode"
       (setq comment-add 0)))
 #+end_src
+** Quail
+#+begin_src emacs-lisp
+  (use-package quail
+    :ensure nil ; provided by Emacs
+    :config
+    (require 'slovak-qwerty))
+#+end_src
 * References
 Here's a list of good articles I encountered about configging emacs:
 - [[https://karthinks.com/software/batteries-included-with-emacs/][Batteries included with Emacs]]
diff --git a/emacs/lisp/slovak-qwerty.el b/emacs/lisp/slovak-qwerty.el
@@ -0,0 +1,134 @@
+;;; slovak-qwerty.el --- Slovak QWERTY quail input method
+;;;
+;;; Commentary:
+;;; The default Slovak input method is QWERTZ, this provides QWERTY.
+;;;
+;;; Code:
+(require 'quail)
+
+(quail-define-package
+ "slovak-qwerty" "Slovak" "SK" t
+ "Standard Slovak Qwerty keyboard."
+ nil t nil nil t nil nil nil nil nil t)
+
+(quail-define-rules
+ ("1" ?+)
+ ("2" ?ľ)
+ ("3" ?š)
+ ("4" ?č)
+ ("5" ?ť)
+ ("6" ?ž)
+ ("7" ?ý)
+ ("8" ?á)
+ ("9" ?í)
+ ("0" ?é)
+ ("!" ?1)
+ ("@" ?2)
+ ("#" ?3)
+ ("$" ?4)
+ ("%" ?5)
+ ("^" ?6)
+ ("&" ?7)
+ ("*" ?8)
+ ("(" ?9)
+ (")" ?0)
+ ("-" ?=)
+ ("_" ?%)
+ ("=" ?')
+ ("[" ?ú)
+ ("{" ?/)
+ ("]" ?ä)
+ ("}" ?\()
+ ("\\" ?ň)
+ ("|" ?\))
+ (";" ?ô)
+ (":" ?\")
+ ("'" ?§)
+ ("\"" ?!)
+ ("<" ??)
+ (">" ?:)
+ ("/" ?-)
+ ("?" ?_)
+ ("`" ?\;)
+ ("~" ?^)
+ ("~~" ?~)
+ ("y" ?y)
+ ("z" ?z)
+ ("Y" ?Y)
+ ("Z" ?Z)
+ ("=a" ?á)
+ ("+a" ?ä)
+ ("+=a" ?ä)
+ ("+c" ?č)
+ ("+d" ?ď)
+ ("=e" ?é)
+ ("+e" ?ě)
+ ("=i" ?í)
+ ("=l" ?ĺ)
+ ("+l" ?ľ)
+ ("+n" ?ň)
+ ("=o" ?ó)
+ ("+o" ?ô)
+ ("~o" ?ô)
+ ("+=o" ?ö)
+ ("=r" ?ŕ)
+ ("+r" ?ř)
+ ("=s" ?ß)
+ ("+s" ?š)
+ ("+t" ?ť)
+ ("=u" ?ú)
+ ("+u" ?ů)
+ ("+=u" ?ü)
+ ("=y" ?ý)
+ ("+z" ?ž)
+ ("=A" ?Á)
+ ("+A" ?Ä)
+ ("+=A" ?Ä)
+ ("+C" ?Č)
+ ("+D" ?Ď)
+ ("=E" ?É)
+ ("+E" ?Ě)
+ ("=I" ?Í)
+ ("=L" ?Ĺ)
+ ("+L" ?Ľ)
+ ("+N" ?Ň)
+ ("=O" ?Ó)
+ ("+O" ?Ô)
+ ("~O" ?Ô)
+ ("+=O" ?Ö)
+ ("=R" ?Ŕ)
+ ("+R" ?Ř)
+ ("=S" ?ß)
+ ("+S" ?Š)
+ ("+T" ?Ť)
+ ("=U" ?Ú)
+ ("+U" ?Ů)
+ ("+=U" ?Ü)
+ ("=Z" ?Ź)
+ ("+Z" ?Ž)
+ ("=Y" ?Ý)
+ ("+Y" ?Y)
+ ("=q" ?`)
+ ("=2" ?@)
+ ("=3" ?#)
+ ("=4" ?$)
+ ("=5" ?%)
+ ("=6" ?^)
+ ("=7" ?&)
+ ("=8" ?*)
+ ("=9" ?\()
+ ("=0" ?\))
+ ("+1" ?!)
+ ("+2" ?@)
+ ("+3" ?#)
+ ("+4" ?$)
+ ("+5" ?%)
+ ("+6" ?^)
+ ("+7" ?&)
+ ("+8" ?*)
+ ("+9" ?\()
+ ("+0" ?\)))
+
+;;; slovak-qwerty.el ends here
+
+(provide 'slovak-qwerty)