API tools faq
paste
Guest User

Untitled

a guest
May 22nd, 2018
86
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 7.43 KB | None | 0 0
raw download clone embed print report
  1. ;;; -*- lisp -*-
  2. ;;; #Date#: 30 May 2010 16:56
  3.  
  4. (in-package :stumpwm)
  5.  
  6. ;;; (set-font "-adobe-helvetica-medium-r-normal--12*")
  7. (set-font "-*-lucida-medium-r-normal-sans-10-*-*-*-*-*-*")
  8. (set-normal-gravity :center)
  9. (set-fg-color "grey")
  10. (set-bg-color "gray10")
  11. (set-border-color "gray20")
  12. (set-focus-color "dimgray")
  13. ;;;(set-unfocus-color "grey10")
  14. ;;;(set-fg-color        "grey64")
  15. ;;;(set-bg-color        "grey14")
  16. ;;;(set-focus-color     "grey60")
  17. (set-unfocus-color   "grey16")
  18. ;;;(set-border-color    "grey44")
  19. (set-win-bg-color    "grey6")
  20. (setf *colors* (list "grey9"          ; 0 black
  21.                      "palevioletred1" ; 1 red
  22.                      "lightblue3"     ; 2 green
  23.                      "bisque3"        ; 3 yellow
  24.                      "steelblue3"     ; 4 blue
  25.                      "slateblue1"     ; 5 magenta
  26.                      "aquamarine4"    ; 6 cyan
  27.                      "honeydew4"      ; 7 white
  28.                      "thistle4"       ; 8 user
  29.                      "lightskyblue4")); 9 user
  30. (update-color-map (current-screen))
  31. (set-msg-border-width 7)
  32. (set-frame-outline-width 1)
  33. (setf *window-border-style* :thin)
  34. (setf *mouse-focus-policy* :click)
  35. (define-key *root-map* (kbd "c") "exec urxvtc")
  36. (set-contrib-dir "/usr/share/stumpwm")
  37. (set-win-bg-color "grey10")
  38. (load "/usr/share/stumpwm/mem.lisp")
  39. (load "/usr/share/stumpwm/net.lisp")
  40. (load "/usr/share/stumpwm/mpd.lisp")
  41. ;;; (load "/usr/share/stumpwm/cpu.lisp")
  42. (setf
  43.     *mpd-modeline-fmt* "^2*%S^n : ^6*%a^n - ^3*%t^n - ^2*%e/%l^n"
  44.     *timeout-wait* 10
  45.     *transient-border-width* 7
  46.     *message-window-gravity* :center
  47.     *input-window-gravity* :bottom-left
  48.     *mode-line-background-color* "black"
  49.     *mode-line-foreground-color* "dimgray"
  50.     *mode-line-border-color* "black"
  51.     *mode-line-timeout* 3
  52.     *mode-line-padding-y* 4
  53.     *mode-line-position* :top)
  54.  
  55.  
  56. (setf *screen-mode-line-format*
  57.     (list ".: %g :: ^3*%W^n :: %M :: ^3*%l^n :: %m :: "
  58.         '(:eval (run-shell-command "/home/lidstah/bin/stumpstats.sh | tr -d [:cntrl:]" t))))
  59.  
  60. (define-key *top-map* (kbd "Pause") "mpd-toggle-pause")
  61. (define-key *top-map* (kbd "Print") "mpd-prev")
  62. (define-key *top-map* (kbd "Scroll_Lock") "mpd-next")
  63. (define-key *top-map* (kbd "M-Pause") "exec echo pause > $HOME/.mplayer_fifo")
  64. (define-key *top-map* (kbd "M-Print") "exec echo seek -30 > $HOME/.mplayer_fifo")
  65. (define-key *top-map* (kbd "M-Scroll_Lock") "exec echo seek +30 > $HOME/.mplayer_fifo")
  66. (define-key *top-map* (kbd "M-h") "move-focus left")
  67. (define-key *top-map* (kbd "M-l") "move-focus right")
  68. (define-key *top-map* (kbd "M-j") "move-focus down")
  69. (define-key *top-map* (kbd "M-k") "move-focus up")
  70. (define-key *top-map* (kbd "C-M-h") "move-window left")
  71. (define-key *top-map* (kbd "C-M-l") "move-window right")
  72. (define-key *top-map* (kbd "C-M-j") "move-window down")
  73. (define-key *top-map* (kbd "C-M-k") "move-window up")
  74. (define-key *top-map* (kbd "M-s") "vsplit")
  75. (define-key *top-map* (kbd "M-f") "hsplit")
  76. (define-key *top-map* (kbd "M-i") "next-in-frame")
  77. (define-key *top-map* (kbd "M-I") "prev-in-frame")
  78. (define-key *top-map* (kbd "M-e") "fselect")
  79. (define-key *top-map* (kbd "M-H") "exchange-direction left")
  80. (define-key *top-map* (kbd "M-L") "exchange-direction right")
  81. (define-key *top-map* (kbd "M-J") "exchange-direction down")
  82. (define-key *top-map* (kbd "M-K") "exchange-direction up")
  83. (define-key *top-map* (kbd "M-c") "mpd-connect")
  84. (define-key *top-map* (kbd "M-C") "mpd-disconnect")
  85. (define-key *top-map* (kbd "M-v") "show-window-properties")
  86. (define-key *top-map* (kbd "M-V") "info")
  87. (define-key *top-map* (kbd "M-!") "exec")
  88. (define-key *top-map* (kbd "M-p") "exec dmenu_run -i -b -nb '#1c1c1c' -nf '#e3e0d7' -sb '#e3e0d7' -sf '#1c1c1c'")
  89. (define-key *top-map* (kbd "M-:") "eval")
  90. (define-key *top-map* (kbd "M-;") "colon")
  91. (define-key *top-map* (kbd "M-W") "windowlist")
  92. (define-key *top-map* (kbd "M-w") "frame-windowlist")
  93. (define-key *top-map* (kbd "M-A") "time")
  94. (define-key *top-map* (kbd "M-a") "title")
  95. (define-key *top-map* (kbd "M-&") "meta M-f")
  96. (define-key *top-map* (kbd "M-g") "vgroups")
  97. (define-key *top-map* (kbd "M-Right") "gnext")
  98. (define-key *top-map* (kbd "C-M-Right") "gnext-with-window")
  99. (define-key *top-map* (kbd "M-Left") "gprev")
  100. (define-key *top-map* (kbd "C-M-Left") "gprev-with-window")
  101. (define-key *top-map* (kbd "M-t") "mode-line")
  102. (define-key *top-map* (kbd "M-r") "iresize")
  103. (define-key *top-map* (kbd "M-b") "banish")
  104. (define-key *top-map* (kbd "M-z") "remove")
  105. (define-key *top-map* (kbd "M-Return") "exec urxvtc")
  106. (define-key *top-map* (kbd "M-m") "mark")
  107. (define-key *top-map* (kbd "M-M") "gmove-marked")
  108. (define-key *top-map* (kbd "C-M-m") "pull-marked")
  109. (define-key *top-map* (kbd "M-o") "fullscreen")
  110.  
  111. (defcommand mymenu () ()
  112.   (labels ((pick (options)
  113.              (let ((selection (stumpwm::select-from-menu (current-screen) options "")))
  114.                (cond
  115.                  ((null selection)
  116.                   (throw 'stumpwm::error "Abort."))
  117.                  ((stringp (second selection))
  118.                   (second selection))
  119.                  (t
  120.                   (pick (cdr selection)))))))
  121.     (let ((choice (pick *app-menu*)))
  122.       (run-shell-command choice))))
  123.  
  124. (defparameter *app-menu* '(("TV"
  125.                 ;; sub menu
  126.                 ("TF1" "TF1")
  127.                 ("France2" "France2")
  128.                 ("France3" "France3")
  129.                             ("CANAL+" "CANAL")
  130.                 ("France5" "France5")
  131.                 ("ARTE" "ARTE")
  132.                 ("M6" "M6")
  133.                 ("W9" "W9")
  134.                 ("Direct8" "Direct8")
  135.                 ("NT1" "NT1")
  136.                 ("NRJ12" "NRJ12")
  137.                 ("DirectStar" "DirectStar")
  138.                 ("France4" "France4")
  139.                 ("TMC" "TMC")
  140.                 ("BFMTV" "BFMTV")
  141.                 ("iTELE" "iTELE")
  142.                 ("LCP" "LCP")
  143.                 ("Gulli" "Gulli")
  144.                 ("FranceO" "FranceO")
  145.                 ("NANTES" "NANTES"))
  146.                ("Books"
  147.                             ;;submenu
  148.                             ("Haskell" "zathura /home/lidstah/Documents/Haskell.pdf")
  149.                             ("Haskell Wiki" "zathura /home/lidstah/Documents/Haskell_wiki.pdf"))
  150.                            ("INTERNET"
  151.                             ;; sub menu
  152.                             ("Firefox" "firefox")
  153.                 ("pidgin" "pidgin")
  154.                 ("Wireshark" "wireshark"))
  155.                            ("FUN"
  156.                             ;; sub menu
  157.                             ("option 2" "xlogo")
  158.                             ("GnuChess" "xboard"))
  159.                            ("WORK"
  160.                             ;;submenu
  161.                             ("LibreOffice" "libreoffice")
  162.                 ("Leafpad" "leafpad")
  163.                 ("Vim" "gvim"))
  164.                            ("GRAPHICS"
  165.                             ;;submenu
  166.                 ("mypaint" "mypaint")
  167.                             ("GIMP" "gimp"))))
  168.  
  169. (define-key *top-map* (kbd "M-P") "mymenu")
  170. (setf *resize-increment* 40)
  171. (defun update-resize-map ()
  172. "on refait le mapping du mode iresize avec un incrément supérieur"
  173.   (let ((m (setf *resize-map* (make-sparse-keymap))))
  174.     (let ((i *resize-increment*))
  175.     (labels ((dk (m k c) (define-key m k (format nil c i))))
  176.       (dk m (kbd "k") "resize 0 -~D")
  177.       (dk m (kbd "j") "resize 0 ~D")
  178.       (dk m (kbd "h") "resize -~D 0")
  179.       (dk m (kbd "l") "resize ~D 0")
  180.       (dk m (kbd "RET") "exit-iresize")
  181.       (dk m (kbd "ESC") "abort-iresize")
  182.     M)))) (update-resize-map)
  183.        
  184. (setf (group-name (first (screen-groups (current-screen)))) "Main")
  185. (run-commands "gnewbg trm" "gnewbg-float flt")
  186. (run-shell-command "xsetroot -cursor_name left_ptr")
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!