IMPORTANT NOTICE: Devheroes public code hosting will shut down at 1st of March 2023. Due to some difficulties, we have to shut down the instance. Since codeberg.org is pretty mature and welcoming, We highly recommend you to move your code there. Please be advised that on 1st of March, your data will be removed. Thanks for your time with us, and may the source be with you.

Browse Source

PR6 - Refactor and restructure clojure-cube and badwolf-theme-cube.

pull/6/head
Pouya Abbassi 6 months ago committed by Gitea
parent
commit
f5c749e91f
  1. 24
      core/cubes/clojure.el
  2. 42
      core/cubes/clojure/core.el
  3. 3
      core/cubes/editor.el

24
core/cubes/clojure.el

@ -25,22 +25,12 @@ @@ -25,22 +25,12 @@
(require 'fg42/cube)
(require 'fg42/utils)
(defun my-clojure-hook ()
(paredit-mode 1)
(aggressive-indent-mode 1)
(rainbow-delimiters-mode 1)
(lsp)
(sm-greek-lambda)
(flymake-mode-off))
(defun sm-greek-lambda ()
(font-lock-add-keywords nil `(("\\<fn\\>"
(0 (progn (compose-region (match-beginning 0) (match-end 0)
,(make-char 'greek-iso8859-7 107))
nil))))))
(autoload-cube 'fg42/clojure-init "clojure/core.el" "Initalize the Clojure mode.")
(defcube fg42/clojure-cube
"Clojure support cube for fg42."
"Clojure support cube for fg42.
Installs and activates clojure-mode, cider, paredit and rainbow-delimiters.
Also activates LSP and converts `fn` to λ."
(:title "Clojure cube"
:flag clojure
:flag-default t)
@ -54,9 +44,9 @@ @@ -54,9 +44,9 @@
(fpkg/use cider)
(fpkg/use clojure-mode
:hook (clojure-mode . my-clojure-hook)
:config
(setq lsp-enable-indentation nil)))
:hook (clojure-mode . fg42/clojure-init)
:config))
(provide 'cubes/clojure)
;;; clojure.el ends here

42
core/cubes/clojure/core.el

@ -0,0 +1,42 @@ @@ -0,0 +1,42 @@
;;; ClojureCubes --- The Clojure cubes for FG42 -*- lexical-binding: t; -*-
;;
;; Copyright (c) 2010-2021 Sameer Rahmani & Contributors
;;
;; Author: Pouya Abbassi <abbassi.pouya@gmail.com>
;; URL: https://gitlab.com/FG42/FG42
;; Version: 3.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/>.
;;
;;; Commentary:
;;; Code:
(defun fg42/fn-greek-lambda ()
(font-lock-add-keywords nil `(("\\<fn\\>"
(0 (progn (compose-region (match-beginning 0) (match-end 0)
,(make-char 'greek-iso8859-7 107))
nil))))))
(defun fg42/clojure-init ()
(paredit-mode 1)
(aggressive-indent-mode 1)
(rainbow-delimiters-mode 1)
(lsp)
(fg42/fn-greek-lambda))
(provide 'cubes/clojure/core)
;;; core.el ends here

3
core/cubes/editor.el

@ -171,7 +171,8 @@ For more info checkout [[https://github.com/gregsexton/origami.el]]" @@ -171,7 +171,8 @@ For more info checkout [[https://github.com/gregsexton/origami.el]]"
(enable-theme 'dracula))))
(defcube fg42/badwolf-theme-cube
"Badwolf theme cube"
"Badwolf theme cube. An Emacs port of Bad Wolf theme for Vim.
https://emacsthemes.com/themes/badwolf-theme.html"
(:title "Badwolf theme"
:no-flag t)
(require 'fg42/themes)

Loading…
Cancel
Save