larstvei/emacs
1
1
Fork 0
mirror of https://github.com/larstvei/dot-emacs.git synced 2024-11-26 07:28:31 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

A purely aesthetic change.

Browse Source
This commit is contained in:
larstvei 2014-01-05 17:28:39 +01:00
parent d18b21f106
commit 0c3f4c2807
2 changed files with 31 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
init.el
View File

@ -88,8 +88,7 @@ PACKAGE is installed and the current version is deleted."
org ; Outline-based notes management and organizer org ; Outline-based notes management and organizer
paredit ; minor mode for editing parentheses paredit ; minor mode for editing parentheses
pretty-lambdada ; the word `lambda' as the Greek letter. pretty-lambdada ; the word `lambda' as the Greek letter.
smex ; M-x interface with Ido-style fuzzy matching. smex)) ; M-x interface with Ido-style fuzzy matching.
))
(upgrade-or-install-package package))) (upgrade-or-install-package package)))
(dolist (feature (dolist (feature
@ -99,8 +98,7 @@ PACKAGE is installed and the current version is deleted."
pretty-lambdada ; show 'lambda' as the greek letter. pretty-lambdada ; show 'lambda' as the greek letter.
ox-latex ; the latex-exporter (from org) ox-latex ; the latex-exporter (from org)
recentf ; recently opened files recentf ; recently opened files
tex-mode ; TeX, LaTeX, and SliTeX mode commands tex-mode)) ; TeX, LaTeX, and SliTeX mode commands
))
(require feature)) (require feature))
(setq initial-scratch-message nil ; Clean scratch buffer. (setq initial-scratch-message nil ; Clean scratch buffer.
@ -108,18 +106,16 @@ PACKAGE is installed and the current version is deleted."
default-input-method "TeX" ; Use TeX when toggeling input method. default-input-method "TeX" ; Use TeX when toggeling input method.
ring-bell-function 'ignore ; Quite as a mouse. ring-bell-function 'ignore ; Quite as a mouse.
doc-view-continuous t ; At page edge goto next/previous. doc-view-continuous t ; At page edge goto next/previous.
echo-keystrokes 0.1 ; Show keystrokes asap. echo-keystrokes 0.1) ; Show keystrokes asap.
)
;; Some mac-bindings interfere with Emacs bindings. ;; Some mac-bindings interfere with Emacs bindings.
(when (boundp 'mac-pass-command-to-system) (when (boundp 'mac-pass-command-to-system)
(setq mac-pass-command-to-system nil)) (setq mac-pass-command-to-system nil))
(setq-default fill-column 76 ; Maximum line width. (setq-default fill-column 76 ; Maximum line width.
indent-tabs-mode nil ; Use spaces instead of tabs. indent-tabs-mode nil ; Use spaces instead of tabs.
split-width-threshold 100 ; Split verticly by default. split-width-threshold 100 ; Split verticly by default.
auto-fill-function 'do-auto-fill ; Auto-fill-mode everywhere. auto-fill-function 'do-auto-fill) ; Auto-fill-mode everywhere.
)
(let ((default-directory (concat user-emacs-directory "site-lisp/"))) (let ((default-directory (concat user-emacs-directory "site-lisp/")))
(when (file-exists-p default-directory) (when (file-exists-p default-directory)
@ -151,8 +147,7 @@ PACKAGE is installed and the current version is deleted."
(dolist (mode (dolist (mode
'(tool-bar-mode ; No toolbars, more room for text. '(tool-bar-mode ; No toolbars, more room for text.
scroll-bar-mode ; No scroll bars either. scroll-bar-mode ; No scroll bars either.
blink-cursor-mode ; The blinking cursor gets old. blink-cursor-mode)) ; The blinking cursor gets old.
))
(funcall mode 0)) (funcall mode 0))
(dolist (mode (dolist (mode
@ -162,8 +157,7 @@ PACKAGE is installed and the current version is deleted."
column-number-mode ; Show column number in mode line. column-number-mode ; Show column number in mode line.
delete-selection-mode ; Replace selected text. delete-selection-mode ; Replace selected text.
recentf-mode ; Recently opened files. recentf-mode ; Recently opened files.
show-paren-mode ; Highlight matching parentheses. show-paren-mode)) ; Highlight matching parentheses.
))
(funcall mode 1)) (funcall mode 1))
(add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode)) (add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-mode))
@ -177,8 +171,7 @@ PACKAGE is installed and the current version is deleted."
'(ido-mode ; Interactivly do. '(ido-mode ; Interactivly do.
ido-everywhere ; Use Ido for all buffer/file reading. ido-everywhere ; Use Ido for all buffer/file reading.
ido-vertical-mode ; Makes ido-mode display vertically. ido-vertical-mode ; Makes ido-mode display vertically.
flx-ido-mode ; Toggle flx ido mode. flx-ido-mode)) ; Toggle flx ido mode.
))
(funcall mode 1)) (funcall mode 1))
(setq ido-file-extensions-order (setq ido-file-extensions-order
@ -230,8 +223,7 @@ PACKAGE is installed and the current version is deleted."
mu4e-confirm-quit nil ; just quit mu4e-confirm-quit nil ; just quit
mu4e-view-show-images t ; view images mu4e-view-show-images t ; view images
mu4e-html2text-command mu4e-html2text-command
"html2text -utf8" ; use utf-8 "html2text -utf8") ; use utf-8
)
;; Setup for sending mail. ;; Setup for sending mail.
(setq user-full-name (setq user-full-name
@ -243,8 +235,7 @@ PACKAGE is installed and the current version is deleted."
smtpmail-smtp-service 465 ; Port to mail-server smtpmail-smtp-service 465 ; Port to mail-server
smtpmail-stream-type 'ssl ; Protocol used for sending smtpmail-stream-type 'ssl ; Protocol used for sending
send-mail-function 'smtpmail-send-it ; Use smpt to send send-mail-function 'smtpmail-send-it ; Use smpt to send
mail-user-agent 'mu4e-user-agent ; Use mu4e! mail-user-agent 'mu4e-user-agent) ; Use mu4e!
)
;; Register file types that can be handled by ImageMagick. ;; Register file types that can be handled by ImageMagick.
(when (fboundp 'imagemagick-register-types) (when (fboundp 'imagemagick-register-types)
@ -275,10 +266,9 @@ LANGUAGES (cyclic) list."
(ispell-change-dictionary (ispell-change-dictionary
(car (setq ispell-languages (cdr ispell-languages))))) (car (setq ispell-languages (cdr ispell-languages)))))
(setq org-agenda-start-on-weekday nil ; Show agenda from today. (setq org-agenda-start-on-weekday nil ; Show agenda from today.
org-agenda-files '("~/Dropbox/life.org") ; A list of agenda files. org-agenda-files '("~/Dropbox/life.org") ; A list of agenda files.
org-agenda-default-appointment-duration 120 ; 2 hours appointments. org-agenda-default-appointment-duration 120) ; 2 hours appointments.
)
(setq org-src-fontify-natively t) (setq org-src-fontify-natively t)

