From 82553948d0e35f4d6f9e732c107bdb79a486b1d8 Mon Sep 17 00:00:00 2001
From: Dimitri Lozeve <dimitri@lozeve.com>
Date: Thu, 7 May 2020 23:18:38 +0200
Subject: [PATCH] Use the APL font in Dyalog buffers

---
 init.el | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/init.el b/init.el
index 9f6f9c2..73e507d 100644
--- a/init.el
+++ b/init.el
@@ -322,8 +322,18 @@
   ;; https://www.hexstreamsoft.com/libraries/clhs/
   (load "/home/dimitri/quicklisp/clhs-use-local.el" t))
 
+;; 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
-  :ensure t)
+  :ensure t
+  :hook (dyalog-mode . my-buffer-face-mode-apl)
+  :custom
+  (dyalog-fix-whitespace-before-save t))
 
 (use-package gnu-apl-mode
   :ensure t