Gauche:EditorSettings

Gaucheのエディタ設定について。yamasushi

エディタごとの話題

• Gauche:EditorSettings:Vim
• Gauche:EditorSettings:Emacs
• Gauche:EditorSettings:SciTE
• Gauche:Rlwrap

エディタの設定を共有できないだろうか？

エディタの違いを超えて共有できる情報をS式で管理すれば幸せになれるような気がします。yamasushi(2013/04/21 05:08:46 UTC)

• 共通に使えそうな項目
  • 色分けの設定
    • 一般的な色分け
      
      • 文字色
      • 背景色
      • 選択領域
      • カーソル
      • 行番号
      • カッコの対応
    • 言語依存
      • 単語の文字種
      • 数値
      • 特殊なリテラル(Gaucheの正規表現)
      • 文字列
      • 文字
      • 特殊文字
      • 識別子
      • 演算子
      • 関数
      • コメント(コメントにもいろいろありますが)
    • その他
      
      • エラー
      • 警告
      • Diff
    • キーワード補完辞書
      • 参考
        • auto-completion source with scite API files
          http://bamanzi-misc.googlecode.com/svn/trunk/_emacs.d/lisp/auto-complete-scite-api.el
          
    • 簡易ヘルプ(関数の呼び出し情報をカーソルに表示するような機能)

• 外部ツール呼び出し
• 編集
  • タブの設定
  • インデントの設定

