Improve configuration: org-mode, Python, APL and BQN

This commit is contained in:
Dimitri Lozeve 2021-07-08 21:02:54 +02:00
parent 4265765138
commit ff30bec9fb

34
init.el
View file

@ -301,7 +301,6 @@
(lsp) ; or lsp-deferred (lsp) ; or lsp-deferred
(local-unset-key (kbd "C-f")))) (local-unset-key (kbd "C-f"))))
:config :config
(setq lsp-pyright-use-library-code-for-types nil)
(flycheck-add-next-checker 'lsp 'python-pylint)) (flycheck-add-next-checker 'lsp 'python-pylint))
(use-package pyvenv (use-package pyvenv
@ -402,12 +401,10 @@
(use-package rust-mode (use-package rust-mode
:straight t) :straight t)
;; Use APL font face in current buffer (use-package zig-mode
(defun my-buffer-face-mode-apl () :straight t
"Use the APL font in current buffer." :config
(interactive) (setq zig-format-on-save nil))
(setq buffer-face-mode-face '(:family "APL385 Unicode" :height 150))
(buffer-face-mode))
(use-package matlab (use-package matlab
:straight matlab-mode :straight matlab-mode
@ -432,6 +429,13 @@
;; (:underline '(:color "blue3" :style wave))))) ;; (:underline '(:color "blue3" :style wave)))))
) )
;; Use APL font face in current buffer
(defun my-buffer-face-mode-apl ()
"Use the APL font in current buffer."
(interactive)
(setq buffer-face-mode-face '(:family "APL385 Unicode" :height 150))
(buffer-face-mode))
(use-package dyalog-mode (use-package dyalog-mode
:straight t :straight t
:hook (dyalog-mode . my-buffer-face-mode-apl) :hook (dyalog-mode . my-buffer-face-mode-apl)
@ -442,13 +446,25 @@
:straight t :straight t
:config :config
(defface gnu-apl-default (defface gnu-apl-default
'((t (:height 1.2 :family "APL385 Unicode"))) t) '((t (:height 120 :family "APL385 Unicode"))) t)
(defun em-gnu-apl-init () (defun em-gnu-apl-init ()
(setq buffer-face-mode-face 'gnu-apl-default) (setq buffer-face-mode-face 'gnu-apl-default)
(buffer-face-mode)) (buffer-face-mode))
(add-hook 'gnu-apl-interactive-mode-hook 'em-gnu-apl-init) (add-hook 'gnu-apl-interactive-mode-hook 'em-gnu-apl-init)
(add-hook 'gnu-apl-mode-hook 'em-gnu-apl-init)) (add-hook 'gnu-apl-mode-hook 'em-gnu-apl-init))
(use-package bqn-mode
:straight (:host github :repo "mlochbaum/BQN" :files ("editors/emacs/*.el"))
:after gnu-apl-mode
:custom (bqn-key-prefix )
:config
(defface bqn-default
'((t (:height 140 :family "BQN386 Unicode"))) t)
(defun bqn-init ()
(setq buffer-face-mode-face 'bqn-default)
(buffer-face-mode))
(add-hook 'bqn-mode-hook 'bqn-init))
(use-package tex-site (use-package tex-site
:defer t :defer t
:straight auctex :straight auctex
@ -549,6 +565,8 @@
(setq org-src-tab-acts-natively t) (setq org-src-tab-acts-natively t)
;; full contents opened by default ;; full contents opened by default
(setq org-startup-folded nil) (setq org-startup-folded nil)
;; only one empty line is enough to separate headings when folded
(setq org-cycle-separator-lines 1)
(add-hook 'org-mode-hook #'visual-line-mode) (add-hook 'org-mode-hook #'visual-line-mode)
(add-hook 'org-mode-hook 'org-fragtog-mode) (add-hook 'org-mode-hook 'org-fragtog-mode)