Changeset 2b2c1ba in dotfiles

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

Files:

• X/.Xdefaults (modified) (2 diffs)
• emacs/.emacs (modified) (1 diff)
• wm/.stumpwmrc (modified) (5 diffs)

X/.Xdefaults

@@ -7 +7 @@
 
 ! Black / Grey
-*.color0:       #000000
+*.color0:       #999999
 *.color8:       #666666
 
@@ -39 +39 @@
 
 ! URxvt
-urxvt*font: xft:terminus:pixelsize=14:autohint=true
+URxvt.font: xft:terminus:pixelsize=14
 URxvt.scrollBar: false
 URxvt.perl-ext-common: default,selection-to-clipboard,pasta,matcher,keyboard-select
 URxvt.keysym.M-u:     perl:url-select:select_next
 URxvt.underlineURLs:  True
+URxvt.cursorBlink: True
+Urxvt.cursorUnderline: True
+Urxvt.visualBell: True
+Urxvt.fading: 50
+Urxvt.fadeColor: #ff0000
 
 Xft.autohint: 0

emacs/.emacs

@@ -11 +11 @@
 
     ;;; Set font
-  (add-to-list 'default-frame-alist '(font . "terminus-12"))
+  (add-to-list 'default-frame-alist '(font . "terminus-10"))
+  (set-face-attribute 'default nil :font "-*-terminus-medium-r-*-*-*-125-75-75-*-*-iso8859-15")
+  (setq-default line-spacing 0)
+  
 
   ;;; Disable emacs gui

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")