• Gauche:EditorSettings:Vim:設定ファイルを読むで読んだデータをSciTE用に使えないかと試行錯誤しています。

  ;(use srfi-13)
  ;(use gauche.generator)
  ;(use gauche.dictionary)
  (use util.match)
  (use util.trie)
  
  (use komono-dict)
  ;(use komono-glob)
  ;(use komono-combinator)
  (use pretty-print)
  
  ;(use vim.vim-color)
  (use vim.vim-color-scheme)
  
  ; TODO foreとbackが別の項目になっているものと、いっしょになっているもの
  ; reverseの処理
  ; fg,bgの処理
  
  ; scite color scheme
  (define *scite-color-scheme* (alist->trie
    '(("colour.number"    "Number")
      ("colour.keyword"   "Keyword")
      ("colour.string"    "String")
      ("colour.char"      "Character")
      ("colour.operator"  "Operator")
      ("colour.preproc"   "PreProc")
      ("colour.code.comment.box"   "Comment")
      ("colour.code.comment.doc"   "Comment")
      ("colour.code.comment.line"  "Comment")
  
      ;;空白文字
      ;("whitespace.fore"  "Conceal" )
  
      ;カーソルの色
      ;("caret.fore"       "Cursor")
      ;("caret.line.back"  "CursorLine")
  
      ;選択領域
      ;("selection.fore"            "Visual")
      ;("selection.back"            "Visual")
      ;("selection.additional.fore" "Visual")
      ;("selection.additional.back" "Visual")
  
      ;Style 32 is the default style and its features will be inherited by all
      ; other styles unless overridden.
      ("style.*.32" "Normal" "~a,$(font.base)")
  
      ;Style 33 is used to display line numbers in the margin.
      ("style.*.33"  "LineNr")
  
      ;Styles 34 and 35 are used to display matching and non-matching braces respectively.
      ("style.*.34"  "MatchParen")
      ("style.*.35"  "Error")
  
      ;Style 36 is used for displaying control characters.
      ;This is not a full style as the foreground and background colours
      ;for control characters are determined by their lexical state rather than this style.
      ("style.*.36"  "SpecialChar")
  
      ;Style 37 is used for displaying indentation guides. Only the fore and back are used.
      ;("style.*.37"  "CursorColumn")
  
      ;Style 38 is used for displaying calltips. Only the font, size, fore and back are used.
      ("style.*.38"  "Tooltip")
  
      ; # Lexical states for SCLEX_PROPERTIES
      ; lex Properties=SCLEX_PROPERTIES SCE_PROPS_
      ; val SCE_PROPS_DEFAULT=0
      ("style.props.0"  "Normal")
      ; val SCE_PROPS_COMMENT=1
      ("style.props.1"  "Comment")
      ; val SCE_PROPS_SECTION=2
      ("style.props.2"  "Identifier")
      ; val SCE_PROPS_ASSIGNMENT=3
      ("style.props.3"  "Operator")
      ; val SCE_PROPS_DEFVAL=4
      ("style.props.4"  "Function")
      ; val SCE_PROPS_KEY=5
      ("style.props.5"  "Keyword")
  
      ("error.marker.fore"  "ErrorMsg")
      ("error.marker.back"  "ErrorMsg")
      ("style.error.0"  "Normal")
      ("style.error.1"  "WarningMsg")
      ("style.error.2"  "ErrorMsg")
      ("style.error.3"  "ErrorMsg")
  
      ; # Lexical states for SCLEX_ERRORLIST
      ; lex ErrorList=SCLEX_ERRORLIST SCE_ERR_
      ; val SCE_ERR_DEFAULT=0
      ("style.errorlist.0"  "Normal")
      ; val SCE_ERR_PYTHON=1
      ("style.errorlist.1"  "ErrorMsg")
      ; val SCE_ERR_GCC=2
      ("style.errorlist.2"  "ErrorMsg")
      ; val SCE_ERR_MS=3
      ("style.errorlist.3"  "ErrorMsg")
      ; val SCE_ERR_CMD=4
      ;# command or return status
      ("style.errorlist.4"  "Normal")
      ; val SCE_ERR_BORLAND=5
      ("style.errorlist.5"  "ErrorMsg")
      ; val SCE_ERR_PERL=6
      ("style.errorlist.6"  "ErrorMsg")
      ; val SCE_ERR_NET=7
      ("style.errorlist.7"  "ErrorMsg")
      ; val SCE_ERR_LUA=8
      ("style.errorlist.8"  "ErrorMsg")
      ; val SCE_ERR_CTAG=9
      ("style.errorlist.9"  "Tag")
  
      ; val SCE_ERR_DIFF_CHANGED=10
      ("style.errorlist.10"  "DiffChange")
      ; val SCE_ERR_DIFF_ADDITION=11
      ("style.errorlist.11"  "DiffAdd")
      ; val SCE_ERR_DIFF_DELETION=12
      ("style.errorlist.12"  "DiffDelete")
      ; val SCE_ERR_DIFF_MESSAGE=13
      ("style.errorlist.13"  "DiffText")
  
      ; val SCE_ERR_PHP=14
      ("style.errorlist.14"  "ErrorMsg")
      ; val SCE_ERR_ELF=15
      ("style.errorlist.15"  "ErrorMsg")
      ; val SCE_ERR_IFC=16
      ("style.errorlist.16"  "ErrorMsg")
      ; val SCE_ERR_IFORT=17
      ("style.errorlist.17"  "ErrorMsg")
      ; val SCE_ERR_ABSF=18
      ("style.errorlist.18"  "ErrorMsg")
      ; val SCE_ERR_TIDY=19
      ("style.errorlist.19"  "ErrorMsg")
      ; val SCE_ERR_JAVA_STACK=20
      ("style.errorlist.20"  "ErrorMsg")
      ; val SCE_ERR_VALUE=21
      ;# Text matched with find in files and message part of GCC errors
      ("style.errorlist.21"  "ErrorMsg")
      ; val SCE_ERR_GCC_INCLUDED_FROM=22
      ;# GCC showing include path to following error
      ("style.errorlist.22"  "ErrorMsg")
  
      ; # Lexical states for SCLEX_LISP
      ; lex Lisp=SCLEX_LISP SCE_LISP_
      ; val SCE_LISP_DEFAULT=0
      ("style.lisp.0"  "Normal")
      ; val SCE_LISP_COMMENT=1
      ("style.lisp.1"  "Comment")
      ; val SCE_LISP_NUMBER=2
      ("style.lisp.2"  "Number")
      ; val SCE_LISP_KEYWORD=3
      ("style.lisp.3"  "Function")
      ; val SCE_LISP_KEYWORD_KW=4
      ("style.lisp.4"  "Keyword")
      ; val SCE_LISP_SYMBOL=5
      ("style.lisp.5"  "Special")
      ; val SCE_LISP_STRING=6
      ("style.lisp.6"  "String")
      ;("style.lisp.7" . #f)
      ; val SCE_LISP_STRINGEOL=8
      ("style.lisp.8"  "String")
      ; val SCE_LISP_IDENTIFIER=9
      ("style.lisp.9"  "Identifier")
      ; val SCE_LISP_OPERATOR=10
      ("style.lisp.10"  "Operator")
      ; val SCE_LISP_SPECIAL=11
      ("style.lisp.11"  "Special")
      ; val SCE_LISP_MULTI_COMMENT=12
      ("style.lisp.12"  "Comment")
  ) ) )
  
  ;($ pretty-print $ trie-common-prefix *scite-color-scheme* "style.lisp" )
  ;(exit)
  ($ for-each (^n
    ;#?=n
    ;#?=(vim-get-scheme n)
    (let [[color-scheme (vim-get-scheme n ) ]
          [ofile (rxmatch-case n
                  [#/^\*(\S+)\*$/ (_ x)
                    (format #f "~a.vim.properties" x) ]
                  [#/^.*\/([^\/.]+)\.vim$/ (_ x)
                    (format #f "~a.vim.properties" x) ])]]
      ;#?=ofile
      (call-with-output-file ofile
        (^p (dict-for-each *scite-color-scheme*
          (^(k v)
            (match v
              [(vim-col . fmt)
                (match-let1 (fg bg) (vim-get-color color-scheme vim-col )
                  (if (or (not fg) (not bg))
                    (format (standard-error-port) "!! n=~a k=~a v=~a fg=~a bg=~a\n" n k v fg bg)
                    (flush))
                  (let1 col (rxmatch-case k
                              [#/^caret\.fore$/ (_) (format #f "~a" bg)]
                              [#/^selection\.fore$/ (_) (format #f "~a" fg)]
                              [#/^selection\.back$/ (_) (format #f "~a" bg)]
                              [#/^selection\.additional\.fore$/ (_) (format #f "~a" fg)]
                              [#/^selection\.additional\.back$/ (_) (format #f "~a" bg)]
                              [#/^.*\.fore$/ (_) (format #f "~a" fg)]
                              [#/^.*\.back$/ (_) (format #f "~a" bg)]
                              [else (format #f "fore:~a,back:~a" fg bg)] )
                    (if (pair? fmt)
                      (format p (string-append "~a=" (car fmt) "\n") k col)
                      (format p "~a=~a\n" k col) ) ) ) ]
              [else (format (standard-error-port) "!! ~a ~a \n" k v) ] ) )
            )))))
  $ vim-scheme-names)
  (exit)
  
  

Tags: editor, emacs, vim, rlwrap, scite