[ale] [OT] Making Emacs transparent in Cywgin

[Jim Kinney]

YOU HAVE USED YOUR ENTIRE ALLOTMENT OF PARENTHESES FOR NOVEMBER 2013
THROUGH MARCH 2015

THIS WILL BE YOUR FINAL WARNING.


cygwin kept me sane while doing HPUX support on win2k systems at HP.  It
also meant I had more capabilities than everyone else so I ran virtual
screens (in 2001 windows) so I could track more running things than the
rest of the team :-)

Nice hack!


On Thu, Oct 31, 2013 at 10:21 AM, Jonathan Meek
<jonathan.l.meek at gmail.com>wrote:

> Hey guys,
>
> Came across a way to make Emacs transparent in Cywgin after a bit of
> research and wanted to share.
>
> 1) start up Emacs
> 2) Add the following code to the buffer:
>
>          (defun djcb-opacity-modify (&optional dec)
>   "modify the transparency of the emacs frame; if DEC is t,
>     decrease the transparency, otherwise increase it in 10%-steps"
>   (let* ((alpha-or-nil (frame-parameter nil 'alpha)) ; nil before setting
>           (oldalpha (if alpha-or-nil alpha-or-nil 100))
>           (newalpha (if dec (- oldalpha 10) (+ oldalpha 10))))
>     (when (and (>= newalpha frame-alpha-lower-limit) (<= newalpha 100))
>       (modify-frame-parameters nil (list (cons 'alpha newalpha))))))
>
>  ;; C-8 will increase opacity (== decrease transparency)
>  ;; C-9 will decrease opacity (== increase transparency
>  ;; C-0 will returns the state to normal
> (global-set-key (kbd "C-8") '(lambda()(interactive)(djcb-opacity-modify)))
> (global-set-key (kbd "C-9") '(lambda()(interactive)(djcb-opacity-modify
> t)))
> (global-set-key (kbd "C-0") '(lambda()(interactive)
>                                (modify-frame-parameters nil `((alpha .
> 100)))))
>
> 3) save the file (C-x C-s) at ~/emacs.d/init.el
> 4) restart Emacs
>
> Note: this sets that C-8 decrease transparency, C-9 to increase
> transparency and C-0 to set to normal
>
> Resources to make this guide:
> http://emacs-fu.blogspot.com/2009/02/transparent-emacs.html
> http://www.cs.colostate.edu/helpdocs/emacs.html
> http://www.emacswiki.org/emacs/InitFile
>
> Regards,
>
> Jonathan
>
> _______________________________________________
> Ale mailing list
> Ale at ale.org
> http://mail.ale.org/mailman/listinfo/ale
> See JOBS, ANNOUNCE and SCHOOLS lists at
> http://mail.ale.org/mailman/listinfo
>
>


-- 
-- 
James P. Kinney III
*
*Every time you stop a school, you will have to build a jail. What you gain
at one end you lose at the other. It's like feeding a dog on his own tail.
It won't fatten the dog.
- Speech 11/23/1900 Mark Twain
*
http://heretothereideas.blogspot.com/
*
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.ale.org/pipermail/ale/attachments/20131031/431ca895/attachment.html>