emacs.d/lisp/init-solidity.el

;;; package --- Solidity mode
;;; Commentary:
;;; Code:

(require-package 'solidity-mode)
(require-package 'solidity-flycheck)
(require-package 'company-solidity)

;; https://emacs.stackexchange.com/a/17565/12560
(defun solidity-custom-settings ()
  (setq indent-tabs-mode nil)
  (setq tab-width 4)
  (setq c-basic-offset 4))

(add-hook 'solidity-mode-hook 'solidity-custom-settings)

(setq c-basic-offset 4)

;; https://github.com/ethereum/emacs-solidity
;(define-key map (kbd "C-c C-g") 'solidity-estimate-gas-at-point)

(setq solidity-solc-path "/usr/local/bin/solc-static-linux-0.4.24")
(setq solidity-solium-path "~/.nvm/versions/node/v9.4.0/bin/solium")

(setq solidity-flycheck-solc-checker-active t)
(setq solidity-flycheck-solium-checker-active t)

(setq flycheck-solidity-solc-addstd-contracts t)
(setq flycheck-solidity-solium-soliumrcfile "~/workspace/aragonOS/.soliumrc.json")

(add-hook 'solidity-mode-hook
          (lambda ()
            (set (make-local-variable 'company-backends)
                 (append '((company-solidity company-capf company-dabbrev-code))
                         company-backends))))


;; https://gitlab.haskell.org/ghc/ghc/wikis/emacs
(require 'whitespace)
(defun solidity-custom-line-length ()
  (setq whitespace-style '(face lines-tail))
  (setq whitespace-line-column 145)
  (global-whitespace-mode t))

(add-hook 'solidity-mode-hook 'solidity-custom-line-length)


;; See this issue about indentation and general solidity style:
;; https://github.com/ethereum/emacs-solidity/issues/32
;; Create ethereum c/c++ style
(defconst ethereum-c-style
  '((c-tab-always-indent        . t)
    ;; always syntactically analyze and indent macros
    (c-syntactic-indentation-in-macros . t)
    ;; auto align backslashes for continuation
    (c-auto-align-backslashes . t)
    (c-comment-only-line-offset . 4)
    (c-hanging-braces-alist     . ((substatement-open after)
                                   (brace-list-open)))
    (c-hanging-colons-alist     . ((member-init-intro before)
                                   (inher-intro)
                                   (case-label after)
                                   (label after)
                                   (access-label after)))
    (c-cleanup-list             . (scope-operator
                                   empty-defun-braces
                                   defun-close-semi))
    (c-offsets-alist            . (
                                   ;; lineup the current argument line under the
                                   ;; first argument
                                   ;; (arglist-close . c-lineup-arglist)
                                   (arglist-close . 0) ;; <-- or not
                                   (arglist-cont-nonempty . 4)
                                   (substatement-open . 0)
                                   (case-label        . 0)
                                   (label             . 0)
                                   (block-open        . 4)
                                   ;; Don't indent first brace of a class's function
                                   (inline-open       . 0)
                                   ;; all opens should be indented
                                   (brace-list-open   . 4)
                                   ;; indent after case
                                   (statement-case-intro   . 4)
                                   ;; indent after entering a block
                                   (statement-block-intro   . 4)
                                   ;; indent after entering a function definition
                                   (defun-block-intro   . 4)
                                   ;; indent when entering class/struct
                                   (inclass   . 4)
                                   ;; don't indent the first line in a topmost construct
                                   (topmost-intro . 0)
                                   ;; first line after if/while/for/do/else
                                   (substatement . 4)
                                   ;; don't indent when in extern scope
                                   (inextern-lang . 0)
                                   ;; when ; does not end a stmt do indent
                                   (statement-cont . 4)
                                   ;; c++ constructor member initi no indent
                                   (member-init-intro . 4)
                                   (member-init-cont . 4)
                                   ;; don't indent c++ namespace
                                   (innamespace . 0)
                                   ;; don't indent first comments
                                   (comment-intro . 0)
                                   ))
    ;; echo syntactic info when presing TAB. If `t' helps with debugging.
    (c-echo-syntactic-information-p . t))
  "Ethereum C/C++ programming style.")
(c-add-style "ethereum" ethereum-c-style)

(defun ethereum-c-mode-hook ()
  "C/C++ hook for ethereum development."
  (subword-mode 1) ;all word movement goes across Capitalized words
;;  (setq-default c-indent-tabs-mode t)     ; tabs instead of spaces
;;  (setq-default indent-tabs-mode t)       ; tabs instead of spaces
;;  (setq-default c-indent-level 4)         ; A TAB is equivalent to 4 spaces
;;  (setq-default c-basic-offset 4)
;;  (setq-default tab-width 4)              ; Default tab width is 4
  (setq-default c-argdecl-indent 0)       ; Do not indent argument decl's extra
  (setq-default c-tab-always-indent t)
;;  (setq-default backward-delete-function nil) ; DO NOT expand tabs when deleting
  (c-set-style "ethereum"))

(add-hook 'solidity-mode-hook 'ethereum-c-mode-hook)

(provide 'init-solidity)
;;; init-solidity.el ends here