コミット: 1d25f8a13ac26abaeb44703ef09ef99db2feba4b - emacs (git)

コミットメタ情報

• リビジョン: 1d25f8a13ac26abaeb44703ef09ef99db2feba4b (tree)
• 日時: 2023-05-08 18:02:42
• 作者: Markus Prepens <markus.prepens@gmai...>
• コミッター: Markus Prepens

ログメッセージ

using face-remapping-alist with :inherit

変更サマリ

• modified: init.el

差分

--- a/init.el
+++ b/init.el
@@ -103,12 +103,13 @@ forward-slashes."
       ;;(set-frame-size (selected-frame) 100 20)
       ;;(set-frame-font "Cascadia Code 11" t t)
       ;;(set-frame-font "Courier Prime 12" t t)
-      (set-frame-font "JuliaMono 10" t t)
+      (set-frame-font "JuliaMono 12" t t)
       (set-frame-parameter (selected-frame) 'internal-border-width 5)
       (setq frame-inherited-parameters '(internal-border-width)))
   (progn
-      (menu-bar-mode -1)
-      (blink-cursor-mode -1)))
+    (setq confirm-kill-emacs nil)
+    (menu-bar-mode -1)
+    (blink-cursor-mode -1)))
 
 ;;;;;;;;;;
 ;; The history mode
@@ -162,13 +163,11 @@ forward-slashes."
   (interactive)
   (if icomplete-mode
       (progn
-        (message "Goodbye, Fido :(")
         (icomplete-mode -1)
         (icomplete-vertical-mode -1)
         (fido-mode -1)
         (fido-vertical-mode -1))
     (progn
-      (message "Hello, Fido :)")
       (icomplete-mode 1)
       (icomplete-vertical-mode 1)
       (fido-mode 1)
@@ -231,9 +230,10 @@ forward-slashes."
                           (org-verbatim (:height 1.55) org-verbatim)
                           (header-line (:height 4.0) variable-pitch)
                           (org-document-title (:height 1.75) org-document-title)
-                          (org-level-1 (:height 1.4) variable-pitch)
-                          (org-level-2 (:height 1.3) variable-pitch)
-                          (org-level-3 (:height 1.1) variable-pitch)
+                          (org-level-1 (:inherit variable-pitch :height 1.4) org-level-1)
+                          (org-level-2 (:inherit variable-pitch :height 1.3) org-level-2)
+                          (org-level-3 (:inherit variable-pitch :height 1.1) org-level-3)
+                          (org-level-4 (:inherit variable-pitch :height 1.1) org-level-4)
                           (org-code (:family "Courier Prime") org-code)
                           (org-block (:family "Courier Prime") org-block)
                           (org-table (:family "Courier Prime") org-table)
@@ -260,7 +260,10 @@ forward-slashes."
             (+skeletons-for-markdown)
             (toggle-truncate-lines 1)
             (setq-local face-remapping-alist
-                        '((markdown-header-face (:height 4.0) markdown-header-face)))
+                        '((markdown-header-face-1 (:inherit variable-pitch :height 2.0) markdown-header-face-1)
+                          (markdown-header-face-2 (:inherit variable-pitch :height 1.8) markdown-header-face-2)
+                          (markdown-header-face-3 (:inherit variable-pitch :height 1.5) markdown-header-face-3)
+                          (markdown-header-face-4 (:inherit variable-pitch :height 1.0) markdown-header-face-4)))
             (let* ((pandoc-command "pandoc -f gfm -t html5 --toc --toc-depth=2")
                    (css-file (concat user-emacs-directory "html-files/pandoc_simple.css"))
                    (html-file (concat user-emacs-directory "html-files/pandoc_template.html")))
@@ -637,13 +640,6 @@ reload dir-local variables."
     (call-interactively save-this-mode)
     (message "applied %s again" save-this-mode)))
 
-;; load (optional) quick'n'dirty code snippets
-(add-hook 'after-init-hook
-          (lambda ()
-            ;; Example -- local.el:
-            ;; (set-frame-font "Cascadia Code 12" t t)
-            (message "Hello :)")))
-
 (add-hook 'buffer-list-update-hook
           (lambda ()
             (save-excursion