wilderjds
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

re-org file

Browse Source
master
Jacopo De Simoi 11 years ago
parent 0db3f4c35f
commit a0c0281641
4 changed files with 151 additions and 157 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 125
      init.el
  2. 4
      init/init-elisp.el
  3. 36
      init/init-kde-integration.el
  4. 143
      init/init-latex.el

125
init.el
Unescape View File

@ -128,7 +128,6 @@
(setq compilation-scroll-output t (setq compilation-scroll-output t
compilation-window-height 12) compilation-window-height 12)
(transient-mark-mode 0)
(tool-bar-mode 0) (tool-bar-mode 0)
(scroll-bar-mode -1) (scroll-bar-mode -1)
(setq-default show-trailing-whitespace t) (setq-default show-trailing-whitespace t)
@ -162,9 +161,10 @@
(load "init-org.el") (load "init-org.el")
(load "init-c++.el") (load "init-c++.el")
(load "init-elisp.el") (load "init-elisp.el")
(load "init-kde-integration.el")
;; KDE stuff ;; KDE stuff
;;
(add-to-list 'load-path "~/kde-emacs") (add-to-list 'load-path "~/kde-emacs")
(load "qml-mode.el" nil t t) (load "qml-mode.el" nil t t)
(add-to-list 'auto-mode-alist '("\\.qml\\'" . qml-mode)) (add-to-list 'auto-mode-alist '("\\.qml\\'" . qml-mode))
@ -180,9 +180,10 @@
;; create the autosave dir if necessary, since emacs won't. ;; create the autosave dir if necessary, since emacs won't.
(make-directory "~/.emacs.d/autosaves/" t) (make-directory "~/.emacs.d/autosaves/" t)
(make-directory "~/.emacs.d/backup/" t) (make-directory "~/.emacs.d/backup/" t)
(require 'linum)
(add-hook 'text-mode-hook 'flyspell-mode) (add-hook 'text-mode-hook 'flyspell-mode)
(require 'linum)
(add-hook 'text-mode-hook 'linum-mode) (add-hook 'text-mode-hook 'linum-mode)
(add-hook 'qml-mode-hook 'linum-mode) (add-hook 'qml-mode-hook 'linum-mode)
@ -204,43 +205,6 @@
(global-set-key (kbd "M-[") 'previous-buffer) (global-set-key (kbd "M-[") 'previous-buffer)
(global-set-key (kbd "M-]") 'next-buffer) (global-set-key (kbd "M-]") 'next-buffer)
;; kde activity stuff -- move to other file when stabilized
(defun kde-current-activity ()
"Returns the current KDE activity"
(substring (shell-command-to-string "qdbus org.kde.ActivityManager /ActivityManager/Activities org.kde.ActivityManager.Activities.CurrentActivity") 0 -1)
)
(defun kde-current-activity-name ()
"Returns the name of the current KDE activity"
(substring (shell-command-to-string (concat "qdbus org.kde.ActivityManager /ActivityManager/Activities org.kde.ActivityManager.Activities.ActivityName " (kde-current-activity))) 0 -1))
(defun X-window-id-belongs-to-activity (window-id activity)
(= (shell-command (concat "xprop -id " window-id " | grep _KDE_NET_WM_ACTIVITIES | grep " activity ">/dev/null")) 0)
)
(defun select-frame-on-activity (activity)
(setq framelist (frame-list))
(setq done nil)
(while (and framelist (not done))
(setq cur (car framelist))
(setq cur-id (cdr (assq 'window-id (frame-parameters cur))))
(if cur-id (if (X-window-id-belongs-to-activity cur-id activity) (progn;
(setq done 't) (select-frame cur)) ))
(setq framelist (cdr framelist)))
done
)
(defun select-X-frame ()
(setq framelist (frame-list))
(setq done nil)
(while (and framelist (not done))
(setq cur (car framelist))
(setq cur-id (cdr (assq 'window-id (frame-parameters cur))))
(if cur-id (progn;
(setq done 't) (raise-frame cur)))
(setq framelist (cdr framelist)))
done
)
(defun select-frame-on-current-activity () (defun select-frame-on-current-activity ()
(select-frame-on-activity (kde-current-activity)) (select-frame-on-activity (kde-current-activity))
@ -252,7 +216,7 @@
;; (no-easy-keys 1) ;; (no-easy-keys 1)
;; conflicts a bit with org-mode ;; conflicts a bit with org-mode
;;Keyboard is faster than mouse ;; Keyboard is faster than mouse
(global-unset-key (kbd "<mouse-1>")) (global-unset-key (kbd "<mouse-1>"))
(global-unset-key (kbd "<down-mouse-1>")) (global-unset-key (kbd "<down-mouse-1>"))
(global-unset-key (kbd "<drag-mouse-1>")) (global-unset-key (kbd "<drag-mouse-1>"))
@ -265,35 +229,31 @@
(global-unset-key (kbd "<M-f4>")) ; rly? (global-unset-key (kbd "<M-f4>")) ; rly?
;; Change some global bindings: ;; Change some global bindings:
(global-set-key (kbd "C-M-d") 'kill-sexp) (global-unset-key (kbd "C-M-u"))
(global-unset-key (kbd "C-M-d"))
(global-set-key (kbd "C-M-i") 'down-list) ;; -i stands for /in/ (global-set-key (kbd "C-M-i") 'down-list) ;; -i stands for /in/
(global-set-key (kbd "C-M-o") 'up-list) ;; -o stands for /out/ (global-set-key (kbd "C-M-o") 'up-list) ;; -o stands for /out/
(global-unset-key (kbd "C-M-u"))
(global-set-key (kbd "C-M-d") 'kill-sexp)
;; experimental: try to force myself to use the buffer commands ;; experimental: try to force myself to use the buffer commands
(global-unset-key (kbd "M-[")) (global-unset-key (kbd "M-["))
(global-unset-key (kbd "M-]")) (global-unset-key (kbd "M-]"))
(require 'visible-mark) ;; * magit
(visible-mark-mode t)
(global-visible-mark-mode t)
;(delete 'Git vc-handled-backends)
(require 'magit) (require 'magit)
(global-set-key (kbd "C-x C-g") 'magit-status) ;; relates to C-x C-f and C-x C-s (global-set-key (kbd "C-x C-g") 'magit-status) ;; relates to C-x C-f and C-x C-s
;; * iy-go-to char (broken)
;; (require 'iy-go-to-char)
;; (global-set-key (kbd "M-m") 'iy-go-up-to-char)
;; (global-set-key (kbd "M-M") 'iy-go-up-to-char-backward)
;; Comment out since it does not work reliably ;; * smart-tab-mode
(require 'iy-go-to-char)
(global-set-key (kbd "M-m") 'iy-go-up-to-char)
(global-set-key (kbd "M-M") 'iy-go-up-to-char-backward)
(require 'smart-tab) (require 'smart-tab)
(global-smart-tab-mode 1) (global-smart-tab-mode 1)
;; ;; * ace jump mode
;; ace jump mode major function
;;
(autoload (autoload
'ace-jump-mode 'ace-jump-mode
"ace-jump-mode" "ace-jump-mode"
@ -303,9 +263,7 @@
(define-key global-map (kbd "C-c SPC") 'ace-jump-mode) (define-key global-map (kbd "C-c SPC") 'ace-jump-mode)
;;
;; enable a more powerful jump back function from ace jump mode ;; enable a more powerful jump back function from ace jump mode
;;
(autoload (autoload
'ace-jump-mode-pop-mark 'ace-jump-mode-pop-mark
"ace-jump-mode" "ace-jump-mode"
@ -315,6 +273,7 @@
'(ace-jump-mode-enable-mark-sync)) '(ace-jump-mode-enable-mark-sync))
(define-key global-map (kbd "C-x SPC") 'ace-jump-mode-pop-mark) (define-key global-map (kbd "C-x SPC") 'ace-jump-mode-pop-mark)
;; * redefine line-beginning to handle indentation properly
(defun smart-line-beginning () (defun smart-line-beginning ()
"Move point to the beginning of text on the current line; if that is already "Move point to the beginning of text on the current line; if that is already
the current position of point, then move it to the beginning of the line." the current position of point, then move it to the beginning of the line."
@ -325,22 +284,12 @@ the current position of point, then move it to the beginning of the line."
(beginning-of-line)))) (beginning-of-line))))
(global-set-key (kbd "C-a") 'smart-line-beginning) (global-set-key (kbd "C-a") 'smart-line-beginning)
;; (defun smart-delete-backward-char () ;; * load expand-region
;; "try to be smart to delete indentation"
;; (interactive)
;; (let ((pt (point)))
;; (beginning-of-line-text)
;; (if (eq pt (point))
;; (delete-indentation)
;; (progn
;; (goto-char pt)
;; (call-interactively 'delete-backward-char)))))
;; (global-set-key "\d" 'smart-delete-backward-char)
(add-to-list 'load-path "~/tmp/expand-region.el") (add-to-list 'load-path "~/tmp/expand-region.el")
(require 'expand-region) (require 'expand-region)
(global-set-key (kbd "H-SPC") 'er/expand-region) (global-set-key (kbd "H-SPC") 'er/expand-region)
;; * construct emacs-session so with session-id
(defun emacs-session-filename (session-id) (defun emacs-session-filename (session-id)
"Construct a filename to save the session in based on SESSION-ID. "Construct a filename to save the session in based on SESSION-ID.
If the directory ~/.emacs.d exists, we make a filename in there, otherwise If the directory ~/.emacs.d exists, we make a filename in there, otherwise
@ -367,14 +316,11 @@ a file in the home directory."
(global-set-key (kbd "<f13>") 'set-mark-command) (global-set-key (kbd "<f13>") 'set-mark-command)
;; * clever mark stuff ;; * clever mark stuff
(defun push-mark-no-activate () (require 'visible-mark)
"Pushes `point' to `mark-ring' and does not activate the region (visible-mark-mode t)
Equivalent to \\[set-mark-command] when \\[transient-mark-mode] is disabled" (global-visible-mark-mode t)
(interactive) (transient-mark-mode 0)
(push-mark (point) t nil) ;; ** stuff that works
(message "Pushed mark to ring"))
(global-set-key (kbd "<C-f13>") 'push-mark-no-activate)
(defun jump-to-mark () (defun jump-to-mark ()
"Jumps to the local mark, respecting the `mark-ring' order. "Jumps to the local mark, respecting the `mark-ring' order.
This is the same as using \\[set-mark-command] with the prefix argument." This is the same as using \\[set-mark-command] with the prefix argument."
@ -395,7 +341,16 @@ This is the same as using \\[set-mark-command] with the prefix argument."
;; (deactivate-mark nil)) ;; (deactivate-mark nil))
;; (define-key global-map [remap exchange-point-and-mark] 'exchange-point-and-mark-no-activate) ;; (define-key global-map [remap exchange-point-and-mark] 'exchange-point-and-mark-no-activate)
;; * Wordnik stuff - does not work anymore ;; ** This function is not needed since we are not using transient mode anymore
;; (defun push-mark-no-activate ()
;; "Pushes `point' to `mark-ring' and does not activate the region
;; Equivalent to \\[set-mark-command] when \\[transient-mark-mode] is disabled"
;; (interactive)
;; (push-mark (point) t nil)
;; (message "Pushed mark to ring"))
;; (global-set-key (kbd "<C-f13>") 'push-mark-no-activate)
;; * Wordnik :fixme:
(require 'wordnik-synonym) (require 'wordnik-synonym)
(global-set-key (kbd "H-=") 'wn/synonym-at-point) (global-set-key (kbd "H-=") 'wn/synonym-at-point)
;; * kill annoying completion buffer ;; * kill annoying completion buffer
@ -422,7 +377,7 @@ This is the same as using \\[set-mark-command] with the prefix argument."
;; first day of the week is monday instead of sunday: ;; first day of the week is monday instead of sunday:
(setq calendar--week--start--day 1) (setq calendar--week--start--day 1)
;; * Misc --- sort thme out ;; * toorg
(require 'highlight-sexps) (require 'highlight-sexps)
(setq echo-keystrokes 0.10) (setq echo-keystrokes 0.10)
@ -455,14 +410,14 @@ This is the same as using \\[set-mark-command] with the prefix argument."
(ibuffer-switch-to-saved-filter-groups "default"))) (ibuffer-switch-to-saved-filter-groups "default")))
;; * This used to set my patched version of terminus ;; * Use patched terminus :fixme:
;; (set-face-font 'default "-xos4-TerminusPlus-Medium-R-Normal--12-120-72-72-C-60-ISO10646-1") ;; (set-face-font 'default "-xos4-TerminusPlus-Medium-R-Normal--12-120-72-72-C-60-ISO10646-1")
;; (mapc ;; (mapc
;; (lambda (face) ;; (lambda (face)
;; (set-face-attribute face nil :weight 'normal)) ;; (set-face-attribute face nil :weight 'normal))
;; (face-list)) ;; (face-list))
;; * mode-line setting ;; * mode-line setup
(setq-default mode-line-modified '(:eval (if (buffer-modified-p) "●" "·"))) ;still needs some improvements, does not report Readonly state (setq-default mode-line-modified '(:eval (if (buffer-modified-p) "●" "·"))) ;still needs some improvements, does not report Readonly state
(setq-default mode-line-remote '(:eval (let ((s (format-mode-line "%@"))) (setq-default mode-line-remote '(:eval (let ((s (format-mode-line "%@")))
(cond (cond
@ -498,7 +453,7 @@ This is the same as using \\[set-mark-command] with the prefix argument."
mode-line-misc-info mode-line-misc-info
mode-line-end-spaces)) mode-line-end-spaces))
;; * Organize differently ;; * toorg
(require 'outshine) (require 'outshine)
(add-hook 'outline-minor-mode-hook 'outshine-hook-function) (add-hook 'outline-minor-mode-hook 'outshine-hook-function)
(setq outshine-use-speed-commands t) (setq outshine-use-speed-commands t)
@ -510,6 +465,4 @@ This is the same as using \\[set-mark-command] with the prefix argument."
'("melpa-stable" . "http://stable.melpa.org/packages/") t) '("melpa-stable" . "http://stable.melpa.org/packages/") t)
;; * start server named after kde activity id ;; * start server named after kde activity id
(setq server-name (kde-current-activity)) (setq server-name (kde-current-
(menu-bar-mode -99)
(server-start)

4
init/init-elisp.el
Unescape View File

@ -0,0 +1,4 @@
(add-hook 'emacs-lisp-mode-hook
(lambda ()
(outline-minor-mode)
(linum-mode)))

36
init/init-kde-integration.el
Unescape View File

@ -0,0 +1,36 @@
(defun kde-current-activity ()
"Returns the current KDE activity"
(substring (shell-command-to-string "qdbus org.kde.ActivityManager /ActivityManager/Activities org.kde.ActivityManager.Activities.CurrentActivity") 0 -1)
)
(defun kde-current-activity-name ()
"Returns the name of the current KDE activity"
(substring (shell-command-to-string (concat "qdbus org.kde.ActivityManager /ActivityManager/Activities org.kde.ActivityManager.Activities.ActivityName " (kde-current-activity))) 0 -1))
(defun X-window-id-belongs-to-activity (window-id activity)
(= (shell-command (concat "xprop -id " window-id " | grep _KDE_NET_WM_ACTIVITIES | grep " activity ">/dev/null")) 0)
)
(defun select-frame-on-activity (activity)
(setq framelist (frame-list))
(setq done nil)
(while (and framelist (not done))
(setq cur (car framelist))
(setq cur-id (cdr (assq 'window-id (frame-parameters cur))))
(if cur-id (if (X-window-id-belongs-to-activity cur-id activity) (progn;
(setq done 't) (select-frame cur)) ))
(setq framelist (cdr framelist)))
done
)
(defun select-X-frame ()
(setq framelist (frame-list))
(setq done nil)
(while (and framelist (not done))
(setq cur (car framelist))
(setq cur-id (cdr (assq 'window-id (frame-parameters cur))))
(if cur-id (progn;
(setq done 't) (raise-frame cur)))
(setq framelist (cdr framelist)))
done
)

143
init/init-latex.el
Unescape View File

@ -30,89 +30,90 @@
(insert delim-end)) (insert delim-end))
(insert delim-begin)))) (insert delim-begin))))
(add-hook 'LaTeX-mode-hook (lambda () (add-hook 'LaTeX-mode-hook
(turn-on-auto-fill) (lambda ()
(subword-mode) (turn-on-auto-fill)
(TeX-fold-mode 1) (subword-mode)
(outline-minor-mode) (TeX-fold-mode 1)
;; Move around commands in the Right Way™ (outline-minor-mode)
(modify-syntax-entry ?\\ "w" LaTeX-mode-syntax-table) ;; Move around commands in the Right Way™
(setq subword-forward-regexp "\\W*\\(\\([\\\\[:upper:]]*\\W?\\)[[:lower:][:digit:]]*\\)") (modify-syntax-entry ?\\ "w" LaTeX-mode-syntax-table)
(setq subword-backward-regexp "\\(\\(\\W\\|[[:lower:][:digit:]]\\)\\([\\\\[:upper:]]+\\W*\\)\\|\\W\\w+\\)") (setq subword-forward-regexp "\\W*\\(\\([\\\\[:upper:]]*\\W?\\)[[:lower:][:digit:]]*\\)")
;; ;; FIXME: this breaks sourcepair for other modes. (setq subword-backward-regexp "\\(\\(\\W\\|[[:lower:][:digit:]]\\)\\([\\\\[:upper:]]+\\W*\\)\\|\\W\\w+\\)")
;; (setq sourcepair-source-extensions '(".tex")) ;; ;; FIXME: this breaks sourcepair for other modes.
;; (setq sourcepair-header-extensions '(".p.tex")) ;; (setq sourcepair-source-extensions '(".tex"))
;; (setq sourcepair-header-extensions '(".p.tex"))
(define-key LaTeX-mode-map (kbd "C-c C-v") (define-key LaTeX-mode-map (kbd "C-c C-v")
(lambda (arg) (lambda (arg)
(interactive "P") (interactive "P")
(insert "~") (insert "~")
(if arg (TeX-insert-macro "eqref") (if arg (TeX-insert-macro "eqref")
(TeX-insert-macro "ref")))) (TeX-insert-macro "ref"))))
(define-key LaTeX-mode-map (kbd "C-M-<return>") (define-key LaTeX-mode-map (kbd "C-M-<return>")
(lambda (arg) (lambda (arg)
(interactive "P") (interactive "P")
(if arg (LaTeX-insert-environment "align") (if arg (LaTeX-insert-environment "align")
(LaTeX-insert-environment "align*")))) (LaTeX-insert-environment "align*"))))
;; EXPERIMENTAL: try C-RETURN → DEL ;; EXPERIMENTAL: try C-RETURN → DEL
(define-key LaTeX-mode-map (kbd "C-<return>") 'backward-delete-char-untabify) (define-key LaTeX-mode-map (kbd "C-<return>") 'backward-delete-char-untabify)
;; EXPERIMENTAL: unbind return - NOTE it is important to unbind <return> and not RET. If we ;; EXPERIMENTAL: unbind return - NOTE it is important to unbind <return> and not RET. If we
;; unbind RET then C-m won't work either. ;; unbind RET then C-m won't work either.
(define-key LaTeX-mode-map (kbd "<return>") (lambda() (interactive) (message "Use C-m"))) (define-key LaTeX-mode-map (kbd "<return>") (lambda() (interactive) (message "Use C-m")))
(define-key LaTeX-mode-map (kbd "S-SPC") (lambda() (interactive) (insert "\\"))) (define-key LaTeX-mode-map (kbd "S-SPC") (lambda() (interactive) (insert "\\")))
(define-key LaTeX-mode-map (kbd "M-S-SPC") 'TeX-insert-braces) (define-key LaTeX-mode-map (kbd "M-S-SPC") 'TeX-insert-braces)
(define-key LaTeX-mode-map (kbd "s-SPC") (lambda() (interactive) (insert "~"))) (define-key LaTeX-mode-map (kbd "s-SPC") (lambda() (interactive) (insert "~")))
(define-key LaTeX-mode-map (kbd "M-_") (lambda (r-begin r-end) (interactive "r") (add-delimiter "_{" "}" r-begin r-end))) (define-key LaTeX-mode-map (kbd "M-_") (lambda (r-begin r-end) (interactive "r") (add-delimiter "_{" "}" r-begin r-end)))
(define-key LaTeX-mode-map (kbd "M-^") (lambda (r-begin r-end) (interactive "r") (add-delimiter "^{" "}" r-begin r-end))) (define-key LaTeX-mode-map (kbd "M-^") (lambda (r-begin r-end) (interactive "r") (add-delimiter "^{" "}" r-begin r-end)))
(define-key LaTeX-mode-map (kbd "M-|") (lambda (r-begin r-end) (interactive "r") (add-delimiter "|" "|" r-begin r-end))) (define-key LaTeX-mode-map (kbd "M-|") (lambda (r-begin r-end) (interactive "r") (add-delimiter "|" "|" r-begin r-end)))
(define-key LaTeX-mode-map (kbd "M-$") (lambda (r-begin r-end) (interactive "r") (message "deprecated") (add-delimiter "$" "$" r-begin r-end))) ;; This overlaps with the spell-checker; not that I ever remember that key (define-key LaTeX-mode-map (kbd "M-$") (lambda (r-begin r-end) (interactive "r") (message "deprecated") (add-delimiter "$" "$" r-begin r-end))) ;; This overlaps with the spell-checker; not that I ever remember that key
;; This is the rationale: C-M-SPC starts inline math C-M-RET starts display math ;; This is the rationale: C-M-SPC starts inline math C-M-RET starts display math
(define-key LaTeX-mode-map (kbd "C-M-SPC") (lambda (r-begin r-end) (interactive "r") (add-delimiter "$" "$" r-begin r-end))) (define-key LaTeX-mode-map (kbd "C-M-SPC") (lambda (r-begin r-end) (interactive "r") (add-delimiter "$" "$" r-begin r-end)))
(define-key LaTeX-mode-map (kbd "C-c C-d") (define-key LaTeX-mode-map (kbd "C-c C-d")
(lambda (arg r-begin r-end) (interactive "P\nr") (lambda (arg r-begin r-end) (interactive "P\nr")
(if arg (if arg
(add-delimiter "\\todo[inline]{" "}{}" r-begin r-end) (add-delimiter "\\todo[inline]{" "}{}" r-begin r-end)
(add-delimiter "\\todo{" "}{}" r-begin r-end)))) (add-delimiter "\\todo{" "}{}" r-begin r-end))))
(define-key LaTeX-mode-map (kbd "C-M-d") 'kill-sexp) (define-key LaTeX-mode-map (kbd "C-M-d") 'kill-sexp)
(define-key LaTeX-mode-map (kbd "C-M-i") 'down-list) ;; -i stands for /in/ (define-key LaTeX-mode-map (kbd "C-M-i") 'down-list) ;; -i stands for /in/
(define-key LaTeX-mode-map (kbd "C-M-o") 'up-list) ;; -o stands for /out/ (define-key LaTeX-mode-map (kbd "C-M-o") 'up-list) ;; -o stands for /out/
(define-key LaTeX-mode-map (kbd "=") 'insert-char-with-padding) (define-key LaTeX-mode-map (kbd "=") 'insert-char-with-padding)
(define-key LaTeX-mode-map (kbd "≠") 'insert-char-with-padding) (define-key LaTeX-mode-map (kbd "≠") 'insert-char-with-padding)
(define-key LaTeX-mode-map (kbd ">") 'insert-char-with-padding) (define-key LaTeX-mode-map (kbd ">") 'insert-char-with-padding)
(define-key LaTeX-mode-map (kbd "<") 'insert-char-with-padding) (define-key LaTeX-mode-map (kbd "<") 'insert-char-with-padding)
(define-key LaTeX-mode-map (kbd "≥") 'insert-char-with-padding) (define-key LaTeX-mode-map (kbd "≥") 'insert-char-with-padding)
(define-key LaTeX-mode-map (kbd "≤") 'insert-char-with-padding) (define-key LaTeX-mode-map (kbd "≤") 'insert-char-with-padding)
(define-key LaTeX-mode-map (kbd "⇒") 'insert-char-with-padding) (define-key LaTeX-mode-map (kbd "⇒") 'insert-char-with-padding)
(define-key LaTeX-mode-map (kbd "∩") 'insert-char-with-padding) (define-key LaTeX-mode-map (kbd "∩") 'insert-char-with-padding)
(define-key LaTeX-mode-map (kbd "∪") 'insert-char-with-padding) (define-key LaTeX-mode-map (kbd "∪") 'insert-char-with-padding)
(define-key LaTeX-mode-map (kbd "∨") 'insert-char-with-padding) (define-key LaTeX-mode-map (kbd "∨") 'insert-char-with-padding)
(define-key LaTeX-mode-map (kbd "∧") 'insert-char-with-padding) (define-key LaTeX-mode-map (kbd "∧") 'insert-char-with-padding)
(define-key LaTeX-mode-map (kbd "×") 'insert-char-with-padding) (define-key LaTeX-mode-map (kbd "×") 'insert-char-with-padding)
;; ;; Unicode shortcuts… ;; ;; Unicode shortcuts…
;; (define-key LaTeX-mode-map (kbd "α") (lambda() (interactive) (insert "\\alpha"))) ;; (define-key LaTeX-mode-map (kbd "α") (lambda() (interactive) (insert "\\alpha")))
;; (define-key LaTeX-mode-map (kbd "β") (lambda() (interactive) (insert "\\beta"))) ;; (define-key LaTeX-mode-map (kbd "β") (lambda() (interactive) (insert "\\beta")))
;; (define-key LaTeX-mode-map (kbd "δ") (lambda() (interactive) (insert "\\delta"))) ;; (define-key LaTeX-mode-map (kbd "δ") (lambda() (interactive) (insert "\\delta")))
;; (define-key LaTeX-mode-map (kbd "Δ") (lambda() (interactive) (insert "\\Delta"))) ;; (define-key LaTeX-mode-map (kbd "Δ") (lambda() (interactive) (insert "\\Delta")))
;; (define-key LaTeX-mode-map (kbd "θ") (lambda() (interactive) (insert "\\theta"))) ;; (define-key LaTeX-mode-map (kbd "θ") (lambda() (interactive) (insert "\\theta")))
;; (define-key LaTeX-mode-map (kbd "Θ") (lambda() (interactive) (insert "\\Theta"))) ;; (define-key LaTeX-mode-map (kbd "Θ") (lambda() (interactive) (insert "\\Theta")))
;; (define-key LaTeX-mode-map (kbd "λ") (lambda() (interactive) (insert "\\lambda"))) ;; (define-key LaTeX-mode-map (kbd "λ") (lambda() (interactive) (insert "\\lambda")))
;; (define-key LaTeX-mode-map (kbd "Λ") (lambda() (interactive) (insert "\\Lambda"))) ;; (define-key LaTeX-mode-map (kbd "Λ") (lambda() (interactive) (insert "\\Lambda")))
;; (define-key LaTeX-mode-map (kbd "ω") (lambda() (interactive) (insert "\\omega"))) ;; (define-key LaTeX-mode-map (kbd "ω") (lambda() (interactive) (insert "\\omega")))
;; (define-key LaTeX-mode-map (kbd "Ω") (lambda() (interactive) (insert "\\Omega"))) ;; (define-key LaTeX-mode-map (kbd "Ω") (lambda() (interactive) (insert "\\Omega")))
;; (define-key LaTeX-mode-map (kbd "∈") (lambda() (interactive) (insert "\\in"))) ;; (define-key LaTeX-mode-map (kbd "∈") (lambda() (interactive) (insert "\\in")))
;; (define-key LaTeX-mode-map (kbd "ℓ") (lambda() (interactive) (insert "\\ell"))) ;; (define-key LaTeX-mode-map (kbd "ℓ") (lambda() (interactive) (insert "\\ell")))
)) ))
;; this reimplements TeX-insert-braces to work with negative argument ;; this reimplements TeX-insert-braces to work with negative argument
(defun TeX-insert-braces (arg) (defun TeX-insert-braces (arg)

Write Preview
Loading…
Cancel
Save