40
init.org
View File

@ -159,8 +159,7 @@
org ; Outline-based notes management and organizer org ; Outline-based notes management and organizer
paredit ; minor mode for editing parentheses paredit ; minor mode for editing parentheses
pretty-lambdada ; the word `lambda' as the Greek letter. pretty-lambdada ; the word `lambda' as the Greek letter.
smex ; M-x interface with Ido-style fuzzy matching. smex)) ; M-x interface with Ido-style fuzzy matching.
))
(upgrade-or-install-package package))) (upgrade-or-install-package package)))
#+END_SRC #+END_SRC
@ -177,8 +176,7 @@
pretty-lambdada ; show 'lambda' as the greek letter. pretty-lambdada ; show 'lambda' as the greek letter.
ox-latex ; the latex-exporter (from org) ox-latex ; the latex-exporter (from org)
recentf ; recently opened files recentf ; recently opened files
tex-mode ; TeX, LaTeX, and SliTeX mode commands tex-mode)) ; TeX, LaTeX, and SliTeX mode commands
))
(require feature)) (require feature))
#+END_SRC #+END_SRC
@ -194,8 +192,7 @@
default-input-method "TeX" ; Use TeX when toggeling input method. default-input-method "TeX" ; Use TeX when toggeling input method.
ring-bell-function 'ignore ; Quite as a mouse. ring-bell-function 'ignore ; Quite as a mouse.
doc-view-continuous t ; At page edge goto next/previous. doc-view-continuous t ; At page edge goto next/previous.
echo-keystrokes 0.1 ; Show keystrokes asap. echo-keystrokes 0.1) ; Show keystrokes asap.
)
;; Some mac-bindings interfere with Emacs bindings. ;; Some mac-bindings interfere with Emacs bindings.
(when (boundp 'mac-pass-command-to-system) (when (boundp 'mac-pass-command-to-system)
@ -208,11 +205,10 @@
buffer-local variable's default value. buffer-local variable's default value.
#+BEGIN_SRC emacs-lisp :tangle yes #+BEGIN_SRC emacs-lisp :tangle yes
(setq-default fill-column 76 ; Maximum line width. (setq-default fill-column 76 ; Maximum line width.
indent-tabs-mode nil ; Use spaces instead of tabs. indent-tabs-mode nil ; Use spaces instead of tabs.
split-width-threshold 100 ; Split verticly by default. split-width-threshold 100 ; Split verticly by default.
auto-fill-function 'do-auto-fill ; Auto-fill-mode everywhere. auto-fill-function 'do-auto-fill) ; Auto-fill-mode everywhere.
)
#+END_SRC #+END_SRC
The =load-path= specifies where Emacs should look for =.el=-files (or The =load-path= specifies where Emacs should look for =.el=-files (or
@ -288,8 +284,7 @@
(dolist (mode (dolist (mode
'(tool-bar-mode ; No toolbars, more room for text. '(tool-bar-mode ; No toolbars, more room for text.
scroll-bar-mode ; No scroll bars either. scroll-bar-mode ; No scroll bars either.
blink-cursor-mode ; The blinking cursor gets old. blink-cursor-mode)) ; The blinking cursor gets old.
))
(funcall mode 0)) (funcall mode 0))
#+END_SRC #+END_SRC
@ -304,8 +299,7 @@
column-number-mode ; Show column number in mode line. column-number-mode ; Show column number in mode line.
delete-selection-mode ; Replace selected text. delete-selection-mode ; Replace selected text.
recentf-mode ; Recently opened files. recentf-mode ; Recently opened files.
show-paren-mode ; Highlight matching parentheses. show-paren-mode)) ; Highlight matching parentheses.
))
(funcall mode 1)) (funcall mode 1))
#+END_SRC #+END_SRC
@ -343,8 +337,7 @@
'(ido-mode ; Interactivly do. '(ido-mode ; Interactivly do.
ido-everywhere ; Use Ido for all buffer/file reading. ido-everywhere ; Use Ido for all buffer/file reading.
ido-vertical-mode ; Makes ido-mode display vertically. ido-vertical-mode ; Makes ido-mode display vertically.
flx-ido-mode ; Toggle flx ido mode. flx-ido-mode)) ; Toggle flx ido mode.
))
(funcall mode 1)) (funcall mode 1))
#+END_SRC #+END_SRC
@ -437,8 +430,7 @@
mu4e-confirm-quit nil ; just quit mu4e-confirm-quit nil ; just quit
mu4e-view-show-images t ; view images mu4e-view-show-images t ; view images
mu4e-html2text-command mu4e-html2text-command
"html2text -utf8" ; use utf-8 "html2text -utf8") ; use utf-8
)
;; Setup for sending mail. ;; Setup for sending mail.
(setq user-full-name (setq user-full-name
@ -450,8 +442,7 @@
smtpmail-smtp-service 465 ; Port to mail-server smtpmail-smtp-service 465 ; Port to mail-server
smtpmail-stream-type 'ssl ; Protocol used for sending smtpmail-stream-type 'ssl ; Protocol used for sending
send-mail-function 'smtpmail-send-it ; Use smpt to send send-mail-function 'smtpmail-send-it ; Use smpt to send
mail-user-agent 'mu4e-user-agent ; Use mu4e! mail-user-agent 'mu4e-user-agent) ; Use mu4e!
)
;; Register file types that can be handled by ImageMagick. ;; Register file types that can be handled by ImageMagick.
(when (fboundp 'imagemagick-register-types) (when (fboundp 'imagemagick-register-types)
@ -512,10 +503,9 @@
I use =org-agenda= for appointments and such. I use =org-agenda= for appointments and such.
#+BEGIN_SRC emacs-lisp :tangle yes #+BEGIN_SRC emacs-lisp :tangle yes
(setq org-agenda-start-on-weekday nil ; Show agenda from today. (setq org-agenda-start-on-weekday nil ; Show agenda from today.
org-agenda-files '("~/Dropbox/life.org") ; A list of agenda files. org-agenda-files '("~/Dropbox/life.org") ; A list of agenda files.
org-agenda-default-appointment-duration 120 ; 2 hours appointments. org-agenda-default-appointment-duration 120) ; 2 hours appointments.
)
#+END_SRC #+END_SRC
When editing org-files with source-blocks, we want the source blocks to When editing org-files with source-blocks, we want the source blocks to