emacs-python-config/epc-hooks-python.el at main · ywatanabe1989/emacs-python-config · GitHub

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
;;; -*- coding: utf-8; lexical-binding: t -*-
;;; Author: ywatanabe
;;; Timestamp: <2025-04-24 14:23:55>
;;; File: /home/ywatanabe/.emacs.d/lisp/emacs-python-config/epc-hooks-python.el

;;; Copyright (C) 2025 Yusuke Watanabe (ywatanabe@alumni.u-tokyo.ac.jp)


;;; Copyright (C) 2025 Yusuke Watanabe (ywatanabe@alumni.u-tokyo.ac.jp)

;;; Copyright (C) 2025 Yusuke Watanabe (ywatanabe@alumni.u-tokyo.ac.jp)

(require 'epc-utils)
(require 'epc-bindings)
(require 'epc-lint)

(defun epc--hooks-python-setup-basic-settings ()
  "Configure basic Python editing settings."
  (setq python-indent-offset 4)
  (setq indent-tabs-mode nil))

(defun epc--hooks-python-setup-visual-aids ()
  "Configure visual aids for Python editing."
  (when (fboundp 'highlight-indent-guides-mode)
    (highlight-indent-guides-mode t)))

(defun epc--hooks-python-setup-parentheses ()
  "Setup parentheses highlighting for Python."
  (when (fboundp 'highlight-parentheses-mode)
    (highlight-parentheses-mode t)
    (setq autopair-handle-action-fns
          (list 'autopair-default-handle-action
                (lambda (action pair pos-before)
                  (hl-paren-color-update))))
    (setq hl-paren-colors
          '("orange1" "yellow1" "greenyellow" "green1"
            "springgreen1" "cyan1" "slateblue1"
            "magenta1" "purple"))))

(defun epc--hooks-python-setup-flycheck ()
  "Configure Flycheck for Python files."
  (flycheck-mode t)
  (flycheck-select-checker 'python-flake8)
  (when (fboundp 'flycheck-pos-tip-mode)
    (flycheck-pos-tip-mode t))
  (when (fboundp 'flycheck-posframe-mode)
    (flycheck-posframe-mode t)))

(defun epc--hooks-python-setup-import-management ()
  "Configure Python import management."
  (when (fboundp 'pim-auto-mode)
    (pim-auto-mode -1)))

(defun epc--hooks-python-setup-save-hooks ()
  "Set up hooks that run before saving Python files."
  (add-hook 'before-save-hook 'delete-trailing-whitespace nil t)
  (add-hook 'before-save-hook 'epc-lint-custom-lint nil t)
  (when (fboundp 'pim)
    (add-hook 'before-save-hook
              (lambda ()
                (unless (and (buffer-file-name)
                             (string-match "__init__.py$"
                                           (buffer-file-name)))
                  (pim)))
              nil t)))

(defun epc-hooks-python-mode-hook ()
  "Primary hook for Python mode setup."
  (interactive)
  (save-excursion
    (epc--hooks-python-setup-basic-settings)
    (epc--hooks-python-setup-visual-aids)
    (epc--hooks-python-setup-parentheses)
    (epc-bindings-setup-keybindings)
    (epc--hooks-python-setup-import-management)
    (unless (member (epc--utils-get-hostname) '("crest"))
      (epc--hooks-python-setup-flycheck)
      (epc--hooks-python-setup-save-hooks))))


(provide 'epc-hooks-python)

(when
    (not load-file-name)
  (message "epc-hooks-python.el loaded."
           (file-name-nondirectory
            (or load-file-name buffer-file-name))))