.config/herbstluftwm/autostart

This commit is contained in:
Tom Willemsen 2012-11-08 00:34:15 +01:00
commit 57e1063403
16 changed files with 163 additions and 51 deletions

View file

@ -0,0 +1,22 @@
[Bindings]
launch=<Super>r
[Matching]
strict=false
executable=true
[Update]
interval=15
[Icons]
show=true
cache=true
[Border]
color=#000000
width=1
[Window]
width=200
height=100

View file

@ -6,23 +6,46 @@ function hc () {
modkey="Mod4" modkey="Mod4"
hc keybind $modkey+Ctrl+b resize left +0.05
hc keybind $modkey+Ctrl+f resize right +0.05
hc keybind $modkey+Ctrl+n resize down +0.05
hc keybind $modkey+Ctrl+p resize up +0.05
hc keybind $modkey+Ctrl+q quit hc keybind $modkey+Ctrl+q quit
hc keybind $modkey+e spawn emacs hc keybind $modkey+Ctrl+r reload
# hc keybind $modkey+Shift+1 spawn dmenu_run -p 'Run:' -b -nb '#111113' -nf '#eeeeec' -sb '#171719'
hc set frame_bg_normal_color "#0c191c" hc keybind $modkey+Shift+b shift left
hc set frame_bg_active_color "#000000" hc keybind $modkey+Shift+f shift right
hc set frame_border_width 0 hc keybind $modkey+Shift+n shift down
hc set window_border_width 1 hc keybind $modkey+Shift+p shift up
hc set window_border_normal_color "#15abc3" hc keybind $modkey+Shift+s split horizontal 0.5
hc set window_border_active_color "#e0c625" hc keybind $modkey+b focus -i left
hc keybind $modkey+c spawn urxvt
hc set focus_stealing_prevention 0 hc keybind $modkey+comma cycle_monitor -1
hc keybind $modkey+e spawn emacsclient -ca emacs
hc keybind $modkey+f focus -i right
hc keybind $modkey+k close
hc keybind $modkey+n focus -i down
hc keybind $modkey+o cycle_all
hc keybind $modkey+p focus -i up
hc keybind $modkey+period cycle_monitor 1
hc keybind $modkey+q remove
hc keybind $modkey+s split vertical 0.5
hc keybind $modkey+space cycle_layout 1
hc keybind $modkey+w spawn conkeror
hc keybind Ctrl+Mod1+l spawn i3lock -c 000000
hc set default_frame_layout 2 hc set default_frame_layout 2
hc set focus_stealing_prevention 0
hc set frame_bg_transparent 1
hc set frame_border_width 0
hc set raise_on_focus 1
hc set window_border_active_color "#999999"
hc set window_border_normal_color "#222224"
hc set window_border_width 1
hc set_layout max hc set_layout max
hc pad 0 -5 -5 -5 -5 hc pad 0 -5 -5 -5 -5
hc pad 1 -5 -5 -5 -5
hc mousebind $modkey-Button1 move hc mousebind $modkey-Button1 move
hc mousebind $modkey-Button2 resize hc mousebind $modkey-Button2 resize
@ -33,6 +56,7 @@ hc rule focus=on
hc rule windowtype=_NET_WM_WINDOW_TYPE_DIALOG focus=on pseudotile=on hc rule windowtype=_NET_WM_WINDOW_TYPE_DIALOG focus=on pseudotile=on
hc rule class=Xephyr pseudotile=on hc rule class=Xephyr pseudotile=on
hc rule instance=Xine\ Window pseudotile=on hc rule instance=Xine\ Window pseudotile=on
hc rule class=Pinentry pseudotile=on
# xbindkeys # xbindkeys

View file

@ -0,0 +1,7 @@
map <BackSpace> scroll full-up
map n scroll down
map p scroll up
map <C-n> scroll down
map <C-p> scroll up
map <C-f> scroll right
map <C-b> scroll left

View file

@ -168,6 +168,8 @@ remove_hook("download_added_hook", open_download_buffer_automatically);
hints_minibuffer_annotation_mode(true); hints_minibuffer_annotation_mode(true);
theme_load("naquadah"); theme_load("naquadah");
external_content_handlers.set("application/pdf", "xpdf");
var gh_url = "http://github.com/"; var gh_url = "http://github.com/";
function read_url_github_ad_command_handler(input) function read_url_github_ad_command_handler(input)
{ {

View file

@ -1,27 +1,22 @@
(setq gnus-select-method '(nntp "news.eternal-september.org")) (setq gnus-select-method '(nntp "news.gmane.org"))
(setq gnus-secondary-select-methods (setq gnus-secondary-select-methods
'((nnmaildir "gmail" '((nnmaildir "gmail"
(directory "~/documents/mail/gmail/")) (directory "~/documents/mail/gmail/"))
(nnmaildir "ninthfloor" (nnmaildir "ninthfloor"
(directory "~/documents/mail/ninthfloor/")) (directory "~/documents/mail/ninthfloor/"))
(nnmaildir "arch"
(directory "~/documents/mail/arch/"))
(nnmaildir "aethon" (nnmaildir "aethon"
(directory "~/documents/mail/aethon/")) (directory "~/documents/mail/aethon/"))
(nnmaildir "ryuslash" (nnmaildir "ryuslash"
(directory "~/documents/mail/ryuslash.org/")) (directory "~/documents/mail/ryuslash.org/"))))
(nntp "news.gmane.org"))) ; (nntp "news.gmane.org"))
(setq gnus-auto-subscribed-groups nil) (setq gnus-auto-subscribed-groups nil)
(setq gnus-save-newsrc-file nil) (setq gnus-save-newsrc-file nil)
(setq gnus-read-newsrc-file nil) (setq gnus-read-newsrc-file nil)
(setq gnus-novice-user t) (setq gnus-novice-user t)
(setq gnus-article-truncate-lines nil) (setq gnus-article-truncate-lines nil)
(setq message-send-mail-function 'message-send-mail-with-sendmail) (setq message-send-mail-function 'message-send-mail-with-sendmail)
(setq sendmail-program "/usr/bin/msmtp") (setq sendmail-program "/usr/bin/msmtp")
(setq message-sendmail-extra-arguments '("-a" "gmail")) (setq message-sendmail-extra-arguments '("-a" "gmail"))
;; (setq gnus-parameters ;; (setq gnus-parameters
;; '(("gmail" ;; '(("gmail"
;; (display . all)) ;; (display . all))
@ -29,16 +24,19 @@
;; (display . all) ;; (display . all)
;; ("arch" ;; ("arch"
;; (display . all))))) ;; (display . all)))))
(setq gnus-permanently-visible-groups (setq gnus-permanently-visible-groups
"\\(gmail\\|aethon\\|arch\\|ninthfloor\\|ryuslash\\):INBOX") (eval-when-compile
(regexp-opt '("gmail:inbox"
"aethon:inbox"
"ninthfloor:inbox"
"ryuslash:inbox"))))
(setq nntp-marks-is-evil t) (setq nntp-marks-is-evil t)
(setq gnus-check-new-newsgroups nil) (setq gnus-check-new-newsgroups nil)
(setq gnus-posting-styles (setq gnus-posting-styles
'((".*" '((".*"
(address "tom@ryuslash.org")
(eval (setq message-sendmail-extra-arguments '("-a" "ryuslash"))))
("gmail:"
(address "ryuslash@gmail.com") (address "ryuslash@gmail.com")
(eval (setq message-sendmail-extra-arguments '("-a" "gmail")))) (eval (setq message-sendmail-extra-arguments '("-a" "gmail"))))
("ninthfloor:" ("ninthfloor:"
@ -50,18 +48,10 @@
("aethon:" ("aethon:"
(address "thomas@aethon.nl") (address "thomas@aethon.nl")
(signature-file "~/documents/work/aethon/signature.txt") (signature-file "~/documents/work/aethon/signature.txt")
(eval (setq message-sendmail-extra-arguments '("-a" "aethon")))) (eval (setq message-sendmail-extra-arguments '("-a" "aethon"))))))
("ryuslash:" (setq user-mail-address "tom@ryuslash.org")
(address "tom@ryuslash.org")
(eval (setq message-sendmail-extra-arguments '("-a" "ryuslash"))))))
(setq user-mail-address "ryuslash@gmail.com")
(setq user-full-name "Tom Willemsen") (setq user-full-name "Tom Willemsen")
(add-hook 'gnus-summary-mode-hook '(lambda () (linum-mode -1)))
(add-hook 'gnus-article-mode-hook '(lambda () (linum-mode -1)))
(add-hook 'gnus-group-mode-hook '(lambda () (linum-mode -1)))
;-----[ BBDB ]-------------------------------------------------------- ;-----[ BBDB ]--------------------------------------------------------
;; (require 'bbdb) ;; (require 'bbdb)
;; (bbdb-initialize 'gnus 'message) ;; (bbdb-initialize 'gnus 'message)

View file

@ -18,8 +18,7 @@
(add-to-list 'load-path directory) (add-to-list 'load-path directory)
(let ((default-directory directory)) (let ((default-directory directory))
(normal-top-level-add-subdirs-to-load-path))) (normal-top-level-add-subdirs-to-load-path)))
'("/usr/share/emacs/site-lisp" "~/.emacs.d/site-lisp")) '("/usr/share/emacs/site-lisp" "~/.emacs.d/site-lisp")))
(add-to-list 'load-path "~/.emacs.d/"))
(require 'ext) (require 'ext)
(require 'mode-icons) (require 'mode-icons)
@ -165,8 +164,7 @@
(vertical-scroll-bars . nil) (vertical-scroll-bars . nil)
(menu-bar-lines . nil) (menu-bar-lines . nil)
(tool-bar-lines . nil) (tool-bar-lines . nil)
(font . "Monaco:pixelsize=16") (font . "Monaco:pixelsize=16")))
(left-fringe . 0)))
(setq emms-source-file-default-directory "/mnt/music/") (setq emms-source-file-default-directory "/mnt/music/")
(setq erc-autojoin-channels-alist (setq erc-autojoin-channels-alist
'(("freenode.net" "#ninthfloor" "#emacs" "#dispass"))) '(("freenode.net" "#ninthfloor" "#emacs" "#dispass")))
@ -226,6 +224,7 @@
"Access to a protected member")))) "Access to a protected member"))))
(setq frame-title-format '(:eval (concat "emacs: " (buffer-name)))) (setq frame-title-format '(:eval (concat "emacs: " (buffer-name))))
(setq geiser-repl-history-filename "~/.emacs.d/geiser-history") (setq geiser-repl-history-filename "~/.emacs.d/geiser-history")
(setq gnus-init-file "~/.emacs.d/gnus")
(setq gtags-auto-update t) (setq gtags-auto-update t)
(setq help-at-pt-display-when-idle t) (setq help-at-pt-display-when-idle t)
(setq ido-auto-merge-delay-time 1000000) (setq ido-auto-merge-delay-time 1000000)
@ -262,11 +261,11 @@
("marmalade" . "http://marmalade-repo.org/packages/"))) ("marmalade" . "http://marmalade-repo.org/packages/")))
(setq package-load-list '((htmlize "1.39") (setq package-load-list '((htmlize "1.39")
(lua-mode "20111107") (lua-mode "20111107")
(python "0.24.2")
all)) all))
(setq php-function-call-face 'font-lock-function-name-face) (setq php-function-call-face 'font-lock-function-name-face)
(setq php-mode-force-pear t) (setq php-mode-force-pear t)
(setq pony-tpl-indent-moves t) (setq pony-tpl-indent-moves t)
(setq pretty-symbol-categories '(lambda relational logical))
(setq rainbow-delimiters-max-face-count 12) (setq rainbow-delimiters-max-face-count 12)
(setq redisplay-dont-pause t) (setq redisplay-dont-pause t)
(setq scroll-conservatively 101) (setq scroll-conservatively 101)
@ -414,8 +413,7 @@
(load "rudel-loaddefs.el") (load "rudel-loaddefs.el")
(unless (server-running-p) (unless (server-running-p)
(server-start) (server-start))
(load "wm-init"))
(provide 'init) (provide 'init)

View file

@ -292,11 +292,13 @@ If COUNT has been specified indent by that much, otherwise look at
(defun oni:markdown-mode-func () (defun oni:markdown-mode-func ()
"Function for `markdown-mode-hook'." "Function for `markdown-mode-hook'."
(setq-local comment-auto-fill-only-comments nil)
(auto-fill-mode) (auto-fill-mode)
(whitespace-mode)) (whitespace-mode))
(defun oni:message-mode-func () (defun oni:message-mode-func ()
"Function for `message-mode-hook'." "Function for `message-mode-hook'."
(setq-local comment-auto-fill-only-comments nil)
(auto-fill-mode) (auto-fill-mode)
(flyspell-mode) (flyspell-mode)
(ispell-change-dictionary (read-string "New dictionary: "))) (ispell-change-dictionary (read-string "New dictionary: ")))
@ -561,5 +563,11 @@ for easy selection."
"Function for `write-file-hooks'." "Function for `write-file-hooks'."
(time-stamp)) (time-stamp))
(define-skeleton html-tag
"Testing creation of an html tag"
"Tagname:"
"<" str ("Attribute: " " " str "=\"" (skeleton-read "Value: ") "\"") ">\n"
"</" str ">\n")
(provide 'oni) (provide 'oni)
;;; oni.el ends here ;;; oni.el ends here

