(set-frame-parameter nil 'alpha transparency-level) Put this snippet in a config file to set Aquamacs’ transparency, as well as the transparency of frames created with C-x 5 2 (setq transparency-level 85)
(global-set-key (kbd "C-<") 'transparency-decrease) "Decrease level of transparency for the current frame" (message "This is a minimum value of transparency!"))) (set-frame-parameter nil 'alpha (+ (frame-parameter nil 'alpha) -2)) (message "Error! The maximum value for transparency is 100!") (interactive "nEnter transparency level in range 0-100: ") "Set level of transparency for the current frame" ( if (equal (frame-parameter nil 'alpha) nil) "Set initial value of alpha parameter for the current frame"
( defun transparency-set-initial-value ()
TABLES IN WRITEROOM CODE
The code below lets for easy and comfortable handle the current frame transparency (works in Aquamacs and Carbon Emacs). In this case the first number is for the active window and the second for the inactive window. I could not get the above to work in my Preferences.el after a bit of googling this worked for me: (add-to-list 'default-frame-alist '(alpha. To make a frame fully visible: (modify-frame-parameters (selected-frame) '((alpha. For example: (modify-frame-parameters (selected-frame) '((alpha. To make a frame transparent, use the frame parameter ‘alpha’ with an argument from about 30 (very transparent) to 100 (fully visible). (global-set-key (kbd " \C-c ø") 'TeX-next-error) Frame transparency As a work-around, add the following to your InitFile or Preferences.el: (global-set-key (kbd " \C-c 'TeX-next-error) German keyboards and AUCTeXĭue to a bug in 0.9.9c, the C-c ‘ key command can’t be entered with German keyboards. Since I otherwise would have this constant routine of M-x aq TAB t TAB RET, C-xb aslkdfj RET, C-z, Command-H. I use this since if you iconify an Aquamacs frame, it’ll still let you type in the open buffer I always switch to scratch to make sure none of my important stuff is changed (this also lets you type things without anyone seeing what you’re typing, if you have a use for that…)Īctually, I also have this line in there, after (iconify-frame): ( do-applescript hide Aquamacs "tell application \"System Events \" \nset visible of process \"Aquamacs \" to false \nend tell") Uncomment the seventh line if you want to protect your buffer from input when iconified. (define-key global-map " \C-z" #'iconify-or-deiconify-frame-fullscreen-even) ( if (eq (cdr (assq 'visibility (frame-parameters))) t) I get the error message “Cannot notify window manager of iconification” when pressing C-z in the new fullscreen mode, so I made my own that first checks for fullscreen mode and if so, exits (I guess this is a bug): ( defun iconify-or-deiconify-frame-fullscreen-even () (aquamacs-toggle-full-frame))) Iconify from Aquamacs' fullscreen-mode "Switches to a WriteRoom-like fullscreen style"
TABLES IN WRITEROOM FREE
With a few lines of lisp, you can define a function which uses this feature to reproduce the large font, black background style of WriteRoom, the free application which first popularized this feature: ( defun writeroom () This is great for writing without distractions. (growl-chat (format "%s mentioned a Keyword" nick) message))))))Īs of version 1.4, Aquamacs includes a fullscreen mode which fills the screen concealing the dock, the menubar, and other applications. (growl-chat-sticky (format "%s said %s" nick (erc-current-nick)) message)) ( lambda (match-type nickuserhost message) ERC notifications Growl nicknames and highlight words when they are mentioned in IRC. ( defun growl-chat-sticky (title message) (format "/usr/local/bin/growlnotify %s -m '%s' -appIcon 'Aquamacs Emacs' %s" title message ( if sticky "-sticky" "")))) ( defun growl-chat (title message &optional sticky)
Growl support Requires growlnotify, source for which is included in the Growl disk image Note that the growlnotify -image option is not reliable on OSX 10.5 see &t=17526 &p=114069 Wrapper for growlnotify Frequently Asked Questions: AquamacsFAQ (check this first!) Growl Support in AquamacsĪside from ToDoChiKu, there seems to be very little information available on getting Growl to work with ERC Here is one way of enabling Growl notifications in Aquamacs 1.7 on OS X.