Changeset 2b2c1ba in dotfiles for wm/.stumpwmrc

Timestamp:

Jan 13, 2020, 11:32:34 PM (5 years ago)

Author:

Mikhail Kirillov <w96k@…>

Branches:

master

Children:

45cc7f6

Parents:

a1bb8c2

git-author:

Mikhail Kirillov <w96k@…> (01/13/20 23:31:51)

git-committer:

Mikhail Kirillov <w96k@…> (01/13/20 23:32:34)

Message:

Change font in stump and emacs

File:

• wm/.stumpwmrc (modified) (5 diffs)

wm/.stumpwmrc

@@ -24 +24 @@
 (clx-truetype:cache-fonts)
 
+(print *time-modeline-string*)
+
 (setf *mode-line-pad-x* 20
       *mode-line-pad-y* 8
@@ -34 +36 @@
       *transient-border-width* 0
       *mode-line-position* :top
+      *time-modeline-string* "%d.%m.%y %k:%M"
       *window-format* "%m%n%s%t "
       *hidden-window-color* ""
@@ -65 +68 @@
 
 ;; launch Web browser
-(defcommand next () ()
-  "Start Next or switch to it, if it is already running."
-  (run-or-raise "next" '(:class "Next")))
-(define-key *root-map* (kbd "B") "next")
+;; (defcommand next () ()
+;;   "Start Next or switch to it, if it is already running."
+;;   (run-or-raise "next" '(:class "Next")))
+;; (define-key *root-map* (kbd "B") "next")
 
 (defcommand icecat () ()
   "Start Next or switch to it, if it is already running."
   (run-or-raise "icecat" '(:class "IceCat")))
-(define-key *root-map* (kbd "b") "icecat")
+(define-key *root-map* (kbd "B") "icecat")
 
 ;; launch terminal
@@ -135 +138 @@
 ;; Menu
 (setq app-menu:*app-menu*
-      '(("Telegram" "telegram-desktop")
+      '(("Midnight Commander" "mc ~")
+        ("Telegram" "telegram-desktop")
         ("Icecat" icecat)
         ("Next" next)
@@ -142 +146 @@
 
 (define-key *root-map* (kbd "q") "show-menu")
+
+;; Show / Hide mode-line
+(define-key *root-map* (kbd "M") "mode-line")
+
+(set-font (make-instance 'xft:font :font "-*-terminus-medium-r-*-*-*-125-75-75-*-*-iso8859-15")