                              "Inconsolata-12"
                              "Monospace-12")))
     (message "Use font: %s" font)
-    (if font (set-default-font font)))
+    (when font
+      (set-default-font font ":weight=medium")))
 
   ;; ウィンドウサイズを画面に揃える（精度は微妙）
   (set-frame-size

                            ""
                            str))

;; -------------------------------------------------------------------------
;; 便利な感じのマイナーモード


  (kui/append-to-list 'popwin:special-display-config
    '(direx:direx-mode :position :left :width 40 :dedicated t))
  (defun kui/jump-to-project-directory-other-window-if-in-project ()
    "Open directory tree from project root."
    (interactive)
    (if (direx-project:find-project-root-noselect (or buffer-file-name default-directory))
        (direx-project:jump-to-project-root-other-window)
