Permalink
Browse files

Add some transparency stuff.

  • Loading branch information...
1 parent 988416b commit 80299202ddf368f1c16373bdfa0ae7c453f30a91 @Raynes committed Apr 27, 2012
Showing with 13 additions and 4 deletions.
  1. +11 −2 init.el
  2. +2 −2 url/cookies
View
13 init.el
@@ -7,6 +7,15 @@
(set-frame-height (selected-frame) 60)
(set-frame-width (selected-frame) 130))
+(eval-when-compile (require 'cl))
+(defun toggle-transparency ()
+ (interactive)
+ (let ((param (cadr (frame-parameter nil 'alpha))))
+ (if (and param (/= param 100))
+ (set-frame-parameter nil 'alpha '(100 100))
+ (set-frame-parameter nil 'alpha '(85 50)))))
+(global-set-key (kbd "C-c t") 'toggle-transparency)
+
;; Set font
(set-face-attribute 'default nil :family "Anonymous Pro" :height 130)
@@ -125,9 +134,8 @@
;; ERC
(eval-after-load 'znc
'(progn
- (global-set-key (kbd "C-c z") 'znc-all)
-
(require 'todochiku)
+ (global-set-key (kbd "C-c z") 'znc-all)
(defun highlight-me (match-type nick message)
(unless (posix-string-match "^\\** Users on #" message)
@@ -209,3 +217,4 @@
;; Theme
(add-to-list 'custom-theme-load-path "/Users/anthony/.emacs.d/non-elpa/emacs-color-theme-solarized")
(load-theme 'solarized-dark t)
+
View
@@ -5,8 +5,8 @@
'nil)
(setq url-cookie-secure-storage
'(("gist.github.com"
- [url-cookie "HttpOnly" nil "01-Jan-2021 00:00:00.00 GMT" "/" "gist.github.com" t]
- [url-cookie "_gh_sess" "BAh7CDoPc2Vzc2lvbl9pZCIlMWM5NDNhZTgxMGE3OWNhMmVkZGUwNTQ0ZWRlY2UxOGQ6EGZpbmdlcnByaW50IiVjZDk3NzlkMzA5ZDJlYjg3ZjEyMzYzNmVkNWQ2ZWFjYjoJdXNlcmkCo9Q%3D--93d73a30578642b8a5a333ffea8eedbee4873f79" "01-Jan-2021 00:00:00.00 GMT" "/" "gist.github.com" t]))
+ [url-cookie "_gh_sess" "BAh7CDoPc2Vzc2lvbl9pZCIlMWM5NDNhZTgxMGE3OWNhMmVkZGUwNTQ0ZWRlY2UxOGQ6EGZpbmdlcnByaW50IiVjZDk3NzlkMzA5ZDJlYjg3ZjEyMzYzNmVkNWQ2ZWFjYjoJdXNlcmkCo9Q%3D--93d73a30578642b8a5a333ffea8eedbee4873f79" "01-Jan-2021 00:00:00.00 GMT" "/" "gist.github.com" t]
+ [url-cookie "HttpOnly" nil "01-Jan-2021 00:00:00.00 GMT" "/" "gist.github.com" t]))
)
;; Local Variables:

0 comments on commit 8029920

Please sign in to comment.