[all] Remove fish and emacs (dedicated repositories).
This commit is contained in:
Mikaël Capelle
parent
67141d8dc5
commit
284c216bd8
455
.emacs.d/init.el
455
.emacs.d/init.el
@ -1,455 +0,0 @@
|
|||||||
;;; init.el --- -*- lexical-binding: t -*-
|
|
||||||
|
|
||||||
;;; Init file for emacs
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
|
|
||||||
;; Init file, load everything necessary to have a full functional Emacs, this should
|
|
||||||
;; not be used with Emacs < 24.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(add-to-list 'load-path "~/.emacs.d/one-file-mode/")
|
|
||||||
|
|
||||||
;; Themes
|
|
||||||
(setq custom-theme-directory "~/.emacs.d/themes/")
|
|
||||||
(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")
|
|
||||||
|
|
||||||
;; Packages
|
|
||||||
(require 'package) ;; You might already have this line
|
|
||||||
(setq package-user-dir (expand-file-name "elpa" user-emacs-directory)
|
|
||||||
package-archives
|
|
||||||
'(("gnu" . "http://elpa.gnu.org/packages/")
|
|
||||||
("melpa" . "http://melpa.org/packages/")
|
|
||||||
("cselpa" . "http://elpa.thecybershadow.net/packages/")))
|
|
||||||
|
|
||||||
(unless (bound-and-true-p package--initialized)
|
|
||||||
(setq package-enable-at-startup nil) ; To prevent initializing twice
|
|
||||||
(package-initialize))
|
|
||||||
|
|
||||||
;; set use-package-verbose to t for interpreted .emacs,
|
|
||||||
;; and to nil for byte-compiled .emacs.elc.
|
|
||||||
(eval-and-compile
|
|
||||||
(setq use-package-verbose (not (bound-and-true-p byte-compile-current-file))))
|
|
||||||
|
|
||||||
;; Install use-package if not installed
|
|
||||||
(unless (package-installed-p 'use-package)
|
|
||||||
(package-refresh-contents)
|
|
||||||
(package-install 'use-package))
|
|
||||||
|
|
||||||
(eval-and-compile
|
|
||||||
(setq use-package-always-ensure t)
|
|
||||||
(setq use-package-expand-minimally t)
|
|
||||||
(setq use-package-compute-statistics t)
|
|
||||||
(setq use-package-enable-imenu-support t))
|
|
||||||
|
|
||||||
(eval-when-compile
|
|
||||||
(require 'use-package)
|
|
||||||
(require 'bind-key))
|
|
||||||
|
|
||||||
(use-package auto-package-update
|
|
||||||
:if (not (daemonp))
|
|
||||||
:custom
|
|
||||||
(auto-package-update-interval 7) ;; in days
|
|
||||||
(auto-package-update-prompt-before-update t)
|
|
||||||
(auto-package-update-delete-old-versions t)
|
|
||||||
(auto-package-update-hide-results t)
|
|
||||||
:config
|
|
||||||
(auto-package-update-maybe))
|
|
||||||
|
|
||||||
(use-package diminish)
|
|
||||||
|
|
||||||
(require 'iso-transl)
|
|
||||||
|
|
||||||
(global-display-line-numbers-mode)
|
|
||||||
|
|
||||||
;; No menu, scrollbar, displayline and column
|
|
||||||
(menu-bar-mode -1)
|
|
||||||
(tool-bar-mode -1)
|
|
||||||
(when (display-graphic-p)
|
|
||||||
(scroll-bar-mode -1))
|
|
||||||
(column-number-mode t)
|
|
||||||
(line-number-mode t)
|
|
||||||
(desktop-save-mode t)
|
|
||||||
|
|
||||||
;; Command rebinding
|
|
||||||
|
|
||||||
;; M-f (forward-word) : Déplacement d'un mot vers la droite du curseur.
|
|
||||||
;; M-b (backward-word) : Déplacement d'un mot vers la gauche du curseur.
|
|
||||||
;; C-a (beginning-of-line) : Déplacement au début de la ligne courante.
|
|
||||||
;; C-e (end-of-line) : Déplacement à la fin de la ligne courante.
|
|
||||||
;; M-{ (backward-paragraph) : Déplacement vers le paragraphe précédent.
|
|
||||||
(global-set-key (kbd "M-p") 'backward-paragraph)
|
|
||||||
;; M-} (forward-paragraph) : Déplacement vers le paragraphe suivant.
|
|
||||||
(global-set-key (kbd "M-n") 'forward-paragraph)
|
|
||||||
;; C-v (scroll-up) : Déplacement d'un écran vers le bas.
|
|
||||||
;; M-v (scroll-down) : Déplacement d'un écran vers le haut.
|
|
||||||
;; M-> (end-of-buffer) : Déplacement à la fin du buffer.
|
|
||||||
;; M-< (beginning-of-buffer) : Déplacement au début du buffer.
|
|
||||||
|
|
||||||
(use-package material-theme
|
|
||||||
:config
|
|
||||||
(load-theme 'material t))
|
|
||||||
|
|
||||||
;; No split screen at startup
|
|
||||||
(setq inhibit-startup-screen t)
|
|
||||||
;; Or if you use use-package
|
|
||||||
(setq dashboard-items '((recents . 5)
|
|
||||||
;; (bookmarks . 5)
|
|
||||||
(projects . 5)
|
|
||||||
(agenda . 5)
|
|
||||||
(registers . 5)))
|
|
||||||
(setq dashboard-set-heading-icons t)
|
|
||||||
(setq dashboard-set-file-icons t)
|
|
||||||
(setq dashboard-set-navigator t)
|
|
||||||
(use-package dashboard
|
|
||||||
:ensure t
|
|
||||||
:config
|
|
||||||
(dashboard-setup-startup-hook))
|
|
||||||
(add-hook 'dashboard-mode-hook (lambda () (display-line-numbers-mode -1)))
|
|
||||||
(setq initial-buffer-choice (lambda () (get-buffer "*dashboard*")))
|
|
||||||
|
|
||||||
(use-package doom-modeline
|
|
||||||
:ensure t
|
|
||||||
:hook (after-init . doom-modeline-mode))
|
|
||||||
|
|
||||||
(use-package ace-window
|
|
||||||
:bind ("C-x C-o" . ace-window))
|
|
||||||
|
|
||||||
;; Encoding
|
|
||||||
(set-language-environment "UTF-8")
|
|
||||||
|
|
||||||
;; Selection mode
|
|
||||||
(delete-selection-mode 1)
|
|
||||||
|
|
||||||
;; Indentation mode
|
|
||||||
(setq-default indent-tabs-mode nil)
|
|
||||||
(setq tab-width 4)
|
|
||||||
|
|
||||||
;; Compilation coloration
|
|
||||||
|
|
||||||
(ignore-errors
|
|
||||||
(require 'ansi-color)
|
|
||||||
(defun my-colorize-compilation-buffer ()
|
|
||||||
(when (eq major-mode 'compilation-mode)
|
|
||||||
(ansi-color-apply-on-region compilation-filter-start (point-max))))
|
|
||||||
(add-hook 'compilation-filter-hook 'my-colorize-compilation-buffer))
|
|
||||||
|
|
||||||
;; Retrieve PATH from fish shell
|
|
||||||
(when (memq window-system '(mac ns x))
|
|
||||||
(setq exec-path-from-shell-shell-name "/usr/local/bin/fish")
|
|
||||||
(exec-path-from-shell-initialize))
|
|
||||||
|
|
||||||
;; Auto complete + Yasnippet
|
|
||||||
(use-package projectile
|
|
||||||
:config
|
|
||||||
(projectile-mode 1)
|
|
||||||
(define-key projectile-mode-map (kbd "s-p") 'projectile-command-map)
|
|
||||||
(define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map)
|
|
||||||
(setq projectile-enable-caching t))
|
|
||||||
|
|
||||||
(use-package helm
|
|
||||||
:config
|
|
||||||
(global-set-key (kbd "M-x") 'helm-M-x)
|
|
||||||
(global-set-key (kbd "C-x r b") 'helm-filtered-bookmarks)
|
|
||||||
(global-set-key (kbd "C-x C-f") 'helm-find-files)
|
|
||||||
(global-set-key (kbd "C-x C-b") 'helm-buffers-list)
|
|
||||||
(helm-mode 1)
|
|
||||||
(add-to-list 'helm-boring-buffer-regexp-list "\\*.*"))
|
|
||||||
|
|
||||||
(use-package helm-projectile
|
|
||||||
:after (helm projectile)
|
|
||||||
:config
|
|
||||||
(setq projectile-completion-system 'helm)
|
|
||||||
(helm-projectile-on))
|
|
||||||
|
|
||||||
(use-package yasnippet
|
|
||||||
:config
|
|
||||||
(yas-global-mode 1))
|
|
||||||
|
|
||||||
(use-package flycheck
|
|
||||||
:config
|
|
||||||
(add-hook 'flycheck-after-syntax-check-hook 'flycheck-autolist-hook)
|
|
||||||
(global-flycheck-mode)
|
|
||||||
(setq flycheck-emacs-lisp-load-path "inherict")
|
|
||||||
(setq flycheck-clang-args '("-stdlib=libc++" "-W" "-Wall"))
|
|
||||||
(add-hook 'c++-mode-hook
|
|
||||||
(lambda ()
|
|
||||||
(setq-local flycheck-clang-language-standard "c++14"))))
|
|
||||||
|
|
||||||
(use-package flycheck-pos-tip
|
|
||||||
:after (flycheck)
|
|
||||||
:config
|
|
||||||
(add-hook 'flycheck-mode-hook 'flycheck-pos-tip-mode))
|
|
||||||
|
|
||||||
(use-package flycheck-color-mode-line
|
|
||||||
:after (flycheck)
|
|
||||||
:config
|
|
||||||
(add-hook 'flycheck-mode-hook 'flycheck-color-mode-line-mode))
|
|
||||||
|
|
||||||
(use-package company
|
|
||||||
:config
|
|
||||||
(add-hook 'after-init-hook 'global-company-mode)
|
|
||||||
(global-set-key (kbd "M-/") 'company-complete))
|
|
||||||
|
|
||||||
(use-package company-c-headers
|
|
||||||
:config
|
|
||||||
(add-to-list 'company-backends 'company-c-headers))
|
|
||||||
(use-package company-jedi
|
|
||||||
:config
|
|
||||||
(add-to-list 'company-backends 'company-jedi))
|
|
||||||
(use-package company-web
|
|
||||||
:config
|
|
||||||
(add-to-list 'company-backends 'company-web-html))
|
|
||||||
|
|
||||||
; C++
|
|
||||||
(use-package modern-cpp-font-lock
|
|
||||||
:ensure t)
|
|
||||||
(add-hook 'c++-mode-hook #'modern-c++-font-lock-mode)
|
|
||||||
|
|
||||||
;; Doc mode
|
|
||||||
(require 'doc-mode)
|
|
||||||
(add-hook 'c-mode-common-hook 'doc-mode)
|
|
||||||
(add-hook 'c++-mode-common-hook 'doc-mode)
|
|
||||||
|
|
||||||
;; Latex
|
|
||||||
(use-package auctex
|
|
||||||
:defer t
|
|
||||||
:config
|
|
||||||
(setq TeX-auto-save t)
|
|
||||||
(setq TeX-parse-self t)
|
|
||||||
(setq-default TeX-master nil)
|
|
||||||
(defun my-latex-mode-setup ()
|
|
||||||
"Redefines and updates variables for various customizations."
|
|
||||||
(setq LaTeX-paragraph-commands
|
|
||||||
'("If" "State" "Loop" "For" "ForAll"))
|
|
||||||
(setq LaTeX-begin-regexp
|
|
||||||
(concat LaTeX-begin-regexp "\\|If\\b" "\\|Loop\\b" "\\|For\\b" "\\|ForAll\\b"))
|
|
||||||
(setq LaTeX-end-regexp
|
|
||||||
(concat LaTeX-end-regexp "\\|EndIf\\b" "\\|EndLoop\\b"
|
|
||||||
"\\|EndFor\\b" "\\|Else\\b" "\\|ElsIf\\b"))
|
|
||||||
(setq LaTeX-paragraph-commands-regexp (LaTeX-paragraph-commands-regexp-make))
|
|
||||||
(defun LaTeX-indent-level-count ()
|
|
||||||
"Count indentation change caused by all \\left, \\right, \\begin, and
|
|
||||||
\\end commands in the current line."
|
|
||||||
(save-excursion
|
|
||||||
(save-restriction
|
|
||||||
(let ((count 0))
|
|
||||||
(narrow-to-region (point)
|
|
||||||
(save-excursion
|
|
||||||
(re-search-forward
|
|
||||||
(concat "[^" TeX-esc "]"
|
|
||||||
"\\(" LaTeX-indent-comment-start-regexp
|
|
||||||
"\\)\\|\n\\|\\'"))
|
|
||||||
(backward-char)
|
|
||||||
(point)))
|
|
||||||
(while (search-forward TeX-esc nil t)
|
|
||||||
(cond
|
|
||||||
((looking-at "left\\b")
|
|
||||||
(setq count (+ count LaTeX-left-right-indent-level)))
|
|
||||||
((looking-at "right\\b")
|
|
||||||
(setq count (- count LaTeX-left-right-indent-level)))
|
|
||||||
((looking-at LaTeX-begin-regexp)
|
|
||||||
(setq count (+ count LaTeX-indent-level)))
|
|
||||||
((looking-at "Else\\b"))
|
|
||||||
((looking-at "ElsIf\\b"))
|
|
||||||
((looking-at LaTeX-end-regexp)
|
|
||||||
(setq count (- count LaTeX-indent-level)))
|
|
||||||
((looking-at (regexp-quote TeX-esc))
|
|
||||||
(forward-char 1))))
|
|
||||||
count)))))
|
|
||||||
|
|
||||||
(add-to-list 'LaTeX-verbatim-environments "code")
|
|
||||||
(add-to-list 'LaTeX-indent-environment-list
|
|
||||||
'("code" current-indentation))
|
|
||||||
|
|
||||||
(add-hook 'LaTeX-mode-hook 'my-latex-mode-setup)
|
|
||||||
(add-hook 'LaTeX-mode-hook 'visual-line-mode)
|
|
||||||
(add-hook 'LaTeX-mode-hook 'flyspell-mode)
|
|
||||||
(add-hook 'LaTeX-mode-hook 'LaTeX-math-mode)
|
|
||||||
|
|
||||||
(add-hook 'LaTeX-mode-hook 'turn-on-reftex)
|
|
||||||
(setq reftex-plug-into-AUCTeX t)
|
|
||||||
(require 'tex)
|
|
||||||
(TeX-global-PDF-mode t)
|
|
||||||
)
|
|
||||||
(use-package company-auctex
|
|
||||||
:after (auctex company)
|
|
||||||
:config (company-auctex-init))
|
|
||||||
|
|
||||||
;; (add-to-list 'ispell-local-dictionary-alist '("francais-hunspell"
|
|
||||||
;; "[[:alpha:]]"
|
|
||||||
;; "[^[:alpha]]"
|
|
||||||
;; "[']"
|
|
||||||
;; t
|
|
||||||
;; ("-d" "fr_FR")
|
|
||||||
;; nil
|
|
||||||
;; iso-8859-1))
|
|
||||||
|
|
||||||
;; magit
|
|
||||||
(use-package magit
|
|
||||||
:config
|
|
||||||
(add-hook 'after-save-hook 'magit-after-save-refresh-status))
|
|
||||||
|
|
||||||
;; CSS style
|
|
||||||
(setq css-indent-offset 2)
|
|
||||||
|
|
||||||
;; Markdown mode
|
|
||||||
(use-package markdown-mode
|
|
||||||
:mode "\\.text\\'" "\\.markdown\\'" "\\.md\\'")
|
|
||||||
|
|
||||||
;; White space mode & Fill mode column
|
|
||||||
|
|
||||||
(defun my-visual-hook ()
|
|
||||||
(visual-line-mode t)
|
|
||||||
;; (visual-fill-column-mode t)
|
|
||||||
(define-key visual-line-mode-map [remap kill-line] nil)
|
|
||||||
(whitespace-mode t))
|
|
||||||
|
|
||||||
(setq-default fill-column 95)
|
|
||||||
(setq-default whitespace-line-column 95)
|
|
||||||
(add-hook 'python-mode-hook (lambda () (setq-local whitespace-line-column 100)))
|
|
||||||
(add-hook 'LaTeX-mode-hook (lambda () (setq-local whitespace-line-column -1)))
|
|
||||||
(add-hook 'markdown-mode-hook (lambda () (setq-local whitespace-line-column -1)))
|
|
||||||
(add-hook 'web-mode-hook (lambda () (setq-local whitespace-line-column -1)))
|
|
||||||
|
|
||||||
(add-hook 'text-mode-hook 'my-visual-hook)
|
|
||||||
(add-hook 'prog-mode-hook 'my-visual-hook)
|
|
||||||
|
|
||||||
(add-hook 'before-save-hook 'whitespace-cleanup)
|
|
||||||
|
|
||||||
;; Electric pair mode
|
|
||||||
(electric-pair-mode 1)
|
|
||||||
(show-paren-mode 1)
|
|
||||||
(setq show-paren-delay 0)
|
|
||||||
|
|
||||||
;; C mode
|
|
||||||
(setq c-default-style "k&r")
|
|
||||||
(setq c-basic-offset 4)
|
|
||||||
|
|
||||||
(defun ac-cc-mode-setup ()
|
|
||||||
"Initialization hook for CC-mode runs before any other hooks."
|
|
||||||
(hide-ifdef-mode)
|
|
||||||
(hs-minor-mode)
|
|
||||||
(setq hide-ifdef-shadow t))
|
|
||||||
|
|
||||||
(add-hook 'c-mode-common-hook 'ac-cc-mode-setup)
|
|
||||||
(add-hook 'c++-mode-common-hook 'ac-cc-mode-setup)
|
|
||||||
(add-hook 'auto-complete-mode-hook 'ac-common-setup)
|
|
||||||
|
|
||||||
(setq c-doc-comment-style
|
|
||||||
'((java-mode . javadoc)
|
|
||||||
(pike-mode . autodoc)
|
|
||||||
(c-mode . javadoc)
|
|
||||||
(c++-mode . javadoc)))
|
|
||||||
|
|
||||||
(add-to-list 'auto-mode-alist '("\\.hpp\\'" . c++-mode))
|
|
||||||
|
|
||||||
;; Run C programs directly from within emacs
|
|
||||||
(setq execute-command nil)
|
|
||||||
(setq execute-buffer-name "*output*")
|
|
||||||
(setq execute-process-name "execute")
|
|
||||||
|
|
||||||
(defun set-execute-command ()
|
|
||||||
(interactive)
|
|
||||||
(setq sp (split-string (read-from-minibuffer "Execute command: ")))
|
|
||||||
(setq execute-command (combine-and-quote-strings (cons (file-truename (car sp)) (cdr sp)))))
|
|
||||||
|
|
||||||
(defun kill-execute-c-program ()
|
|
||||||
(interactive)
|
|
||||||
(if (get-process execute-process-name)
|
|
||||||
(delete-process (get-process execute-process-name))))
|
|
||||||
|
|
||||||
(defun execute-c-program ()
|
|
||||||
(interactive)
|
|
||||||
(if (not execute-command) (set-execute-command))
|
|
||||||
(kill-execute-c-program)
|
|
||||||
(setq old-buffer (current-buffer))
|
|
||||||
(setq output-buffer (get-buffer-create execute-buffer-name))
|
|
||||||
(switch-to-buffer-other-window output-buffer)
|
|
||||||
(end-of-buffer)
|
|
||||||
(insert (concat (propertize execute-command 'face 'bold) "\n"))
|
|
||||||
(switch-to-buffer-other-window old-buffer)
|
|
||||||
(start-process-shell-command execute-process-name execute-buffer-name execute-command))
|
|
||||||
|
|
||||||
(defun key-c-mode-setup ()
|
|
||||||
(local-set-key (kbd "C-c C-c") 'smart-compile)
|
|
||||||
(local-set-key (kbd "C-c C-r") 'execute-c-program)
|
|
||||||
(local-set-key [f3] 'kill-execute-c-program)
|
|
||||||
(local-set-key [f4] 'set-execute-command))
|
|
||||||
|
|
||||||
(add-hook 'c++-mode-common-hook 'key-c-mode-setup)
|
|
||||||
(add-hook 'c-mode-common-hook 'key-c-mode-setup)
|
|
||||||
|
|
||||||
;; Flyspell dictionarie
|
|
||||||
(defun fd-switch-dictionary ()
|
|
||||||
(interactive)
|
|
||||||
(let* ((dic ispell-current-dictionary)
|
|
||||||
(change (if (string= dic "francais") "english" "francais")))
|
|
||||||
(ispell-change-dictionary change)
|
|
||||||
(message "Dictionary switched from %s to %s" dic change)
|
|
||||||
))
|
|
||||||
|
|
||||||
(defun key-latex-mode-setup ()
|
|
||||||
(local-set-key [f8] 'fd-switch-dictionary))
|
|
||||||
|
|
||||||
(add-hook 'LaTeX-mode-hook 'key-latex-mode-setup)
|
|
||||||
|
|
||||||
;; python
|
|
||||||
(use-package flycheck-mypy)
|
|
||||||
(use-package elpy
|
|
||||||
:config
|
|
||||||
(when (load "flycheck" t t)
|
|
||||||
(flycheck-add-next-checker 'python-flake8 'python-mypy)
|
|
||||||
(setq elpy-modules (delq 'elpy-module-flymake elpy-modules))
|
|
||||||
(add-hook 'elpy-mode-hook 'flycheck-mode))
|
|
||||||
(setq python-shell-interpreter "ipython"
|
|
||||||
python-shell-interpreter-args "-i --simple-prompt")
|
|
||||||
;; (setq python-shell-interpreter "jupyter"
|
|
||||||
;; python-shell-interpreter-args "console --simple-prompt"
|
|
||||||
;; python-shell-prompt-detect-failure-warning nil)
|
|
||||||
(add-to-list 'python-shell-completion-native-disabled-interpreters
|
|
||||||
"jupyter")
|
|
||||||
:init
|
|
||||||
(setq elpy-rpc-backend "jedi")
|
|
||||||
(setq elpy-rpc-python-command "python3")
|
|
||||||
(elpy-enable))
|
|
||||||
(add-hook 'python-mode-hook 'hs-minor-mode)
|
|
||||||
|
|
||||||
;; Web mode
|
|
||||||
(add-to-list 'auto-mode-alist '("\\.ctp\\'" . web-mode))
|
|
||||||
(add-to-list 'auto-mode-alist '("\\.html\\'" . web-mode))
|
|
||||||
|
|
||||||
;;(use-package mmm-mode
|
|
||||||
;; :config
|
|
||||||
;; (require 'mmm-auto)
|
|
||||||
;; (setq mmm-global-mode 'maybe)
|
|
||||||
;; (mmm-add-mode-ext-class 'html-mode "\\.php\\'" 'html-php)
|
|
||||||
;; (mmm-add-mode-ext-class nil "\\.ctp\\'" 'html-php)
|
|
||||||
;; (add-to-list 'mmm-mode-ext-classes-alist '(html-mode nil html-js))
|
|
||||||
;; (add-to-list 'mmm-mode-ext-classes-alist '(html-mode nil embedded-css))
|
|
||||||
;; (add-to-list 'mmm-mode-ext-classes-alist '(html-mode nil fancy-html)))
|
|
||||||
|
|
||||||
;; Go
|
|
||||||
(require 'go-template-mode)
|
|
||||||
|
|
||||||
;; Dockers
|
|
||||||
(require 'dockerfile-mode)
|
|
||||||
(add-to-list 'auto-mode-alist '("Dockerfile\\'" . dockerfile-mode))
|
|
||||||
|
|
||||||
;; Term
|
|
||||||
|
|
||||||
(setq explicit-shell-file-name "/bin/bash")
|
|
||||||
(defun my-term-hook ()
|
|
||||||
(visual-fill-column-mode nil)
|
|
||||||
(visual-line-mode nil))
|
|
||||||
(add-hook 'term-load-hook 'my-term-hook)
|
|
||||||
(eval-after-load "term"
|
|
||||||
'(define-key term-raw-map (kbd "C-c C-y") 'term-paste))
|
|
||||||
|
|
||||||
(setq custom-file "~/.emacs.d/custom.el")
|
|
||||||
(load custom-file)
|
|
||||||
(put 'narrow-to-region 'disabled nil)
|
|
||||||
|
|
||||||
(provide 'init)
|
|
||||||
;;; init.el ends here
|
|
||||||
@ -1,413 +0,0 @@
|
|||||||
;;; bind-key.el --- A simple way to manage personal keybindings
|
|
||||||
|
|
||||||
;; Copyright (c) 2012-2015 john wiegley
|
|
||||||
|
|
||||||
;; Author: John Wiegley <jwiegley@gmail.com>
|
|
||||||
;; Maintainer: John Wiegley <jwiegley@gmail.com>
|
|
||||||
;; Created: 16 Jun 2012
|
|
||||||
;; Version: 1.0
|
|
||||||
;; Keywords: keys keybinding config dotemacs
|
|
||||||
;; URL: https://github.com/jwiegley/use-package
|
|
||||||
|
|
||||||
;; This program is free software; you can redistribute it and/or
|
|
||||||
;; modify it under the terms of the gnu general public license as
|
|
||||||
;; published by the free software foundation; either version 2, or (at
|
|
||||||
;; your option) any later version.
|
|
||||||
|
|
||||||
;; This program is distributed in the hope that it will be useful, but
|
|
||||||
;; without any warranty; without even the implied warranty of
|
|
||||||
;; merchantability or fitness for a particular purpose. see the gnu
|
|
||||||
;; general public license for more details.
|
|
||||||
|
|
||||||
;; You should have received a copy of the gnu general public license
|
|
||||||
;; along with gnu emacs; see the file copying. if not, write to the
|
|
||||||
;; free software foundation, inc., 59 temple place - suite 330,
|
|
||||||
;; boston, ma 02111-1307, usa.
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
|
|
||||||
;; If you have lots of keybindings set in your .emacs file, it can be hard to
|
|
||||||
;; know which ones you haven't set yet, and which may now be overriding some
|
|
||||||
;; new default in a new emacs version. This module aims to solve that
|
|
||||||
;; problem.
|
|
||||||
;;
|
|
||||||
;; Bind keys as follows in your .emacs:
|
|
||||||
;;
|
|
||||||
;; (require 'bind-key)
|
|
||||||
;;
|
|
||||||
;; (bind-key "C-c x" 'my-ctrl-c-x-command)
|
|
||||||
;;
|
|
||||||
;; If you want the keybinding to override all minor modes that may also bind
|
|
||||||
;; the same key, use the `bind-key*' form:
|
|
||||||
;;
|
|
||||||
;; (bind-key* "<C-return>" 'other-window)
|
|
||||||
;;
|
|
||||||
;; If you want to rebind a key only in a particular keymap, use:
|
|
||||||
;;
|
|
||||||
;; (bind-key "C-c x" 'my-ctrl-c-x-command some-other-mode-map)
|
|
||||||
;;
|
|
||||||
;; To unbind a key within a keymap (for example, to stop your favorite major
|
|
||||||
;; mode from changing a binding that you don't want to override everywhere),
|
|
||||||
;; use `unbind-key':
|
|
||||||
;;
|
|
||||||
;; (unbind-key "C-c x" some-other-mode-map)
|
|
||||||
;;
|
|
||||||
;; To bind multiple keys at once, or set up a prefix map, a `bind-keys' macro
|
|
||||||
;; is provided. It accepts keyword arguments, please see its documentation
|
|
||||||
;; for a detailed description.
|
|
||||||
;;
|
|
||||||
;; To add keys into a specific map, use :map argument
|
|
||||||
;;
|
|
||||||
;; (bind-keys :map dired-mode-map
|
|
||||||
;; ("o" . dired-omit-mode)
|
|
||||||
;; ("a" . some-custom-dired-function))
|
|
||||||
;;
|
|
||||||
;; To set up a prefix map, use `:prefix-map' and `:prefix' arguments (both are
|
|
||||||
;; required)
|
|
||||||
;;
|
|
||||||
;; (bind-keys :prefix-map my-customize-prefix-map
|
|
||||||
;; :prefix "C-c c"
|
|
||||||
;; ("f" . customize-face)
|
|
||||||
;; ("v" . customize-variable))
|
|
||||||
;;
|
|
||||||
;; You can combine all the keywords together. Additionally,
|
|
||||||
;; `:prefix-docstring' can be specified to set documentation of created
|
|
||||||
;; `:prefix-map' variable.
|
|
||||||
;;
|
|
||||||
;; To bind multiple keys in a `bind-key*' way (to be sure that your bindings
|
|
||||||
;; will not be overridden by other modes), you may use `bind-keys*' macro:
|
|
||||||
;;
|
|
||||||
;; (bind-keys*
|
|
||||||
;; ("C-o" . other-window)
|
|
||||||
;; ("C-M-n" . forward-page)
|
|
||||||
;; ("C-M-p" . backward-page))
|
|
||||||
;;
|
|
||||||
;; After Emacs loads, you can see a summary of all your personal keybindings
|
|
||||||
;; currently in effect with this command:
|
|
||||||
;;
|
|
||||||
;; M-x describe-personal-keybindings
|
|
||||||
;;
|
|
||||||
;; This display will tell you if you've overriden a default keybinding, and
|
|
||||||
;; what the default was. Also, it will tell you if the key was rebound after
|
|
||||||
;; your binding it with `bind-key', and what it was rebound it to.
|
|
||||||
|
|
||||||
(require 'cl-lib)
|
|
||||||
(require 'easy-mmode)
|
|
||||||
|
|
||||||
(defgroup bind-key nil
|
|
||||||
"A simple way to manage personal keybindings"
|
|
||||||
:group 'emacs)
|
|
||||||
|
|
||||||
(defcustom bind-key-column-widths '(18 . 40)
|
|
||||||
"Width of columns in `describe-personal-keybindings'."
|
|
||||||
:type '(cons integer integer)
|
|
||||||
:group 'bind-key)
|
|
||||||
|
|
||||||
(defcustom bind-key-segregation-regexp
|
|
||||||
"\\`\\(\\(C-[chx] \\|M-[gso] \\)\\([CM]-\\)?\\|.+-\\)"
|
|
||||||
"Regular expression used to divide key sets in the output from
|
|
||||||
\\[describe-personal-keybindings]."
|
|
||||||
:type 'regexp
|
|
||||||
:group 'bind-key)
|
|
||||||
|
|
||||||
(defcustom bind-key-describe-special-forms nil
|
|
||||||
"If non-nil, extract docstrings from lambdas, closures and keymaps if possible."
|
|
||||||
:type 'boolean
|
|
||||||
:group 'bind-key)
|
|
||||||
|
|
||||||
;; Create override-global-mode to force key remappings
|
|
||||||
|
|
||||||
(defvar override-global-map (make-keymap)
|
|
||||||
"override-global-mode keymap")
|
|
||||||
|
|
||||||
(define-minor-mode override-global-mode
|
|
||||||
"A minor mode so that keymap settings override other modes."
|
|
||||||
t "")
|
|
||||||
|
|
||||||
;; the keymaps in `emulation-mode-map-alists' take precedence over
|
|
||||||
;; `minor-mode-map-alist'
|
|
||||||
(add-to-list 'emulation-mode-map-alists
|
|
||||||
`((override-global-mode . ,override-global-map)))
|
|
||||||
|
|
||||||
(defvar personal-keybindings nil
|
|
||||||
"List of bindings performed by `bind-key'.
|
|
||||||
|
|
||||||
Elements have the form ((KEY . [MAP]) CMD ORIGINAL-CMD)")
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defmacro bind-key (key-name command &optional keymap predicate)
|
|
||||||
"Bind KEY-NAME to COMMAND in KEYMAP (`global-map' if not passed).
|
|
||||||
|
|
||||||
KEY-NAME may be a vector, in which case it is passed straight to
|
|
||||||
`define-key'. Or it may be a string to be interpreted as
|
|
||||||
spelled-out keystrokes, e.g., \"C-c C-z\". See documentation of
|
|
||||||
`edmacro-mode' for details.
|
|
||||||
|
|
||||||
If PREDICATE is non-nil, it is a form evaluated to determine when
|
|
||||||
a key should be bound. It must return non-nil in such cases.
|
|
||||||
Emacs can evaluate this form at any time that it does redisplay
|
|
||||||
or operates on menu data structures, so you should write it so it
|
|
||||||
can safely be called at any time."
|
|
||||||
(let ((namevar (make-symbol "name"))
|
|
||||||
(keyvar (make-symbol "key"))
|
|
||||||
(kdescvar (make-symbol "kdesc"))
|
|
||||||
(bindingvar (make-symbol "binding")))
|
|
||||||
`(let* ((,namevar ,key-name)
|
|
||||||
(,keyvar (if (vectorp ,namevar) ,namevar
|
|
||||||
(read-kbd-macro ,namevar)))
|
|
||||||
(,kdescvar (cons (if (stringp ,namevar) ,namevar
|
|
||||||
(key-description ,namevar))
|
|
||||||
(quote ,keymap)))
|
|
||||||
(,bindingvar (lookup-key (or ,keymap global-map) ,keyvar)))
|
|
||||||
(add-to-list 'personal-keybindings
|
|
||||||
(list ,kdescvar ,command
|
|
||||||
(unless (numberp ,bindingvar) ,bindingvar)))
|
|
||||||
,(if predicate
|
|
||||||
`(define-key (or ,keymap global-map) ,keyvar
|
|
||||||
'(menu-item "" nil :filter (lambda (&optional _)
|
|
||||||
(when ,predicate
|
|
||||||
,command))))
|
|
||||||
`(define-key (or ,keymap global-map) ,keyvar ,command)))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defmacro unbind-key (key-name &optional keymap)
|
|
||||||
"Unbind the given KEY-NAME, within the KEYMAP (if specified).
|
|
||||||
See `bind-key' for more details."
|
|
||||||
`(progn
|
|
||||||
(bind-key ,key-name nil ,keymap)
|
|
||||||
(setq personal-keybindings
|
|
||||||
(cl-delete-if #'(lambda (k)
|
|
||||||
,(if keymap
|
|
||||||
`(and (consp (car k))
|
|
||||||
(string= (caar k) ,key-name)
|
|
||||||
(eq (cdar k) ',keymap))
|
|
||||||
`(and (stringp (car k))
|
|
||||||
(string= (car k) ,key-name))))
|
|
||||||
personal-keybindings))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defmacro bind-key* (key-name command &optional predicate)
|
|
||||||
"Similar to `bind-key', but overrides any mode-specific bindings."
|
|
||||||
`(bind-key ,key-name ,command override-global-map ,predicate))
|
|
||||||
|
|
||||||
(defun bind-keys-form (args)
|
|
||||||
"Bind multiple keys at once.
|
|
||||||
|
|
||||||
Accepts keyword arguments:
|
|
||||||
:map MAP - a keymap into which the keybindings should be
|
|
||||||
added
|
|
||||||
:prefix KEY - prefix key for these bindings
|
|
||||||
:prefix-map MAP - name of the prefix map that should be created
|
|
||||||
for these bindings
|
|
||||||
:prefix-docstring STR - docstring for the prefix-map variable
|
|
||||||
:menu-name NAME - optional menu string for prefix map
|
|
||||||
:filter FORM - optional form to determine when bindings apply
|
|
||||||
|
|
||||||
The rest of the arguments are conses of keybinding string and a
|
|
||||||
function symbol (unquoted)."
|
|
||||||
;; jww (2016-02-26): This is a hack; this whole function needs to be
|
|
||||||
;; rewritten to normalize arguments the way that use-package.el does.
|
|
||||||
(if (and (eq (car args) :package)
|
|
||||||
(not (eq (car (cdr (cdr args))) :map)))
|
|
||||||
(setq args (cons :map (cons 'global-map args))))
|
|
||||||
(let* ((map (plist-get args :map))
|
|
||||||
(doc (plist-get args :prefix-docstring))
|
|
||||||
(prefix-map (plist-get args :prefix-map))
|
|
||||||
(prefix (plist-get args :prefix))
|
|
||||||
(filter (plist-get args :filter))
|
|
||||||
(menu-name (plist-get args :menu-name))
|
|
||||||
(pkg (plist-get args :package))
|
|
||||||
(key-bindings (progn
|
|
||||||
(while (keywordp (car args))
|
|
||||||
(pop args)
|
|
||||||
(pop args))
|
|
||||||
args)))
|
|
||||||
(when (or (and prefix-map (not prefix))
|
|
||||||
(and prefix (not prefix-map)))
|
|
||||||
(error "Both :prefix-map and :prefix must be supplied"))
|
|
||||||
(when (and menu-name (not prefix))
|
|
||||||
(error "If :menu-name is supplied, :prefix must be too"))
|
|
||||||
(let ((args key-bindings)
|
|
||||||
saw-map first next)
|
|
||||||
(while args
|
|
||||||
(if (keywordp (car args))
|
|
||||||
(progn
|
|
||||||
(setq next args)
|
|
||||||
(setq args nil))
|
|
||||||
(if first
|
|
||||||
(nconc first (list (car args)))
|
|
||||||
(setq first (list (car args))))
|
|
||||||
(setq args (cdr args))))
|
|
||||||
(cl-flet
|
|
||||||
((wrap (map bindings)
|
|
||||||
(if (and map pkg (not (eq map 'global-map)))
|
|
||||||
(if (boundp map)
|
|
||||||
bindings
|
|
||||||
`((eval-after-load
|
|
||||||
,(if (symbolp pkg) `',pkg pkg)
|
|
||||||
'(progn ,@bindings))))
|
|
||||||
bindings)))
|
|
||||||
(append
|
|
||||||
(when prefix-map
|
|
||||||
`((defvar ,prefix-map)
|
|
||||||
,@(when doc `((put ',prefix-map 'variable-documentation ,doc)))
|
|
||||||
,@(if menu-name
|
|
||||||
`((define-prefix-command ',prefix-map nil ,menu-name))
|
|
||||||
`((define-prefix-command ',prefix-map)))
|
|
||||||
,@(if (and map (not (eq map 'global-map)))
|
|
||||||
(wrap map `((bind-key ,prefix ',prefix-map ,map ,filter)))
|
|
||||||
`((bind-key ,prefix ',prefix-map nil ,filter)))))
|
|
||||||
(wrap map
|
|
||||||
(cl-mapcan
|
|
||||||
(lambda (form)
|
|
||||||
(if prefix-map
|
|
||||||
`((bind-key ,(car form) ',(cdr form) ,prefix-map ,filter))
|
|
||||||
(if (and map (not (eq map 'global-map)))
|
|
||||||
`((bind-key ,(car form) ',(cdr form) ,map ,filter))
|
|
||||||
`((bind-key ,(car form) ',(cdr form) nil ,filter)))))
|
|
||||||
first))
|
|
||||||
(when next
|
|
||||||
(bind-keys-form
|
|
||||||
(if pkg
|
|
||||||
(cons :package (cons pkg next))
|
|
||||||
next))))))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defmacro bind-keys (&rest args)
|
|
||||||
"Bind multiple keys at once.
|
|
||||||
|
|
||||||
Accepts keyword arguments:
|
|
||||||
:map MAP - a keymap into which the keybindings should be
|
|
||||||
added
|
|
||||||
:prefix KEY - prefix key for these bindings
|
|
||||||
:prefix-map MAP - name of the prefix map that should be created
|
|
||||||
for these bindings
|
|
||||||
:prefix-docstring STR - docstring for the prefix-map variable
|
|
||||||
:menu-name NAME - optional menu string for prefix map
|
|
||||||
:filter FORM - optional form to determine when bindings apply
|
|
||||||
|
|
||||||
The rest of the arguments are conses of keybinding string and a
|
|
||||||
function symbol (unquoted)."
|
|
||||||
(macroexp-progn (bind-keys-form args)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defmacro bind-keys* (&rest args)
|
|
||||||
(macroexp-progn
|
|
||||||
(bind-keys-form `(:map override-global-map ,@args))))
|
|
||||||
|
|
||||||
(defun get-binding-description (elem)
|
|
||||||
(cond
|
|
||||||
((listp elem)
|
|
||||||
(cond
|
|
||||||
((eq 'lambda (car elem))
|
|
||||||
(if (and bind-key-describe-special-forms
|
|
||||||
(stringp (nth 2 elem)))
|
|
||||||
(nth 2 elem)
|
|
||||||
"#<lambda>"))
|
|
||||||
((eq 'closure (car elem))
|
|
||||||
(if (and bind-key-describe-special-forms
|
|
||||||
(stringp (nth 3 elem)))
|
|
||||||
(nth 3 elem)
|
|
||||||
"#<closure>"))
|
|
||||||
((eq 'keymap (car elem))
|
|
||||||
"#<keymap>")
|
|
||||||
(t
|
|
||||||
elem)))
|
|
||||||
;; must be a symbol, non-symbol keymap case covered above
|
|
||||||
((and bind-key-describe-special-forms (keymapp elem))
|
|
||||||
(let ((doc (get elem 'variable-documentation)))
|
|
||||||
(if (stringp doc) doc elem)))
|
|
||||||
((symbolp elem)
|
|
||||||
elem)
|
|
||||||
(t
|
|
||||||
"#<byte-compiled lambda>")))
|
|
||||||
|
|
||||||
(defun compare-keybindings (l r)
|
|
||||||
(let* ((regex bind-key-segregation-regexp)
|
|
||||||
(lgroup (and (string-match regex (caar l))
|
|
||||||
(match-string 0 (caar l))))
|
|
||||||
(rgroup (and (string-match regex (caar r))
|
|
||||||
(match-string 0 (caar r))))
|
|
||||||
(lkeymap (cdar l))
|
|
||||||
(rkeymap (cdar r)))
|
|
||||||
(cond
|
|
||||||
((and (null lkeymap) rkeymap)
|
|
||||||
(cons t t))
|
|
||||||
((and lkeymap (null rkeymap))
|
|
||||||
(cons nil t))
|
|
||||||
((and lkeymap rkeymap
|
|
||||||
(not (string= (symbol-name lkeymap) (symbol-name rkeymap))))
|
|
||||||
(cons (string< (symbol-name lkeymap) (symbol-name rkeymap)) t))
|
|
||||||
((and (null lgroup) rgroup)
|
|
||||||
(cons t t))
|
|
||||||
((and lgroup (null rgroup))
|
|
||||||
(cons nil t))
|
|
||||||
((and lgroup rgroup)
|
|
||||||
(if (string= lgroup rgroup)
|
|
||||||
(cons (string< (caar l) (caar r)) nil)
|
|
||||||
(cons (string< lgroup rgroup) t)))
|
|
||||||
(t
|
|
||||||
(cons (string< (caar l) (caar r)) nil)))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun describe-personal-keybindings ()
|
|
||||||
"Display all the personal keybindings defined by `bind-key'."
|
|
||||||
(interactive)
|
|
||||||
(with-output-to-temp-buffer "*Personal Keybindings*"
|
|
||||||
(princ (format (concat "Key name%s Command%s Comments\n%s %s "
|
|
||||||
"---------------------\n")
|
|
||||||
(make-string (- (car bind-key-column-widths) 9) ? )
|
|
||||||
(make-string (- (cdr bind-key-column-widths) 8) ? )
|
|
||||||
(make-string (1- (car bind-key-column-widths)) ?-)
|
|
||||||
(make-string (1- (cdr bind-key-column-widths)) ?-)))
|
|
||||||
(let (last-binding)
|
|
||||||
(dolist (binding
|
|
||||||
(setq personal-keybindings
|
|
||||||
(sort personal-keybindings
|
|
||||||
(lambda (l r)
|
|
||||||
(car (compare-keybindings l r))))))
|
|
||||||
|
|
||||||
(if (not (eq (cdar last-binding) (cdar binding)))
|
|
||||||
(princ (format "\n\n%s\n%s\n\n"
|
|
||||||
(cdar binding)
|
|
||||||
(make-string (+ 21 (car bind-key-column-widths)
|
|
||||||
(cdr bind-key-column-widths)) ?-)))
|
|
||||||
(if (and last-binding
|
|
||||||
(cdr (compare-keybindings last-binding binding)))
|
|
||||||
(princ "\n")))
|
|
||||||
|
|
||||||
(let* ((key-name (caar binding))
|
|
||||||
(at-present (lookup-key (or (symbol-value (cdar binding))
|
|
||||||
(current-global-map))
|
|
||||||
(read-kbd-macro key-name)))
|
|
||||||
(command (nth 1 binding))
|
|
||||||
(was-command (nth 2 binding))
|
|
||||||
(command-desc (get-binding-description command))
|
|
||||||
(was-command-desc (and was-command
|
|
||||||
(get-binding-description was-command)))
|
|
||||||
(at-present-desc (get-binding-description at-present))
|
|
||||||
)
|
|
||||||
(let ((line
|
|
||||||
(format
|
|
||||||
(format "%%-%ds%%-%ds%%s\n" (car bind-key-column-widths)
|
|
||||||
(cdr bind-key-column-widths))
|
|
||||||
key-name (format "`%s\'" command-desc)
|
|
||||||
(if (string= command-desc at-present-desc)
|
|
||||||
(if (or (null was-command)
|
|
||||||
(string= command-desc was-command-desc))
|
|
||||||
""
|
|
||||||
(format "was `%s\'" was-command-desc))
|
|
||||||
(format "[now: `%s\']" at-present)))))
|
|
||||||
(princ (if (string-match "[ \t]+\n" line)
|
|
||||||
(replace-match "\n" t t line)
|
|
||||||
line))))
|
|
||||||
|
|
||||||
(setq last-binding binding)))))
|
|
||||||
|
|
||||||
(provide 'bind-key)
|
|
||||||
|
|
||||||
;; Local Variables:
|
|
||||||
;; indent-tabs-mode: nil
|
|
||||||
;; End:
|
|
||||||
|
|
||||||
;;; bind-key.el ends here
|
|
||||||
@ -1,56 +0,0 @@
|
|||||||
(require 'font-lock)
|
|
||||||
;;###autoload
|
|
||||||
(define-minor-mode c++1x-minor-mode
|
|
||||||
"Extra highlighting for c++-mode that includes c++11 and c++14 keywords and features"
|
|
||||||
:lighter "c++1x"
|
|
||||||
|
|
||||||
(defun --copy-face (new-face face)
|
|
||||||
"Define NEW-FACE from existing FACE."
|
|
||||||
(copy-face face new-face)
|
|
||||||
(eval `(defvar ,new-face nil))
|
|
||||||
(set new-face new-face))
|
|
||||||
|
|
||||||
(--copy-face 'font-lock-label-face ; labels, case, public, private, proteced, namespace-tags
|
|
||||||
'font-lock-keyword-face)
|
|
||||||
(--copy-face 'font-lock-doc-markup-face ; comment markups such as Javadoc-tags
|
|
||||||
'font-lock-doc-face)
|
|
||||||
(--copy-face 'font-lock-doc-string-face ; comment markups
|
|
||||||
'font-lock-comment-face)
|
|
||||||
|
|
||||||
(global-font-lock-mode t)
|
|
||||||
(setq font-lock-maximum-decoration t)
|
|
||||||
|
|
||||||
|
|
||||||
(font-lock-add-keywords
|
|
||||||
nil '(;; complete some fundamental keywords
|
|
||||||
("\\<\\(void\\|unsigned\\|signed\\|char\\|short\\|bool\\|int\\|long\\|float\\|double\\)\\>" . font-lock-keyword-face)
|
|
||||||
;; add the new C++11 keywords
|
|
||||||
("\\<\\(alignof\\|alignas\\|constexpr\\|noexcept\\|\\|static_assert\\|thread_local\\|override\\|final\\)\\>" . font-lock-keyword-face)
|
|
||||||
("\\<\\(decltype\\)\\>" . font-lock-builtin-face)
|
|
||||||
("\\<\\(nullptr\\)\\>" . font-lock-constant-face)
|
|
||||||
("\\<\\(char[0-9]+_t\\)\\>" . font-lock-keyword-face)
|
|
||||||
;; PREPROCESSOR_CONSTANT
|
|
||||||
("\\<[A-Z]+[A-Z_]+\\>" . font-lock-constant-face)
|
|
||||||
;; hexadecimal numbers
|
|
||||||
("\\<0[xX][0-9A-Fa-f]+\\>" . font-lock-constant-face)
|
|
||||||
;; integer/float/scientific numbers
|
|
||||||
("\\<[\\-+]*[0-9]*\\.?[0-9]+\\([ulUL]+\\|[eE][\\-+]?[0-9]+\\)?\\>" . font-lock-constant-face)
|
|
||||||
;; c++11 string literals
|
|
||||||
;; L"wide string"
|
|
||||||
;; L"wide string with UNICODE codepoint: \u2018"
|
|
||||||
;; u8"UTF-8 string", u"UTF-16 string", U"UTF-32 string"
|
|
||||||
("\\<\\([LuU8]+\\)\".*?\"" 1 font-lock-keyword-face)
|
|
||||||
;; R"(user-defined literal)"
|
|
||||||
;; R"( a "quot'd" string )"
|
|
||||||
;; R"delimiter(The String Data" )delimiter"
|
|
||||||
;; R"delimiter((a-z))delimiter" is equivalent to "(a-z)"
|
|
||||||
("\\(\\<[uU8]*R\"[^\\s-\\\\()]\\{0,16\\}(\\)" 1 font-lock-keyword-face t) ; start delimiter
|
|
||||||
( "\\<[uU8]*R\"[^\\s-\\\\()]\\{0,16\\}(\\(.*?\\))[^\\s-\\\\()]\\{0,16\\}\"" 1 font-lock-string-face t) ; actual string
|
|
||||||
( "\\<[uU8]*R\"[^\\s-\\\\()]\\{0,16\\}(.*?\\()[^\\s-\\\\()]\\{0,16\\}\"\\)" 1 font-lock-keyword-face t) ; end delimiter
|
|
||||||
|
|
||||||
)))
|
|
||||||
|
|
||||||
;;###autoload
|
|
||||||
(add-hook 'c++-mode-hook 'c++1x-minor-mode)
|
|
||||||
|
|
||||||
(provide 'c++1x-minor-mode)
|
|
||||||
@ -1,928 +0,0 @@
|
|||||||
;;; doc-mode.el --- convenient editing of in-code documentation
|
|
||||||
;;
|
|
||||||
;; Copyright (C) 2007, 2009 Nikolaj Schumacher
|
|
||||||
;; Author: Nikolaj Schumacher <bugs * nschum de>
|
|
||||||
;; Version: 0.2
|
|
||||||
;; Keywords: convenience tools
|
|
||||||
;; URL: http://nschum.de/src/emacs/doc-mode/
|
|
||||||
;; Compatibility: GNU Emacs 22.x, GNU Emacs 23.x
|
|
||||||
;;
|
|
||||||
;; This file is NOT part of GNU Emacs.
|
|
||||||
;;
|
|
||||||
;; This program is free software; you can redistribute it and/or
|
|
||||||
;; modify it under the terms of the GNU General Public License
|
|
||||||
;; as published by the Free Software Foundation; either version 2
|
|
||||||
;; of the License, or (at your option) any later version.
|
|
||||||
;;
|
|
||||||
;; This program is distributed in the hope that it will be useful,
|
|
||||||
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
||||||
;; GNU General Public License for more details.
|
|
||||||
;;
|
|
||||||
;; You should have received a copy of the GNU General Public License
|
|
||||||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
||||||
;;
|
|
||||||
;;; Commentary:
|
|
||||||
;;
|
|
||||||
;; This mode requires the Semantic package to be installed and running:
|
|
||||||
;; http://cedet.sourceforge.net/
|
|
||||||
;;
|
|
||||||
;; doc-mode allows easy creation and editing of JavaDoc or Doxygen comment
|
|
||||||
;; blocks in your code. It also greatly improves readability of code by folding
|
|
||||||
;; the blocks, so they don't take up precious screen lines.
|
|
||||||
;;
|
|
||||||
;; Add the following to your .emacs file:
|
|
||||||
;; (require 'doc-mode)
|
|
||||||
;; (add-hook 'c-mode-common-hook 'doc-mode)
|
|
||||||
;;
|
|
||||||
;; The command `doc-mode-fix-tag-doc' or "C-cdd" adds or replaces the
|
|
||||||
;; documentation for the function, variable, or class at point.
|
|
||||||
;; `doc-mode-remove-tag-doc' or "C-cdr" removes it.
|
|
||||||
;;
|
|
||||||
;; You can fold the comments by using `doc-mode-toggle-tag-doc-folding' or
|
|
||||||
;; `doc-mode-fold-all'.
|
|
||||||
;;
|
|
||||||
;;; Change Log:
|
|
||||||
;;
|
|
||||||
;; 2009-03-22 (0.2)
|
|
||||||
;; Added `doc-mode-keywords-from-tag-func' as customizable option.
|
|
||||||
;; Improved parameter list change recognition.
|
|
||||||
;; `doc-mode-jump-to-template' now enables jumping to the latest comment.
|
|
||||||
;; `doc-mode-first-template' now jumps to the first template in this buffer.
|
|
||||||
;;
|
|
||||||
;; 2007-09-09 (0.1.1)
|
|
||||||
;; Fixed return value detection.
|
|
||||||
;; Actual keyword highlighting.
|
|
||||||
;;
|
|
||||||
;; 2007-09-07 (0.1)
|
|
||||||
;; Initial release.
|
|
||||||
;;
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(eval-when-compile (require 'cl))
|
|
||||||
(require 'semantic)
|
|
||||||
(require 'cc-mode)
|
|
||||||
(require 'newcomment) ;comment-fill-column
|
|
||||||
|
|
||||||
(dolist (err `("^No tag found$" "^Semantic can't parse buffer$"
|
|
||||||
"^No template found$" "^doc-mode not enabled$"))
|
|
||||||
(add-to-list 'debug-ignored-errors err))
|
|
||||||
|
|
||||||
;; semantic-after-auto-parse-hooks
|
|
||||||
|
|
||||||
(defgroup doc-mode nil
|
|
||||||
"Minor mode for editing in-code documentation."
|
|
||||||
:group 'convenience
|
|
||||||
:group 'tools)
|
|
||||||
|
|
||||||
(defcustom doc-mode-auto-check-p t
|
|
||||||
"*Should the buffer documentation be checked after a Semantic reparse."
|
|
||||||
:group 'doc-mode
|
|
||||||
:type '(choice (const :tag "Off" nil)
|
|
||||||
(const :tag "On" t)))
|
|
||||||
|
|
||||||
(defcustom doc-mode-jump-to-template t
|
|
||||||
"*Should the point be moved inside the template after inserting a doc."
|
|
||||||
:group 'doc-mode
|
|
||||||
:type '(choice (const :tag "Off" nil)
|
|
||||||
(const :tag "On" t)))
|
|
||||||
|
|
||||||
(defcustom doc-mode-template-start "/**"
|
|
||||||
"*The string to insert at the beginning of a comment."
|
|
||||||
:group 'doc-mode
|
|
||||||
:type 'string)
|
|
||||||
|
|
||||||
(defcustom doc-mode-template-end " */"
|
|
||||||
"*The string to insert at the end of a comment."
|
|
||||||
:group 'doc-mode
|
|
||||||
:type 'string)
|
|
||||||
|
|
||||||
(defcustom doc-mode-template-continue " * "
|
|
||||||
"*The string to insert at the beginning of each line in a comment."
|
|
||||||
:group 'doc-mode
|
|
||||||
:type 'string)
|
|
||||||
|
|
||||||
(defcustom doc-mode-template-single-line-start "/** "
|
|
||||||
"*The string to insert at the beginning of a single-line comment.
|
|
||||||
For using single-line comments, see `doc-mode-allow-single-line-comments'"
|
|
||||||
:group 'doc-mode
|
|
||||||
:type 'string)
|
|
||||||
|
|
||||||
(defcustom doc-mode-template-single-line-end " */"
|
|
||||||
"*The string to insert at the end of a single-line comment.
|
|
||||||
For using single-line comments, see `doc-mode-allow-single-line-comments'"
|
|
||||||
:group 'doc-mode
|
|
||||||
:type 'string)
|
|
||||||
|
|
||||||
(defcustom doc-mode-template-keyword-char "@"
|
|
||||||
"*The character used to begin keywords."
|
|
||||||
:group 'doc-mode
|
|
||||||
:type '(choice (const :tag "@" "@")
|
|
||||||
(const :tag "\\" "\\")
|
|
||||||
(string :tag "Other")))
|
|
||||||
|
|
||||||
(defcustom doc-mode-template-empty-line-after-summary nil
|
|
||||||
"*Whether to put an empty line after the first one in the comment."
|
|
||||||
:group 'doc-mode
|
|
||||||
:type '(choice (const :tag "Off" nil)
|
|
||||||
(const :tag "On" t)))
|
|
||||||
|
|
||||||
(defcustom doc-mode-template-empty-line-before-keywords nil
|
|
||||||
"*Whether to put an empty line before the keyword list in a comment."
|
|
||||||
:group 'doc-mode
|
|
||||||
:type '(choice (const :tag "Off" nil)
|
|
||||||
(const :tag "On" t)))
|
|
||||||
|
|
||||||
(defcustom doc-mode-template-keywords
|
|
||||||
'("deprecated" "param" "return" "author" "exception" "throws" "version"
|
|
||||||
"since" "see" "sa" "todo")
|
|
||||||
"*Keywords that should be listed in this order.
|
|
||||||
All other keywords will be considered regular text."
|
|
||||||
:group 'doc-mode
|
|
||||||
:type '(repeat string))
|
|
||||||
|
|
||||||
(defcustom doc-mode-allow-single-line-comments t
|
|
||||||
"*Whether to allow a more space-saving format for very short comments.
|
|
||||||
When this is enabled, `doc-mode-template-single-line-start' and
|
|
||||||
`doc-mode-template-single-line-end' will be used to format single-line
|
|
||||||
comments instead of `doc-mode-template-start', `doc-mode-template-end' and
|
|
||||||
`doc-mode-template-continue'."
|
|
||||||
:group 'doc-mode
|
|
||||||
:type '(choice (const :tag "Off" nil)
|
|
||||||
(const :tag "On" t)))
|
|
||||||
|
|
||||||
(defcustom doc-mode-fold-single-line-comments nil
|
|
||||||
"*Whether to bother folding comments that are already a single line."
|
|
||||||
:group 'doc-mode
|
|
||||||
:type '(choice (const :tag "Off" nil)
|
|
||||||
(const :tag "On" t)))
|
|
||||||
|
|
||||||
(defcustom doc-mode-align-keyword-arguments t
|
|
||||||
"*Whether to align the arguments to a keyword continued in the next line.
|
|
||||||
This may also be a number, describing how far to indent the argument list."
|
|
||||||
:group 'doc-mode
|
|
||||||
:type '(choice (const :tag "Off" nil)
|
|
||||||
(integer :tag "Indent" nil)
|
|
||||||
(const :tag "On" t)))
|
|
||||||
|
|
||||||
(defcustom doc-mode-fill-column nil
|
|
||||||
"*The column at which to break text when formatting it.
|
|
||||||
If this is nil, `comment-fill-column' is used."
|
|
||||||
:group 'doc-mode
|
|
||||||
:type '(choice (const :tag "Default" nil)
|
|
||||||
(integer :tag "Fill Column")))
|
|
||||||
|
|
||||||
(defcustom doc-mode-keywords-from-tag-func 'doc-mode-keywords-from-tag
|
|
||||||
"*Function used to generate keywords for a tag.
|
|
||||||
This must be a function that takes two arguments. The first argument is the
|
|
||||||
Semantic tag for which to generate keywords, the second is a list of existing
|
|
||||||
keywords taken from the current doc comment. It should return the new list of
|
|
||||||
keywords. Each element in a keyword list can be either a string or a list with
|
|
||||||
a keyword, optional argument and optional description. Additional entries with
|
|
||||||
undetermined content should be created with `doc-mode-new-keyword'."
|
|
||||||
:group 'doc-mode
|
|
||||||
:type 'function)
|
|
||||||
|
|
||||||
;;; keywords ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
|
|
||||||
(defconst doc-mode-font-lock-keywords
|
|
||||||
(eval-when-compile
|
|
||||||
`((,(concat "[\\@]"
|
|
||||||
(regexp-opt
|
|
||||||
'("addindex" "addtogroup" "anchor" "arg" "author" "brief" "callgraph"
|
|
||||||
"callergraph" "category" "code" "cond" "copydoc" "date" "defgroup"
|
|
||||||
"deprecated" "details" "dir" "dontinclude" "dot" "dotfile" "e"
|
|
||||||
"else" "elseif" "em" "endcode" "endcond" "enddot" "endhtmlonly"
|
|
||||||
"endif" "endlatexonly" "endlink" "endmanonly" "endmsc" "endverbatim"
|
|
||||||
"endxmlonly" "example" "f$" "f[" "f]" "file" "fn" "hideinitializer"
|
|
||||||
"htmlinclude" "htmlonly" "if" "ifnot" "image" "include"
|
|
||||||
"includelineno" "ingroup" "internal" "invariant" "latexonly" "li"
|
|
||||||
"line" "link" "mainpage" "manonly" "msc" "name" "nosubgrouping"
|
|
||||||
"note" "overload" "package" "page" "par" "paragraph" "post" "pre"
|
|
||||||
"private" "privatesection" "property" "protected" "protectedsection"
|
|
||||||
"public" "publicsection" "ref" "remarks" "return" "retval" "sa"
|
|
||||||
"section" "see" "serial" "serialData" "serialField"
|
|
||||||
"showinitializer" "since" "skip" "skipline" "subpage" "subsection"
|
|
||||||
"subsubsection" "test" "typedef" "until" "defvar" "verbatim"
|
|
||||||
"verbinclude" "version" "weakgroup" "xmlonly" "xrefitem" "$" "@"
|
|
||||||
"\\" "&" "~" "<" ">" "#" "%") t)
|
|
||||||
"\\>")
|
|
||||||
(0 font-lock-keyword-face prepend))
|
|
||||||
;; don't highlight \n, it's too common in code
|
|
||||||
("@n" (0 font-lock-keyword-face prepend))
|
|
||||||
(,(concat "\\([@\\]"
|
|
||||||
(regexp-opt '("class" "struct" "union" "exception" "enum" "throw"
|
|
||||||
"throws") t)
|
|
||||||
"\\)\\>\\(?:[ \t]+\\(\\sw+\\)\\)?")
|
|
||||||
(1 font-lock-keyword-face prepend)
|
|
||||||
(3 font-lock-type-face prepend))
|
|
||||||
(,(concat "\\([@\\]"
|
|
||||||
(regexp-opt '("param" "param[in]" "param[out]" "param[in+out]" "a"
|
|
||||||
"namespace" "relates" "relatesalso" "def") t)
|
|
||||||
"\\)\\>\\(?:[ \t]+\\(\\sw+\\)\\)?")
|
|
||||||
(1 font-lock-keyword-face prepend)
|
|
||||||
(3 font-lock-variable-name-face prepend))
|
|
||||||
(,(concat "\\([@\\]retval\\)\\>\\(?:[ \t]+\\(\\sw+\\)\\)?")
|
|
||||||
(1 font-lock-keyword-face prepend)
|
|
||||||
(2 font-lock-function-name-face prepend))
|
|
||||||
(,(concat "[@\\]" (regexp-opt '("attention" "warning" "todo" "bug") t)
|
|
||||||
"\\>")
|
|
||||||
(0 font-lock-warning-face prepend))
|
|
||||||
(,(concat "{@"
|
|
||||||
(regexp-opt '("docRoot" "inheritDoc" "link" "linkplain" "value") t)
|
|
||||||
"}")
|
|
||||||
(0 font-lock-keyword-face prepend))
|
|
||||||
("\\([@\\]b\\)[ \t\n]+\\([^ \t\n]+\\)"
|
|
||||||
(1 font-lock-keyword-face prepend)
|
|
||||||
(2 'bold prepend))
|
|
||||||
("\\([@\\]em?\\)[ \t\n]+\\([^ \t\n]+\\)"
|
|
||||||
(1 font-lock-keyword-face prepend)
|
|
||||||
(2 'italic prepend))
|
|
||||||
("\\([@\\][cp]\\)[ \t\n]+\\([^ \t\n]+\\)"
|
|
||||||
(1 font-lock-keyword-face prepend)
|
|
||||||
(2 'underline prepend)))))
|
|
||||||
|
|
||||||
;;; templates ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
|
|
||||||
(defvar doc-mode-templates nil)
|
|
||||||
(make-variable-buffer-local 'doc-mode-templates)
|
|
||||||
|
|
||||||
(defun doc-mode-add-template (beg end)
|
|
||||||
(let ((overlay (make-overlay beg (point))))
|
|
||||||
(overlay-put overlay 'intangible t)
|
|
||||||
(overlay-put overlay 'face 'highlight)
|
|
||||||
(overlay-put overlay 'insert-in-front-hooks '(doc-mode-replace-overlay))
|
|
||||||
(overlay-put overlay 'modification-hooks '(doc-mode-delete-overlay))
|
|
||||||
(push overlay doc-mode-templates)))
|
|
||||||
|
|
||||||
(defvar doc-mode-temp nil)
|
|
||||||
|
|
||||||
(defun doc-mode-delete-overlay (ov after-p beg end &optional r)
|
|
||||||
(unless after-p
|
|
||||||
(mapc 'doc-mode-unfold-by-overlay
|
|
||||||
(overlays-in (1- (overlay-start ov)) (1+ (overlay-end ov))))
|
|
||||||
(delete-overlay ov)
|
|
||||||
(setq doc-mode-templates (delq ov doc-mode-templates))))
|
|
||||||
|
|
||||||
(defun doc-mode-replace-overlay (ov after-p beg end &optional r)
|
|
||||||
(unless after-p
|
|
||||||
(let ((inhibit-modification-hooks nil))
|
|
||||||
(delete-region (overlay-start ov) (overlay-end ov)))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun doc-mode-next-template (&optional pos limit)
|
|
||||||
"Jump to the next unfinished documentation template in this buffer."
|
|
||||||
(interactive)
|
|
||||||
(unless pos (setq pos (point)))
|
|
||||||
(unless limit (setq limit (point-max)))
|
|
||||||
(let ((min-start limit)
|
|
||||||
start)
|
|
||||||
(dolist (ov doc-mode-templates)
|
|
||||||
(setq start (overlay-start ov))
|
|
||||||
(and (> start pos)
|
|
||||||
(< start min-start)
|
|
||||||
(setq min-start start)))
|
|
||||||
(when (= min-start limit)
|
|
||||||
(error "End of buffer"))
|
|
||||||
(push-mark)
|
|
||||||
(goto-char min-start)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun doc-mode-previous-template (&optional pos limit)
|
|
||||||
"Jump to the previous unfinished documentation template in this buffer."
|
|
||||||
(interactive)
|
|
||||||
(unless pos (setq pos (point)))
|
|
||||||
(unless limit (setq limit (point-min)))
|
|
||||||
(let ((max-start limit)
|
|
||||||
start)
|
|
||||||
(dolist (ov doc-mode-templates)
|
|
||||||
(setq start (overlay-start ov))
|
|
||||||
(and (< start pos)
|
|
||||||
(> start max-start)
|
|
||||||
(setq max-start start)))
|
|
||||||
(when (= max-start limit)
|
|
||||||
(error "Beginning of buffer"))
|
|
||||||
(push-mark)
|
|
||||||
(goto-char max-start)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun doc-mode-first-template ()
|
|
||||||
"Jump to the first unfinished documentation template in this buffer."
|
|
||||||
(interactive)
|
|
||||||
(condition-case err
|
|
||||||
(doc-mode-next-template (point-min))
|
|
||||||
(error (error "No template found"))))
|
|
||||||
|
|
||||||
;;; mode ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
|
|
||||||
(defvar doc-mode-lighter " doc")
|
|
||||||
|
|
||||||
(defvar doc-mode-prefix-map
|
|
||||||
(let ((map (make-sparse-keymap)))
|
|
||||||
(define-key map "d" 'doc-mode-fix-tag-doc)
|
|
||||||
(define-key map "c" 'doc-mode-check-tag-doc)
|
|
||||||
(define-key map "t" 'doc-mode-toggle-tag-doc-folding)
|
|
||||||
(define-key map "f" 'doc-mode-fold-tag-doc)
|
|
||||||
(define-key map "u" 'doc-mode-unfold-tag-doc)
|
|
||||||
(define-key map "r" 'doc-mode-remove-tag-doc)
|
|
||||||
(define-key map "i" 'doc-mode-add-tag-doc)
|
|
||||||
(define-key map "e" 'doc-mode-next-faulty-doc)
|
|
||||||
(define-key map "n" 'doc-mode-next-template)
|
|
||||||
(define-key map "\C-c" 'doc-mode-check-buffer)
|
|
||||||
(define-key map "\C-f" 'doc-mode-fold-all)
|
|
||||||
(define-key map "\C-u" 'doc-mode-unfold-all)
|
|
||||||
map))
|
|
||||||
|
|
||||||
(defvar doc-mode-map
|
|
||||||
(let ((map (make-sparse-keymap)))
|
|
||||||
(define-key map "\C-c\C-d" doc-mode-prefix-map)
|
|
||||||
map)
|
|
||||||
"Keymap used for `doc-mode'.")
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(define-minor-mode doc-mode
|
|
||||||
"Minor mode for editing in-code documentation."
|
|
||||||
nil doc-mode-lighter doc-mode-map
|
|
||||||
(if doc-mode
|
|
||||||
(progn
|
|
||||||
(font-lock-add-keywords nil doc-mode-font-lock-keywords)
|
|
||||||
(when doc-mode-auto-check-p
|
|
||||||
(add-hook 'semantic-after-auto-parse-hooks 'doc-mode-check-buffer
|
|
||||||
nil t)
|
|
||||||
(add-hook 'semantic-after-idle-scheduler-reparse-hooks
|
|
||||||
'doc-mode-check-buffer nil t)))
|
|
||||||
(dolist (ov doc-mode-templates)
|
|
||||||
(delete-overlay ov))
|
|
||||||
(kill-local-variable 'doc-mode-templates)
|
|
||||||
(doc-mode-unfold-all)
|
|
||||||
(font-lock-remove-keywords nil doc-mode-font-lock-keywords)
|
|
||||||
(remove-hook 'semantic-after-auto-parse-hooks 'doc-mode-check-buffer t)
|
|
||||||
(remove-hook 'semantic-after-idle-scheduler-reparse-hooks
|
|
||||||
'doc-mode-check-buffer t))
|
|
||||||
|
|
||||||
(when font-lock-mode
|
|
||||||
(font-lock-fontify-buffer)))
|
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
|
|
||||||
(defun doc-mode-current-tag ()
|
|
||||||
(when (semantic-parse-tree-unparseable-p)
|
|
||||||
(error "Semantic can't parse buffer"))
|
|
||||||
(when (or (semantic-parse-tree-needs-rebuild-p)
|
|
||||||
(semantic-parse-tree-needs-update-p))
|
|
||||||
(condition-case nil
|
|
||||||
(semantic-fetch-tags)
|
|
||||||
(error (error "Semantic can't parse buffer"))))
|
|
||||||
(save-excursion
|
|
||||||
(or (semantic-current-tag-of-class 'function)
|
|
||||||
(semantic-current-tag-of-class 'variable)
|
|
||||||
(progn (beginning-of-line) (skip-chars-forward " \t\n") nil)
|
|
||||||
(semantic-current-tag-of-class 'function)
|
|
||||||
(semantic-current-tag-of-class 'variable)
|
|
||||||
(if (not (looking-at "/\\*\\*"))
|
|
||||||
(semantic-current-tag-of-class 'type)
|
|
||||||
(progn (search-forward "*/" nil t)
|
|
||||||
(skip-chars-forward " \t\n")
|
|
||||||
nil))
|
|
||||||
(semantic-current-tag-of-class 'function)
|
|
||||||
(semantic-current-tag-of-class 'variable)
|
|
||||||
(semantic-current-tag-of-class 'type))))
|
|
||||||
|
|
||||||
(defun doc-mode-current-tag-or-bust ()
|
|
||||||
(or (doc-mode-current-tag) (error "No tag found")))
|
|
||||||
|
|
||||||
;;; insertion ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
|
|
||||||
(defun doc-mode-line-indent (keyword)
|
|
||||||
"Determine left side offset when indenting LINE."
|
|
||||||
(if (numberp doc-mode-align-keyword-arguments)
|
|
||||||
doc-mode-align-keyword-arguments
|
|
||||||
(+ 1 (length (car keyword))
|
|
||||||
(if (equal (car keyword) "param")
|
|
||||||
(1+ (length (cdr keyword)))
|
|
||||||
0))))
|
|
||||||
|
|
||||||
(defun doc-mode-insert (text)
|
|
||||||
"Insert TEXT if a string, or a template if 'prompt."
|
|
||||||
(if (stringp text)
|
|
||||||
(insert text)
|
|
||||||
(let ((beg (point)))
|
|
||||||
(insert (cadr text))
|
|
||||||
(when doc-mode
|
|
||||||
(doc-mode-add-template beg (point))))))
|
|
||||||
|
|
||||||
(defun doc-mode-insert-markup (markup &optional argument description)
|
|
||||||
(insert doc-mode-template-keyword-char markup)
|
|
||||||
(when argument
|
|
||||||
(insert " ")
|
|
||||||
(doc-mode-insert argument))
|
|
||||||
(when description
|
|
||||||
(insert " ")
|
|
||||||
(doc-mode-insert description)))
|
|
||||||
|
|
||||||
(defun doc-mode-insert-line (line indent)
|
|
||||||
(indent-to-column indent)
|
|
||||||
(let ((beg (point)))
|
|
||||||
(insert doc-mode-template-continue)
|
|
||||||
(if (and (consp line) (not (eq (car line) 'prompt)))
|
|
||||||
(apply 'doc-mode-insert-markup line)
|
|
||||||
(doc-mode-insert line))
|
|
||||||
(delete-char (- (skip-chars-backward " \t")))
|
|
||||||
(when (> (point) (+ beg 2))
|
|
||||||
(save-excursion (fill-region beg (point) 'left t)))
|
|
||||||
(insert "\n")))
|
|
||||||
|
|
||||||
(defun doc-mode-insert-keyword (keyword indent)
|
|
||||||
(indent-to-column indent)
|
|
||||||
(let ((fill-column (or doc-mode-fill-column comment-fill-column fill-column))
|
|
||||||
(fill-prefix (when doc-mode-align-keyword-arguments
|
|
||||||
(concat (buffer-substring (point-at-bol) (point))
|
|
||||||
doc-mode-template-continue
|
|
||||||
(make-string (doc-mode-line-indent keyword)
|
|
||||||
? )))))
|
|
||||||
(doc-mode-insert-line keyword indent)))
|
|
||||||
|
|
||||||
(defun doc-mode-insert-doc (keywords &optional pos)
|
|
||||||
"Insert a documentation at POS.
|
|
||||||
LINES is a list of keywords."
|
|
||||||
(save-excursion
|
|
||||||
(if pos
|
|
||||||
(goto-char pos)
|
|
||||||
(setq pos (point)))
|
|
||||||
(let ((indent (current-column)))
|
|
||||||
|
|
||||||
(if (and (not (cdr keywords)) doc-mode-allow-single-line-comments)
|
|
||||||
(progn (insert doc-mode-template-single-line-start)
|
|
||||||
(doc-mode-insert (car keywords))
|
|
||||||
(insert doc-mode-template-single-line-end "\n"))
|
|
||||||
(insert doc-mode-template-start "\n")
|
|
||||||
|
|
||||||
;; first line
|
|
||||||
(when (or (stringp (car keywords))
|
|
||||||
(eq 'prompt (caar keywords)))
|
|
||||||
(doc-mode-insert-line (pop keywords) indent))
|
|
||||||
|
|
||||||
(when (and doc-mode-template-empty-line-after-summary
|
|
||||||
(or (null doc-mode-template-empty-line-before-keywords)
|
|
||||||
(stringp (cadr keywords))))
|
|
||||||
(doc-mode-insert-line "" indent))
|
|
||||||
|
|
||||||
;; paragraphs
|
|
||||||
(if (cdr keywords)
|
|
||||||
(while (stringp (car keywords))
|
|
||||||
(doc-mode-insert-line (pop keywords) indent)
|
|
||||||
(when (stringp (car keywords))
|
|
||||||
(doc-mode-insert-line "" indent)))
|
|
||||||
(while (stringp (car keywords))
|
|
||||||
(doc-mode-insert-line (pop keywords) indent)))
|
|
||||||
|
|
||||||
(when doc-mode-template-empty-line-before-keywords
|
|
||||||
(doc-mode-insert-line "" indent))
|
|
||||||
|
|
||||||
;; keywords
|
|
||||||
(while keywords
|
|
||||||
(doc-mode-insert-keyword (pop keywords) indent))
|
|
||||||
(indent-to-column indent)
|
|
||||||
(insert doc-mode-template-end "\n"))
|
|
||||||
|
|
||||||
;; re-indent original line
|
|
||||||
(if (< (current-column) indent)
|
|
||||||
(indent-to-column indent)
|
|
||||||
(move-to-column indent t))))
|
|
||||||
|
|
||||||
(and doc-mode-jump-to-template doc-mode-templates
|
|
||||||
(ignore-errors (doc-mode-next-template pos (point)))))
|
|
||||||
|
|
||||||
(defun doc-mode-remove-doc (point)
|
|
||||||
"Remove the documentation before POINT."
|
|
||||||
(let* ((bounds (doc-mode-find-doc-bounds point))
|
|
||||||
(beg (plist-get bounds :beg))
|
|
||||||
(end (plist-get bounds :end)))
|
|
||||||
(when bounds
|
|
||||||
(save-excursion
|
|
||||||
(goto-char beg)
|
|
||||||
(incf beg (skip-chars-backward " \t"))
|
|
||||||
(goto-char end)
|
|
||||||
(incf end (skip-chars-forward " \t"))
|
|
||||||
(when (eolp) (incf end))
|
|
||||||
(delete-region beg end)))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun doc-mode-remove-tag-doc (tag)
|
|
||||||
"Remove the documentation for TAG.
|
|
||||||
If called interactively, use the tag given by `doc-mode-current-tag'."
|
|
||||||
(interactive (list (doc-mode-current-tag-or-bust)))
|
|
||||||
(doc-mode-remove-doc (semantic-tag-start tag)))
|
|
||||||
|
|
||||||
;;; registering ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
|
|
||||||
(defun doc-mode-find-doc-bounds (pos)
|
|
||||||
"Find the documentation right before POS.
|
|
||||||
If there is anything but whitespace between the documentation and POS, nil is
|
|
||||||
returned. Otherwise a cons of the doc's beginning and end is given."
|
|
||||||
(let (end)
|
|
||||||
(save-excursion
|
|
||||||
(goto-char pos)
|
|
||||||
(when (re-search-backward "[ \t]*\n[ \t]*\\=" nil t)
|
|
||||||
(setq end (point))
|
|
||||||
(cond
|
|
||||||
;; /// Doxygen comment */
|
|
||||||
((looking-back "[ \t]*//[/!]\\(.*\\)$")
|
|
||||||
(forward-line -1)
|
|
||||||
(while (looking-at "[ \t]*//[/!]\\(.*\\)$")
|
|
||||||
(forward-line -1))
|
|
||||||
(forward-line 1)
|
|
||||||
(skip-chars-forward " \t")
|
|
||||||
`(:beg ,(point) :end ,end :column ,(current-indentation)))
|
|
||||||
;; /** JavaDoc comment */
|
|
||||||
((looking-back "\\*/")
|
|
||||||
(goto-char (match-beginning 0))
|
|
||||||
;; search for /*, not allowing any */ in between
|
|
||||||
(when (and (re-search-backward "\\(/\\*\\)\\|\\*/" nil t)
|
|
||||||
(match-beginning 1)
|
|
||||||
(memq (char-after (1+ (match-beginning 1))) '(?! ?*)))
|
|
||||||
`(:beg ,(point) :end ,end :column ,(current-column)))))))))
|
|
||||||
|
|
||||||
;;; formating ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
|
|
||||||
(defun doc-mode-new-keyword (keyword &optional argument)
|
|
||||||
(if (equal keyword "param")
|
|
||||||
(list keyword argument '(prompt "<doc>"))
|
|
||||||
(list keyword '(prompt "<doc>"))))
|
|
||||||
|
|
||||||
(defun doc-mode-has-return-value-p (tag)
|
|
||||||
"Test if TAG has a return value to format."
|
|
||||||
(and (eq (semantic-tag-class tag) 'function)
|
|
||||||
(not (equal (semantic-tag-type tag) "void"))
|
|
||||||
(not (semantic-tag-get-attribute tag :constructor-flag))
|
|
||||||
(or (not (equal (semantic-tag-type tag) "int"))
|
|
||||||
;; semantic bug, constructors sometimes appear to have int type
|
|
||||||
(save-excursion (goto-char (semantic-tag-start tag))
|
|
||||||
(and (re-search-forward "\\(\\<int\\>\\)\\|{\\|;"
|
|
||||||
(semantic-tag-end tag) t)
|
|
||||||
(match-beginning 1))))))
|
|
||||||
|
|
||||||
;;; extracting ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
|
|
||||||
(defun doc-mode-extract-summary (beg end)
|
|
||||||
(let ((bounds (doc-mode-find-summary beg end)))
|
|
||||||
(buffer-substring-no-properties (car bounds) (cdr bounds))))
|
|
||||||
|
|
||||||
(defun doc-mode-find-summary (beg end)
|
|
||||||
(save-excursion
|
|
||||||
(goto-char beg)
|
|
||||||
(if (or (re-search-forward "^[@\\]brief \\([^\t ][^\n]*\n\\)" end t)
|
|
||||||
(re-search-forward "\\<\\(.*\\)\\(\\*+/\\|\n\\)" end t))
|
|
||||||
(cons (match-beginning 1) (match-end 1))
|
|
||||||
(cons beg beg))))
|
|
||||||
|
|
||||||
(defconst doc-mode-begin-regexp
|
|
||||||
(eval-when-compile (concat "[ \t\n]*"
|
|
||||||
"\\("
|
|
||||||
"/\\*\\(\\*+\\|!\\)"
|
|
||||||
"\\|"
|
|
||||||
"//[!/]"
|
|
||||||
"\\)[ \t]*")))
|
|
||||||
|
|
||||||
(defun doc-mode-clean-doc (beg end)
|
|
||||||
"Remove the comment delimiters between BEG and END."
|
|
||||||
(save-excursion
|
|
||||||
(goto-char beg)
|
|
||||||
(when (looking-at doc-mode-begin-regexp)
|
|
||||||
(setq beg (match-end 0)))
|
|
||||||
(goto-char end)
|
|
||||||
(when (looking-back "[ \t\n\r]*\\*+/" nil t)
|
|
||||||
(setq end (match-beginning 0)))
|
|
||||||
(let ((lines (split-string (buffer-substring-no-properties beg end)
|
|
||||||
"[ \t]*\n[ \t]*\\(\\*/?\\|//[!/]\\)?[ \t]*")))
|
|
||||||
(while (equal (car lines) "")
|
|
||||||
(pop lines))
|
|
||||||
(mapconcat 'identity lines "\n"))))
|
|
||||||
|
|
||||||
(defun doc-mode-extract-keywords (beg end)
|
|
||||||
"Extract documentation keywords between BEG and END.
|
|
||||||
Returns a alist of keywords, where each element is the list (keyword
|
|
||||||
argument value) or (keyword argument)."
|
|
||||||
(let* ((paragraphs (doc-mode-clean-doc beg end))
|
|
||||||
(doc "")
|
|
||||||
(pos 0)
|
|
||||||
match results)
|
|
||||||
|
|
||||||
(when (string-match
|
|
||||||
"[ \t\n]*\\(\\(.\\|\n\\)*?\\)\\([@\\]\\<\\(.\\|\n\\)*\\'\\)"
|
|
||||||
paragraphs)
|
|
||||||
(setq doc (match-string-no-properties 3 paragraphs)
|
|
||||||
paragraphs (match-string-no-properties 1 paragraphs)))
|
|
||||||
|
|
||||||
;; first line summary
|
|
||||||
(when (string-match "\\`[ \t\n]*\\(.+\\.\\)\\([ \n]+\\|\\'\\)" paragraphs)
|
|
||||||
(push (match-string 1 paragraphs) results)
|
|
||||||
(setq pos (match-end 0)))
|
|
||||||
|
|
||||||
;; other paragraphs
|
|
||||||
(dolist (paragraph (split-string (substring paragraphs pos)
|
|
||||||
"[ \t]*\n\\(\n+[ \t]*\\|$\\)" t))
|
|
||||||
(push (replace-regexp-in-string "[\n\r]" " " paragraph) results))
|
|
||||||
|
|
||||||
;; keywords
|
|
||||||
(dolist (keyword (cdr (split-string doc "[@\\]\\<")))
|
|
||||||
(setq match (split-string keyword))
|
|
||||||
(push (if (equal (car match) "param")
|
|
||||||
(list (car match) (cadr match)
|
|
||||||
(mapconcat 'identity (cddr match) " "))
|
|
||||||
(list (car match) (mapconcat 'identity (cdr match) " ")))
|
|
||||||
results))
|
|
||||||
(nreverse results)))
|
|
||||||
|
|
||||||
(defun doc-mode-extract-keywords-for-tag (tag)
|
|
||||||
(let ((bounds (doc-mode-find-doc-bounds (semantic-tag-start tag))))
|
|
||||||
(when bounds (doc-mode-extract-keywords (plist-get bounds :beg)
|
|
||||||
(plist-get bounds :end)))))
|
|
||||||
|
|
||||||
(defun doc-mode-find-keyword (keyword keywords)
|
|
||||||
(when keywords
|
|
||||||
(if (and (consp (car keywords)) (string= (car (car keywords)) keyword))
|
|
||||||
(cons (car keywords) (doc-mode-find-keyword keyword (cdr keywords)))
|
|
||||||
(doc-mode-find-keyword keyword (cdr keywords)))))
|
|
||||||
|
|
||||||
(defun doc-mode-filter-keyword (keyword keywords)
|
|
||||||
(when keywords
|
|
||||||
(if (and (consp (car keywords)) (string= (car (car keywords)) keyword))
|
|
||||||
(doc-mode-filter-keyword keyword (cdr keywords))
|
|
||||||
(cons (car keywords) (doc-mode-filter-keyword keyword (cdr keywords))))))
|
|
||||||
|
|
||||||
(defun doc-mode-find-eligible-tags ()
|
|
||||||
(when buffer-file-name
|
|
||||||
(unless (or (semantic-parse-tree-unparseable-p)
|
|
||||||
(semantic-parse-tree-needs-rebuild-p)
|
|
||||||
(semantic-parse-tree-needs-update-p))
|
|
||||||
(ignore-errors
|
|
||||||
(let (tags)
|
|
||||||
(semantic-brute-find-tag-by-function
|
|
||||||
(lambda (tag)
|
|
||||||
(when (semantic-tag-start tag)
|
|
||||||
(case (semantic-tag-class tag)
|
|
||||||
((function variable) (push tag tags))
|
|
||||||
(type (setq tags
|
|
||||||
(nconc (semantic-tag-type-members tag)
|
|
||||||
tags))))))
|
|
||||||
(semanticdb-file-stream buffer-file-name))
|
|
||||||
tags)))))
|
|
||||||
|
|
||||||
;;; checking ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
|
|
||||||
(defsubst doc-mode-position (element list)
|
|
||||||
"Return the first position of ELEMENT in LIST.
|
|
||||||
Returns (length LIST) if no occurrence was found."
|
|
||||||
(let ((pos 0))
|
|
||||||
(while (and list (not (equal element (pop list))))
|
|
||||||
(incf pos))
|
|
||||||
pos))
|
|
||||||
|
|
||||||
(defun doc-mode-keyword< (a b tag)
|
|
||||||
(if (equal (car a) "param")
|
|
||||||
(let* ((args (mapcar 'semantic-tag-name
|
|
||||||
(semantic-tag-get-attribute tag :arguments)))
|
|
||||||
(a-param (cadr a))
|
|
||||||
(b-param (cadr b))
|
|
||||||
(a-pos (doc-mode-position a-param args))
|
|
||||||
(b-pos (doc-mode-position b-param args)))
|
|
||||||
(if (= a-pos b-pos)
|
|
||||||
(string< a-param b-param)
|
|
||||||
(< a-pos b-pos)))
|
|
||||||
(string< (cadr a) (cadr b))))
|
|
||||||
|
|
||||||
(defun doc-mode-sort-keywords (keywords tag)
|
|
||||||
(let ((lists (make-vector (1+ (length doc-mode-template-keywords)) nil))
|
|
||||||
description)
|
|
||||||
(dolist (k keywords)
|
|
||||||
(if (or (stringp k) (and (eq (car k) 'prompt)))
|
|
||||||
(push k description)
|
|
||||||
(push k (elt lists (doc-mode-position (car k)
|
|
||||||
doc-mode-template-keywords)))))
|
|
||||||
(let ((i (length lists)) result)
|
|
||||||
(while (> i 0)
|
|
||||||
(setq result (nconc (sort (elt lists (decf i))
|
|
||||||
(lambda (a b) (doc-mode-keyword< a b tag)))
|
|
||||||
result)))
|
|
||||||
(nconc (nreverse description) result))))
|
|
||||||
|
|
||||||
(defun doc-mode-update-parameters (old new)
|
|
||||||
"Cleanse and sort NEW parameters according to OLD parameter list."
|
|
||||||
(let (params car-new)
|
|
||||||
(while (setq car-new (pop new))
|
|
||||||
(push (or (dolist (p old) ;; search for match in old
|
|
||||||
(when (equal (cadr p) car-new)
|
|
||||||
(setq old (delete p old))
|
|
||||||
(return p)))
|
|
||||||
;; this parameter wasn't there before
|
|
||||||
(if (or (null old) (member (cadr (car old)) new))
|
|
||||||
;; insertion, new
|
|
||||||
(doc-mode-new-keyword "param" car-new)
|
|
||||||
;; the old parameter at this pos isn't there anymore, rename
|
|
||||||
(list* "param" car-new (cddr (pop old)))))
|
|
||||||
params))
|
|
||||||
(nreverse params)))
|
|
||||||
|
|
||||||
(defun doc-mode-keywords-from-tag (tag keywords)
|
|
||||||
"Create keywords for a Semantic TAG, taking descriptions from old KEYWORDS"
|
|
||||||
(let ((old-params (doc-mode-find-keyword "param" keywords))
|
|
||||||
(new-params (mapcar 'semantic-tag-name
|
|
||||||
(semantic-tag-get-attribute tag :arguments))))
|
|
||||||
;; fix return value
|
|
||||||
(if (doc-mode-has-return-value-p tag)
|
|
||||||
;; add
|
|
||||||
(unless (doc-mode-find-keyword "return" keywords)
|
|
||||||
(push (doc-mode-new-keyword "return") keywords))
|
|
||||||
;; remove
|
|
||||||
(setq keywords (doc-mode-filter-keyword "return" keywords)))
|
|
||||||
(unless (stringp (car keywords))
|
|
||||||
(push `(prompt ,(format "Description for %s." (semantic-tag-name tag)))
|
|
||||||
keywords))
|
|
||||||
(doc-mode-sort-keywords (nconc (doc-mode-update-parameters old-params
|
|
||||||
new-params)
|
|
||||||
(doc-mode-filter-keyword "param" keywords))
|
|
||||||
tag)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun doc-mode-fix-tag-doc (tag)
|
|
||||||
(interactive (list (doc-mode-current-tag-or-bust)))
|
|
||||||
(let ((keywords (funcall doc-mode-keywords-from-tag-func
|
|
||||||
tag (doc-mode-extract-keywords-for-tag tag))))
|
|
||||||
(doc-mode-remove-tag-doc tag)
|
|
||||||
(doc-mode-insert-doc keywords (semantic-tag-start tag))
|
|
||||||
;; update lighter
|
|
||||||
(doc-mode-check-buffer)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defalias 'doc-mode-add-tag-doc 'doc-mode-fix-tag-doc)
|
|
||||||
|
|
||||||
(defun doc-mode-format-message (type parameters)
|
|
||||||
(when parameters
|
|
||||||
(concat (case type
|
|
||||||
('missing "Missing")
|
|
||||||
('invalid "Invalid"))
|
|
||||||
" parameter" (when (cdr parameters) "s") ": "
|
|
||||||
(mapconcat 'identity parameters ", "))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun doc-mode-check-tag-doc (tag &optional print-message-p)
|
|
||||||
(interactive (list (doc-mode-current-tag-or-bust) t))
|
|
||||||
(let* ((actual (doc-mode-extract-keywords-for-tag tag))
|
|
||||||
(expected (mapcar 'semantic-tag-name
|
|
||||||
(semantic-tag-get-attribute tag :arguments))))
|
|
||||||
(if actual
|
|
||||||
(let ((no-doc-p (not (stringp (car actual))))
|
|
||||||
;; we only report parameters
|
|
||||||
(actual (mapcar 'cadr (doc-mode-find-keyword "param"
|
|
||||||
actual)))
|
|
||||||
invalid)
|
|
||||||
(dolist (keyword actual)
|
|
||||||
(if (member keyword expected)
|
|
||||||
(setq expected (delete keyword expected))
|
|
||||||
(push keyword invalid)))
|
|
||||||
(when print-message-p
|
|
||||||
(message "%s" (concat (and no-doc-p "Missing documentation")
|
|
||||||
(and no-doc-p expected "\n")
|
|
||||||
(doc-mode-format-message 'missing expected)
|
|
||||||
(and (or no-doc-p expected) invalid "\n")
|
|
||||||
(doc-mode-format-message 'invalid invalid))))
|
|
||||||
(or no-doc-p expected invalid))
|
|
||||||
(when print-message-p
|
|
||||||
(message "Missing comment"))
|
|
||||||
t)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun doc-mode-check-buffer ()
|
|
||||||
(interactive)
|
|
||||||
(kill-local-variable 'doc-mode-lighter)
|
|
||||||
(dolist (tag (doc-mode-find-eligible-tags))
|
|
||||||
(when (doc-mode-check-tag-doc tag)
|
|
||||||
(set (make-local-variable 'doc-mode-lighter) " doc!")
|
|
||||||
(return t))))
|
|
||||||
|
|
||||||
(defun doc-mode-first-faulty-tag-doc ()
|
|
||||||
(dolist (tag (sort (doc-mode-find-eligible-tags)
|
|
||||||
(lambda (a b) (< (semantic-tag-start a)
|
|
||||||
(semantic-tag-start b)))))
|
|
||||||
(when (doc-mode-check-tag-doc tag)
|
|
||||||
(return tag))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun doc-mode-next-faulty-doc ()
|
|
||||||
"Jump to the next faulty documentation and print error."
|
|
||||||
(interactive)
|
|
||||||
(let ((tag (or (doc-mode-first-faulty-tag-doc)
|
|
||||||
(error "End of buffer"))))
|
|
||||||
(push-mark)
|
|
||||||
(goto-char (semantic-tag-start tag))
|
|
||||||
;; check again with message
|
|
||||||
(doc-mode-check-tag-doc tag t)))
|
|
||||||
|
|
||||||
;;; folding ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
|
|
||||||
(defvar doc-mode-folds nil)
|
|
||||||
(make-variable-buffer-local 'doc-mode-folds)
|
|
||||||
|
|
||||||
(defun doc-mode-fold-doc (point)
|
|
||||||
(let ((bounds (doc-mode-find-doc-bounds point)))
|
|
||||||
(when bounds
|
|
||||||
(let* ((beg (plist-get bounds :beg))
|
|
||||||
(end (plist-get bounds :end))
|
|
||||||
(summary-bounds (doc-mode-find-summary beg end))
|
|
||||||
(before-overlay (make-overlay beg (car summary-bounds)))
|
|
||||||
(after-overlay (make-overlay (cdr summary-bounds) end))
|
|
||||||
(siblings (list before-overlay after-overlay)))
|
|
||||||
(when (or doc-mode-fold-single-line-comments
|
|
||||||
(> (count-lines beg end) 1))
|
|
||||||
(dolist (ov siblings)
|
|
||||||
(overlay-put ov 'invisible t)
|
|
||||||
(overlay-put ov 'isearch-open-invisible-temporary
|
|
||||||
'doc-mode-unfold-by-overlay-temporary)
|
|
||||||
(overlay-put ov 'isearch-open-invisible 'doc-mode-unfold-by-overlay)
|
|
||||||
(overlay-put ov 'doc-mode-fold siblings))
|
|
||||||
(setq doc-mode-folds (nconc doc-mode-folds siblings)))))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun doc-mode-fold-tag-doc (tag)
|
|
||||||
"Fold the documentation for TAG.
|
|
||||||
If called interactively, use the tag given by `doc-mode-current-tag'."
|
|
||||||
(interactive (list (doc-mode-current-tag-or-bust)))
|
|
||||||
(unless doc-mode
|
|
||||||
(error "doc-mode not enabled"))
|
|
||||||
(doc-mode-fold-doc (semantic-tag-start tag)))
|
|
||||||
|
|
||||||
(defun doc-mode-unfold-by-overlay (overlay &rest foo)
|
|
||||||
"Unfold OVERLAY and its siblings permanently"
|
|
||||||
(dolist (ov (overlay-get overlay 'doc-mode-fold))
|
|
||||||
;; remove overlay
|
|
||||||
(setq doc-mode-folds (delq ov doc-mode-folds))
|
|
||||||
(delete-overlay ov)
|
|
||||||
;; don't let isearch do anything with it
|
|
||||||
(setq isearch-opened-overlays (delq ov isearch-opened-overlays))))
|
|
||||||
|
|
||||||
(defun doc-mode-unfold-by-overlay-temporary (overlay invisible)
|
|
||||||
"Unfold OVERLAY and its siblings temporarily."
|
|
||||||
(dolist (ov (overlay-get overlay 'doc-mode-fold))
|
|
||||||
(overlay-put ov 'invisible invisible)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun doc-mode-unfold-doc (point)
|
|
||||||
"Unfold the comment before POINT."
|
|
||||||
(interactive "d")
|
|
||||||
(unless doc-mode
|
|
||||||
(error "doc-mode not enabled"))
|
|
||||||
(let ((bounds (doc-mode-find-doc-bounds point)))
|
|
||||||
(when bounds
|
|
||||||
(let* ((beg (plist-get bounds :beg))
|
|
||||||
(end (plist-get bounds :end))
|
|
||||||
(overlays (overlays-in beg end))
|
|
||||||
anything-done)
|
|
||||||
(dolist (ov overlays)
|
|
||||||
(when (overlay-get ov 'doc-mode-fold)
|
|
||||||
(setq anything-done t)
|
|
||||||
(delete-overlay ov)
|
|
||||||
(setq doc-mode-folds (delq ov doc-mode-folds))))
|
|
||||||
;; return non-nil, if anything unfolded
|
|
||||||
;; this is used to toggle
|
|
||||||
anything-done))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun doc-mode-unfold-tag-doc (tag)
|
|
||||||
"Unfold the documentation for TAG.
|
|
||||||
If called interactively, use the tag given by `doc-mode-current-tag'."
|
|
||||||
(interactive (list (doc-mode-current-tag-or-bust)))
|
|
||||||
(unless doc-mode
|
|
||||||
(error "doc-mode not enabled"))
|
|
||||||
(doc-mode-unfold-doc (semantic-tag-start tag)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun doc-mode-fold-all (&optional arg)
|
|
||||||
(interactive "P")
|
|
||||||
(unless doc-mode
|
|
||||||
(error "doc-mode not enabled"))
|
|
||||||
(if arg
|
|
||||||
(doc-mode-unfold-all)
|
|
||||||
(dolist (tag (doc-mode-find-eligible-tags))
|
|
||||||
(doc-mode-fold-tag-doc tag))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun doc-mode-unfold-all ()
|
|
||||||
(interactive)
|
|
||||||
(dolist (ov doc-mode-folds)
|
|
||||||
(delete-overlay ov))
|
|
||||||
(kill-local-variable 'doc-mode-folds))
|
|
||||||
|
|
||||||
;;; toggle
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun doc-mode-toggle-tag-doc-folding (tag)
|
|
||||||
"Toggle folding of TAG's documentation.
|
|
||||||
If called interactively, use the tag given by `doc-mode-current-tag'."
|
|
||||||
(interactive (list (doc-mode-current-tag-or-bust)))
|
|
||||||
(or (doc-mode-unfold-tag-doc tag)
|
|
||||||
(doc-mode-fold-tag-doc tag)))
|
|
||||||
|
|
||||||
(provide 'doc-mode)
|
|
||||||
|
|
||||||
;;; doc-mode.el ends here
|
|
||||||
@ -1,168 +0,0 @@
|
|||||||
;;; dockerfile-mode.el --- Major mode for editing Docker's Dockerfiles
|
|
||||||
|
|
||||||
;; Copyright (c) 2013 Spotify AB
|
|
||||||
;;
|
|
||||||
;; Licensed under the Apache License, Version 2.0 (the "License"); you may not
|
|
||||||
;; use this file except in compliance with the License. You may obtain a copy of
|
|
||||||
;; the License at
|
|
||||||
;;
|
|
||||||
;; http://www.apache.org/licenses/LICENSE-2.0
|
|
||||||
;;
|
|
||||||
;; Unless required by applicable law or agreed to in writing, software
|
|
||||||
;; distributed under the License is distributed on an "AS IS" BASIS, WITHOUT
|
|
||||||
;; WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the
|
|
||||||
;; License for the specific language governing permissions and limitations under
|
|
||||||
;; the License.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'sh-script)
|
|
||||||
(require 'rx)
|
|
||||||
|
|
||||||
(declare-function cygwin-convert-file-name-to-windows "cygw32.c" (file &optional absolute-p))
|
|
||||||
|
|
||||||
(defvar docker-image-name nil)
|
|
||||||
|
|
||||||
(defgroup dockerfile nil
|
|
||||||
"dockerfile code editing commands for Emacs."
|
|
||||||
:link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
|
|
||||||
:prefix "dockerfile-"
|
|
||||||
:group 'languages)
|
|
||||||
|
|
||||||
(defcustom dockerfile-mode-hook nil
|
|
||||||
"*Hook called by `dockerfile-mode'."
|
|
||||||
:type 'hook
|
|
||||||
:group 'dockerfile)
|
|
||||||
|
|
||||||
(defcustom dockerfile-use-sudo nil
|
|
||||||
"Runs docker builder command with sudo.")
|
|
||||||
|
|
||||||
(defcustom dockerfile-build-args nil
|
|
||||||
"List of --build-arg to pass to docker build.
|
|
||||||
|
|
||||||
Each element of the list will be passed as a separate
|
|
||||||
--build-arg to the docker build command."
|
|
||||||
:type '(repeat string)
|
|
||||||
:group 'dockerfile)
|
|
||||||
|
|
||||||
(defvar dockerfile-font-lock-keywords
|
|
||||||
`(,(cons (rx (or line-start "onbuild ")
|
|
||||||
(group (or "from" "maintainer" "run" "cmd" "expose" "env" "arg"
|
|
||||||
"add" "copy" "entrypoint" "volume" "user" "workdir" "onbuild"
|
|
||||||
"label" "stopsignal"))
|
|
||||||
word-boundary)
|
|
||||||
font-lock-keyword-face)
|
|
||||||
,@(sh-font-lock-keywords)
|
|
||||||
,@(sh-font-lock-keywords-2)
|
|
||||||
,@(sh-font-lock-keywords-1))
|
|
||||||
"Default font-lock-keywords for `dockerfile mode'.")
|
|
||||||
|
|
||||||
(defvar dockerfile-mode-map
|
|
||||||
(let ((map (make-sparse-keymap))
|
|
||||||
(menu-map (make-sparse-keymap)))
|
|
||||||
(define-key map "\C-c\C-b" 'dockerfile-build-buffer)
|
|
||||||
(define-key map "\C-c\M-b" 'dockerfile-build-no-cache-buffer)
|
|
||||||
(define-key map "\C-c\C-z" 'dockerfile-test-function)
|
|
||||||
(define-key map "\C-c\C-c" 'comment-region)
|
|
||||||
(define-key map [menu-bar dockerfile-mode] (cons "Dockerfile" menu-map))
|
|
||||||
(define-key menu-map [dfc]
|
|
||||||
'(menu-item "Comment Region" comment-region
|
|
||||||
:help "Comment Region"))
|
|
||||||
(define-key menu-map [dfb]
|
|
||||||
'(menu-item "Build" dockerfile-build-buffer
|
|
||||||
:help "Send the Dockerfile to docker build"))
|
|
||||||
(define-key menu-map [dfb]
|
|
||||||
'(menu-item "Build without cache" dockerfile-build-no-cache-buffer
|
|
||||||
:help "Send the Dockerfile to docker build without cache"))
|
|
||||||
map))
|
|
||||||
|
|
||||||
(defvar dockerfile-mode-syntax-table
|
|
||||||
(let ((table (make-syntax-table)))
|
|
||||||
(modify-syntax-entry ?# "<" table)
|
|
||||||
(modify-syntax-entry ?\n ">" table)
|
|
||||||
(modify-syntax-entry ?' "\"" table)
|
|
||||||
table)
|
|
||||||
"Syntax table for `dockerfile-mode'.")
|
|
||||||
|
|
||||||
(define-abbrev-table 'dockerfile-mode-abbrev-table nil
|
|
||||||
"Abbrev table used while in `dockerfile-mode'.")
|
|
||||||
|
|
||||||
(unless dockerfile-mode-abbrev-table
|
|
||||||
(define-abbrev-table 'dockerfile-mode-abbrev-table ()))
|
|
||||||
|
|
||||||
(defun dockerfile-build-arg-string ()
|
|
||||||
"Create a --build-arg string for each element in `dockerfile-build-args'."
|
|
||||||
(mapconcat (lambda (arg) (concat "--build-arg " "\"" arg "\""))
|
|
||||||
dockerfile-build-args " "))
|
|
||||||
|
|
||||||
(defun standard-filename (file)
|
|
||||||
"Convert the file name to OS standard.
|
|
||||||
If in Cygwin environment, uses Cygwin specific function to convert the
|
|
||||||
file name. Otherwise, uses Emacs' standard conversion function."
|
|
||||||
(format "%s" (if (fboundp 'cygwin-convert-file-name-to-windows)
|
|
||||||
(s-replace "\\" "\\\\" (cygwin-convert-file-name-to-windows file))
|
|
||||||
(convert-standard-filename file))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun dockerfile-build-buffer (image-name)
|
|
||||||
"Build an image based upon the buffer"
|
|
||||||
(interactive
|
|
||||||
(if (null docker-image-name)
|
|
||||||
(list (read-string "image-name: " nil nil))
|
|
||||||
(list docker-image-name)))
|
|
||||||
(save-buffer)
|
|
||||||
(if (stringp image-name)
|
|
||||||
(async-shell-command
|
|
||||||
(format "%sdocker build -t %s %s -f \"%s\" \"%s\""
|
|
||||||
(if dockerfile-use-sudo "sudo " "")
|
|
||||||
image-name
|
|
||||||
(dockerfile-build-arg-string)
|
|
||||||
(standard-filename (buffer-file-name))
|
|
||||||
(standard-filename (file-name-directory (buffer-file-name))))
|
|
||||||
"*docker-build-output*")
|
|
||||||
(print "docker-image-name must be a string, consider surrounding it with double quotes")))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun dockerfile-build-no-cache-buffer (image-name)
|
|
||||||
"Build an image based upon the buffer without cache"
|
|
||||||
(interactive
|
|
||||||
(if (null docker-image-name)
|
|
||||||
(list (read-string "image-name: " nil nil))
|
|
||||||
(list docker-image-name)))
|
|
||||||
(save-buffer)
|
|
||||||
(if (stringp image-name)
|
|
||||||
(async-shell-command
|
|
||||||
(format "%s docker build --no-cache -t %s %s -f \"%s\" \"%s\""
|
|
||||||
(if dockerfile-use-sudo "sudo" "")
|
|
||||||
image-name
|
|
||||||
(dockerfile-build-arg-string)
|
|
||||||
(standard-filename (buffer-file-name))
|
|
||||||
(standard-filename (file-name-directory (buffer-file-name))))
|
|
||||||
"*docker-build-output*")
|
|
||||||
(print "docker-image-name must be a string, consider surrounding it with double quotes")))
|
|
||||||
|
|
||||||
;; Handle emacs < 24, which does not have prog-mode
|
|
||||||
(defalias 'dockerfile-parent-mode
|
|
||||||
(if (fboundp 'prog-mode) 'prog-mode 'fundamental-mode))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(define-derived-mode dockerfile-mode dockerfile-parent-mode "Dockerfile"
|
|
||||||
"A major mode to edit Dockerfiles.
|
|
||||||
\\{dockerfile-mode-map}
|
|
||||||
"
|
|
||||||
(set-syntax-table dockerfile-mode-syntax-table)
|
|
||||||
(set (make-local-variable 'require-final-newline) mode-require-final-newline)
|
|
||||||
(set (make-local-variable 'comment-start) "#")
|
|
||||||
(set (make-local-variable 'comment-end) "")
|
|
||||||
(set (make-local-variable 'comment-start-skip) "#+ *")
|
|
||||||
(set (make-local-variable 'parse-sexp-ignore-comments) t)
|
|
||||||
(set (make-local-variable 'font-lock-defaults)
|
|
||||||
'(dockerfile-font-lock-keywords nil t))
|
|
||||||
(setq local-abbrev-table dockerfile-mode-abbrev-table))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(add-to-list 'auto-mode-alist '("Dockerfile.*\\'" . dockerfile-mode))
|
|
||||||
|
|
||||||
(provide 'dockerfile-mode)
|
|
||||||
|
|
||||||
;;; dockerfile-mode.el ends here
|
|
||||||
@ -1,267 +0,0 @@
|
|||||||
;;; go-template-mode.el --- Major mode for Go template language
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
|
|
||||||
;; 1) Copy this file somewhere in your Emacs `load-path'. To see what
|
|
||||||
;; your `load-path' is, run inside emacs: C-h v load-path<RET>
|
|
||||||
;;
|
|
||||||
;; 2) Add the following to your .emacs file:
|
|
||||||
;;
|
|
||||||
;; (require 'go-template-mode)
|
|
||||||
|
|
||||||
;;; Known Bugs:
|
|
||||||
|
|
||||||
;; 1) Highlights all strings in the source file, including HTML attributes,
|
|
||||||
;; and does not properly highlight template actions inside these strings.
|
|
||||||
|
|
||||||
(defvar go-template-mode-syntax-table
|
|
||||||
(let ((st (make-syntax-table)))
|
|
||||||
;; Add _ to :word: character class
|
|
||||||
(modify-syntax-entry ?_ "w" st)
|
|
||||||
|
|
||||||
;; Operators (punctuation)
|
|
||||||
(modify-syntax-entry ?: "." st)
|
|
||||||
(modify-syntax-entry ?= "." st)
|
|
||||||
(modify-syntax-entry ?| "." st)
|
|
||||||
|
|
||||||
;; Strings and comments are font-locked separately.
|
|
||||||
(modify-syntax-entry ?\" "." st)
|
|
||||||
(modify-syntax-entry ?\' "." st)
|
|
||||||
(modify-syntax-entry ?` "." st)
|
|
||||||
(modify-syntax-entry ?\\ "." st)
|
|
||||||
|
|
||||||
st)
|
|
||||||
"Syntax table for Go template mode.")
|
|
||||||
|
|
||||||
(defvar go-template-mode-keywords
|
|
||||||
'("define" "else" "end" "if" "range" "template" "with")
|
|
||||||
"All keywords in the Go template language. Used for font locking.")
|
|
||||||
|
|
||||||
(defvar go-template-mode-builtins
|
|
||||||
'("and" "html" "index" "js" "len" "not" "or" "print" "printf" "println" "urlquery")
|
|
||||||
"All builtin functions in the Go template language. Used for font locking.")
|
|
||||||
|
|
||||||
|
|
||||||
(defconst go-template-mode-pair-tag
|
|
||||||
(regexp-opt
|
|
||||||
'("a" "abbr" "acronym" "address" "applet" "area" "b" "bdo"
|
|
||||||
"big" "blockquote" "body" "button" "caption" "center" "cite"
|
|
||||||
"code" "col" "colgroup" "dd" "del" "dfn" "dif" "div" "dl"
|
|
||||||
"dt" "em" "fieldset" "font" "form" "frame" "frameset" "h1"
|
|
||||||
"header" "nav" "footer" "section"
|
|
||||||
"h2" "h3" "h4" "h5" "h6" "head" "html" "i" "iframe" "ins"
|
|
||||||
"kbd" "label" "legend" "li" "link" "map" "menu" "noframes"
|
|
||||||
"noscript" "object" "ol" "optgroup" "option" "p" "pre" "q"
|
|
||||||
"s" "samp" "script" "select" "small" "span" "strike"
|
|
||||||
"strong" "style" "sub" "sup" "table" "tbody" "td" "textarea"
|
|
||||||
"tfoot" "th" "thead" "title" "tr" "tt" "u" "ul" "var")
|
|
||||||
t))
|
|
||||||
(defconst go-template-mode-standalone-tag
|
|
||||||
(regexp-opt
|
|
||||||
'("base" "br" "hr" "img" "input" "meta" "param")
|
|
||||||
t))
|
|
||||||
|
|
||||||
(defconst go-template-mode-font-lock-keywords
|
|
||||||
`((go-template-mode-font-lock-cs-comment 0 font-lock-comment-face t)
|
|
||||||
(go-template-mode-font-lock-cs-string 0 font-lock-string-face t)
|
|
||||||
(,(regexp-opt '("{{" "}}")) (0 font-lock-preprocessor-face))
|
|
||||||
("$[a-zA-Z0-9]*" (0 font-lock-variable-name-face))
|
|
||||||
(,(regexp-opt go-template-mode-keywords 'words) . font-lock-keyword-face)
|
|
||||||
(,(regexp-opt go-template-mode-builtins 'words) . font-lock-builtin-face)
|
|
||||||
(,(concat "</?" go-template-mode-pair-tag ">?") (0 font-lock-function-name-face))
|
|
||||||
(,(concat "<" go-template-mode-standalone-tag ">?") (0 font-lock-function-name-face))))
|
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
||||||
;; Parser
|
|
||||||
;;
|
|
||||||
|
|
||||||
(defvar go-template-mode-mark-cs-end 1
|
|
||||||
"The point at which the comment/string cache ends. The buffer
|
|
||||||
will be marked from the beginning up to this point (that is, up
|
|
||||||
to and including character (1- go-template-mode-mark-cs-end)).")
|
|
||||||
(make-variable-buffer-local 'go-template-mode-mark-cs-end)
|
|
||||||
|
|
||||||
(defvar go-template-mode-mark-nesting-end 1
|
|
||||||
"The point at which the nesting cache ends. The buffer will be
|
|
||||||
marked from the beginning up to this point.")
|
|
||||||
(make-variable-buffer-local 'go-template-mode-mark-nesting-end)
|
|
||||||
|
|
||||||
(defun go-template-mode-mark-clear-cache (b e)
|
|
||||||
"A before-change-function that clears the comment/string and
|
|
||||||
nesting caches from the modified point on."
|
|
||||||
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
(when (<= b go-template-mode-mark-cs-end)
|
|
||||||
;; Remove the property adjacent to the change position.
|
|
||||||
;; It may contain positions pointing beyond the new end mark.
|
|
||||||
(let ((b (let ((cs (get-text-property (max 1 (1- b)) 'go-template-mode-cs)))
|
|
||||||
(if cs (car cs) b))))
|
|
||||||
(remove-text-properties
|
|
||||||
b (min go-template-mode-mark-cs-end (point-max)) '(go-template-mode-cs nil))
|
|
||||||
(setq go-template-mode-mark-cs-end b)))
|
|
||||||
(when (< b go-template-mode-mark-nesting-end)
|
|
||||||
(remove-text-properties b (min go-template-mode-mark-nesting-end (point-max)) '(go-template-mode-nesting nil))
|
|
||||||
(setq go-template-mode-mark-nesting-end b))))
|
|
||||||
|
|
||||||
(defmacro go-template-mode-parser (&rest body)
|
|
||||||
"Evaluate BODY in an environment set up for parsers that use
|
|
||||||
text properties to mark text. This inhibits changes to the undo
|
|
||||||
list or the buffer's modification status and inhibits calls to
|
|
||||||
the modification hooks. It also saves the excursion and
|
|
||||||
restriction and widens the buffer, since most parsers are
|
|
||||||
context-sensitive."
|
|
||||||
|
|
||||||
(let ((modified-var (make-symbol "modified")))
|
|
||||||
`(let ((buffer-undo-list t)
|
|
||||||
(,modified-var (buffer-modified-p))
|
|
||||||
(inhibit-modification-hooks t)
|
|
||||||
(inhibit-read-only t))
|
|
||||||
(save-excursion
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
(unwind-protect
|
|
||||||
(progn ,@body)
|
|
||||||
(set-buffer-modified-p ,modified-var)))))))
|
|
||||||
|
|
||||||
(defun go-template-mode-cs (&optional pos)
|
|
||||||
"Return the comment/string state at point POS. If point is
|
|
||||||
inside a comment or string (including the delimiters), this
|
|
||||||
returns a pair (START . END) indicating the extents of the
|
|
||||||
comment or string."
|
|
||||||
|
|
||||||
(unless pos
|
|
||||||
(setq pos (point)))
|
|
||||||
(when (> pos go-template-mode-mark-cs-end)
|
|
||||||
(go-template-mode-mark-cs pos))
|
|
||||||
(get-text-property pos 'go-template-mode-cs))
|
|
||||||
|
|
||||||
(defun go-template-mode-mark-cs (end)
|
|
||||||
"Mark comments and strings up to point END. Don't call this
|
|
||||||
directly; use `go-template-mode-cs'."
|
|
||||||
(setq end (min end (point-max)))
|
|
||||||
(go-template-mode-parser
|
|
||||||
(save-match-data
|
|
||||||
(let ((pos
|
|
||||||
;; Back up to the last known state.
|
|
||||||
(let ((last-cs
|
|
||||||
(and (> go-template-mode-mark-cs-end 1)
|
|
||||||
(get-text-property (1- go-template-mode-mark-cs-end)
|
|
||||||
'go-template-mode-cs))))
|
|
||||||
(if last-cs
|
|
||||||
(car last-cs)
|
|
||||||
(max 1 (1- go-template-mode-mark-cs-end))))))
|
|
||||||
(while (< pos end)
|
|
||||||
(goto-char pos)
|
|
||||||
(let ((cs-end ; end of the text property
|
|
||||||
(cond
|
|
||||||
((looking-at "{{/\\*")
|
|
||||||
(goto-char (+ pos 4))
|
|
||||||
(if (search-forward "*/}}" (1+ end) t)
|
|
||||||
(point)
|
|
||||||
end))
|
|
||||||
((looking-at "\"")
|
|
||||||
(goto-char (1+ pos))
|
|
||||||
(if (looking-at "[^\"\n\\\\]*\\(\\\\.[^\"\n\\\\]*\\)*\"")
|
|
||||||
(match-end 0)
|
|
||||||
(end-of-line)
|
|
||||||
(point)))
|
|
||||||
((looking-at "'")
|
|
||||||
(goto-char (1+ pos))
|
|
||||||
(if (looking-at "[^'\n\\\\]*\\(\\\\.[^'\n\\\\]*\\)*'")
|
|
||||||
(match-end 0)
|
|
||||||
(end-of-line)
|
|
||||||
(point)))
|
|
||||||
((looking-at "`")
|
|
||||||
(goto-char (1+ pos))
|
|
||||||
(while (if (search-forward "`" end t)
|
|
||||||
(if (eq (char-after) ?`)
|
|
||||||
(goto-char (1+ (point))))
|
|
||||||
(goto-char end)
|
|
||||||
nil))
|
|
||||||
(point)))))
|
|
||||||
(cond
|
|
||||||
(cs-end
|
|
||||||
(put-text-property pos cs-end 'go-template-mode-cs (cons pos cs-end))
|
|
||||||
(setq pos cs-end))
|
|
||||||
((re-search-forward "[\"'`]\\|{{/\\*" end t)
|
|
||||||
(setq pos (match-beginning 0)))
|
|
||||||
(t
|
|
||||||
(setq pos end)))))
|
|
||||||
(setq go-template-mode-mark-cs-end pos)))))
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(defun go-template-mode-font-lock-cs (limit comment)
|
|
||||||
"Helper function for highlighting comment/strings. If COMMENT is t,
|
|
||||||
set match data to the next comment after point, and advance point
|
|
||||||
after it. If COMMENT is nil, use the next string. Returns nil
|
|
||||||
if no further tokens of the type exist."
|
|
||||||
;; Ensures that `next-single-property-change' below will work properly.
|
|
||||||
(go-template-mode-cs limit)
|
|
||||||
(let (cs next (result 'scan))
|
|
||||||
(while (eq result 'scan)
|
|
||||||
(if (or (>= (point) limit) (eobp))
|
|
||||||
(setq result nil)
|
|
||||||
(setq cs (go-template-mode-cs))
|
|
||||||
(if cs
|
|
||||||
(if (eq (= (char-after (car cs)) ?/) comment)
|
|
||||||
;; If inside the expected comment/string, highlight it.
|
|
||||||
(progn
|
|
||||||
;; If the match includes a "\n", we have a
|
|
||||||
;; multi-line construct. Mark it as such.
|
|
||||||
(goto-char (car cs))
|
|
||||||
(when (search-forward "\n" (cdr cs) t)
|
|
||||||
(put-text-property
|
|
||||||
(car cs) (cdr cs) 'font-lock-multline t))
|
|
||||||
(set-match-data (list (car cs) (cdr cs) (current-buffer)))
|
|
||||||
(goto-char (cdr cs))
|
|
||||||
(setq result t))
|
|
||||||
;; Wrong type. Look for next comment/string after this one.
|
|
||||||
(goto-char (cdr cs)))
|
|
||||||
;; Not inside comment/string. Search for next comment/string.
|
|
||||||
(setq next (next-single-property-change
|
|
||||||
(point) 'go-template-mode-cs nil limit))
|
|
||||||
(if (and next (< next limit))
|
|
||||||
(goto-char next)
|
|
||||||
(setq result nil)))))
|
|
||||||
result))
|
|
||||||
|
|
||||||
(defun go-template-mode-font-lock-cs-string (limit)
|
|
||||||
"Font-lock iterator for strings."
|
|
||||||
(go-template-mode-font-lock-cs limit nil))
|
|
||||||
|
|
||||||
(defun go-template-mode-font-lock-cs-comment (limit)
|
|
||||||
"Font-lock iterator for comments."
|
|
||||||
(go-template-mode-font-lock-cs limit t))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(define-derived-mode go-template-mode fundamental-mode "Go-Template"
|
|
||||||
"Major mode for editing Go template text.
|
|
||||||
|
|
||||||
This provides basic syntax highlighting for keyword, built-ins, functions,
|
|
||||||
and some types. It does not provide indentation."
|
|
||||||
|
|
||||||
;; Font lock
|
|
||||||
(set (make-local-variable 'font-lock-defaults)
|
|
||||||
'(go-template-mode-font-lock-keywords nil nil nil nil))
|
|
||||||
|
|
||||||
;; Remove stale text properties
|
|
||||||
(save-restriction
|
|
||||||
(widen)
|
|
||||||
(remove-text-properties 1 (point-max)
|
|
||||||
'(go-template-mode-cs nil go-template-mode-nesting nil)))
|
|
||||||
|
|
||||||
;; Reset the syntax mark caches
|
|
||||||
(setq go-template-mode-mark-cs-end 1
|
|
||||||
go-template-mode-mark-nesting-end 1)
|
|
||||||
(add-hook 'before-change-functions #'go-template-mode-mark-clear-cache nil t)
|
|
||||||
|
|
||||||
;; Use tabs (Go style)
|
|
||||||
(setq indent-tabs-mode t))
|
|
||||||
|
|
||||||
(add-to-list 'auto-mode-alist '("\\.gotmpl$" . go-template-mode))
|
|
||||||
|
|
||||||
(provide 'go-template-mode)
|
|
||||||
|
|
||||||
;;; go-template-mode.el ends here
|
|
||||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -1,5 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# name: accumulate
|
|
||||||
# key: acc
|
|
||||||
# --
|
|
||||||
std::accumulate(${1:v}.begin(), $1.end(), ${2:0});
|
|
||||||
@ -1,8 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# name: accumulate_lambda
|
|
||||||
# key: accl
|
|
||||||
# --
|
|
||||||
auto acc = [${3:}] (${4:auto} const& ${5:r}, ${6:auto} const& ${7:v}) {
|
|
||||||
$0
|
|
||||||
};
|
|
||||||
std::accumulate(${1:v}.begin(), $1.end(), ${2:0}, acc);
|
|
||||||
@ -1,10 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# name: class
|
|
||||||
# key: cls
|
|
||||||
# --
|
|
||||||
class ${1:Name} {
|
|
||||||
public:
|
|
||||||
${1:$(yas/substr yas-text "[^: ]*")}();
|
|
||||||
${2:virtual ~${1:$(yas/substr yas-text "[^: ]*")}();}
|
|
||||||
};
|
|
||||||
$0
|
|
||||||
@ -1,5 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# name: dynamic cast
|
|
||||||
# key: dcast
|
|
||||||
# --
|
|
||||||
dynamic_cast<${1:type}>(${2:v})
|
|
||||||
@ -1,5 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# name: dynamic pointer cast
|
|
||||||
# key: dpcast
|
|
||||||
# --
|
|
||||||
std::dynamic_pointer_cast<${1:type}>(${2:v})
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# name: for_c
|
|
||||||
# key: forc
|
|
||||||
# --
|
|
||||||
for (${1:auto} ${2:i}: ${3:v}) {
|
|
||||||
$0
|
|
||||||
}
|
|
||||||
@ -1,5 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# name: static cast
|
|
||||||
# key: scast
|
|
||||||
# --
|
|
||||||
static_cast<${1:type}>(${2:v})
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# name: struct
|
|
||||||
# key: sct
|
|
||||||
# --
|
|
||||||
struct ${1:Name} {
|
|
||||||
${1:$(yas/substr yas-text "[^: ]*")}();
|
|
||||||
${2:virtual ~${1:$(yas/substr yas-text "[^: ]*")}();}
|
|
||||||
};
|
|
||||||
$0
|
|
||||||
@ -1,5 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# name: static pointer cast
|
|
||||||
# key: spcast
|
|
||||||
# --
|
|
||||||
std::static_pointer_cast<${1:type}>(${2:v})
|
|
||||||
@ -1,5 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# name: shared_ptr
|
|
||||||
# key: sptr
|
|
||||||
# --
|
|
||||||
std::shared_ptr<${1:type}> ${2:name}$0
|
|
||||||
@ -1,5 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# name: todo_full
|
|
||||||
# key: todo
|
|
||||||
# --
|
|
||||||
`(yas-with-comment "TODO: ")`
|
|
||||||
@ -1,5 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# name: unique_ptr
|
|
||||||
# key: uptr
|
|
||||||
# --
|
|
||||||
std::unique_ptr<${1:type}> ${2:name}$0
|
|
||||||
@ -1,5 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# name: weak_ptr
|
|
||||||
# key: wptr
|
|
||||||
# --
|
|
||||||
std::weak_ptr<${1:type}> ${2:name}$0
|
|
||||||
@ -1 +0,0 @@
|
|||||||
text-mode
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key : abs
|
|
||||||
# group: sections
|
|
||||||
# name : \abstract
|
|
||||||
# --
|
|
||||||
\begin{abstract}
|
|
||||||
$0
|
|
||||||
\end{abstract}
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Rasmus Borgsmidt <rasmus@borgsmidt.dk>
|
|
||||||
# key : align
|
|
||||||
# group: environments
|
|
||||||
# name : \begin{align} ... \end{align}
|
|
||||||
# --
|
|
||||||
\begin{align}
|
|
||||||
$0
|
|
||||||
\end{align}
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Rasmus Borgsmidt <rasmus@borgsmidt.dk>
|
|
||||||
# key : align*
|
|
||||||
# group: environments
|
|
||||||
# name : \begin{align*} ... \end{align*}
|
|
||||||
# --
|
|
||||||
\begin{align*}
|
|
||||||
$0
|
|
||||||
\end{align*}
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Peter Urbak <peter@dragonwasrobot.com>
|
|
||||||
# key : arr
|
|
||||||
# group: environments
|
|
||||||
# name : \begin{array} ... \end{array}
|
|
||||||
# --
|
|
||||||
\begin{array}{$1}
|
|
||||||
$0
|
|
||||||
\end{array}
|
|
||||||
@ -1,28 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# contributor : Song Qiang <tsiangsung@gmail.com>
|
|
||||||
# key: article
|
|
||||||
# group: skeleton
|
|
||||||
# name: \documentclass{article} ...
|
|
||||||
# --
|
|
||||||
\documentclass[11pt]{article}
|
|
||||||
|
|
||||||
\usepackage{graphicx,amsmath,amssymb,subfigure,url,xspace}
|
|
||||||
\newcommand{\eg}{e.g.,\xspace}
|
|
||||||
\newcommand{\bigeg}{E.g.,\xspace}
|
|
||||||
\newcommand{\etal}{\textit{et~al.\xspace}}
|
|
||||||
\newcommand{\etc}{etc.\@\xspace}
|
|
||||||
\newcommand{\ie}{i.e.,\xspace}
|
|
||||||
\newcommand{\bigie}{I.e.,\xspace}
|
|
||||||
|
|
||||||
\title{${1:title}}
|
|
||||||
\author{${2:Author Name}}
|
|
||||||
|
|
||||||
\begin{document}
|
|
||||||
\maketitle
|
|
||||||
|
|
||||||
|
|
||||||
\bibliographystyle{${3:plain}}
|
|
||||||
\bibliography{${4:literature.bib}}
|
|
||||||
|
|
||||||
\end{document}
|
|
||||||
@ -1,37 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Claudio Marforio <marforio@gmail.com>
|
|
||||||
# key: beamer
|
|
||||||
# group: skeleton
|
|
||||||
# name: \documentclass{beamer} ...
|
|
||||||
# --
|
|
||||||
\documentclass[xcolor=dvipsnames]{beamer}
|
|
||||||
|
|
||||||
\usepackage{graphicx,subfigure,url}
|
|
||||||
|
|
||||||
% example themes
|
|
||||||
\usetheme{Frankfurt}
|
|
||||||
\usecolortheme{seahorse}
|
|
||||||
\usecolortheme{rose}
|
|
||||||
|
|
||||||
% put page numbers
|
|
||||||
% \setbeamertemplate{footline}[frame number]{}
|
|
||||||
% remove navigation symbols
|
|
||||||
% \setbeamertemplate{navigation symbols}{}
|
|
||||||
|
|
||||||
\title{${1:Presentation Title}}
|
|
||||||
\author{${2:Author Name}}
|
|
||||||
|
|
||||||
\begin{document}
|
|
||||||
|
|
||||||
\frame[plain]{\titlepage}
|
|
||||||
|
|
||||||
\begin{frame}[plain]{Outline}
|
|
||||||
\tableofcontents
|
|
||||||
\end{frame}
|
|
||||||
|
|
||||||
\section{${3:Example Section}}
|
|
||||||
\begin{frame}{${4:Frame Title}}
|
|
||||||
|
|
||||||
\end{frame}
|
|
||||||
|
|
||||||
\end{document}
|
|
||||||
@ -1,10 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# contributor : Bjorn Reese <breese@users.sourceforge.net>
|
|
||||||
# key: begin
|
|
||||||
# group: environments
|
|
||||||
# name: \begin{environment} ... \end{environment}
|
|
||||||
# --
|
|
||||||
\begin{${1:$$(yas/choose-value (mapcar 'car (LaTeX-environment-list)))}}
|
|
||||||
$0
|
|
||||||
\end{$1}
|
|
||||||
@ -1,8 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key: bib
|
|
||||||
# group: misc
|
|
||||||
# name: \bibliography
|
|
||||||
# --
|
|
||||||
\bibliographystyle{plain}
|
|
||||||
\bibliography{$1}$0
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Song Qiang <tsiangsung@gmail.com>
|
|
||||||
# key: big
|
|
||||||
# group: math
|
|
||||||
# name: \bigl( ... \bigr)
|
|
||||||
# --
|
|
||||||
\\${1:$$(yas/choose-value '("big" "Big" "bigg" "Bigg"))}l( $0 \\$1r)
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: François Garillot <francois@garillot.net>
|
|
||||||
# key: bigop
|
|
||||||
# group: math
|
|
||||||
# name: \bigop_{n}^{}
|
|
||||||
# --
|
|
||||||
\\big${1:$$(yas/choose-value '("oplus" "otimes" "odot" "cup" "cap" "uplus" "sqcup" "vee" "wedge"))}_{$2}^{$3}$0
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Song Qiang <tsiangsung@gmail.com>
|
|
||||||
# key: binom
|
|
||||||
# group: math
|
|
||||||
# name: \binom{n}{k}
|
|
||||||
# --
|
|
||||||
\binom{${1:n}}{${2:k}}
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Claudio Marforio <marforio@gmail.com>
|
|
||||||
# key: block
|
|
||||||
# group: environments
|
|
||||||
# name : \begin{*block} ... \end{*block}
|
|
||||||
# --
|
|
||||||
\begin{${1:$$(yas/choose-value '("block" "exampleblock" "alertblock"))}}{${2:Block Title}}
|
|
||||||
|
|
||||||
\end{$1}
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Márcio M. Ribeiro <marcio.mr@gmail.com>
|
|
||||||
# key: bf
|
|
||||||
# group: font
|
|
||||||
# name: {\bf ... }
|
|
||||||
# --
|
|
||||||
{\bf $1}$0
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key: case
|
|
||||||
# group: math
|
|
||||||
# name: \begin{cases} ... \end{cases}
|
|
||||||
# --
|
|
||||||
\begin{cases}
|
|
||||||
$0 \\\\
|
|
||||||
\end{cases}
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key : cha
|
|
||||||
# group: sections
|
|
||||||
# name : \chapter
|
|
||||||
# --
|
|
||||||
\chapter{${1:name}}
|
|
||||||
\label{${2:"waiting for reftex-label call..."$(unless yas/modified-p (reftex-label nil 'dont-insert))}}
|
|
||||||
$0
|
|
||||||
@ -1,8 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key : cha*
|
|
||||||
# group: sections
|
|
||||||
# name : \chapter*
|
|
||||||
# --
|
|
||||||
\chapter*{${1:name}}
|
|
||||||
$0
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Marcio M. Ribeiro <marcio.mr@gmail.com>
|
|
||||||
# key: cite
|
|
||||||
# group: references
|
|
||||||
# name : \cite
|
|
||||||
# --
|
|
||||||
\cite{${1:label$(unless yas/modified-p (car (reftex-citation 't)))}}$0
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: François Garillot <francois@garillot.net>
|
|
||||||
# key: coprod
|
|
||||||
# group: math
|
|
||||||
# name: \coprod_{n}^{}
|
|
||||||
# --
|
|
||||||
\coprod_{$1}^{$2}$0
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key : desc
|
|
||||||
# group: environments
|
|
||||||
# name : \begin{description} ... \end{description}
|
|
||||||
# --
|
|
||||||
\begin{description}
|
|
||||||
\item[${1:label}] $0
|
|
||||||
\end{description}
|
|
||||||
@ -1,10 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key: doc
|
|
||||||
# name: \documentclass
|
|
||||||
# --
|
|
||||||
\documentclass[$2]{${1:$$(yas/choose-value '("article" "report" "book" "letter"))}}
|
|
||||||
|
|
||||||
\begin{document}
|
|
||||||
$0
|
|
||||||
\end{document}
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Márcio M. Ribeiro <marcio.mr@gmail.com>
|
|
||||||
# key: em
|
|
||||||
# group: font
|
|
||||||
# name: {\em ...}
|
|
||||||
# --
|
|
||||||
{\em $1}$0
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key: enum
|
|
||||||
# group: environments
|
|
||||||
# name : \begin{enumerate} ... \end{enumerate}
|
|
||||||
# --
|
|
||||||
\begin{enumerate}
|
|
||||||
\item $0
|
|
||||||
\end{enumerate}
|
|
||||||
@ -1,10 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key: eq
|
|
||||||
# group: math
|
|
||||||
# name: \begin{equation} ... \end{equation}
|
|
||||||
# --
|
|
||||||
\begin{equation}
|
|
||||||
\label{${1:"waiting for reftex-label call..."$(unless yas/modified-p (reftex-label nil 'dont-insert))}}
|
|
||||||
$0
|
|
||||||
\end{equation}
|
|
||||||
@ -1,10 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key: eqs
|
|
||||||
# group: math
|
|
||||||
# name: \begin{align} ... \end{align}
|
|
||||||
# --
|
|
||||||
\begin{${1:$$(yas/choose-value '("align" "align*" "multline" "gather" "subequations"))}}
|
|
||||||
\label{${2:"waiting for reftex-label call..."$(unless yas/modified-p (reftex-label nil 'dont-insert))}}
|
|
||||||
$0
|
|
||||||
\end{$1}
|
|
||||||
@ -1,12 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key : fig
|
|
||||||
# group: environments
|
|
||||||
# name : \begin{figure} ... \end{figure}
|
|
||||||
# --
|
|
||||||
\begin{figure}[htbp]
|
|
||||||
\centering
|
|
||||||
$0
|
|
||||||
\caption{${1:caption}}
|
|
||||||
\label{${2:"waiting for reftex-label call..."$(unless yas/modified-p (reftex-label nil 'dont-insert))}}
|
|
||||||
\end{figure}
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Song Qiang <tsiangsung@gmail.com>
|
|
||||||
# key: frac
|
|
||||||
# group: math
|
|
||||||
# name: \frac{numerator}{denominator}
|
|
||||||
# --
|
|
||||||
\frac{${1:numerator}}{${2:denominator}}$0
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Claudio Marforio <marforio@gmail.com>
|
|
||||||
# key: frame
|
|
||||||
# group: environments
|
|
||||||
# name : \begin{frame} ... \end{frame}
|
|
||||||
# --
|
|
||||||
\begin{frame}{${1:Frame Title}}
|
|
||||||
|
|
||||||
\end{frame}
|
|
||||||
@ -1,8 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Peter Urbak <peter@dragonwasrobot.com>
|
|
||||||
# key : newgls
|
|
||||||
# group: misc
|
|
||||||
# name : \newglossaryentry{...}{...}
|
|
||||||
# --
|
|
||||||
\newglossaryentry{$1}{name={$1},
|
|
||||||
description={$2.}}
|
|
||||||
@ -1,6 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key : graphics
|
|
||||||
# name : \includegraphics
|
|
||||||
# --
|
|
||||||
\includegraphics[width=${1:\linewidth}]{${2:file}}
|
|
||||||
@ -1,6 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# key: href
|
|
||||||
# group: environments
|
|
||||||
# name: \href{url}{text}
|
|
||||||
# --
|
|
||||||
\href{${1:url}}{${2:text}}$0
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Song Qiang <tsiangsung@gmail.com>
|
|
||||||
# key: int
|
|
||||||
# group: math
|
|
||||||
# name: \int_{n}^{}
|
|
||||||
# --
|
|
||||||
\\${1:$$(yas/choose-value '("int" "oint" "iint" "iiint" "iiiint" "idotsint"))}{$2}^{$3}$0
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key: it
|
|
||||||
# group: environments
|
|
||||||
# name: \item
|
|
||||||
# --
|
|
||||||
\item $0
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Rasmus Borgsmidt <rasmus@borgsmidt.dk>
|
|
||||||
# key: itd
|
|
||||||
# group: environments
|
|
||||||
# name: \item[] (description)
|
|
||||||
# --
|
|
||||||
\item[${1:label}] $0
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key : item
|
|
||||||
# group: environments
|
|
||||||
# name : \begin{itemize} ... \end{itemize}
|
|
||||||
# --
|
|
||||||
\begin{itemize}
|
|
||||||
\item $0
|
|
||||||
\end{itemize}
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
-*- mode: snippet -*-
|
|
||||||
# contributor : Márcio M. Ribeiro <marcio.mr@gmail.com>
|
|
||||||
# key: lab
|
|
||||||
# group: references
|
|
||||||
# name : \label
|
|
||||||
# --
|
|
||||||
\label{${1:label$(unless yas/modified-p (reftex-label nil 'dont-insert))}}$0
|
|
||||||
@ -1,27 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# contributor : Song Qiang <tsiangsung@gmail.com>
|
|
||||||
# key: letter
|
|
||||||
# group: skeleton
|
|
||||||
# name: \documentclass{letter} ...
|
|
||||||
# --
|
|
||||||
\documentclass{letter}
|
|
||||||
\signature{${1:Foo Bar}}
|
|
||||||
\address{${2:Address line 1 \\\\
|
|
||||||
Address line 2 \\\\
|
|
||||||
Address line 3}}
|
|
||||||
\begin{document}
|
|
||||||
|
|
||||||
\begin{letter}
|
|
||||||
{${3:Recipient's address}}
|
|
||||||
|
|
||||||
\opening{Dear ${4:Sir}:}
|
|
||||||
|
|
||||||
$0
|
|
||||||
|
|
||||||
\closing{Yours Sincerely,}
|
|
||||||
|
|
||||||
\end{letter}
|
|
||||||
|
|
||||||
\end{document}
|
|
||||||
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: François Garillot <francois@garillot.net>
|
|
||||||
# key: lim
|
|
||||||
# group: math
|
|
||||||
# name: \lim_{n}
|
|
||||||
# --
|
|
||||||
\lim_{$1}$0
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Song Qiang <tsiangsung@gmail.com>
|
|
||||||
# key: math
|
|
||||||
# group: math
|
|
||||||
# name: displaymath \[ ... \]
|
|
||||||
# --
|
|
||||||
\[
|
|
||||||
$1
|
|
||||||
\]
|
|
||||||
@ -1,11 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Song Qiang <tsiangsung@gmail.com>
|
|
||||||
# key: matrix
|
|
||||||
# group: math
|
|
||||||
# name: \begin{matrix} ... \end{}
|
|
||||||
# --
|
|
||||||
\begin{${1:$$(yas/choose-value '("pmatrix" "bmatrix" "Bmatrix" "vmatrix" "Vmatrix" "smallmatrix"))}}
|
|
||||||
\label{${2:"waiting for reftex-label call..."$(unless yas/modified-p (reftex-label nil 'dont-insert))}}
|
|
||||||
$0
|
|
||||||
\end{$1}
|
|
||||||
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key: minipage
|
|
||||||
# group: environments
|
|
||||||
# name: \begin{minipage}[position][width] ... \end{minipage}
|
|
||||||
# --
|
|
||||||
\begin{minipage}[${1:htbp}]{${2:1.0}${3:\linewidth}}
|
|
||||||
$0
|
|
||||||
\end{minipage}
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key: par
|
|
||||||
# group: sections
|
|
||||||
# name : \paragraph
|
|
||||||
# --
|
|
||||||
\paragraph{${1:name}}
|
|
||||||
\label{${2:"waiting for reftex-label call..."$(unless yas/modified-p (reftex-label nil 'dont-insert))}}
|
|
||||||
$0
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: François Garillot <francois@garillot.net>
|
|
||||||
# key: prod
|
|
||||||
# group: math
|
|
||||||
# name: \prod_{n}^{}
|
|
||||||
# --
|
|
||||||
\prod_{$1}^{$2}$0
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
-*- mode: snippet -*-
|
|
||||||
# contributor : Márcio M. Ribeiro <marcio.mr@gmail.com>
|
|
||||||
# key: ref
|
|
||||||
# group: references
|
|
||||||
# name : \ref
|
|
||||||
# --
|
|
||||||
\ref{${1:label$(unless yas/modified-p (reftex-reference nil 'dont-insert))}}$0
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Rasmus Borgsmidt <rasmus@borgsmidt.dk>
|
|
||||||
# key: sc
|
|
||||||
# group: font
|
|
||||||
# name: {\sc ...}
|
|
||||||
# --
|
|
||||||
{\scshape $1}$0
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key : sec
|
|
||||||
# group: sections
|
|
||||||
# name : \section
|
|
||||||
# --
|
|
||||||
\section{${1:name}}
|
|
||||||
\label{${2:"waiting for reftex-label call..."$(unless yas/modified-p (reftex-label nil 'dont-insert))}}
|
|
||||||
$0
|
|
||||||
@ -1,8 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key : sec*
|
|
||||||
# group: sections
|
|
||||||
# name : \section*
|
|
||||||
# --
|
|
||||||
\section*{${1:name}}
|
|
||||||
$0
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key: ssub
|
|
||||||
# group: sections
|
|
||||||
# name : \subsubsection
|
|
||||||
# --
|
|
||||||
\subsubsection{${1:name}}
|
|
||||||
\label{${2:"waiting for reftex-label call..."$(unless yas/modified-p (reftex-label nil 'dont-insert))}}
|
|
||||||
$0
|
|
||||||
@ -1,8 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key: ssub*
|
|
||||||
# group: sections
|
|
||||||
# name : \subsubsection*
|
|
||||||
# --
|
|
||||||
\subsubsection*{${1:name}}
|
|
||||||
$0
|
|
||||||
@ -1,9 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key: sub
|
|
||||||
# group: sections
|
|
||||||
# name : \subsection
|
|
||||||
# --
|
|
||||||
\subsection{${1:name}}
|
|
||||||
\label{${2:"waiting for reftex-label call..."$(unless yas/modified-p (reftex-label nil 'dont-insert))}}
|
|
||||||
$0
|
|
||||||
@ -1,10 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key: subfig
|
|
||||||
# group: environments
|
|
||||||
# name : \subfigure
|
|
||||||
# --
|
|
||||||
\subfigure[${1:caption}]{
|
|
||||||
\label{${2:"waiting for reftex-label call..."$(unless yas/modified-p (reftex-label nil 'dont-insert))}}
|
|
||||||
$0
|
|
||||||
}
|
|
||||||
@ -1,8 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key: sub*
|
|
||||||
# group: sections
|
|
||||||
# name : \subsection*
|
|
||||||
# --
|
|
||||||
\subsection*{${1:name}}
|
|
||||||
$0
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Song Qiang <tsiangsung@gmail.com>
|
|
||||||
# key: sum
|
|
||||||
# group: math
|
|
||||||
# name: \sum_{n}^{}
|
|
||||||
# --
|
|
||||||
\sum_{$1}^{$2}$0
|
|
||||||
@ -1,14 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor : Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key: table
|
|
||||||
# group: environments
|
|
||||||
# name : \begin{table} ... \end{table}
|
|
||||||
# --
|
|
||||||
\begin{table}[htbp]
|
|
||||||
\centering
|
|
||||||
\begin{tabular}{${3:format}}
|
|
||||||
$0
|
|
||||||
\end{tabular}
|
|
||||||
\caption{${1:caption}}
|
|
||||||
\label{${2:"waiting for reftex-label call..."$(unless yas/modified-p (reftex-label nil 'dont-insert))}}
|
|
||||||
\end{table}
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Rasmus Borgsmidt <rasmus@borgsmidt.dk>
|
|
||||||
# key: tt
|
|
||||||
# group: font
|
|
||||||
# name: {\tt ...}
|
|
||||||
# --
|
|
||||||
{\tt $1}$0
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key: url
|
|
||||||
# group: environments
|
|
||||||
# name: \url
|
|
||||||
# --
|
|
||||||
\url{${1:$$(yas/choose-value '("http" "ftp"))}://${2:address}}$0
|
|
||||||
@ -1,7 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# key: use
|
|
||||||
# group: misc
|
|
||||||
# name: \usepackage
|
|
||||||
# --
|
|
||||||
\usepackage[$2]{$1}$0
|
|
||||||
@ -1,11 +0,0 @@
|
|||||||
# -*- mode: snippet -*-
|
|
||||||
# contributor: Mads D. Kristensen <madsdk@gmail.com>
|
|
||||||
# contributor : Bjorn Reese <breese@users.sourceforge.net>
|
|
||||||
# contributor : Song Qiang <tsiangsung@gmail.com>
|
|
||||||
# key: verb
|
|
||||||
# group: environments
|
|
||||||
# name: \begin{verbatim} ... \end{verbatim}
|
|
||||||
# --
|
|
||||||
\begin{verbatim}
|
|
||||||
$0
|
|
||||||
\end{verbatim}
|
|
||||||
@ -1,165 +0,0 @@
|
|||||||
;;; hydandata-light-theme.el --- A light color theme that is easy on your eyes
|
|
||||||
|
|
||||||
;;; Copyright (C) 2016 David Chkhikvadze
|
|
||||||
;;; Copyright (C) 2010 Yves Senn
|
|
||||||
|
|
||||||
;;; Author: David Chkhikvadze <david.chk@outlook.com>
|
|
||||||
;;; Version: 0.2
|
|
||||||
;;; Created: 01 January 2016
|
|
||||||
;;; Keywords: color-theme theme
|
|
||||||
|
|
||||||
;;; This file is NOT part of GNU Emacs.
|
|
||||||
|
|
||||||
;;; License:
|
|
||||||
|
|
||||||
;;; This program is free software; you can redistribute it and/or modify
|
|
||||||
;;; it under the terms of the GNU General Public License as published by
|
|
||||||
;;; the Free Software Foundation; either version 3, or (at your option)
|
|
||||||
;;; any later version.
|
|
||||||
;;;
|
|
||||||
;;; This program is distributed in the hope that it will be useful,
|
|
||||||
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
||||||
;;; GNU General Public License for more details.
|
|
||||||
;;;
|
|
||||||
;;; You should have received a copy of the GNU General Public License
|
|
||||||
;;; along with GNU Emacs; see the file COPYING. If not, write to the
|
|
||||||
;;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
||||||
;;; Boston, MA 02110-1301, USA.
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
|
|
||||||
;;; A light color theme with bluish tint that is very easy on your
|
|
||||||
;;; eyes. Extracted from senny/theme-roller.el and modified for modern
|
|
||||||
;;; Emacs deftheme.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(deftheme hydandata-light
|
|
||||||
"Light theme based on the one included with theme-roller by Yves Senn.")
|
|
||||||
|
|
||||||
(custom-theme-set-faces
|
|
||||||
'hydandata-light
|
|
||||||
'(default ((t (:inherit nil :stipple nil :background "#f8f8ff" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width normal :bold nil))))
|
|
||||||
'(hl-line ((t (:background "#effca6"))))
|
|
||||||
'(highlight ((t (:background "#acc3e6"))))
|
|
||||||
'(region ((t (:background "#bcd5fa"))))
|
|
||||||
'(mode-line ((t (:background "#bcd5fa" :foreground "black"))))
|
|
||||||
'(minibuffer-prompt ((t (:foreground "#445588"))))
|
|
||||||
'(minibuffer-noticeable-prompt ((t (:foreground "#445588"))))
|
|
||||||
'(link ((t (:foreground "blue1" :underline t))))
|
|
||||||
'(fringe ((t (:background "gray95" :foreground "black"))))
|
|
||||||
'(linum ((t (:inherit fringe))))
|
|
||||||
|
|
||||||
'(show-paren-match ((t (:background "#bcd5fa" :foreground "white"))))
|
|
||||||
'(show-paren-mismatch ((t (:bold t :background "#9d1e15" :foreground "#f8f8f8"))))
|
|
||||||
|
|
||||||
'(font-lock-warning-face ((t (:background "#ffe4b5"))))
|
|
||||||
'(font-lock-comment-face ((t (:italic t :foreground "#999999" :slant italic))))
|
|
||||||
'(font-lock-comment-delimiter-face ((t (:inherit font-lock-comment-face))))
|
|
||||||
'(font-lock-builtin-face ((t (:inherit default))))
|
|
||||||
'(font-lock-constant-face ((t (:foreground "#3b5bb5"))))
|
|
||||||
'(font-lock-doc-face ((t (:foreground "#409b1c"))))
|
|
||||||
'(font-lock-doc-string-face ((t (:inherit font-lock-doc-face))))
|
|
||||||
'(font-lock-function-name-face ((t (:inherit default :bold t))))
|
|
||||||
'(font-lock-keyword-face ((t (:bold t :weight bold :foreground "#ff7800"))))
|
|
||||||
'(font-lock-preprocessor-face ((t (:foreground "#3a4a64" :background "gray95"))))
|
|
||||||
|
|
||||||
'(font-lock-reference-face ((t (nil))))
|
|
||||||
'(font-lock-negatoin-char-face ((t (nil))))
|
|
||||||
|
|
||||||
'(font-lock-regexp-grouping-backslash ((t (:inheirt font-lock-comment-face))))
|
|
||||||
'(font-lock-regexp-grouping-construct ((t (:foreground "red"))))
|
|
||||||
'(font-lock-string-face ((t (:foreground "#409b1c"))))
|
|
||||||
'(font-lock-type-face ((t (:foreground "#445588"))))
|
|
||||||
'(font-lock-variable-name-face ((t (:foreground "#671ebb"))))
|
|
||||||
|
|
||||||
'(mac-ts-caret-position ((t (:background "#effca6"))))
|
|
||||||
|
|
||||||
'(whitespace-line ((t (:inherit font-lock-code-warning))))
|
|
||||||
'(whitespace-tab ((t (:inherit font-lock-code-warning))))
|
|
||||||
|
|
||||||
'(compilation-info ((t (:inherit font-lock-string-face))))
|
|
||||||
'(compilation-line-number ((t (:foreground "#3b5bb5"))))
|
|
||||||
|
|
||||||
'(flymake-errline ((t (:bold t :background "#9d1e15" :foreground "#f8f8f8"))))
|
|
||||||
'(flymake-warnline ((t (:inherit font-lock-warning-face))))
|
|
||||||
|
|
||||||
'(flycheck-error ((t (:inherit font-lock-warning-face))))
|
|
||||||
'(flycheck-error-list-error ((t (:inherit font-lock-warning-face))))
|
|
||||||
'(flycheck-fringe-error ((t (:inherit font-lock-warning-face))))
|
|
||||||
'(flycheck-color-mode-line-info-face ((t (:inherit highlight))))
|
|
||||||
'(flycheck-color-mode-line-warning-face ((t (:inherit flycheck-fringe-error))))
|
|
||||||
'(flycheck-color-mode-line-error-face ((t (:inherit flycheck-fringe-error))))
|
|
||||||
|
|
||||||
'(diff-header ((t (:background "LightSteelBlue3"))))
|
|
||||||
'(diff-file-header ((t (:inherit diff-header :bold t))))
|
|
||||||
'(diff-added ((t (:background "DarkOliveGreen3"))))
|
|
||||||
'(diff-removed ((t (:background "IndianRed1"))))
|
|
||||||
'(diff-changed ((t (:background "burlywood3"))))
|
|
||||||
'(diff-context ((t (:background "gray90"))))
|
|
||||||
'(diff-index ((t (:inherit font-lock-comment-face))))
|
|
||||||
'(diff-refine-change ((t (:inherit font-lock-comment-face))))
|
|
||||||
|
|
||||||
'(magit-item-highlight ((t (:background nil :bold t))))
|
|
||||||
'(magit-diff-add ((t (:inherit diff-added))))
|
|
||||||
'(magit-diff-del ((t (:inherit diff-removed))))
|
|
||||||
'(magit-diff-none ((t (:inherit diff-context))))
|
|
||||||
'(magit-log-sha1 ((t (:inherit font-lock-code-keyword))))
|
|
||||||
'(magit-log-head-label-remote ((t (:inherit font-lock-string-face :box t))))
|
|
||||||
'(magit-log-head-label-local ((t (:inherit font-lock-variable-name-face :box t))))
|
|
||||||
|
|
||||||
'(ediff-current-diff-A ((t (:background "#01243C" :foreground "white"))))
|
|
||||||
'(ediff-current-diff-Ancestor ((t (:background "#4D0600" :foreground "white"))))
|
|
||||||
'(ediff-current-diff-B ((t (:background "#574A00" :foreground "white"))))
|
|
||||||
'(ediff-current-diff-C ((t (:background "#5C285C" :foreground "white"))))
|
|
||||||
'(ediff-even-diff-A ((t (:background "#222222"))))
|
|
||||||
'(ediff-even-diff-Ancestor ((t (:background "#222222"))))
|
|
||||||
'(ediff-even-diff-B ((t (:background "#222222"))))
|
|
||||||
'(ediff-even-diff-C ((t (:background "#222222"))))
|
|
||||||
'(ediff-fine-diff-A ((t (:background "#0B5C00" :foreground "white"))))
|
|
||||||
'(ediff-fine-diff-Ancestor ((t (:background "#0B5C00" :foreground "white"))))
|
|
||||||
'(ediff-fine-diff-B ((t (:background "#0B5C00" :foreground "white"))))
|
|
||||||
'(ediff-fine-diff-C ((t (:background "#0B5C00" :foreground "white"))))
|
|
||||||
'(ediff-odd-diff-A ((t (:background "#222222"))))
|
|
||||||
'(ediff-odd-diff-Ancestor ((t (:background "#222222"))))
|
|
||||||
'(ediff-odd-diff-B ((t (:background "#222222"))))
|
|
||||||
'(ediff-odd-diff-C ((t (:background "#222222"))))
|
|
||||||
|
|
||||||
'(org-done ((t (:inherit font-lock-string-face :bold t))))
|
|
||||||
'(org-todo ((t (:inherit font-lock-variable-name-face :bold t))))
|
|
||||||
'(org-level-1 ((t (:inherit default :underline t :bold t))))
|
|
||||||
'(org-level-2 ((t (:inherit font-lock-variable-name-face))))
|
|
||||||
'(org-level-3 ((t (:inherit font-lock-keyword-face))))
|
|
||||||
'(org-level-4 ((t (:inherit font-lock-type-face))))
|
|
||||||
'(org-special-keyword ((t (:inherit font-lock-doc-face))))
|
|
||||||
|
|
||||||
'(newsticker-treeview-selection-face ((t (:inherit highlight))))
|
|
||||||
'(newsticker-treeview-face ((t (:inherit default))))
|
|
||||||
'(newsticker-treeview-immortal-face ((t (:inherit font-lock-keyword-face))))
|
|
||||||
|
|
||||||
'(js2-error-face ((t (:bold t :background "#9d1e15" :foreground "#f8f8f8"))))
|
|
||||||
'(js2-external-variable-face ((t (:inherit font-lock-variable-name-face))))
|
|
||||||
'(js2-function-param-face ((t (:inherit font-lock-variable-name-face))))
|
|
||||||
'(js2-instance-member-face ((t (:inherit font-lock-variable-name-face))))
|
|
||||||
'(js2-private-function-call-face ((t (:inherit default))))
|
|
||||||
'(js2-private-member-face ((t (:inherit font-lock-variable-name-face))))
|
|
||||||
'(js2-warning-face ((t (:inherit font-lock-warning-face))))
|
|
||||||
|
|
||||||
'(html-tag-face ((t (:inherit font-lock-keyword-face))))
|
|
||||||
|
|
||||||
'(sgml-namespace ((t (:inherit font-locl-type-face))))
|
|
||||||
'(css-selector ((t (:inherit font-lock-keyword-face))))
|
|
||||||
|
|
||||||
'(border-glyph ((t (nil)))) ; flat borders
|
|
||||||
'(left-fringe ((t (nil)))))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(when load-file-name
|
|
||||||
(add-to-list
|
|
||||||
'custom-theme-load-path
|
|
||||||
(file-name-as-directory (file-name-directory load-file-name))))
|
|
||||||
|
|
||||||
(provide-theme 'hydandata-light)
|
|
||||||
|
|
||||||
;;; hydandata-light-theme.el ends here
|
|
||||||
@ -1,11 +0,0 @@
|
|||||||
function gstart
|
|
||||||
gcloud compute instances start $argv
|
|
||||||
end
|
|
||||||
|
|
||||||
function gstop
|
|
||||||
gcloud compute instances stop $argv
|
|
||||||
end
|
|
||||||
|
|
||||||
function gssh
|
|
||||||
gcloud compute ssh $argv
|
|
||||||
end
|
|
||||||
@ -1,155 +0,0 @@
|
|||||||
|
|
||||||
function __log --description 'Logs to a file for debugging'
|
|
||||||
# Uncomment this line to enable debug logging:
|
|
||||||
# echo -e $argv >> ~/.fspy
|
|
||||||
end
|
|
||||||
|
|
||||||
function __cut
|
|
||||||
set -l str $argv[1]
|
|
||||||
set -l pos $argv[2]
|
|
||||||
echo (string sub -l $pos -- $str)
|
|
||||||
echo (string sub -s (math 1+$pos) -- $str)
|
|
||||||
end
|
|
||||||
|
|
||||||
function __right
|
|
||||||
set -l str $argv[1]
|
|
||||||
set -l pos $argv[2]
|
|
||||||
string sub -s (math 1+$pos) -- $str
|
|
||||||
end
|
|
||||||
|
|
||||||
function __substr --description 'Classic substr(str, start, end) with 0-based indexing, start inclusive, end exclusive'
|
|
||||||
set -l str $argv[1]
|
|
||||||
set -l start (math $argv[2] + 1)
|
|
||||||
set -l len (math $argv[3] - $argv[2])
|
|
||||||
string sub -s $start -l $len -- $str
|
|
||||||
end
|
|
||||||
|
|
||||||
function __ltrim_ifmatch --description 'Trims arg2 from the left of arg1, if they match, returns 1 otherwise'
|
|
||||||
set -l ln (string length -- $argv[2])
|
|
||||||
set -l left (string sub -l $ln -- $argv[1])
|
|
||||||
if test $left = $argv[2]
|
|
||||||
string sub -s (math $ln + 1) -- $argv[1]
|
|
||||||
else
|
|
||||||
return 1
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
function __ltrim_unsafe --description 'Trims arg2 from the left of arg1, even if they not match'
|
|
||||||
set -l ln (string length -- $argv[2])
|
|
||||||
string sub -s (math $ln + 1) -- $argv[1]
|
|
||||||
end
|
|
||||||
|
|
||||||
function __rtrim_unsafe --description 'Trims arg2 from the right of arg1, even if they not match'
|
|
||||||
set -l ln (string length -- $argv[1])
|
|
||||||
set -l ln (math $ln - (string length -- $argv[2]))
|
|
||||||
string sub -l $ln -- $argv[1]
|
|
||||||
end
|
|
||||||
|
|
||||||
function __rtrim_ifmatch --description 'Trims arg2 from the right of arg1, if they match, returns 1 otherwise'
|
|
||||||
set -l ln (string length -- $argv[2])
|
|
||||||
set -l start (math (string length -- $argv[1]) - $ln + 1)
|
|
||||||
set -l right (string sub -s $start -- $argv[1])
|
|
||||||
if test $right = $argv[2]
|
|
||||||
string sub -s (math $start - 1) -- $argv[1]
|
|
||||||
else
|
|
||||||
return 1
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
function __call_argcomplete
|
|
||||||
|
|
||||||
__log "Call argcomplete:" $argv
|
|
||||||
|
|
||||||
set -lx input $argv[1]
|
|
||||||
set -lx COMP_POINT $argv[2]
|
|
||||||
set -lx tokenStart $argv[3]
|
|
||||||
set -lx prefix $argv[4]
|
|
||||||
|
|
||||||
set -lx COMP_LINE (string sub -l $tokenStart -- $input)
|
|
||||||
set -lx words (string split ' ' -- (string sub -l $COMP_POINT -- $input))
|
|
||||||
set -lx lastWord $words[-1]
|
|
||||||
|
|
||||||
set -lx _ARGCOMPLETE_COMP_WORDBREAKS \n'"\'@><=;|&(:'
|
|
||||||
set -lx _ARGCOMPLETE 1
|
|
||||||
set -lx CMD $words[1]
|
|
||||||
|
|
||||||
set -l rval (eval $CMD 8>&1 9>&2 1>/dev/null 2>/dev/null)
|
|
||||||
__log "CloudSDK returned: '$rval'"
|
|
||||||
if test $status -ne 0
|
|
||||||
return
|
|
||||||
end
|
|
||||||
|
|
||||||
if test ! $rval
|
|
||||||
if test (count $words) -gt 2 -a -n $lastWord
|
|
||||||
# Fallback scenario 1: try to ignore the last word if it's not complete:
|
|
||||||
# Note: this can only happen in the first call on the stack, since we then fallback by words
|
|
||||||
set -l trimmed (__rtrim_unsafe $input $lastWord)
|
|
||||||
set -l fallbackPos (string length -- $trimmed)
|
|
||||||
__call_argcomplete $input $fallbackPos $fallbackPos ''
|
|
||||||
end
|
|
||||||
if test (count $words) -gt 3 -a -z $lastWord
|
|
||||||
# Fallback scenario 2: if last word is blank try fallback to the previous word
|
|
||||||
set -l prevWordLen (string length -- $words[-2])
|
|
||||||
set -l fallbackPos (math $COMP_POINT - $prevWordLen - 1)
|
|
||||||
__call_argcomplete $input $fallbackPos $tokenStart ''
|
|
||||||
return
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
set -l options (string split \v -- $rval)
|
|
||||||
set -l pattern (__substr $input $COMP_POINT $tokenStart)
|
|
||||||
|
|
||||||
for opt in $options
|
|
||||||
set opt (string replace -r '^(\w+)\\\\://' '$1://' -- $opt)
|
|
||||||
set -l match (__ltrim_ifmatch $opt $pattern)
|
|
||||||
if test $status -eq 0
|
|
||||||
set -l args (string split -m 1 ' ' -- $match)
|
|
||||||
if test (count $args) -gt 1
|
|
||||||
echo -n "$prefix$args[1]"
|
|
||||||
echo -n -e "\t"
|
|
||||||
echo "$args[2]"
|
|
||||||
else
|
|
||||||
echo "$prefix$args[1]"
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
end
|
|
||||||
|
|
||||||
function gcloud_sdk_argcomplete
|
|
||||||
|
|
||||||
__log '$>' (date)
|
|
||||||
|
|
||||||
set -l token (commandline -t)
|
|
||||||
set -l input (commandline -cp)
|
|
||||||
set -l fullLine (commandline -p)
|
|
||||||
set -l cursorAt (string length -- $input)
|
|
||||||
|
|
||||||
set -lx words (string split ' ' -- $input)
|
|
||||||
|
|
||||||
set -lx prefix ''
|
|
||||||
if string match -q -- '*@*' $words[-1]
|
|
||||||
if string match -q -- '* ssh *' $input
|
|
||||||
set -l parts (string split '@' $words[-1])
|
|
||||||
set prefix "$parts[1]@"
|
|
||||||
set words[-1] (string replace -- $prefix '' $words[-1])
|
|
||||||
set cursorAt (math $cursorAt - (string length -- $prefix))
|
|
||||||
end
|
|
||||||
end
|
|
||||||
if string match -q -- '--*=*' $words[-1]
|
|
||||||
set -l parts (string split '=' -- $words[-1])
|
|
||||||
set words[-1] (string join ' ' -- $parts)
|
|
||||||
set prefix "$parts[1]="
|
|
||||||
end
|
|
||||||
set input (string join ' ' -- $words)
|
|
||||||
# well, this is a bit strage, but seemingly 8 \-s will actually print 1 \, a bit of escaping hell
|
|
||||||
set -l escaped (string replace -a -r '(\s\w+)://' '${1}\\\\\\\\://' -- $input)
|
|
||||||
set -l ilen (string length -- $input)
|
|
||||||
set -l elen (string length -- $escaped)
|
|
||||||
if test $elen -gt $ilen
|
|
||||||
set input $escaped
|
|
||||||
set cursorAt (math $cursorAt - $ilen + $elen)
|
|
||||||
end
|
|
||||||
|
|
||||||
__call_argcomplete $input $cursorAt $cursorAt $prefix
|
|
||||||
|
|
||||||
end
|
|
||||||
@ -1,43 +0,0 @@
|
|||||||
# Fish configuration file
|
|
||||||
|
|
||||||
# Configuration for terminal / unix:
|
|
||||||
set -x LC_CTYPE en_US.UTF-8
|
|
||||||
set -x LC_ALL en_US.UTF-8
|
|
||||||
|
|
||||||
if test (uname) != "Darwin"
|
|
||||||
set -x TERM xterm-256color
|
|
||||||
end
|
|
||||||
|
|
||||||
# Creation mask
|
|
||||||
umask 022
|
|
||||||
|
|
||||||
# Theme configuration (bobthefish):
|
|
||||||
set -g theme_newline_cursor yes
|
|
||||||
set -g theme_newline_prompt "\$ "
|
|
||||||
set -g theme_color_scheme zenburn
|
|
||||||
set -g VIRTUAL_ENV_DISABLE_PROMPT 1
|
|
||||||
|
|
||||||
# Python configuration:
|
|
||||||
set -x PYTHONIOENCODING UTF-8
|
|
||||||
set -xg WORKON_HOME $HOME/envs
|
|
||||||
set -xg MYPYPATH $HOME/.mypy
|
|
||||||
|
|
||||||
# Aliases
|
|
||||||
if test (uname) != "Darwin"
|
|
||||||
alias ls='ls --color=auto'
|
|
||||||
alias ll='ls -lh'
|
|
||||||
alias la='ls -A'
|
|
||||||
alias l='ls -CF'
|
|
||||||
alias rm='rm -i --preserve-root'
|
|
||||||
else
|
|
||||||
alias rm='rm -i'
|
|
||||||
end
|
|
||||||
|
|
||||||
# Extend path:
|
|
||||||
set PPATHS /usr/local/bin /usr/local/sbin
|
|
||||||
|
|
||||||
for path in $PPATHS
|
|
||||||
if test -e $path
|
|
||||||
set -xg PATH $path $PATH
|
|
||||||
end
|
|
||||||
end
|
|
||||||
@ -1,28 +0,0 @@
|
|||||||
# This file contains fish universal variable definitions.
|
|
||||||
# VERSION: 3.0
|
|
||||||
SETUVAR fish_color_autosuggestion:555\x1ebrblack
|
|
||||||
SETUVAR fish_color_cancel:\x2dr
|
|
||||||
SETUVAR fish_color_command:005fd7
|
|
||||||
SETUVAR fish_color_comment:990000
|
|
||||||
SETUVAR fish_color_cwd:green
|
|
||||||
SETUVAR fish_color_cwd_root:red
|
|
||||||
SETUVAR fish_color_end:009900
|
|
||||||
SETUVAR fish_color_error:ff0000
|
|
||||||
SETUVAR fish_color_escape:00a6b2
|
|
||||||
SETUVAR fish_color_history_current:\x2d\x2dbold
|
|
||||||
SETUVAR fish_color_host:normal
|
|
||||||
SETUVAR fish_color_match:\x2d\x2dbackground\x3dbrblue
|
|
||||||
SETUVAR fish_color_normal:normal
|
|
||||||
SETUVAR fish_color_operator:00a6b2
|
|
||||||
SETUVAR fish_color_param:00afff
|
|
||||||
SETUVAR fish_color_quote:999900
|
|
||||||
SETUVAR fish_color_redirection:00afff
|
|
||||||
SETUVAR fish_color_search_match:bryellow\x1e\x2d\x2dbackground\x3dbrblack
|
|
||||||
SETUVAR fish_color_selection:white\x1e\x2d\x2dbold\x1e\x2d\x2dbackground\x3dbrblack
|
|
||||||
SETUVAR fish_color_user:brgreen
|
|
||||||
SETUVAR fish_color_valid_path:\x2d\x2dunderline
|
|
||||||
SETUVAR fish_greeting:Welcome\x20to\x20fish\x2c\x20the\x20friendly\x20interactive\x20shell
|
|
||||||
SETUVAR fish_key_bindings:fish_default_key_bindings
|
|
||||||
SETUVAR fish_pager_color_description:B3A06D\x1eyellow
|
|
||||||
SETUVAR fish_pager_color_prefix:white\x1e\x2d\x2dbold\x1e\x2d\x2dunderline
|
|
||||||
SETUVAR fish_pager_color_progress:brwhite\x1e\x2d\x2dbackground\x3dcyan
|
|
||||||
@ -1,3 +0,0 @@
|
|||||||
#!/bin/bash
|
|
||||||
|
|
||||||
emacs -nw -q --batch --load install-packages.el
|
|
||||||
@ -1,78 +0,0 @@
|
|||||||
;;; install-packages --- Install required packages
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
|
|
||||||
;; Install the required packages.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
(require 'package) ;; You might already have this line
|
|
||||||
|
|
||||||
(add-to-list 'package-archives
|
|
||||||
'("melpa" . "http://melpa.org/packages/"))
|
|
||||||
(add-to-list 'package-archives
|
|
||||||
'("melpa" . "http://melpa.milkbox.net/packages/"))
|
|
||||||
(when (< emacs-major-version 24)
|
|
||||||
;; For important compatibility libraries like cl-lib
|
|
||||||
(add-to-list 'package-archives '("gnu" . "http://elpa.gnu.org/packages/")))
|
|
||||||
(package-initialize) ;; You might already have this line
|
|
||||||
|
|
||||||
(package-refresh-contents)
|
|
||||||
|
|
||||||
(package-install '2048-game)
|
|
||||||
(package-install 'async)
|
|
||||||
(package-install 'auctex)
|
|
||||||
(package-install 'auto-complete)
|
|
||||||
(package-install 'company)
|
|
||||||
(package-install 'company-auctex)
|
|
||||||
(package-install 'company-c-headers)
|
|
||||||
(package-install 'company-dict)
|
|
||||||
(package-install 'company-jedi)
|
|
||||||
(package-install 'company-math)
|
|
||||||
(package-install 'company-web)
|
|
||||||
(package-install 'cython-mode)
|
|
||||||
(package-install 'dash)
|
|
||||||
(package-install 'dash-functional)
|
|
||||||
(package-install 'diffview)
|
|
||||||
(package-install 'ein)
|
|
||||||
(package-install 'elpy)
|
|
||||||
(package-install 'fish-mode)
|
|
||||||
(package-install 'flycheck)
|
|
||||||
(package-install 'flycheck-color-mode-line)
|
|
||||||
(package-install 'flycheck-mypy)
|
|
||||||
(package-install 'flycheck-pos-tip)
|
|
||||||
(package-install 'helm)
|
|
||||||
(package-install 'helm-bibtex)
|
|
||||||
(package-install 'helm-core)
|
|
||||||
(package-install 'helm-flycheck)
|
|
||||||
(package-install 'helm-flyspell)
|
|
||||||
(package-install 'helm-ls-git)
|
|
||||||
(package-install 'helm-projectile)
|
|
||||||
(package-install 'helm-spotify)
|
|
||||||
(package-install 'hydandata-light-theme)
|
|
||||||
(package-install 'java-imports)
|
|
||||||
(package-install 'java-snippets)
|
|
||||||
(package-install 'javadoc-lookup)
|
|
||||||
(package-install 'jedi)
|
|
||||||
(package-install 'jedi-core)
|
|
||||||
(package-install 'js-comint)
|
|
||||||
(package-install 'json-mode)
|
|
||||||
(package-install 'json-reformat)
|
|
||||||
(package-install 'magit)
|
|
||||||
(package-install 'magit-popup)
|
|
||||||
(package-install 'markdown-mode)
|
|
||||||
(package-install 'material-theme)
|
|
||||||
(package-install 'math-symbol-lists)
|
|
||||||
(package-install 'exec-path-from-shell)
|
|
||||||
(package-install 'php-mode)
|
|
||||||
(package-install 'powerline)
|
|
||||||
(package-install 'projectile)
|
|
||||||
(package-install 'python-mode)
|
|
||||||
(package-install 'solarized-theme)
|
|
||||||
(package-install 'sr-speedbar)
|
|
||||||
(package-install 'visual-fill-column)
|
|
||||||
(package-install 'web-mode)
|
|
||||||
(package-install 'yaml-mode)
|
|
||||||
(package-install 'yasnippet)
|
|
||||||
|
|
||||||
;;; install-packages.el ends here
|
|
||||||
Loading…
Reference in New Issue
Block a user