|
|
| Line 1: |
Line 1: |
| [[File:emacs-logo.png]] | | <div class="container" style="font-family: Open Sans; font-size: 14px; line-height: 20px;"><div class="row"><div class="col-xs-12 col-md-8 col-lg-8"> |
| | {{Slideshow}} |
| | </div><div class="col-xs-12 col-md-4 col-lg-4"> |
| | '''Funtoo Linux''' is a Linux-based operating system that is a variant of [http://en.wikipedia.org/wiki/Gentoo_Linux Gentoo Linux], led by [[User:Drobbins|Daniel Robbins]] (the creator and former Chief Architect of Gentoo) who serves as benevolent dictator for life (BDFL) of the project. ''Funtoo Linux is optimized for the best possible performance, supporting Intel Core i7, AMD FX Processors, and others.'' [[Subarches|See what we support.]] See [[#Distinctives|Distinctives]], below, for more information about what makes us special. |
|
| |
|
| Emacs is a famous text editor, famous by its flexibility and extensibility. One manual describes it as "the extensible, customizable, self-documenting, real-time display editor".
| | '''Other Funtoo Projects include''': |
| | * '''[[Keychain]]''', an SSH/GPG agent front-end. |
| | * '''[[Metro]]''', automated Funtoo build engine. |
| | * '''[[Linux_Fundamentals,_Part_1|Learn Linux]]'''! [[Awk_by_Example,_Part_1|Awk]], [[Bash_by_Example,_Part_1|Bash]], [[Sed_by_Example,_Part_1|Sed]] and more. |
|
| |
|
| This page is designed to give users a good place to share their config and settings for a nice emacs setup.
| |
|
| |
|
| == installing emacs == | | '''Ebuild pages recently updated:''' {{#ask: [[Category:Ebuilds]] |
| | | order=descending |
| | | sort=Modification date |
| | | format=list |
| | | limit=10 |
| | | searchlabel= |
| | }} [[Ebuilds|more...]] |
|
| |
|
| <pre> | | '''Want to submit a screenshot? [http://forums.funtoo.org/index.php?/topic/180-screenshots/ See here.]''' |
| emerge -avt emacs
| | </div></div><div class="row"><div class="col-xs-12"> |
| </pre> | | {{Announce|[[Support Funtoo]] and help us grow! '''Donate $15 per month and get a free SSD-based [[Funtoo Hosting|Funtoo Virtual Container]].'''}} |
| | </div></div><div class="row"><div class="col-xs-12 col-md-4 col-lg-4"> |
| | === News === |
| | {{NewsList|3}} |
| | [[News|View More News...]] |
|
| |
|
| for the standard gnu emacs and
| | === Expand the wiki! === |
|
| |
|
| <pre>
| | The [[:Help:Funtoo_Editing_Guidelines | How to 'wiki']] will help get you started on wiki editing. Have a look at [[Requested-Documents]] and [[:Category:Needs_Updates | pages that need to be updated.]] |
| emerge -avt xemacs
| |
| </pre>
| |
|
| |
|
| for the 1980 created fork of emacs, both should handle the same, while emacs on its own stands here for both. If you install additional extensions for both you might need to add <tt>app-emacs</tt> or <tt>app-xemacs</tt> to the package as there are two different versions for both. | | See [[:Category:Ebuilds|Ebuilds]] for a list of all ebuild pages, and [[Adding an Ebuild to the Wiki]] for information on how to add one. |
| | </div><div class="col-sm-12 col-xs-12 col-md-4 col-lg-4"> |
| | === Distinctives === |
|
| |
|
| == What emacs is and what it is not ==
| | Funtoo Linux is a meta-distribution, which means it is built (fully automatically) with the functionality and optimizations that ''you'' want, not what some distro maintainer thought was best for you. Packages are installed directly from source code, thanks to the [http://en.wikipedia.org/wiki/Portage_(software) Portage ports system], inspired by the FreeBSD ports system, written in Python and with full advanced package management functionality. |
|
| |
|
| (X)Emacs is primarily a text editor and not a word processor, it concentrates on manipulating any kind of text, rather than manipulating the font and look. It is client and GUI based, so can be used on local box in graphical environments with a GUI and remote on a server in a client mode. (X)Emacs provides commands for manipulate every kind of text and syntax highlighting.
| | ''Benefits for desktops'': leaner, optimized, faster system. ''Additional benefits for servers'': enable only what you actually need to reduce attack surface, thus improving security. |
|
| |
|
| === Customizability ===
| | We use [http://en.wikipedia.org/wiki/Git_(software) Git] for all our development, and we also use Git to deliver our ports tree to you. |
|
| |
|
| (X)Emacs is highly customizable in many ways through:
| | In contrast to Gentoo Linux, we offer a number of innovations, including our extensive use of git, [[Funtoo 1.0 Profile|our profile system]], [[Package:Boot-Update|boot-update]] boot management tool, our incredibly flexible [[Funtoo Linux Networking|template-based networking scripts]], [[Metro Quick Start Tutorial|Metro]] distribution build system, support of Debian, RHEL and other kernels, [[Creating_Python-related_Ebuilds|enhanced Python support]], Portage mini-manifests, user-centric distribution model, and a large number of community infrastructure improvements. |
| | </div><div class="col-sm-12 col-xs-12 col-md-4 col-lg-4"> |
| | === Getting Started === |
|
| |
|
| * the <tt>customize</tt> extension, which allows settings of customized variables, such as color themes, graphical interface, etc. This part is intended for emacs beginners, who do not want to work with Emacs lisp code.
| | '''[[Funtoo Linux Installation|Install Funtoo Linux]]''' and get involved in our user community. Get to know fellow users on our '''[http://forums.funtoo.org forums]'''. Funtoo Linux has a very active [http://en.wikipedia.org/wiki/IRC IRC] community on [http://freenode.net Freenode] (in the <code>#funtoo</code> channel) and you are encouraged to hang out with us. |
| * combine keystrokes to execute complex makros.
| |
| * using Emacs Lisp. Designed for the emacs professional.
| |
|
| |
|
| === Extensibility ===
| | '''[[Reporting Bugs|We welcome bug reports and suggestions]]'''. Please report bugs to our '''[http://bugs.funtoo.org bug tracker]'''. We take all bugs seriously, and all work performed is tracked on our bug tracker, for purposes of transparency. |
|
| |
|
| As a result of the above points, (X)Emacs behaviour can be easily definied to all text behavings without limit. Like some of the examples below show you:
| | '''{{CreateAccount}}''', which allows you to log in to the wiki, [http://forums.funtoo.org forums] and [https://bugs.funtoo.org bug tracker]. See the [[Funtoo Authentication FAQ|Auth FAQ]] for more info about account creation. |
|
| |
|
| * AUCTeX, A suite for LaTeX and other TeX versions,
| | '''See our [[Funtoo Linux FAQ|FAQ]] for answers to common questions.''' |
| * ERC, A Emacs IRC client,
| |
| * ORG-mode, A Emacs PIM and Orga tool
| |
| * Wanderlust, A highly flexible Mail tool for Emacs
| |
|
| |
|
| == User Configs ==
| | Other resources include [http://larrythecow.org larrythecow.org], the Gentoo blog aggregator, [http://kernel-seeds.org kernel-seeds.org], and [http://git.funtoo.org git.funtoo.org], our cgit repository browser. |
| === golodhrim's config ===
| | </div></div></div> |
| ==== .emacs ====
| |
|
| |
|
| <pre>
| | __NOTITLE__ |
| ;;;;;;;;;;;;;;;;;;;;;;
| | __NOEDITSECTION__ |
| ;; General Settings ;;
| | {{#subobject:|slideIndex=0|slideCaption= |
| ;;;;;;;;;;;;;;;;;;;;;;
| | <h4>h3nnn4n</h4> |
|
| |
|
| (setq emacs-root-dir (concat (getenv "HOME") "/em/"))
| | Awesome WM / Conky / screenfetch |
| | |slideImage=File:H3nnn4n.jpg}} |
| | {{#subobject:|slideIndex=1|slideCaption= |
| | <h4>Help us document the Gentoo Ecosystem!</h4> |
| | From Enoch to Gentoo to Funtoo to ChromeOS, and beyond... |
| | |slideImage=File:Ecosystem-snapshot.jpg|slideLink=Gentoo Ecosystem}} |
| | {{#subobject:|slideIndex=2|slideCaption= |
| | <h4>brushdemon</h4> |
|
| |
|
| (setq inhibit-startup-message t) ;; Suppress the startup message
| | OpenBox / screenfetch |
| (setq standard-indent 4) ;; Default indent level is 3 chars
| | |slideImage=File:brushdemon.jpg}} |
| (setq-default indent-tabs-mode nil) ;; Indent with spaces, not tabs
| | {{#subobject:|slideIndex=3|slideCaption= |
| | <h4>drobbins</h4> |
|
| |
|
| (setq make-backup-files nil) ;; Enable backup files.
| | [[GNOME First Steps|GNOME 3.14]] / [[Funtoo_Linux_FAQ#Do_you_support_systemd.3F|without systemd]] / Badgers optional |
| (setq version-control nil) ;; Enable versioning with default values
| | |slideImage=File:gnome3122.jpg|slideLink=GNOME First Steps}} |
| (setq backup-directory-alist (quote ((".*" . "~/.emacs_backups/")))) ;; Save all backup file in this directory.
| |
|
| |
|
| (line-number-mode 1) ;; Show line-number in the mode line
| | {{#subobject:|slideIndex=4|slideCaption= |
| (column-number-mode 1) ;; Show column-number in the mode line
| | <h4>spectromas</h4> |
|
| |
|
| (setq auto-fill-mode 1) ;; Line wrap | | [[Package:Awesome_(Window_Manager)|Awesome WM]] |
| | |slideImage=File:awesome.jpg|slideLink=Package:Awesome (Window Manager)}} |
|
| |
|
| (set-default-font "Inconsolata-12")
| | {{#seo: |
| | | |title=Funtoo Linux |
| (setq browse-url-browser-function 'browse-url-generic
| | |keywords=funtoo,linux,gentoo,Daniel Robbins |
| browse-url-generic-program "google-chrome")
| | |description=Funtoo Linux is a Gentoo-based OS that uses a git-based Portage tree. Run by Daniel Robbins, creator of Gentoo. |
| | | }} |
| (global-set-key (kbd "C-<prior>") 'previous-buffer)
| |
| (global-set-key (kbd "C-<next>" ) 'next-buffer )
| |
| | |
| | |
| (setq load-path (cons "~/.emacs.d/plugins" load-path))
| |
| | |
| (setq global-font-lock-mode 1)
| |
| | |
| (show-paren-mode 1)
| |
| | |
| ;;;;;;;;;;;;;;;;;;
| |
| ;; el-get setup ;;
| |
| ;;;;;;;;;;;;;;;;;;
| |
| (add-to-list 'load-path "~/.emacs.d/el-get/el-get")
| |
| (unless (require 'el-get nil t)
| |
| (with-current-buffer
| |
| (url-retrieve-synchronously "https://raw.github.com/golodhrim/el-get/master/el-get-install.el")
| |
| (end-of-buffer)
| |
| (eval-print-last-sexp)))
| |
| | |
| (el-get 'sync)
| |
| | |
| ;;;;;;;;;;;;;;;
| |
| ;; mediawiki ;;
| |
| ;;;;;;;;;;;;;;;
| |
| (require 'mediawiki)
| |
| | |
| ;;;;;;;;;;;;;;;;;;;;
| |
| ;; Org-mode stuff ;;
| |
| ;;;;;;;;;;;;;;;;;;;;
| |
| | |
| ;; Tell emacs where org-mode is
| |
| ;;(setq load-path (cons "/usr/share/emacs/site-lisp/org-mode/" load-path))
| |
| ;;(setq load-path (cons "/usr/share/emacs/site-lisp/org-mode/contrib/" load-path))
| |
| (require 'org-install) ;; Tell emacs to use org-mode
| |
| (add-to-list 'auto-mode-alist '("\\.org$" . org-mode)) ;; Turn on org-mode for all *.org files
| |
| | |
| ;; Some key sequences
| |
| (define-key global-map "\C-cl" 'org-store-link)
| |
| (define-key global-map "\C-ca" 'org-agenda)
| |
| (global-set-key [f9] 'org-archive-subtree-default)
| |
| | |
| (setq org-log-done t) ;; I have no idea what this does, it was in the manual -- think it controls whether or not to log time completed for tasks
| |
| | |
| (setq org-directory "~/notes")
| |
| | |
| ;; Files that should be included in agenda views:
| |
| (setq org-agenda-files (list "~/notes/business.org"
| |
| "~/notes/personal.org"
| |
| "~/notes/projects/"
| |
| "~/notes/projects/writing/"))
| |
| | |
| (setq org-todo-keywords '((type "TODO" "Postponed" "Upcoming" "Doing" "|" "DONE(#)"))) ;; TODO workflows
| |
| | |
| (setq org-tag-alist '(("work" . ?k) ("personal" . ?p) ("organization" . ?o) ("writing" . ?w) ("code" . ?c) ("blog" . ?b) ("funtoo" . ?f) ("social" . ?s))) ;; Most-used tags, with shortcuts
| |
| | |
| ;; Capture stuff
| |
| (setq org-default-notes-file "~/.org/capture.org")
| |
| (define-key global-map "\C-cc" 'org-capture)
| |
| (setq org-refile-targets '((org-agenda-files :level . 1)(org-agenda-files :level . 2)))
| |
| (setq org-refile-use-outline-path 'file)
| |
| | |
| (setq org-capture-templates
| |
| '(("t" "Todo" entry (file+headline "~/.org/capture.org" "Tasks")
| |
| "- TODO %?\n %i\n %a")
| |
| ("j" "Journal" entry (file+datetree "~/.org/journal.org")
| |
| "- %?\nEntered on %U\n %i\n %a")))
| |
| | |
| (setq org-mobile-directory "~/Dropbox/MobileOrg")
| |
| (setq org-mobile-use-encryption)
| |
| (setq org-mobile-use-encryption-password "PASSWORD")
| |
| (setq org-mobile-inbox-for-pull "~/notes/mobileorg/inbox.org")
| |
| | |
| ;;;;;;;;;;;;;;;;;;;
| |
| ;; Markdown Mode ;;
| |
| ;;;;;;;;;;;;;;;;;;;
| |
| | |
| (require 'markdown-mode)
| |
| (add-to-list 'auto-mode-alist '("\\.markdown$" . markdown-mode))
| |
| (add-to-list 'auto-mode-alist '("\\.md$" . markdown-mode))
| |
| | |
| ;;;;;;;;;;;;;;;;
| |
| ;; Python IDE ;;
| |
| ;;;;;;;;;;;;;;;;
| |
| (c-add-style
| |
| "python-new"
| |
| '((indent-tabs-mode . nil)
| |
| (fill-column . 78)
| |
| (c-basic-offset . 4)
| |
| (c-offsets-alist . ((substatement-open . 0)
| |
| (inextern-lang . 0)
| |
| (arglist-intro . +)
| |
| (knr-argdecl-intro . +)))
| |
| (c-hanging-braces-alist . ((brace-list-open)
| |
| (brace-list-intro)
| |
| (brace-list-close)
| |
| (brace-entry-open)
| |
| (substatement-open after)
| |
| (block-close . c-snug-do-while)))
| |
| (c-block-comment-prefix . "* "))
| |
| )
| |
| | |
| ;; This is a very crude hook that auto-selects the C style depending on
| |
| ;; whether it finds a line starting with tab in the first 3000 characters
| |
| ;; in the file
| |
| (defun c-select-style ()
| |
| (save-excursion
| |
| (if (re-search-forward "^\t" 3000 t)
| |
| (c-set-style "python")
| |
| (c-set-style "python-new"))))
| |
| (add-hook 'c-mode-hook 'c-select-style)
| |
| | |
| ;;;;;;;;;;;;
| |
| ;; Django ;;
| |
| ;;;;;;;;;;;;
| |
| (yas/initialize)
| |
| (add-to-list 'load-path "~/.emacs.d/el-get/django-mode/")
| |
| (require 'django-html-mode)
| |
| (require 'django-mode)
| |
| (yas/load-directory "~/.emacs.d/el-get/django-mode/snippets")
| |
| (add-to-list 'auto-mode-alist '("\\.djhtml$" . django-html-mode))
| |
| | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
| |
| ;; Document Engineering (AUCTeX + ConTeXt) ;;
| |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
| |
| (load "auctex.el" nil t t)
| |
| (load "preview-latex.el" nil t t)
| |
| | |
| (setq TeX-auto-save 1)
| |
| (setq TeX-parse-self 1)
| |
| (setq TeX-auto-untabify 1)
| |
| (setq TeX-display-help 1)
| |
| (setq TeX-save-query nil)
| |
| (setq TeX-clean-confirm nil)
| |
| (setq-default TeX-master nil)
| |
| | |
| (add-hook 'TeX-mode-hook (lambda () (TeX-fold-mode 1)))
| |
| (add-hook 'TeX-mode-hook (lambda () (TeX-source-specials-mode 1)))
| |
| (add-hook 'TeX-mode-hook (lambda () (TeX-toggle-debug-bad-boxes)))
| |
| (add-hook 'TeX-mode-hook (lambda () (TeX-toggle-debug-warnings)))
| |
| (add-hook 'TeX-mode-hook (lambda () (outline-minor-mode)))
| |
| (add-hook 'TeX-mode-hook (lambda () (abbrev-mode t)))
| |
| (add-hook 'TeX-mode-hook (lambda () (auto-fill-mode 1)))
| |
| | |
| (add-hook 'TeX-mode-hook 'LaTeX-math-mode)
| |
| | |
| (autoload 'etexshow "etexshow" "Browser for ConTeXt commands." t)
| |
| | |
| (setq etexshow-xml-files-alist
| |
| `((,(concat emacs-root-dir "libs/etexshow/cont-en.xml") .
| |
| ,(concat "/tmp/cont-en.cache"))))
| |
| | |
| (setq etexshow-comment-file
| |
| (concat emacs-root-dir "libs/etexshow/cont-en-comments.xml"))
| |
| | |
| (setq TeX-PDF-mode 1)
| |
| (setq revert-without-query '(".+pdf$"))
| |
| (add-hook 'doc-view-mode-hook 'auto-revert-mode)
| |
| | |
| ;;;;;;;;;;
| |
| ;; bbdb ;;
| |
| ;;;;;;;;;;
| |
| (setq bbdb-file "~/.emacs.d/.bbdb")
| |
| (require 'bbdb)
| |
| (bbdb-initialize)
| |
| (setq
| |
| bbdb-offer-save 1 ;; 1 means save-without-asking
| |
| bbdb-use-pop-up t ;; allow popups for addresses
| |
| bbdb-electric-p t ;; be disposable with SPC
| |
| bbdb-popup-target-lines 1 ;; very small
| |
| bbdb-dwim-net-address-allow-redundancy t ;; always use full name
| |
| bbdb-quiet-about-name-mismatches 2 ;; show name-mismatches 2 secs
| |
| bbdb-always-add-address t ;; add new addresses to existing...
| |
| ;; ...contacts automatically
| |
| bbdb-canonicalize-redundant-nets-p t ;; x@foo.bar.cx => x@bar.cx
| |
| bbdb-completion-type nil ;; complete on anything
| |
| bbdb-complete-name-allow-cycling t ;; cycle through matches
| |
| ;; this only works partially
| |
| bbdb-message-caching-enabled t ;; be fast
| |
| bbdb-use-alternate-names t ;; use AKA
| |
| bbdb-elided-display t ;; single-line addresses
| |
| ;; auto-create addresses from mail
| |
| bbdb/mail-auto-create-p 'bbdb-ignore-some-messages-hook
| |
| bbdb-ignore-some-messages-alist ;; don't ask about fake addresses
| |
| ;; NOTE: there can be only one entry per header (such as To, From)
| |
| ;; http://flex.ee.uec.ac.jp/texi/bbdb/bbdb_11.html
| |
| '(( "From" . "no.?reply\\|DAEMON\\|daemon\\|facebookmail\\|twitter")))
| |
| | |
| ;;;;;;;;;;;;;;;;;
| |
| ;; Jabber Mode ;;
| |
| ;;;;;;;;;;;;;;;;;
| |
| | |
| (require 'jabber-autoloads)
| |
| (setq jabber-account-list '(
| |
| ("USER@jabber-server.tld"
| |
| (:password . "PASSWORD")
| |
| )
| |
| )
| |
| )
| |
| (setq
| |
| jabber-history-enabled t
| |
| jabber-use-global-history nil
| |
| jabber-backlog-number 40
| |
| jabber-backlog-days 30
| |
| )
| |
| | |
| (add-hook 'jabber-chat-mode-hook 'goto-address)
| |
| | |
| (load "~/.emacs.d/plugins/autosmiley.el")
| |
| (require 'autosmiley)
| |
| (add-hook 'jabber-chat-mode-hook 'autosmiley-mode)
| |
| | |
| (defvar libnotify-program "/usr/bin/notify-send")
| |
| | |
| (defun notify-send (title message)
| |
| (start-process "notify" " notify"
| |
| libnotify-program "--expire-time=4000" title message))
| |
| | |
| (defun libnotify-jabber-notify (from buf text proposed-alert)
| |
| "(jabber.el hook) Notify of new Jabber chat messages via libnotify"
| |
| (when (or jabber-message-alert-same-buffer
| |
| (not (memq (selected-window) (get-buffer-window-list buf))))
| |
| (if (jabber-muc-sender-p from)
| |
| (notify-send (format "(PM) %s"
| |
| (jabber-jid-displayname (jabber-jid-user from)))
| |
| (format "%s: %s" (jabber-jid-resource from) text)))
| |
| (notify-send (format "%s" (jabber-jid-displayname from))
| |
| text)))
| |
| | |
| (add-hook 'jabber-alert-message-hooks 'libnotify-jabber-notify)
| |
| | |
| (defun jabber-visit-history (jid)
| |
| "Visit jabber history with JID in a new buffer.
| |
| | |
| Performs well only for small files. Expect to wait a few seconds
| |
| for large histories. Adapted from `jabber-chat-create-buffer'."
| |
| (interactive (list (jabber-read-jid-completing "JID: ")))
| |
| (let ((buffer (generate-new-buffer (format "*-jabber-history-%s-*"
| |
| (jabber-jid-displayname jid)))))
| |
| (switch-to-buffer buffer)
| |
| (make-local-variable 'jabber-chat-ewoc)
| |
| (setq jabber-chat-ewoc (ewoc-create #'jabber-chat-pp))
| |
| (mapc 'jabber-chat-insert-backlog-entry
| |
| (nreverse (jabber-history-query nil nil t t "."
| |
| (jabber-history-filename jid))))
| |
| (view-mode)))
| |
| | |
| ;;;;;;;;;;
| |
| ;; EMMS ;;
| |
| ;;;;;;;;;;
| |
| (require 'emms-setup)
| |
| (emms-devel)
| |
| (emms-default-players)
| |
| | |
| ;;;;;;;;;
| |
| ;; ERC ;;
| |
| ;;;;;;;;;
| |
| (require 'erc)
| |
| (require 'erc-extension)
| |
| (require 'erc-services)
| |
| (require 'erc-tex)
| |
| (require 'tls)
| |
| (require 'erc-nicklist)
| |
| | |
| (and
| |
| (require 'erc-highlight-nicknames)
| |
| (add-to-list 'erc-modules 'highlight-nicknames)
| |
| (erc-update-modules))
| |
| | |
| (erc-services-mode 1)
| |
| | |
| (setq tls-program '("openssl s_client -connect %h:%p -no_ssl2 -ign_eof
| |
| -CAfile /home/USER/.ssl/USER.pem
| |
| -cert /home/USER/.ssl/USER.pem"
| |
| "gnutls-cli --priority secure256
| |
| --x509cafile /home/USER/.ssl/USER.pem
| |
| --x509certfile /home/USER/.ssl/USER.pem -p %p %h"
| |
| "gnutls-cli --priority secure256 -p %p %h"))
| |
| | |
| (autoload 'erc-nick-notify-mode "erc-nick-notify" "Minor mode that calls `erc-nick-notify-cmd' when his nick gets mentioned in an erc channel" t)
| |
| (eval-after-load 'erc '(erc-nick-notify-mode t))
| |
| (defun irc-erc ()
| |
| "Fire up IRC."
| |
| (interactive)
| |
| (erc-tls :server "chat.freenode.net" :port 7000 :nick "USER" :full-name "FULL NAME" :password "PASSWORD"))
| |
| | |
| (setq erc-autojoin-channels-alist '(("freenode.net" "#frogandowl" "#funtoo" "#funtoo-quebec" "#syntazia" "#context" "#nginx" "#emacs" "#openvswitch")))
| |
| (setq erc-log-channels-directory "~/.erc/logs/")
| |
| (setq erc-log-insert-log-on-open nil)
| |
| (setq erc-save-buffer-on-part nil
| |
| erc-save-buffer-queries-on-quit nil
| |
| erc-log-write-after-send t
| |
| erc-log-write-after-insert t)
| |
| | |
| (require 'smiley)
| |
| (add-to-list 'smiley-regexp-alist '("\\(:-?]\\)\\W" 1 "forced"))
| |
| (add-to-list 'smiley-regexp-alist '("\\s-\\(:-?/\\)\\W" 1 "wry"))
| |
| (add-to-list 'smiley-regexp-alist '("\\(:-?(\\)\\W" 1 "sad"))
| |
| (add-to-list 'smiley-regexp-alist '("\\((-?:\\)\\W" 1 "reverse-smile"))
| |
| (add-to-list 'smiley-regexp-alist '("\\(:-?D\\)\\W" 1 "grin"))
| |
| (add-to-list 'smiley-regexp-alist '("\\(:-?P\\)\\W" 1 "poke"))
| |
| | |
| ;; (setq smiley-cached-regexp-alist nil)
| |
| ;; (smiley-update-cache)
| |
| | |
| ;;;;;;;;;;;;;;;;
| |
| ;; Wanderlust ;;
| |
| ;;;;;;;;;;;;;;;;
| |
| (autoload 'wl "wl" "Wanderlust" t)
| |
| | |
| ;;;;;;;;;;;;;;;
| |
| ;; mailcrypt ;;
| |
| ;;;;;;;;;;;;;;;
| |
| (require 'mailcrypt)
| |
| (add-hook 'wl-summary-mode-hook 'mc-install-read-mode)
| |
| (add-hook 'wl-mail-setup-hook 'mc-install-write-mode)
| |
| | |
| (defun mc-wl-verify-signature ()
| |
| (interactive)
| |
| (save-window-excursion
| |
| (wl-summary-jump-to-current-message)
| |
| (mc-verify)))
| |
| | |
| (defun mc-wl-decrypt-message ()
| |
| (interactive)
| |
| (save-window-excursion
| |
| (wl-summary-jump-to-current-message)
| |
| (let ((inhibit-read-only t))
| |
| (mc-decrypt))))
| |
| | |
| (eval-after-load "mailcrypt"
| |
| '(setq mc-modes-alist
| |
| (append
| |
| (quote
| |
| ((wl-draft-mode (encrypt . mc-encrypt-message)
| |
| (sign . mc-sign-message))
| |
| (wl-summary-mode (decrypt . mc-wl-decrypt-message)
| |
| (verify . mc-wl-verify-signature))))
| |
| mc-modes-alist)))
| |
| | |
| ;;;;;;;;;;;;;;;;;;;;;
| |
| ;; notify function ;;
| |
| ;;;;;;;;;;;;;;;;;;;;;
| |
| (defun djcb-popup (title msg &optional icon sound)
| |
| "Show a popup if we're on X, or echo it otherwise; TITLE is the title of the message, MSG is the context. Optionally, you can provide an ICON and a sound to be played"
| |
| (interactive)
| |
| (when sound (shell-command
| |
| (concat "mplayer2 -really-quiet " sound " 2> /dev/null")))
| |
| (if (eq window-system 'x)
| |
| (shell-command (concat "notify-send "
| |
|
| |
| (if icon (concat "-i " icon) "")
| |
| " '" title "' '" msg "'"))
| |
| ;; text only version
| |
| (message (concat title ": " msg))))
| |
| | |
| ;; the appointment notification facility
| |
| (setq
| |
| appt-message-warning-time 15 ;; warn 15 min in advance
| |
| appt-display-mode-line t ;; show in the modeline
| |
| appt-display-format 'window) ;; usr our func
| |
| (appt-activate t) ;; active appt (appointment notification)
| |
| (display-time)
| |
| | |
| ;; update appt each time agenda opened
| |
| (add-hook 'org-finalize-agenda-hook 'org-agenda-to-appt)
| |
| | |
| ;; our little facade-function for djcb-popup
| |
| (defun djcb-appt-display (min-to-app new-time msg)
| |
| (djcb-popup (format "Appointment in %s minute(s)" min-to-app) msg
| |
| "/usr/share/icons/gnome/32x32/status/appointment-soon.png"
| |
| "/usr/share/sounds/purple/alert.wav"))
| |
| (setq appt-disp-window-function (function djcb-appt-display))
| |
| | |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;
| |
| ;; Custom Variable sets ;;
| |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;
| |
| (custom-set-variables
| |
| ;; custom-set-variables was added by Custom.
| |
| ;; If you edit it by hand, you could mess it up, so be careful.
| |
| ;; Your init file should contain only one such instance.
| |
| ;; If there is more than one, they won't work right.
| |
| '(TeX-command-list (quote (("TeX" "%(PDF)%(tex) %`%S%(PDFout)%(mode)%' %t" TeX-run-TeX nil (plain-tex-mode texinfo-mode ams-tex-mode) :help "Run plain TeX") ("LaTeX" "%`%l%(mode)%' %t" TeX-run-TeX nil (latex-mode doctex-mode) :help "Run LaTeX") ("Makeinfo" "makeinfo %t" TeX-run-compile nil (texinfo-mode) :help "Run Makeinfo with Info output") ("Makeinfo HTML" "makeinfo --html %t" TeX-run-compile nil (texinfo-mode) :help "Run Makeinfo with HTML output") ("AmSTeX" "%(PDF)amstex %`%S%(PDFout)%(mode)%' %t" TeX-run-TeX nil (ams-tex-mode) :help "Run AMSTeX") ("ConTeXt MKIV" "context %t" TeX-run-TeX nil (context-mode) :help "Run ConTeXt MKIV") ("ConTeXt" "texexec --once --texutil %(execopts)%t" TeX-run-TeX nil (context-mode) :help "Run ConTeXt once") ("ConTeXt Full" "texexec %(execopts)%t" TeX-run-TeX nil (context-mode) :help "Run ConTeXt until completion") ("BibTeX" "bibtex %s" TeX-run-BibTeX nil t :help "Run BibTeX") ("View" "%V" TeX-run-discard-or-function t t :help "Run Viewer") ("Print" "%p" TeX-run-command t t :help "Print the file") ("Queue" "%q" TeX-run-background nil t :help "View the printer queue" :visible TeX-queue-command) ("File" "%(o?)dvips %d -o %f " TeX-run-command t t :help "Generate PostScript file") ("Index" "makeindex %s" TeX-run-command nil t :help "Create index file") ("Check" "lacheck %s" TeX-run-compile nil (latex-mode) :help "Check LaTeX file for correctness") ("Spell" "(TeX-ispell-document \"\")" TeX-run-function nil t :help "Spell-check the document") ("Clean" "TeX-clean" TeX-run-function nil t :help "Delete generated intermediate files") ("Clean All" "(TeX-clean t)" TeX-run-function nil t :help "Delete generated intermediate and output files") ("Other" "" TeX-run-command t t :help "Run an arbitrary command"))))
| |
| '(column-number-mode t)
| |
| '(erc-modules (quote (autojoin bbdb button completion fill irccontrols list log match menu move-to-prompt netsplit networks noncommands readonly ring services smiley stamp spelling track)))
| |
| '(mediawiki-site-alist (quote (("Funtoo" "http://www.funtoo.org/" "USER" "PASSWORD" "")))))
| |
| (custom-set-faces
| |
| ;; custom-set-faces was added by Custom.
| |
| ;; If you edit it by hand, you could mess it up, so be careful.
| |
| ;; Your init file should contain only one such instance.
| |
| ;; If there is more than one, they won't work right.
| |
| )
| |
| | |
| ;;;;;;;;;;;;;;;;;;
| |
| ;; Color-Themes ;;
| |
| ;;;;;;;;;;;;;;;;;;
| |
| ;;(add-to-list 'load-path "/usr/share/emacs/site-lisp/color-theme/color-theme.el")
| |
| ;;(add-to-list 'load-path "~/.emacs.d/themes/")
| |
| (require 'color-theme)
| |
| (color-theme-initialize)
| |
| ;;(color-theme-subtle-hacker)
| |
| (color-theme-twilight)
| |
| ;;(eval-after-load "color-theme"
| |
| ;; '(progn
| |
| ;; (color-theme-initialize)
| |
| ;; (require 'color-theme-citrus)
| |
| ;; (require 'color-theme-candy)
| |
| ;; (require 'color-theme-autumn-leaves)
| |
| ;; (require 'color-theme-inthedark)
| |
| ;; (require 'color-theme-marine)
| |
| ;; (require 'color-theme-october)
| |
| ;; (require 'color-theme-eatyourgreens)
| |
| ;; (require 'color-theme-august)
| |
| ;; (require 'color-theme-saddle-2)
| |
| ;; (color-theme-saddle-2)))
| |
| ;; (color-theme-subtle-hacker)))
| |
| | |
| (setq css-indent-offset 2)
| |
| </pre>
| |
| | |
| ==== .wl ====
| |
| | |
| <pre>
| |
| ;; load bbdb support
| |
| (require 'bbdb-wl)
| |
| (bbdb-wl-setup)
| |
| | |
| ;; setup from where to get addresses
| |
| (setq bbdb-wl-folder-regexp "^\.INBOX|^\.inbox|^\.Sent|^\.sent|^\.\[IMAPS\]\\Sent")
| |
| | |
| ;; define keybinding
| |
| (define-key wl-draft-mode-map (kbd "<C-tab>") 'bbdb-complete-name)
| |
| | |
| ;; set multiple e-mail addresses
| |
| (setq wl-user-mail-address-list (quote ("User@googlemail.com" "USER@own-server.tld")))
| |
| | |
| ;; handle ("d") mark
| |
| ;; remove = instant removal (same as "D"), thrash = move to wl-trash-folder
| |
| ;; string = move to string
| |
| (setq wl-dispose-folder-alist
| |
| '(
| |
| ("\.\*googlemail\\.com" "%[Imap]/Trash:"User@googlemail.com"/clear@imap.gmail.com:993!")
| |
| ("\.\*@own\-\server\\.tld" "%INBOX.Trash:"USER"/clear@imap.own-server.tld")
| |
| ))
| |
| | |
| ;; notify hook
| |
| (add-hook 'wl-biff-notify-hook
| |
| (lambda()
| |
| (djcb-popup "Wanderlust" "You have new mail!"
| |
| "/usr/share/icons/gnome/32x32/status/mail-unread.png"
| |
| "/usr/share/sounds/purple/alert.wav")))
| |
| | |
| ;; timer settings
| |
| (setq
| |
| wl-biff-check-interval 30 ;; check every 30 seconds
| |
| wl-biff-use-idle-timer t) ;; in the background
| |
| | |
| ;; Name of top-folder, default "Desktop"
| |
| (setq wl-folder-desktop-name "e-Mail")
| |
| | |
| ;; select correct email address when we _start_ writing a draft.
| |
| (add-hook 'wl-mail-setup-hook 'wl-draft-config-exec)
| |
| | |
| (setq wl-draft-config-alist
| |
| '(
| |
| ((string-match "googlemail.com" wl-draft-parent-folder)
| |
| (template . "User"))
| |
| ((string-match "own-server.tld" wl-draft-parent-folder)
| |
| (template . "USER"))
| |
| ))
| |
| | |
| ;; choose template with C-c C-j
| |
| (setq wl-template-alist
| |
| '(("User"
| |
| (wl-from . "Full Name <User@googlemail.com>")
| |
| ("From" . wl-from)
| |
| (wl-smtp-posting-user . "User")
| |
| (wl-smtp-posting-server . "smtp.gmail.com")
| |
| (wl-smtp-authenticate-type . "plain")
| |
| (wl-smtp-connection-type . 'starttls)
| |
| (wl-smtp-posting-port . 587)
| |
| (wl-local-domain . "googlemail.com")
| |
| (wl-message-id-domain . "smtp.gmail.com")
| |
|
| |
| (wl-fcc . "%[IMAPS]/Sent:\"User@googlemail.com\"/clear@imap.gmail.com:993!")
| |
| (wl-draft-folder . "%[IMAPS]/Draft:\"User@googlemail.com\"/clear@imap.gmail.com:993!")
| |
| )
| |
| ("USER"
| |
| (wl-from . "Full Name <USER@own-server.tld>")
| |
| ("From" . wl-from)
| |
| (wl-smtp-posting-user . "USER")
| |
| (wl-smtp-posting-server . "smtp.own-server.tld")
| |
| (wl-local-domain . "own-server.tld")
| |
|
| |
| (wl-fcc "%INBOX.Sent:USER/digest-md5@imap.own-server.tld:143")
| |
| (wl-draft-folder "%INBOX.Drafts:USER/digest-md5@imap.own-server.tld:143")
| |
| )
| |
| )
| |
| )
| |
| | |
| (define-key wl-template-mode-map (kbd "<right>") 'wl-template-next)
| |
| (define-key wl-template-mode-map (kbd "<left>") 'wl-template-prev)
| |
| | |
| (setq wl-default-spec "%")
| |
| | |
| (setq wl-fcc-force-as-read t)
| |
| (setq wl-auto-save-drafts-interval nil)
| |
| </pre>
| |
| | |
| ==== .folders ====
| |
| | |
| <pre>
| |
| User@googlemail{
| |
| %INBOX:"User@googlemail.com"/clear@imap.gmail.com:993! "Inbox"
| |
| [IMAPS-gmail]{
| |
| %[IMAPS]/Sent:"User@googlemail.com"/clear@imap.gmail.com:993! "Sent"
| |
| %[IMAPS]/Draft:"User@googlemail.com"/clear@imap.gmail.com:993! "Draft"
| |
| %[IMAPS]/Spam:"User@googlemail.com"/clear@imap.gmail.com:993! "Spam"
| |
| %[IMAPS]/Trash:"User@googlemail.com"/clear@imap.gmail.com:993! "Trash"
| |
| }
| |
| } | |
| USER@own-server.tld{
| |
| %INBOX:USER/digest-md5@imap.own-server.tld "Inbox"
| |
| %INBOX.Sent:USER/digest-md5@imap.own-server.tld "Sent"
| |
| %INBOX.Drafts:USER/digest-md5@imap.own-server.tld "Drafts"
| |
| }
| |
| </pre>
| |
| | |
| [[Category:HOWTO]]
| |
| [[Category:Featured]]
| |