View file

@ -34,13 +34,27 @@
'(org-crypt-use-before-save-magic)) '(org-crypt-use-before-save-magic))
(setq org-agenda-custom-commands (setq org-agenda-custom-commands
'(("wt" "Work todo." '(("pa" "Avandu" tags-todo "slug=\"avandu\"")
tags-todo "CATEGORY=\"Work\"") ("pb" "Blog" tags-todo "slug=\"blog\"")
("wm" "Myaethon2 todo." ("pc" "Configuration" tags-todo "slug=\"configuration\"")
tags-todo "CATEGORY=\"myaethon2\""))) ("pd" "dispass.el" tags-todo "slug=\"dispass.el\"")
("pD" "DVDroid" tags-todo "slug=\"dvdroid\"")
("pe" "Eye on Manga" tags-todo "slug=\"eye-on-manga\"")
("pG" "gDisPass" tags-todo "slug=\"gdispass\"")
("pg" "gitto" tags-todo "slug=\"gitto\"")
("pi" "Ideas" tags-todo "slug=\"ideas\"")
("pM" "Maintenance" tags-todo "slug=\"maintenance\"")
("pme" "Metal Express Radio.el" tags-todo
"slug=\"metal-express-radio.el\"")
("pmo" "Mode Icons" tags-todo "slug=\"mode-icons\"")
("pmy1" "myAethon" tags-todo "slug=\"myaethon\"")
("pmy2" "myAethon2" tags-todo "slug=\"myaethon2\"")
("ps" "Sawfish Naquadah theme" tags-todo
"slug=\"sawfish-naquadah-theme\"")
("w" "Work todo." tags-todo "work")))
(setq org-agenda-sorting-strategy (setq org-agenda-sorting-strategy
'((agenda habit-down time-up priority-down category-keep) '((agenda habit-down time-up priority-down category-keep)
(todo priority-down tag-up category-up) (todo priority-down category-keep)
(tags priority-down category-keep) (tags priority-down category-keep)
(search category-keep))) (search category-keep)))
(setq org-agenda-tags-column -101) (setq org-agenda-tags-column -101)
@ -101,6 +115,7 @@
("ACQUIRE" :background "red") ("ACQUIRE" :background "red")
("IGNORED" :background "#555555"))) ("IGNORED" :background "#555555")))
(setq org-use-fast-todo-selection t) (setq org-use-fast-todo-selection t)
(setq org-use-property-inheritance '("slug"))
(add-to-list 'org-modules 'habit) (add-to-list 'org-modules 'habit)

View file

@ -31,9 +31,11 @@
(custom-theme-set-faces (custom-theme-set-faces
'yoshi 'yoshi
'(default ((t (:background "#111113" :foreground "#eeeeec")))) '(default ((t (:background "#111113" :foreground "#eeeeec"))))
'(flymake-errline ((t (:background nil :underline (:color "#d16979" :style wave))))) '(flymake-errline ((t (:background nil :underline (:color "#ff756e" :style wave)))))
'(flymake-infoline ((t (:background nil :underline (:color "#4da5d1" :style wave))))) '(flymake-infoline ((t (:background nil :underline (:color "#78a2c1" :style wave)))))
'(flymake-warnline ((t (:background nil :underline (:color "#d19317" :style wave))))) '(flymake-warnline ((t (:background nil :underline (:color "#ffbb56" :style wave)))))
'(flyspell-duplicate ((t (:underline (:color "#ffbb56" :style wave)))))
'(flyspell-incorrect ((t (:underline (:color "#ff756e" :style wave)))))
'(font-lock-comment-delimiter-face ((t (:foreground "#a9a9a9" :slant italic :weight bold)))) '(font-lock-comment-delimiter-face ((t (:foreground "#a9a9a9" :slant italic :weight bold))))
'(font-lock-comment-face ((t (:foreground "#a9a9a9" :slant italic)))) '(font-lock-comment-face ((t (:foreground "#a9a9a9" :slant italic))))
'(font-lock-constant-face ((t (:foreground "#93d8d8")))) '(font-lock-constant-face ((t (:foreground "#93d8d8"))))
@ -51,6 +53,12 @@
'(jabber-roster-user-online ((t (:foreground "#769ff2")))) '(jabber-roster-user-online ((t (:foreground "#769ff2"))))
'(link ((t (:foreground "#ffbb56" :underline t)))) '(link ((t (:foreground "#ffbb56" :underline t))))
'(magit-item-highlight ((t (:weight bold)))) '(magit-item-highlight ((t (:weight bold))))
'(markdown-header-face-1 ((t (:height 1.5 :foreground "#78a2c1"))))
'(markdown-header-face-2 ((t (:height 1.4 :foreground "#93d8d8"))))
'(markdown-header-face-3 ((t (:height 1.3 :foreground "#9ad870"))))
'(markdown-header-face-4 ((t (:height 1.2 :foreground "#c39cc3"))))
'(markdown-header-face-5 ((t (:height 1.1 :foreground "#ff756e"))))
'(markdown-header-face-6 ((t (:height 1.0 :foreground "#a9a9a9"))))
'(minibuffer-prompt ((t (:foreground "#78a2c1")))) '(minibuffer-prompt ((t (:foreground "#78a2c1"))))
'(mode-line ((t (:background "#222224" :foreground "#eeeeec" :box nil)))) '(mode-line ((t (:background "#222224" :foreground "#eeeeec" :box nil))))
'(mode-line-inactive ((t (:background "#171719" :foreground "#999999" :box nil)))) '(mode-line-inactive ((t (:background "#171719" :foreground "#999999" :box nil))))

View file

@ -18,3 +18,5 @@
smtpserverport = 587 smtpserverport = 587
[merge] [merge]
tool = emerge tool = emerge
[push]
default = simple

View file

@ -0,0 +1,8 @@
[Desktop Entry]
Encoding=UTF-8
Name=moc
GenericName=Music Player
Comment=Play Music
Exec=urxvt -e mocp
Icon=audio-x-generic.png
Type=Application

View file

@ -0,0 +1,8 @@
[Desktop Entry]
Encoding=UTF-8
Name=ncmpcpp
GenericName=Music Player
Comment=Play Music
Exec=urxvt -e ncmpcpp
Icon=audio-x-generic.png
Type=Application

View file

@ -0,0 +1,8 @@
[Desktop Entry]
Encoding=UTF-8
Name=poweroff
GenericName=Power Off
Comment=Turn off the power
Exec=systemctl poweroff
Icon=system-shutdown.png
Type=Application

View file

@ -0,0 +1,8 @@
[Desktop Entry]
Encoding=UTF-8
Name=reboot
GenericName=Reboot
Comment=Reboot the system
Exec=systemctl reboot
Icon=reload.png
Type=Application

View file

@ -15,5 +15,8 @@ then
mpdscribble & mpdscribble &
fi fi
test -n "$1" && wm=$1 || wm="emacs" emacs --daemon &
fehlstart &
test -n "$1" && wm=$1 || wm="herbstluftwm"
exec $wm exec $wm

View file

@ -1,4 +1,3 @@
# -*- eval: (git-auto-commit-mode 1) -*-
LESSCMD="less -FXRS" LESSCMD="less -FXRS"
export LESS_TERMCAP_mb=$'\e[1;37m' export LESS_TERMCAP_mb=$'\e[1;37m'
@ -18,3 +17,5 @@ alias grep="grep --color=always"
alias less=$LESSCMD alias less=$LESSCMD
alias ls="ls -F --color=always" alias ls="ls -F --color=always"
alias mysql="mysql --pager" alias mysql="mysql --pager"
alias reboot="systemctl reboot"
alias poweroff="systemctl poweroff"