add doom shortcuts

This commit is contained in:
qvalentin 2021-10-10 14:38:48 +02:00
parent 121c7f3430
commit 018c77fadf
2 changed files with 25 additions and 18 deletions

View File

@ -1,21 +1,12 @@
Config { overrideRedirect = False
, font = "xft:Roboto Mono for Powerline:size=11"
, bgColor = "#0E0A0C"
, fgColor = "#d49a9c"
, bgColor = "#0C0C0F"
, fgColor = "#ccdee5"
, position = TopW L 100
, commands = [ Run Weather "EGPF"
[ "--template", "<weather> <tempC>°C"
, "-L", "0"
, "-H", "25"
, "--low" , "lightblue"
, "--normal", "#f8f8f2"
, "--high" , "red"
] 36000
, Run Cpu
, iconRoot = ".config/xmobar/xpm/"
, commands = [Run Cpu
[ "-L", "3"
, "-H", "50"
, "--high" , "red"
, "--normal", "green"
] 10
, Run Alsa "default" "Master"
[ "--template", "<volumestatus>"
@ -24,11 +15,11 @@ Config { overrideRedirect = False
, "--on", ""
]
, Run Memory ["--template", "Mem: <usedratio>%"] 10
, Run Swap [] 10
, Run Date "%a %Y-%m-%d <fc=#8be9fd>%H:%M</fc>" "date" 10
, Run Date "%a %Y-%m-%d <fc=#8EB7CF>%H:%M</fc>" "date" 10
, Run XMonadLog
, Run Com "get_music_info" [] "" 10
]
, sepChar = "%"
, alignSep = "}{"
, template = "%XMonadLog% }{ %alsa:default:Master% | %cpu% | %memory% * %swap% | %EGPF% | %date% "
, template = " <icon=haskell_20.xpm/> %XMonadLog% }{ %get_music_info% | %alsa:default:Master% | %cpu% | %memory% | %date% "
}

View File

@ -6,14 +6,14 @@
;; Some functionality uses this to identify you, e.g. GPG configuration, email
;; clients, file templates and snippets.
(setq user-full-name "qValentin"
(setq user-full-name "qvalentin"
user-mail-address "dev@filefighter.de")
;; Doom exposes five (optional) variables for controlling fonts in Doom. Here
;; are the three important ones:
;;
;; + `doom-font'
;; + `doom-variable-pitch-font'
;; + `Doom-Variable -pitch-font'
;; + `doom-big-font' -- used for `doom-big-font-mode'; use this for
;; presentations or streaming.
;;
@ -56,3 +56,19 @@
(require 'exec-path-from-shell)
(when (display-graphic-p)
(exec-path-from-shell-initialize))
(map! :leader
:desc "Comment Block"
"c b" #'comment-region)
(map! :leader
:desc "Uncomment Block"
"c B" #'uncomment-region)
(map! :leader
:desc "Magit Pull from upsteam"
"g p" #'magit-pull-from-upstream)
(map! :leader
:desc "Magit Pull"
"g P" #'magit-pull)