![]() (autoload 'python-mode "python-mode" "Python editing mode." t) Changing Aquamacs Frame Properties (Size, Color) (setq initial-frame-alist '((background-color. (setq interpreter-mode-alist (cons '("python". Mkdir ~/Library/Application\ Support/Emacs/site-lispĬp python-mode.el ~/Library/Application\ Support/Emacs/site-lisp/ (setq auto-mode-alist (cons '("\\.py$". Mkdir ~/Library/Application\ Support/Emacs Sudo cp python-mode.el /Library/Application\ Support/Emacs/site-lisp/ Alternatively in your home folder: Sudo mkdir /Library/Application\ Support/Emacs/site-lisp (call-process "/usr/bin/open" nil 0 nil file-name)))) Adding a different Python mode sudo mkdir /Library/Application\ Support/Emacs (shell-command (concat "open '" file-name "'" nil ))))) (defun dired-open-mac () ![]() (let ((file-name (dired-get-file-for-visit))) ![]() (defalias 'xml-mode 'nxml-mode)) Use "Open" command in Dired Mode (define-key dired-mode-map "o" 'dired-open-mac) (when (and (featurep 'emacs) (load "~/nxml-mode/rng-auto.el" t)) (add-hook 'nxml-mode-hook 'nxml-mode-indent-setup) (unless (featurep 'xemacs) (add-hook 'sgml-mode-hook 'sgml-mode-indent-setup) (defun nxml-mode-indent-setup () (define-key osx-key-mode-map (kbd "A-w") 'kill-this-buffer)Ĭhange the indentation width in xml-mode M-x set-variable RET sgml-basic-offset RET 4 (defun sgml-mode-indent-setup () (define-key osx-key-mode-map (kbd "A-w") 'my-close-current-window-asktosave) (defun my-close-current-window-asktosave () (define-key osx-key-mode-map (kbd "A-n") 'my-new-frame-with-new-scratch) ~/Library/Preferences/Aquamacs Emacs/Preferences.el Open -a /Applications/Aquamacs.app Opening Files In Same Frame, but keep Apple-N functionality the same (one-buffer-one-frame-mode 0) # Create the files as needed - not as good as raw emacs, but acceptable > sudo /Applications/Aquamacs.app/Contents/MacOS/Aquamacs aquamacs='open -b ' function amacs "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" (80 70))) (defun transparency-set-initial-value () 100))) (add-to-list 'default-frame-alist '(alpha. 75))) (modify-frame-parameters (selected-frame) '((alpha. (global-set-key (kbd "\C-c ø") 'TeX-next-error) Frame transparency (modify-frame-parameters (selected-frame) '((alpha. "tell application \"System Events\"\nset visible of process \"Aquamacs\" to false\nend tell") German keyboards and AUCTeX (global-set-key (kbd "\C-c 'TeX-next-error) (define-key global-map "\C-z" #'iconify-or-deiconify-frame-fullscreen-even) (do-applescript hide Aquamacs (if (eq (cdr (assq 'visibility (frame-parameters))) t) (aquamacs-toggle-full-frame))) Iconify from Aquamacs' fullscreen-mode (defun iconify-or-deiconify-frame-fullscreen-even () "Switches to a WriteRoom-like fullscreen style" WriteRoom-like fullscreen editing mode (defun writeroom () (growl-chat (format "%s mentioned a Keyword" nick) message)))))) (growl-chat-sticky (format "%s said %s" nick (erc-current-nick)) message)) (lambda (match-type nickuserhost message) Growl nicknames and highlight words when they are mentioned in IRC. (format "/usr/local/bin/growlnotify %s -m '%s' -appIcon 'Aquamacs Emacs' %s" title message (if sticky "-sticky" "")))) (defun growl-chat (title message
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |