pouya-abbassi
/
FG42
forked from FG42/FG42
1
0
Fork 0
Code Pull Requests Activity

docstring added to ability macro

This commit is contained in:
Sameer Rahmani 2015-07-08 22:08:40 +04:30
parent 95d2bdfd0d
commit 737bf9edea
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/extensions/development/init.el
View File

@ -18,13 +18,16 @@
(message "Initializing 'development' extension.") (message "Initializing 'development' extension.")
(ability code-completion () (ability code-completion ()
"Use company mode to provides a complete auto completion framwork."
(global-company-mode t) (global-company-mode t)
(define-key company-active-map "\t" 'company-yasnippet-or-completion)) (define-key company-active-map "\t" 'company-yasnippet-or-completion))
(ability yas () (ability yas ()
"Snippet configuration."
(yas-global-mode 1)) (yas-global-mode 1))
(ability project-management () (ability project-management ()
"Ability to manage projects and project navigation."
(projectile-global-mode) (projectile-global-mode)
(setq projectile-enable-caching t)) (setq projectile-enable-caching t))

7
lib/fg42/extension.el
View File

@ -31,11 +31,10 @@
to them. to them.
*body* is a block of code which will run as the ability initializer code." *body* is a block of code which will run as the ability initializer code."
`(progn (declare (doc-string 2) (indent 1))
(message "00000 %s" (active-ability? (intern ,(symbol-name name)))) `(if (active-ability? (intern ,(symbol-name name)))
(if (active-ability? (intern ,(symbol-name name)))
(if (null (delq t (mapcar 'active-ability? ,deps))) (if (null (delq t (mapcar 'active-ability? ,deps)))
,@body)))) ,@body)))
(defmacro extension (name &rest args) (defmacro extension (name &rest args)
"A simple DSL to define new fg42 extension." "A simple DSL to define new fg42 extension."