-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathblee-libs.el
More file actions
126 lines (103 loc) · 5.36 KB
/
blee-libs.el
File metadata and controls
126 lines (103 loc) · 5.36 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
;;; blee-libs.el --- Blee Common and General Libraries -*- lexical-binding: t; -*-
(orgCmntBegin "
* Summary: Main Pkg File providing b:pkg:plee-libs|version
" orgCmntEnd)
;;;#+BEGIN: b:elisp:file/copyLeftPlus :outLevel 1
(orgCmntBegin "
* *[[elisp:(org-cycle)][| Proclamations |]]* :: Libre-Halaal Software --- Part Of Blee --- Poly-COMEEGA Format.
** This is Libre-Halaal Software. © Libre-Halaal Foundation. Subject to AGPL.
** It is not part of Emacs. It is part of Blee.
** Best read and edited with Poly-COMEEGA (Polymode Colaborative Org-Mode Enhance Emacs Generalized Authorship)
" orgCmntEnd)
;;;#+END:
;;;#+BEGIN: b:elisp:file/authors :authors ("./inserts/authors-mb.org")
(orgCmntBegin "
** Authors: Mohsen BANAN, http://mohsen.banan.1.byname.net/contact
" orgCmntEnd)
;;;#+END:
;;;#+BEGIN: b:elisp:file/orgTopControls :outLevel 1
(orgCmntBegin "
* [[elisp:(org-cycle)][|/Controls/| ]] :: [[elisp:(org-show-subtree)][|=]] [[elisp:(show-all)][Show-All]] [[elisp:(org-shifttab)][Overview]] [[elisp:(progn (org-shifttab) (org-content))][Content]] | [[file:Panel.org][Panel]] | [[elisp:(blee:ppmm:org-mode-toggle)][Nat]] | [[elisp:(bx:org:run-me)][Run]] | [[elisp:(bx:org:run-me-eml)][RunEml]] | [[elisp:(delete-other-windows)][(1)]] | [[elisp:(progn (save-buffer) (kill-buffer))][S&Q]] [[elisp:(save-buffer)][Save]] [[elisp:(kill-buffer)][Quit]] [[elisp:(org-cycle)][| ]]
** /Version Control/ :: [[elisp:(call-interactively (quote cvs-update))][cvs-update]] [[elisp:(vc-update)][vc-update]] | [[elisp:(bx:org:agenda:this-file-otherWin)][Agenda-List]] [[elisp:(bx:org:todo:this-file-otherWin)][ToDo-List]]
" orgCmntEnd)
;;;#+END:
(orgCmntBegin "
* Relevant Panels:
** [[file:/bisos/git/auth/bxRepos/blee-binders/blee-core/blee-pkgs/blee-libs/_nodeBase_/fullUsagePanel-en.org]]
" orgCmntEnd)
;;;#+BEGIN: blee:bxPanel:foldingSection :outLevel 0 :title "REQUIRES" :extraInfo "Imports"
(orgCmntBegin "
* _[[elisp:(blee:menu-sel:outline:popupMenu)][±]]_ _[[elisp:(blee:menu-sel:navigation:popupMenu)][Ξ]]_ [[elisp:(outline-show-branches+toggle)][|=]] [[elisp:(bx:orgm:indirectBufOther)][|>]] *[[elisp:(blee:ppmm:org-mode-toggle)][|N]]* [[elisp:(outline-show-subtree+toggle)][| _REQUIRES_: |]] Imports [[elisp:(org-shifttab)][<)]] E|
" orgCmntEnd)
;;;#+END:
(require 'b-file)
(require 'b-func)
(require 'b-inserts)
(require 'b-log)
(require 'b-plist)
(require 'b-read)
(require 'b-pkg)
(require 'b-common-advice)
(require 'b-org-mode)
;; (require 'b:menu)
;;;#+BEGIN: blee:bxPanel:foldingSection :outLevel 1 :title "Variables And Constants" :extraInfo "defvar, defcustom"
(orgCmntBegin "
* _[[elisp:(blee:menu-sel:outline:popupMenu)][±]]_ _[[elisp:(blee:menu-sel:navigation:popupMenu)][Ξ]]_ [[elisp:(outline-show-branches+toggle)][|=]] [[elisp:(bx:orgm:indirectBufOther)][|>]] *[[elisp:(blee:ppmm:org-mode-toggle)][|N]]* [[elisp:(outline-show-subtree+toggle)][| *Variables And Constants:* |]] defvar, defcustom [[elisp:(org-shifttab)][<)]] E|
" orgCmntEnd)
;;;#+END:
(defgroup blee nil
"All of blee."
:group 'extensions
:prefix "b:"
:link '(file-link "/bisos/panels/blee-core/_nodeBase_/fullUsagePanel-en.org")
)
(defvar b:pkg:blee-libs:version "0.1"
" #+begin_org
** =b:pkg:blee-libs:version= version number of the entirety of blee-libs.
#+end_org "
)
;;;#+BEGIN: blee:bxPanel:foldingSection :outLevel 0 :title "Common Facilities" :extraInfo ""
(orgCmntBegin "
* _[[elisp:(blee:menu-sel:outline:popupMenu)][±]]_ _[[elisp:(blee:menu-sel:navigation:popupMenu)][Ξ]]_ [[elisp:(outline-show-branches+toggle)][|=]] [[elisp:(bx:orgm:indirectBufOther)][|>]] *[[elisp:(blee:ppmm:org-mode-toggle)][|N]]* [[elisp:(outline-show-subtree+toggle)][| _Common Facilities_: |]] [[elisp:(org-shifttab)][<)]] E|
" orgCmntEnd)
;;;#+END:
;;;#+BEGIN: blee:bxPanel:foldingSection :outLevel 1 :title "if-when else-unless" :extraInfo "if-unless else-when"
(orgCmntBegin "
* _[[elisp:(blee:menu-sel:outline:popupMenu)][±]]_ _[[elisp:(blee:menu-sel:navigation:popupMenu)][Ξ]]_ [[elisp:(outline-show-branches+toggle)][|=]] [[elisp:(bx:orgm:indirectBufOther)][|>]] *[[elisp:(blee:ppmm:org-mode-toggle)][|N]]* [[elisp:(outline-show-subtree+toggle)][| *if-when else-unless:* |]] if-unless else-when [[elisp:(org-shifttab)][<)]] E|
" orgCmntEnd)
;;;#+END:
(defalias 'if-when 'when)
(defalias 'else-unless 'unless)
(defalias 'if-unless 'unless)
(defalias 'else-when 'when)
;;;#+BEGIN: b:elisp:defs/defun :defName "b:pkg:blee-libs/version"
(orgCmntBegin "
* _[[elisp:(blee:menu-sel:outline:popupMenu)][±]]_ _[[elisp:(blee:menu-sel:navigation:popupMenu)][Ξ]]_ [[elisp:(outline-show-branches+toggle)][|=]] [[elisp:(bx:orgm:indirectBufOther)][|>]] *[[elisp:(blee:ppmm:org-mode-toggle)][|N]]* defun [[elisp:(outline-show-subtree+toggle)][||]] <<b:pkg:blee-libs/version>> -- [[elisp:(org-cycle)][| ]]
" orgCmntEnd)
(defun b:pkg:blee-libs/version (
;;;#+END:
)
" #+begin_org
** DocStr: blee-libs package version number.
#+end_org "
(interactive)
b:pkg:blee-libs:version)
(orgCmntBegin "
** Basic Usage:
#+BEGIN_SRC emacs-lisp
(b:pkg:blee-libs/version)
#+END_SRC
#+RESULTS:
: 0.1
" orgCmntEnd)
;;;#+BEGIN: b:elisp:file/provide :modName nil
(provide 'blee-libs)
;;;#+END:
;;;#+BEGIN: b:elisp:file/endOf :outLevel 1
(orgCmntBegin "
* [[elisp:(show-all)][(>]] ~END-OF-FILE~ [[elisp:(org-shifttab)][<)]] E|
" orgCmntEnd)
;;; local variables:
;;; no-byte-compile: t
;;; end:
;;;#+END: