From 0e79153face425059cbd67f6b55d19f11d45c3a4 Mon Sep 17 00:00:00 2001 From: PHO Date: Mon, 12 Apr 2021 22:03:21 +0900 Subject: [PATCH] Auto commit by The Sugar System. --- dot-files/_config/tridactyl/tridactylrc | 4 ++++ dot-files/_emacs_el | 17 +++++++++++++---- 2 files changed, 17 insertions(+), 4 deletions(-) diff --git a/dot-files/_config/tridactyl/tridactylrc b/dot-files/_config/tridactyl/tridactylrc index 203920c..37a69ab 100644 --- a/dot-files/_config/tridactyl/tridactylrc +++ b/dot-files/_config/tridactyl/tridactylrc @@ -87,6 +87,10 @@ quickmark a https://console.aws.amazon.com/ quickmark b http://direct.bk.mufg.jp/ quickmark B http://www.mizuhobank.co.jp/direct/start.html " +" - Credit cards +quickmark c https://bkweb.dccard.co.jp/service_icc/visitors/htmls/prp/login.htm +quickmark C https://www.saisoncard.co.jp/ +" " - Securities quickmark s https://online.sc.mufg.jp/its/dfw/UTBSITS/user_p/Login# diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el index 8bc9e20..6cc8fb6 100644 --- a/dot-files/_emacs_el +++ b/dot-files/_emacs_el @@ -157,8 +157,8 @@ ;; flycheck (require-if-present 'flycheck) -(if (featurep 'flycheck) - (global-flycheck-mode)) +;(if (featurep 'flycheck) +; (global-flycheck-mode)) (require-if-present 'flycheck-inline) (if (featurep 'flycheck-inline) @@ -282,6 +282,13 @@ Will prompt you shell name when you type `C-u' before this command." t) (autoload 'lua-mode "lua-mode" "Lua editing mode." t) (add-to-list 'auto-mode-alist '("\\.lua$" . lua-mode)) +;; projectile-mode +(require-if-present 'projectile) +(if (featurep 'projectile) + (progn + (projectile-mode +1) + (define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map))) + ;; protobuf-mode (autoload 'protobuf-mode "protobuf-mode") (add-to-list 'auto-mode-alist '("\\.proto\\'" . protobuf-mode)) @@ -407,7 +414,9 @@ Will prompt you shell name when you type `C-u' before this command." t) (add-hook 'haskell-mode-hook 'turn-on-haskell-indent) (add-hook 'haskell-mode-hook 'turn-on-haskell-ghci) -(load-if-present "~/sandbox/_input-method/haskell-unicode-input-method/haskell-unicode-input-method") +;(add-hook 'haskell-mode-hook #'flycheck-haskell-setup) + +(load-if-present "~/sandbox/_input-method/emacs-haskell-unicode-input-method/haskell-unicode-input-method") (add-hook 'haskell-mode-hook (lambda () (set-input-method "haskell-unicode"))) @@ -717,7 +726,7 @@ Will prompt you shell name when you type `C-u' before this command." t) ("melpa" . "https://melpa.org/packages/")))) '(package-selected-packages (quote - (flycheck-inline flycheck-rust undo-tree auto-complete typescript-mode cargo toml-mode rust-mode))) + (projectile elixir-mode flycheck-haskell flycheck-inline flycheck-rust undo-tree auto-complete typescript-mode cargo toml-mode rust-mode))) '(rcirc-server-alist (quote (("irc1.ymir.jp" :nick "PHO`cons" nil nil)))) '(riece-layout "default") '(riece-layout-alist -- 2.40.0