You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
78 lines
2.6 KiB
78 lines
2.6 KiB
;;; le-julia.el --- lispy support for Julia. -*- lexical-binding: t -*-
|
|
|
|
;; Copyright (C) 2016 Oleh Krehel
|
|
|
|
;; This file is not part of GNU Emacs
|
|
|
|
;; 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 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.
|
|
|
|
;; For a full copy of the GNU General Public License
|
|
;; see <http://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
;;
|
|
|
|
;;; Code:
|
|
|
|
(require 'julia-mode nil t)
|
|
(require 'julia-shell nil t)
|
|
|
|
(declare-function julia-shell-collect-command-output "ext:julia-shell")
|
|
|
|
(defun lispy--eval-julia (str &optional _plain)
|
|
"Eval STR as Julia code."
|
|
(string-trim-right (julia-shell-collect-command-output str)))
|
|
|
|
;; TODO: simplify
|
|
(defun lispy-eval-julia (&optional _plain)
|
|
(let (str bnd res)
|
|
(setq str
|
|
(save-excursion
|
|
(cond ((region-active-p)
|
|
;; get rid of "unexpected indent"
|
|
(replace-regexp-in-string
|
|
(concat
|
|
"^"
|
|
(save-excursion
|
|
(goto-char (region-beginning))
|
|
(buffer-substring-no-properties
|
|
(line-beginning-position)
|
|
(point))))
|
|
"" (lispy--string-dwim)))
|
|
((looking-at lispy-outline)
|
|
(string-trim-right
|
|
(lispy--string-dwim
|
|
(lispy--bounds-dwim))))
|
|
((lispy-bolp)
|
|
(lispy--string-dwim
|
|
(lispy--bounds-c-toplevel)))
|
|
(t
|
|
(cond ((lispy-left-p))
|
|
((lispy-right-p)
|
|
(backward-list))
|
|
(t
|
|
(error "Unexpected")))
|
|
(setq bnd (lispy--bounds-dwim))
|
|
(ignore-errors (backward-sexp))
|
|
(while (eq (char-before) ?.)
|
|
(backward-sexp))
|
|
(setcar bnd (point))
|
|
(lispy--string-dwim bnd)))))
|
|
(setq res (lispy--eval-julia str))
|
|
(if res
|
|
(lispy-message
|
|
(replace-regexp-in-string
|
|
"%" "%%" res))
|
|
(lispy-message lispy-eval-error))))
|
|
|
|
(provide 'le-julia)
|
|
|
|
;;; le-julia.el ends here
|