cristiancmoises
/
modern_lisp-machine
mirror of https://codeberg.org/hashirama/modern_lisp-machine
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix IME 2/2 

this makes fcitx5 available system-wide.
still have to fix it on the browser, but the rest works just fine
main
千住柱間 2024-02-15 19:33:37 +00:00
parent f232c694ff
commit 8140b1aad2
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
stumpwm/init.lisp
View File

@ -35,6 +35,10 @@
(define-key *top-map* (kbd "M-v") "terminal") (define-key *top-map* (kbd "M-v") "terminal")
(defcommand goldendict () ()
(run-or-raise "goldendict" '(:class "GoldenDict-ng")))
(define-key *top-map* (kbd "M-e") "goldendict")
(define-key *top-map* (kbd "M-d") "exec rofi -show run") (define-key *top-map* (kbd "M-d") "exec rofi -show run")
(define-key *root-map* (kbd "R") "restart-hard") (define-key *root-map* (kbd "R") "restart-hard")
@ -66,7 +70,15 @@
(run-shell-command "export GTK_IM_MODULE=fcitx") (run-shell-command "export GTK_IM_MODULE=fcitx")
(run-shell-command "export QT_IM_MODULE=fcitx") (run-shell-command "export QT_IM_MODULE=fcitx")
(run-shell-command "export export XMODIFIERS=@im=fcitx") (run-shell-command "export export XMODIFIERS=@im=fcitx")
(define-key *top-map* (kbd "M-e") "exec ~/.local/bin/goldendict") (sleep 2)
(run-shell-command "fcitx5")
(sleep 2)
(run-shell-command "xmodmap -e 'clear mod4'" t) ;; clears windowskey/mod4
(run-shell-command "xmodmap -e 'keycode 133 = F20'" t) ;;assigns F20 to keycode 133
(defun pretty-time () (defun pretty-time ()
"日付を '17:19:51 2014年4月27日、日曜日' の形式で返します。" "日付を '17:19:51 2014年4月27日、日曜日' の形式で返します。"