Remove unused/redundant scripts
This commit is contained in:
Henrik Lissner
parent
af62ce0e1c
commit
d1aaf44255
4 changed files with 0 additions and 764 deletions
|
|
@ -1,467 +0,0 @@
|
|||
;;; applescript-mode.el --- major mode for editing AppleScript source
|
||||
|
||||
;; Copyright (C) 2004 MacEmacs JP Project
|
||||
|
||||
;;; Credits:
|
||||
;; Copyright (C) 2003,2004 FUJIMOTO Hisakuni
|
||||
;; http://www.fobj.com/~hisa/w/applescript.el.html
|
||||
;; Copyright (C) 2003 443,435 (Public Domain?)
|
||||
;; http://pc.2ch.net/test/read.cgi/mac/1034581863/
|
||||
;; Copyright (C) 2004 Harley Gorrell <harley@mahalito.net>
|
||||
;; http://www.mahalito.net/~harley/elisp/osx-osascript.el
|
||||
|
||||
;; Author: sakito <sakito@users.sourceforge.jp>
|
||||
;; Keywords: languages, tools
|
||||
|
||||
(defconst applescript-mode-version "$Revision$"
|
||||
"The current version of the AppleScript mode.")
|
||||
|
||||
(defconst applescript-mode-help-address "sakito@users.sourceforge.jp"
|
||||
"Address accepting submission of bug reports.")
|
||||
|
||||
;; This file 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 file 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.
|
||||
|
||||
;; acquired from http://github.com/ieure/applescript-mode/
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; AppleScript Mode
|
||||
|
||||
;;; Usage:
|
||||
;; To use applescript-mode.el put the following line in your .emacs:
|
||||
;; (autoload 'applescript-mode "applescript-mode"
|
||||
;; "Major mode for editing AppleScript source." t)
|
||||
;; (add-to-list 'auto-mode-alist '("\\.applescript$" . applescript-mode))
|
||||
|
||||
;; Please use the SourceForge MacEmacs JP Project to submit bugs or
|
||||
;; patches:
|
||||
;;
|
||||
;; http://sourceforge.jp/projects/macemacsjp
|
||||
|
||||
;; FOR MORE INFORMATION:
|
||||
|
||||
;; There is some information on applescript-mode.el at
|
||||
|
||||
;; http://macemacsjp.sourceforge.jp/documents/applescript-mode/
|
||||
|
||||
|
||||
;;; Code:
|
||||
|
||||
|
||||
|
||||
;; user customize variables
|
||||
(defgroup applescript nil
|
||||
"Support for AppleScript, <http://www.apple.com/applescript/>"
|
||||
:group 'languages
|
||||
:prefix "as-")
|
||||
|
||||
(defcustom as-osascript-command "osascript"
|
||||
"*execute AppleScripts and other OSA language scripts."
|
||||
:type 'string
|
||||
:group 'applescript)
|
||||
|
||||
(defcustom as-osacompile-command "osacompile"
|
||||
"*compile AppleScripts and other OSA language scripts."
|
||||
:type 'string
|
||||
:group 'applescript)
|
||||
|
||||
(defcustom as-osascript-command-args '("-ss")
|
||||
"*List of string arguments to be used when starting a osascript."
|
||||
:type '(repeat string)
|
||||
:group 'applescript)
|
||||
|
||||
(defcustom as-indent-offset 4
|
||||
"*Amount of offset per level of indentation.
|
||||
`\\[as-guess-indent-offset]' can usually guess a good value when
|
||||
you're editing someone else's AppleScript code."
|
||||
:type 'integer
|
||||
:group 'applescript)
|
||||
|
||||
(defcustom as-continuation-offset 4
|
||||
"*Additional amount of offset to give for some continuation lines.
|
||||
Continuation lines are those that immediately follow a
|
||||
Continuation sign terminated line. Only those continuation lines
|
||||
for a block opening statement are given this extra offset."
|
||||
:type 'integer
|
||||
:group 'applescript)
|
||||
|
||||
;; Face Setting
|
||||
|
||||
;; Face for true, false, me, it
|
||||
(defvar as-pseudo-keyword-face 'as-pseudo-keyword-face
|
||||
"Face for pseudo keywords in AppleScript mode, like me, true, false.")
|
||||
(make-face 'as-pseudo-keyword-face)
|
||||
|
||||
;; Face for command
|
||||
(defvar as-command-face 'as-command-face
|
||||
"Face for command like copy, get, set, and error.")
|
||||
(make-face 'as-command-face)
|
||||
|
||||
(defun as-font-lock-mode-hook ()
|
||||
(or (face-differs-from-default-p 'as-pseudo-keyword-face)
|
||||
(copy-face 'font-lock-keyword-face 'as-pseudo-keyword-face))
|
||||
(or (face-differs-from-default-p 'as-command-face)
|
||||
(copy-face 'font-lock-keyword-face 'as-command-face)))
|
||||
(add-hook 'font-lock-mode-hook 'as-font-lock-mode-hook)
|
||||
|
||||
(defvar applescript-font-lock-keywords
|
||||
(let (
|
||||
;; expressions and control Statements
|
||||
(kw1 (regexp-opt
|
||||
'("and" "app" "application" "considering" "div"
|
||||
"else" "end" "exit" "is" "mod" "not" "on" "or"
|
||||
"if" "ignoring" "reopen" "repeat"
|
||||
"tell" "then" "to"
|
||||
"using[ \t]terms[ \t]from"
|
||||
"with[ \t]timeout" "with[ \t]transaction")))
|
||||
;; commands
|
||||
(kw2 (regexp-opt
|
||||
'("ASCII[ \t]character" "ASCII[ \t]number" "activate" "AGStart"
|
||||
"beep" "copy" "count" "choose[ \t]application"
|
||||
"choose[ \t]file" "choose[ \t]folder" "close[ \t]access"
|
||||
"current[ \t]date" "display[ \t]dialog" "get" "get[ \t]EOF"
|
||||
"info[ \t]for" "launch" "list[ \t]disks" "list[ \t]folder"
|
||||
"load[ \t]script" "log" "monitor[ \t]depth" "max[ \t]monitor[ \t]depth"
|
||||
"min[ \t]monitor[ \t]depth" "new[ \t]file" "offset"
|
||||
"open[ \t]for[ \t]access" "path[ \t]to" "random[ \t]number"
|
||||
"read" "round" "run" "run[ \t]script" "scripting[ \t]component"
|
||||
"set" "set[ \t]EOF" "set[ \t]monitor[ \t]depth" "set[ \t]volume"
|
||||
"start[ \t]log" "stop[ \t]log" "store[ \t]script"
|
||||
"time[ \t]to[ \t]GMT" "write")))
|
||||
;; misc
|
||||
(kw3 (regexp-opt
|
||||
'("buttons" "default[ \t]answer" "default[ \t]button"
|
||||
"to[ \t]begining[ \t]of" "to[ \t]word" "starting[ \t]at"
|
||||
"with[ \t]icon" "write[ \t]permission"))))
|
||||
(list
|
||||
;; keywords
|
||||
(cons (concat "\\b\\(" kw1 "\\)\\b[ \n\t(]") 1)
|
||||
(cons (concat "\\b\\(" kw2 "\\)\\b[ \n\t(]") 1)
|
||||
;; kw3 not yet..
|
||||
(cons (concat "\\b\\(" kw3 "\\)\\b[ \n\t(]") 1)
|
||||
;; functions
|
||||
'("\\bon[ \t]+\\([a-zA-Z_]+[a-zA-Z0-9_]*\\)"
|
||||
1 font-lock-function-name-face)
|
||||
'("\\bto[ \t]+\\([a-zA-Z_]+[a-zA-Z0-9_]*\\)"
|
||||
1 font-lock-function-name-face)
|
||||
;; pseudo-keywords
|
||||
'("\\b\\(it\\|me\\|my\\|true\\|false\\)\\b"
|
||||
1 as-pseudo-keyword-face))))
|
||||
(put 'applescript-mode 'font-lock-defaults '(applescript-font-lock-keywords))
|
||||
|
||||
;; Major mode boilerplate
|
||||
|
||||
;; define a mode-specific abbrev table for those who use such things
|
||||
(defvar applescript-mode-abbrev-table nil
|
||||
"Abbrev table in use in `applescript-mode' buffers.")
|
||||
(define-abbrev-table 'applescript-mode-abbrev-table nil)
|
||||
|
||||
(defvar applescript-mode-hook nil
|
||||
"*Hook called by `applescript-mode'.")
|
||||
|
||||
(defvar as-mode-map ()
|
||||
"Keymap used in `applescript-mode' buffers.")
|
||||
(if as-mode-map
|
||||
nil
|
||||
(setq as-mode-map (make-sparse-keymap))
|
||||
;; Key bindings
|
||||
|
||||
;; subprocess commands
|
||||
(define-key as-mode-map "\C-c\C-c" 'as-execute-buffer)
|
||||
(define-key as-mode-map "\C-c\C-s" 'as-execute-string)
|
||||
(define-key as-mode-map "\C-c|" 'as-execute-region)
|
||||
|
||||
;; Miscellaneous
|
||||
(define-key as-mode-map "\C-c;" 'comment-region)
|
||||
(define-key as-mode-map "\C-c:" 'uncomment-region))
|
||||
|
||||
(defvar as-mode-syntax-table nil
|
||||
"Syntax table used in `applescript-mode' buffers.")
|
||||
(when (not as-mode-syntax-table)
|
||||
(setq as-mode-syntax-table (make-syntax-table))
|
||||
|
||||
(modify-syntax-entry ?\" "\"" as-mode-syntax-table)
|
||||
|
||||
(modify-syntax-entry ?: "." as-mode-syntax-table)
|
||||
(modify-syntax-entry ?\; "." as-mode-syntax-table)
|
||||
(modify-syntax-entry ?& "." as-mode-syntax-table)
|
||||
(modify-syntax-entry ?\| "." as-mode-syntax-table)
|
||||
(modify-syntax-entry ?+ "." as-mode-syntax-table)
|
||||
(modify-syntax-entry ?/ "." as-mode-syntax-table)
|
||||
(modify-syntax-entry ?= "." as-mode-syntax-table)
|
||||
(modify-syntax-entry ?< "." as-mode-syntax-table)
|
||||
(modify-syntax-entry ?> "." as-mode-syntax-table)
|
||||
(modify-syntax-entry ?$ "." as-mode-syntax-table)
|
||||
(modify-syntax-entry ?\[ "." as-mode-syntax-table)
|
||||
(modify-syntax-entry ?\] "." as-mode-syntax-table)
|
||||
(modify-syntax-entry ?\{ "." as-mode-syntax-table)
|
||||
(modify-syntax-entry ?\} "." as-mode-syntax-table)
|
||||
(modify-syntax-entry ?. "." as-mode-syntax-table)
|
||||
(modify-syntax-entry ?\\ "." as-mode-syntax-table)
|
||||
(modify-syntax-entry ?\' "." as-mode-syntax-table)
|
||||
|
||||
;; a double hyphen starts a comment
|
||||
(modify-syntax-entry ?- ". 12" as-mode-syntax-table)
|
||||
|
||||
;; comment delimiters
|
||||
(modify-syntax-entry ?\f "> " as-mode-syntax-table)
|
||||
(modify-syntax-entry ?\n "> " as-mode-syntax-table)
|
||||
|
||||
;; define parentheses to match
|
||||
(modify-syntax-entry ?\( "()1" as-mode-syntax-table)
|
||||
(modify-syntax-entry ?\) ")(4" as-mode-syntax-table)
|
||||
(modify-syntax-entry ?* ". 23b" as-mode-syntax-table))
|
||||
|
||||
;; Utilities
|
||||
(defmacro as-safe (&rest body)
|
||||
"Safely execute BODY, return nil if an error occurred."
|
||||
(` (condition-case nil
|
||||
(progn (,@ body))
|
||||
(error nil))))
|
||||
|
||||
(defsubst as-keep-region-active ()
|
||||
"Keep the region active in XEmacs."
|
||||
;; Ignore byte-compiler warnings you might see. Also note that
|
||||
;; FSF's Emacs 19 does it differently; its policy doesn't require us
|
||||
;; to take explicit action.
|
||||
(when (featurep 'xemacs)
|
||||
(and (boundp 'zmacs-region-stays)
|
||||
(setq zmacs-region-stays t))))
|
||||
|
||||
(defsubst as-point (position)
|
||||
"Returns the value of point at certain commonly referenced POSITIONs.
|
||||
POSITION can be one of the following symbols:
|
||||
|
||||
bol -- beginning of line
|
||||
eol -- end of line
|
||||
bod -- beginning of on or to
|
||||
eod -- end of on or to
|
||||
bob -- beginning of buffer
|
||||
eob -- end of buffer
|
||||
boi -- back to indentation
|
||||
bos -- beginning of statement
|
||||
|
||||
This function does not modify point or mark."
|
||||
(let ((here (point)))
|
||||
(cond
|
||||
((eq position 'bol) (beginning-of-line))
|
||||
((eq position 'eol) (end-of-line))
|
||||
((eq position 'bod) (as-beginning-of-handler 'either))
|
||||
((eq position 'eod) (as-end-of-handler 'either))
|
||||
;; Kind of funny, I know, but useful for as-up-exception.
|
||||
((eq position 'bob) (beginning-of-buffer))
|
||||
((eq position 'eob) (end-of-buffer))
|
||||
((eq position 'boi) (back-to-indentation))
|
||||
((eq position 'bos) (as-goto-initial-line))
|
||||
(t (error "Unknown buffer position requested: %s" position)))
|
||||
(prog1 (point) (goto-char here))))
|
||||
|
||||
;; Menu definitions, only relevent if you have the easymenu.el package
|
||||
;; (standard in the latest Emacs 19 and XEmacs 19 distributions).
|
||||
(defvar as-menu nil
|
||||
"Menu for AppleScript Mode.
|
||||
This menu will get created automatically if you have the
|
||||
`easymenu' package. Note that the latest X/Emacs releases
|
||||
contain this package.")
|
||||
|
||||
(and (as-safe (require 'easymenu) t)
|
||||
(easy-menu-define
|
||||
as-menu as-mode-map "AppleScript Mode menu"
|
||||
'("AppleScript"
|
||||
["Comment Out Region" comment-region (mark)]
|
||||
["Uncomment Region" uncomment-region (mark)]
|
||||
"-"
|
||||
["Execute buffer" as-execute-buffer t]
|
||||
["Execute region" as-execute-region (mark)]
|
||||
["Execute string" as-execute-string t]
|
||||
"-"
|
||||
["Mode Version" as-mode-version t]
|
||||
["AppleScript Version" as-language-version t])))
|
||||
|
||||
;;;###autoload
|
||||
(defun applescript-mode ()
|
||||
"Major mode for editing AppleScript files."
|
||||
(interactive)
|
||||
;; set up local variables
|
||||
(kill-all-local-variables)
|
||||
(make-local-variable 'font-lock-defaults)
|
||||
(make-local-variable 'paragraph-separate)
|
||||
(make-local-variable 'paragraph-start)
|
||||
(make-local-variable 'require-final-newline)
|
||||
(make-local-variable 'comment-start)
|
||||
(make-local-variable 'comment-end)
|
||||
(make-local-variable 'comment-start-skip)
|
||||
(make-local-variable 'comment-column)
|
||||
(make-local-variable 'comment-indent-function)
|
||||
(make-local-variable 'indent-region-function)
|
||||
(make-local-variable 'indent-line-function)
|
||||
(make-local-variable 'add-log-current-defun-function)
|
||||
(make-local-variable 'fill-paragraph-function)
|
||||
;;
|
||||
|
||||
;; Maps and tables
|
||||
(use-local-map as-mode-map)
|
||||
|
||||
(set-syntax-table as-mode-syntax-table)
|
||||
|
||||
;; Names
|
||||
(setq major-mode 'applescript-mode
|
||||
mode-name "AppleScript"
|
||||
local-abbrev-table applescript-mode-abbrev-table
|
||||
font-lock-defaults '(applescript-font-lock-keywords)
|
||||
paragraph-separate "[ \t\n\f]*$"
|
||||
paragraph-start "[ \t\n\f]*$"
|
||||
require-final-newline t
|
||||
comment-start "-- "
|
||||
comment-end ""
|
||||
comment-start-skip "---*[ \t]*"
|
||||
comment-column 40)
|
||||
|
||||
;; Support for outline-minor-mode
|
||||
(set (make-local-variable 'outline-regexp)
|
||||
"\\([ \t]*\\(on\\|to\\|if\\|repeat\\|tell\\|end\\)\\|--\\)")
|
||||
(set (make-local-variable 'outline-level) 'as-outline-level)
|
||||
|
||||
;; add the menu
|
||||
(if as-menu
|
||||
(easy-menu-add as-menu))
|
||||
|
||||
;; Run the mode hook. Note that applescript-mode-hook is deprecated.
|
||||
(if applescript-mode-hook
|
||||
(run-hooks 'applescript-mode-hook)
|
||||
(run-hooks 'applescript-mode-hook)))
|
||||
|
||||
(when (not (or (rassq 'applescript-mode auto-mode-alist)
|
||||
(push '("\\.applescript$" . applescript-mode) auto-mode-alist))))
|
||||
|
||||
;;; Subprocess commands
|
||||
|
||||
;; function use variables
|
||||
(defconst as-output-buffer "*AppleScript Output*"
|
||||
"Name for the buffer to display AppleScript output.")
|
||||
(make-variable-buffer-local 'as-output-buffer)
|
||||
|
||||
;; Code execution commands
|
||||
(defun as-execute-buffer (&optional async)
|
||||
"Execute the whole buffer as an Applescript"
|
||||
(interactive "P")
|
||||
(as-execute-region (point-min) (point-max) async))
|
||||
|
||||
(defun as-execute-string (string &optional async)
|
||||
"Send the argument STRING to an AppleScript."
|
||||
(interactive "sExecute AppleScript: ")
|
||||
(save-excursion
|
||||
(set-buffer (get-buffer-create
|
||||
(generate-new-buffer-name as-output-buffer)))
|
||||
(insert string)
|
||||
(as-execute-region (point-min) (point-max) async)))
|
||||
|
||||
(defun as-execute-region (start end &optional async)
|
||||
"Execute the region as an Applescript"
|
||||
(interactive "r\nP")
|
||||
(let ((region (buffer-substring start end))
|
||||
(as-current-win (selected-window)))
|
||||
(pop-to-buffer as-output-buffer)
|
||||
(insert (as-execute-code region))
|
||||
(select-window as-current-win)))
|
||||
|
||||
(defun as-execute-code (code)
|
||||
"pop to the AppleScript buffer, run the code and display the results."
|
||||
(as-decode-string
|
||||
(do-applescript (as-string-to-sjis-string-with-escape code))))
|
||||
|
||||
(defun as-mode-version ()
|
||||
"Echo the current version of `applescript-mode' in the minibuffer."
|
||||
(interactive)
|
||||
(message "Using `applescript-mode' version %s" applescript-mode-version)
|
||||
(as-keep-region-active))
|
||||
|
||||
(defun as-language-version()
|
||||
"Echo the current version of AppleScript Version in the minibuffer."
|
||||
(interactive)
|
||||
(message "Using AppleScript version %s"
|
||||
(as-execute-code "AppleScript's version"))
|
||||
(as-keep-region-active))
|
||||
|
||||
;; as-beginning-of-handler, as-end-of-handler,as-goto-initial-line not yet
|
||||
|
||||
;; Support for outline.el
|
||||
(defun as-outline-level ()
|
||||
"This is so that `current-column` DTRT in otherwise-hidden text"
|
||||
(let (buffer-invisibility-spec)
|
||||
(save-excursion
|
||||
(back-to-indentation)
|
||||
(current-column))))
|
||||
|
||||
;; for Japanese
|
||||
(defun as-unescape-string (str)
|
||||
"delete escape char '\'"
|
||||
(replace-regexp-in-string "\\\\\\(.\\)" "\\1" str))
|
||||
|
||||
(defun as-escape-string (str)
|
||||
"add escape char '\'"
|
||||
(replace-regexp-in-string "\\\\" "\\\\\\\\" str))
|
||||
|
||||
(defun as-sjis-byte-list-escape (lst)
|
||||
(cond
|
||||
((null lst) nil)
|
||||
((= (car lst) 92)
|
||||
(append (list 92 (car lst)) (as-sjis-byte-list-escape (cdr lst))))
|
||||
(t (cons (car lst) (as-sjis-byte-list-escape (cdr lst))))))
|
||||
|
||||
(defun as-string-to-sjis-string-with-escape (str)
|
||||
"String convert to SJIS, and escape \"\\\" "
|
||||
(apply 'string
|
||||
(as-sjis-byte-list-escape
|
||||
(string-to-list
|
||||
(as-encode-string str)))))
|
||||
|
||||
(defun as-decode-string (str)
|
||||
"do-applescript return values decode sjis-mac"
|
||||
(decode-coding-string str 'sjis-mac))
|
||||
|
||||
(defun as-encode-string (str)
|
||||
"do-applescript return values encode sjis-mac"
|
||||
(encode-coding-string str 'sjis-mac))
|
||||
|
||||
(defun as-parse-result (retstr)
|
||||
"String convert to Emacs Lisp Object"
|
||||
(cond
|
||||
;; as list
|
||||
((string-match "\\`\\s-*{\\(.*\\)}\\s-*\\'" retstr)
|
||||
(let ((mstr (match-string 1 retstr)))
|
||||
(mapcar (lambda (item) (as-parse-result item))
|
||||
(split-string mstr ","))))
|
||||
|
||||
;; AERecord item as cons
|
||||
((string-match "\\`\\s-*\\([^:\\\"]+\\):\\(.*\\)\\s-*\\'" retstr)
|
||||
(cons (intern (match-string 1 retstr))
|
||||
(as-parse-result (match-string 2 retstr))))
|
||||
|
||||
;; as string
|
||||
((string-match "\\`\\s-*\\\"\\(.*\\)\\\"\\s-*\\'" retstr)
|
||||
(as-decode-string
|
||||
(as-unescape-string (match-string 1 retstr))))
|
||||
|
||||
;; as integer
|
||||
((string-match "\\`\\s-*\\([0-9]+\\)\\s-*\\'" retstr)
|
||||
(string-to-int (match-string 1 retstr)))
|
||||
|
||||
;; else
|
||||
(t (intern retstr))))
|
||||
|
||||
(provide 'applescript-mode)
|
||||
;;; applescript-mode.el ends here
|
||||
|
|
@ -1,126 +0,0 @@
|
|||
;;; evil-little-word.el --- Emulate camelcasemotion.vim
|
||||
|
||||
;; Author: INA Lintaro <tarao.gnn at gmail.com>
|
||||
;; URL: http://github.com/tarao/evil-plugins
|
||||
;; Version: 0.1
|
||||
;; Keywords: evil, plugin
|
||||
|
||||
;; 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 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/>.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'evil)
|
||||
|
||||
(defun maybe-define-category (cat doc &optional table)
|
||||
(unless (category-docstring cat table) (define-category cat doc table)))
|
||||
|
||||
(let (uc lc defs (table (standard-category-table)))
|
||||
(map-char-table
|
||||
#'(lambda (key value)
|
||||
(when (natnump value)
|
||||
(let (from to)
|
||||
(if (consp key)
|
||||
(setq from (car key) to (cdr key))
|
||||
(setq from (setq to key)))
|
||||
(while (<= from to)
|
||||
(cond ((/= from (downcase from))
|
||||
(add-to-list 'uc from))
|
||||
((/= from (upcase from))
|
||||
(add-to-list 'lc from)))
|
||||
(setq from (1+ from))))))
|
||||
(standard-case-table))
|
||||
(setq defs `(("Uppercase" ?U ,uc)
|
||||
("Lowercase" ?u ,lc)
|
||||
("Underscore" ?_ (?_))))
|
||||
(dolist (elt defs)
|
||||
(maybe-define-category (cadr elt) (car elt) table)
|
||||
(dolist (ch (car (cddr elt)))
|
||||
(modify-category-entry ch (cadr elt) table))))
|
||||
|
||||
(defgroup evil-little-word nil
|
||||
"CamelCase and snake_case word movement support."
|
||||
:prefix "evil-little-word-"
|
||||
:group 'evil)
|
||||
|
||||
(defcustom evil-little-word-separating-categories
|
||||
(append evil-cjk-word-separating-categories '((?u . ?U) (?_ . ?u) (?_ . ?U)))
|
||||
"List of pair (cons) of categories to determine word boundary
|
||||
for little word movement. See the documentation of
|
||||
`word-separating-categories'. Use `describe-categories' to see
|
||||
the list of categories."
|
||||
:type '((character . character))
|
||||
:group 'evil-little-word)
|
||||
|
||||
(defcustom evil-little-word-combining-categories
|
||||
(append evil-cjk-word-combining-categories '())
|
||||
"List of pair (cons) of categories to determine word boundary
|
||||
for little word movement. See the documentation of
|
||||
`word-combining-categories'. Use `describe-categories' to see the
|
||||
list of categories."
|
||||
:type '((character . character))
|
||||
:group 'evil-little-word)
|
||||
|
||||
(defmacro evil-with-little-word (&rest body)
|
||||
(declare (indent defun) (debug t))
|
||||
`(let ((evil-cjk-word-separating-categories
|
||||
evil-little-word-separating-categories)
|
||||
(evil-cjk-word-combining-categories
|
||||
evil-little-word-combining-categories))
|
||||
,@body))
|
||||
|
||||
(defun forward-evil-little-word (&optional count)
|
||||
"Forward by little words."
|
||||
(evil-with-little-word (forward-evil-word count)))
|
||||
|
||||
(evil-define-motion evil-forward-little-word-begin (count)
|
||||
"Move the cursor to the beginning of the COUNT-th next little word."
|
||||
:type exclusive
|
||||
(evil-with-little-word (evil-forward-word-begin count)))
|
||||
|
||||
(evil-define-motion evil-forward-little-word-end (count)
|
||||
"Move the cursor to the end of the COUNT-th next little word."
|
||||
:type inclusive
|
||||
(evil-with-little-word (evil-forward-word-end count)))
|
||||
|
||||
(evil-define-motion evil-backward-little-word-begin (count)
|
||||
"Move the cursor to the beginning of the COUNT-th previous little word."
|
||||
:type exclusive
|
||||
(evil-with-little-word (evil-backward-word-begin count)))
|
||||
|
||||
(evil-define-motion evil-backward-little-word-end (count)
|
||||
"Move the cursor to the end of the COUNT-th previous little word."
|
||||
:type inclusive
|
||||
(evil-with-little-word (evil-backward-word-end count)))
|
||||
|
||||
(evil-define-text-object evil-a-little-word (count &optional beg end type)
|
||||
"Select a little word."
|
||||
(evil-select-an-object 'evil-little-word beg end type count))
|
||||
|
||||
(evil-define-text-object evil-inner-little-word (count &optional beg end type)
|
||||
"Select inner little word."
|
||||
(evil-select-inner-object 'evil-little-word beg end type count))
|
||||
|
||||
(define-key evil-motion-state-map (kbd "glw") 'evil-forward-little-word-begin)
|
||||
(define-key evil-motion-state-map (kbd "glb") 'evil-backward-little-word-begin)
|
||||
(define-key evil-motion-state-map (kbd "glW") 'evil-forward-little-word-end)
|
||||
(define-key evil-motion-state-map (kbd "glB") 'evil-backward-little-word-end)
|
||||
(define-key evil-outer-text-objects-map (kbd "lw") 'evil-a-little-word)
|
||||
(define-key evil-inner-text-objects-map (kbd "lw") 'evil-inner-little-word)
|
||||
|
||||
(provide 'evil-little-word)
|
||||
;;; evil-little-word.el ends here
|
||||
|
|
@ -1,12 +0,0 @@
|
|||
(defconst *big-font (font-spec :family "Inconsolata" :size 18 :antialias t))
|
||||
|
||||
(defvar big-mode nil)
|
||||
(defun toggle-big-mode ()
|
||||
(interactive)
|
||||
(if big-mode
|
||||
(set-frame-font *default-font)
|
||||
(set-frame-font *big-font))
|
||||
(setq big-mode (not big-mode)))
|
||||
|
||||
(provide 'init-present)
|
||||
;;; init-present.el ends here
|
||||
|
|
@ -1,159 +0,0 @@
|
|||
;; 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 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/>.
|
||||
|
||||
;; *****************************************************************************************
|
||||
;;
|
||||
;; v0 :- A dark Emacs theme inspired by Space Grey ST2 theme
|
||||
;;
|
||||
;; *****************************************************************************************
|
||||
|
||||
;;
|
||||
;; By Henrik Lissner <http://github.com/hlissner/emacs.d>
|
||||
;;
|
||||
|
||||
(deftheme v0 "V-NOUGHT dark theme for Emacs 24+")
|
||||
|
||||
(custom-theme-set-variables 'v0)
|
||||
|
||||
(let (;; (background "#222222")
|
||||
(background "#2b303b")
|
||||
;; (gutters "#262E34")
|
||||
(gutters "#1f252a")
|
||||
(gutter-fg "#55616A")
|
||||
;; (gutters-active "#2e363c")
|
||||
(gutters-active "#1c1f26")
|
||||
(linum "#1e262c")
|
||||
;; (gutter-light "#434f58")
|
||||
(gutter-light "#232830")
|
||||
(builtin "#d08770")
|
||||
(foreground "#c0c5ce")
|
||||
(invisibles "#65737e")
|
||||
;; (line-hl "#353539")
|
||||
(line-hl "#343d46")
|
||||
(selection "#4f5b66")
|
||||
(text "#c0c5ce")
|
||||
(comments "#65737e")
|
||||
(punctuation "#8fa1b3")
|
||||
(delimiters "#c0c5ce")
|
||||
(operators "#c0c5ce")
|
||||
(keywords "#b48ead")
|
||||
(variables "#CBECFF")
|
||||
(functions "#8fa1b3")
|
||||
(methods "#8fa1b3")
|
||||
(strings "#a3be8c")
|
||||
(constants "#d08770")
|
||||
(white "#ffffff")
|
||||
(highlight "orange")
|
||||
(dim-highlight "#556779")
|
||||
|
||||
(git-modified "#55616A")
|
||||
(git-added "#436b3b")
|
||||
(git-deleted "#714243"))
|
||||
|
||||
(custom-theme-set-faces
|
||||
'v0
|
||||
|
||||
;; Default colors
|
||||
;; *****************************************************************************************
|
||||
|
||||
`(default ((t (:foreground ,text :background ,background) )))
|
||||
`(hl-line ((t (:background ,line-hl) )))
|
||||
`(region ((t (:background ,selection) )))
|
||||
`(cursor ((t (:background ,white) )))
|
||||
`(fringe ((t (:background ,background :foreground ,white) )))
|
||||
`(linum ((t (:background ,background :foreground ,gutter-fg :weight normal) )))
|
||||
|
||||
`(vertical-border ((t (:foreground "#000000") )))
|
||||
|
||||
`(mode-line ((t (:foreground ,white
|
||||
:background ,gutter-light
|
||||
:box (:line-width 3 :color ,gutter-light)
|
||||
))))
|
||||
|
||||
`(mode-line-inactive ((t (:foreground ,gutter-fg
|
||||
:background ,gutters-active
|
||||
:box (:line-width 3 :color ,gutters-active)
|
||||
))))
|
||||
|
||||
`(mode-line-modified-face ((t (:foreground ,builtin))))
|
||||
|
||||
`(sml/folder ((t nil)))
|
||||
`(sml/modified ((t (:foreground ,highlight))))
|
||||
|
||||
`(flyspell-incorrect ((t (:underline "#ff5555" :inherit unspecified))))
|
||||
|
||||
`(helm-source-header ((t (:background ,gutters-active :foreground ,strings :weight bold :height 1.0))))
|
||||
`(helm-selection ((t (:background ,selection))))
|
||||
|
||||
;; Font lock faces
|
||||
;; *****************************************************************************************
|
||||
|
||||
`(linum-highlight-face ((t (:foreground ,text :background ,line-hl :inherit linum))))
|
||||
|
||||
`(font-lock-keyword-face ((t (:foreground ,keywords))))
|
||||
`(font-lock-type-face ((t (:foreground ,punctuation))))
|
||||
`(font-lock-constant-face ((t (:foreground ,constants))))
|
||||
`(font-lock-variable-name-face ((t (:foreground ,variables))))
|
||||
`(font-lock-builtin-face ((t (:foreground ,builtin))))
|
||||
`(font-lock-string-face ((t (:foreground ,strings))))
|
||||
`(font-lock-comment-face ((t (:foreground ,comments))))
|
||||
`(font-lock-comment-delimiter-face ((t (:foreground ,comments))))
|
||||
`(font-lock-function-name-face ((t (:foreground ,functions))))
|
||||
`(font-lock-doc-string-face ((t (:foreground ,comments))))
|
||||
`(font-lock-doc-face ((t (:foreground ,comments))))
|
||||
|
||||
`(trailing-whitespace ((t (:background "#884444"))))
|
||||
`(whitespace-tab ((t (:foreground "#444444"))))
|
||||
`(whitespace-newline ((t (:foreground "#444444"))))
|
||||
`(whitespace-trailing ((t (:background "#553333"))))
|
||||
|
||||
`(git-gutter+-modified ((t (:foreground ,git-modified :background nil))))
|
||||
`(git-gutter+-added ((t (:foreground ,git-added :background nil))))
|
||||
`(git-gutter+-deleted ((t (:foreground ,git-deleted :background nil))))
|
||||
|
||||
`(diff-hl-change ((t (:background ,git-modified))))
|
||||
`(diff-hl-delete ((t (:background ,git-deleted))))
|
||||
`(diff-hl-insert ((t (:background ,git-added))))
|
||||
|
||||
`(rainbow-delimiters-unmatched-face ((t (:inherit 'error))))
|
||||
`(rainbow-delimiters-depth-1-face ((t (:foreground "#CCCCCC" :weight bold :bold t))))
|
||||
|
||||
;; js2-mode
|
||||
;; *****************************************************************************************
|
||||
|
||||
`(js2-function-param ((t (:foreground ,variables))))
|
||||
`(js2-jsdoc-tag ((t (:foreground ,comments :weight bold :bold t))))
|
||||
|
||||
|
||||
;; *****************************************************************************************
|
||||
|
||||
`(persp-selected-face ((t (:foreground ,builtin))))
|
||||
|
||||
`(org-level-1 ((t (:inherit outline-1 :bold t :foreground ,git-added))))
|
||||
`(org-level-2 ((t (:inherit outline-2 :bold t :foreground ,variables))))
|
||||
|
||||
`(evil-snipe-first-match-face ((t (:background ,highlight :foreground "black" :underline nil))))
|
||||
`(evil-snipe-matches-face ((t (:foreground ,highlight :background "gray20" :underline t))))
|
||||
`(isearch ((t (:foreground "black" :background ,highlight :inverse-video nil))))
|
||||
`(isearch-lazy-highlight-face ((t (:foreground ,text :background ,dim-highlight))))
|
||||
|
||||
))
|
||||
|
||||
|
||||
;; *****************************************************************************************
|
||||
|
||||
(provide-theme 'v0)
|
||||
|
||||
;; Local Variables:
|
||||
;; no-byte-compile: t
|
||||
;; End:
|
||||
Loading…
Add table
Add a link
Reference in a new issue