mirror of https://codeberg.org/cage/tinmop/
- rearranged compilation order to prevent warning about command line
switch; - rearranged order of packages.
This commit is contained in:
parent
de8a0fe8d4
commit
fd3f1b617b
215
src/package.lisp
215
src/package.lisp
|
@ -637,54 +637,6 @@
|
||||||
:prepare-for-db
|
:prepare-for-db
|
||||||
:last-inserted-rowid))
|
:last-inserted-rowid))
|
||||||
|
|
||||||
(defpackage :tui-utils
|
|
||||||
(:use
|
|
||||||
:cl
|
|
||||||
:alexandria
|
|
||||||
:cl-ppcre
|
|
||||||
:local-time
|
|
||||||
:croatoan
|
|
||||||
:config
|
|
||||||
:constants
|
|
||||||
:interfaces
|
|
||||||
:text-utils)
|
|
||||||
(:nicknames :tui)
|
|
||||||
(:import-from :misc-utils :defalias)
|
|
||||||
(:export
|
|
||||||
:make-background
|
|
||||||
:make-croatoan-window
|
|
||||||
:make-blocking-croatoan-window
|
|
||||||
:make-screen
|
|
||||||
:make-tui-char
|
|
||||||
:make-tui-string
|
|
||||||
:tui-format
|
|
||||||
:decode-key-event
|
|
||||||
:colorize-tree-element
|
|
||||||
:colorize-tree-line
|
|
||||||
:text-width
|
|
||||||
:text-slice
|
|
||||||
:find-max-line-width
|
|
||||||
:ncat-complex-string
|
|
||||||
:cat-complex-string
|
|
||||||
:complex-char->char
|
|
||||||
:cat-tui-string
|
|
||||||
:tui-string->chars-string
|
|
||||||
:text-ellipsize
|
|
||||||
:right-pad-text
|
|
||||||
:text->tui-attribute
|
|
||||||
:assemble-attributes
|
|
||||||
:attribute-reverse
|
|
||||||
:attribute-bold
|
|
||||||
:attribute-underline
|
|
||||||
:attribute-italic
|
|
||||||
:attribute-blink
|
|
||||||
:attribute-dim
|
|
||||||
:attribute-invisible
|
|
||||||
:combine-attributes
|
|
||||||
:colorize-line
|
|
||||||
:colorized-line->tui-string
|
|
||||||
:with-notify-errors))
|
|
||||||
|
|
||||||
(defpackage :db
|
(defpackage :db
|
||||||
(:use
|
(:use
|
||||||
:cl
|
:cl
|
||||||
|
@ -1010,35 +962,73 @@
|
||||||
:selected-background
|
:selected-background
|
||||||
:selected-foreground))
|
:selected-foreground))
|
||||||
|
|
||||||
(defpackage :keybindings
|
(defpackage :tui-utils
|
||||||
|
(:use
|
||||||
|
:cl
|
||||||
|
:alexandria
|
||||||
|
:cl-ppcre
|
||||||
|
:local-time
|
||||||
|
:croatoan
|
||||||
|
:config
|
||||||
|
:constants
|
||||||
|
:interfaces
|
||||||
|
:text-utils)
|
||||||
|
(:nicknames :tui)
|
||||||
|
(:import-from :misc-utils :defalias)
|
||||||
|
(:export
|
||||||
|
:make-background
|
||||||
|
:make-croatoan-window
|
||||||
|
:make-blocking-croatoan-window
|
||||||
|
:make-screen
|
||||||
|
:make-tui-char
|
||||||
|
:make-tui-string
|
||||||
|
:tui-format
|
||||||
|
:decode-key-event
|
||||||
|
:colorize-tree-element
|
||||||
|
:colorize-tree-line
|
||||||
|
:text-width
|
||||||
|
:text-slice
|
||||||
|
:find-max-line-width
|
||||||
|
:ncat-complex-string
|
||||||
|
:cat-complex-string
|
||||||
|
:complex-char->char
|
||||||
|
:cat-tui-string
|
||||||
|
:tui-string->chars-string
|
||||||
|
:text-ellipsize
|
||||||
|
:right-pad-text
|
||||||
|
:text->tui-attribute
|
||||||
|
:assemble-attributes
|
||||||
|
:attribute-reverse
|
||||||
|
:attribute-bold
|
||||||
|
:attribute-underline
|
||||||
|
:attribute-italic
|
||||||
|
:attribute-blink
|
||||||
|
:attribute-dim
|
||||||
|
:attribute-invisible
|
||||||
|
:combine-attributes
|
||||||
|
:colorize-line
|
||||||
|
:colorized-line->tui-string
|
||||||
|
:with-notify-errors))
|
||||||
|
|
||||||
|
(defpackage :command-line
|
||||||
(:use
|
(:use
|
||||||
:cl
|
:cl
|
||||||
:alexandria
|
:alexandria
|
||||||
:cl-ppcre
|
:cl-ppcre
|
||||||
:esrap
|
|
||||||
:config
|
:config
|
||||||
:constants
|
:constants
|
||||||
:text-utils
|
:text-utils
|
||||||
:misc
|
:misc-utils)
|
||||||
:mtree)
|
|
||||||
(:shadowing-import-from :misc :random-elt :shuffle)
|
(:shadowing-import-from :misc :random-elt :shuffle)
|
||||||
(:export
|
(:export
|
||||||
:*global-keymap*
|
:*start-folder*
|
||||||
:*thread-keymap*
|
:*start-timeline*
|
||||||
:*tags-keymap*
|
:*update-timeline*
|
||||||
:*conversations-keymap*
|
:*script-file*
|
||||||
:*message-keymap*
|
:*check-follow-requests*
|
||||||
:*send-message-keymap*
|
:*reset-timeline-pagination*
|
||||||
:*follow-requests-keymap*
|
:*notify-mentions*
|
||||||
:*open-attach-keymap*
|
:manage-opts))
|
||||||
:*open-message-link-keymap*
|
|
||||||
:define-key
|
|
||||||
:init-keyboard-mapping
|
|
||||||
:find-keymap-node
|
|
||||||
:humanize-key
|
|
||||||
:help-fields-get-function
|
|
||||||
:help-fields-get-text
|
|
||||||
:print-help))
|
|
||||||
|
|
||||||
(defpackage :specials
|
(defpackage :specials
|
||||||
(:use
|
(:use
|
||||||
|
@ -1059,6 +1049,25 @@
|
||||||
:*open-attach-window*
|
:*open-attach-window*
|
||||||
:*open-message-link-window*))
|
:*open-message-link-window*))
|
||||||
|
|
||||||
|
(defpackage :complete
|
||||||
|
(:use
|
||||||
|
:cl
|
||||||
|
:alexandria
|
||||||
|
:osicat)
|
||||||
|
(:export
|
||||||
|
:*complete-function*
|
||||||
|
:shortest-candidate
|
||||||
|
:directory-complete
|
||||||
|
:folder-complete
|
||||||
|
:timeline-complete-fn
|
||||||
|
:ignored-username-complete
|
||||||
|
:username-complete
|
||||||
|
:visibility-complete
|
||||||
|
:unfollowed-user-complete
|
||||||
|
:followed-user-complete
|
||||||
|
:tags-complete
|
||||||
|
:conversation-folder))
|
||||||
|
|
||||||
(defpackage :program-events
|
(defpackage :program-events
|
||||||
(:use
|
(:use
|
||||||
:cl
|
:cl
|
||||||
|
@ -1224,6 +1233,36 @@
|
||||||
:*before-prepare-for-rendering-message*
|
:*before-prepare-for-rendering-message*
|
||||||
:*before-sending-message*))
|
:*before-sending-message*))
|
||||||
|
|
||||||
|
(defpackage :keybindings
|
||||||
|
(:use
|
||||||
|
:cl
|
||||||
|
:alexandria
|
||||||
|
:cl-ppcre
|
||||||
|
:esrap
|
||||||
|
:config
|
||||||
|
:constants
|
||||||
|
:text-utils
|
||||||
|
:misc
|
||||||
|
:mtree)
|
||||||
|
(:shadowing-import-from :misc :random-elt :shuffle)
|
||||||
|
(:export
|
||||||
|
:*global-keymap*
|
||||||
|
:*thread-keymap*
|
||||||
|
:*tags-keymap*
|
||||||
|
:*conversations-keymap*
|
||||||
|
:*message-keymap*
|
||||||
|
:*send-message-keymap*
|
||||||
|
:*follow-requests-keymap*
|
||||||
|
:*open-attach-keymap*
|
||||||
|
:*open-message-link-keymap*
|
||||||
|
:define-key
|
||||||
|
:init-keyboard-mapping
|
||||||
|
:find-keymap-node
|
||||||
|
:humanize-key
|
||||||
|
:help-fields-get-function
|
||||||
|
:help-fields-get-text
|
||||||
|
:print-help))
|
||||||
|
|
||||||
(defpackage :windows
|
(defpackage :windows
|
||||||
(:use
|
(:use
|
||||||
:cl
|
:cl
|
||||||
|
@ -1330,25 +1369,6 @@
|
||||||
:draw-pending
|
:draw-pending
|
||||||
:make-notification-window))
|
:make-notification-window))
|
||||||
|
|
||||||
(defpackage :complete
|
|
||||||
(:use
|
|
||||||
:cl
|
|
||||||
:alexandria
|
|
||||||
:osicat)
|
|
||||||
(:export
|
|
||||||
:*complete-function*
|
|
||||||
:shortest-candidate
|
|
||||||
:directory-complete
|
|
||||||
:folder-complete
|
|
||||||
:timeline-complete-fn
|
|
||||||
:ignored-username-complete
|
|
||||||
:username-complete
|
|
||||||
:visibility-complete
|
|
||||||
:unfollowed-user-complete
|
|
||||||
:followed-user-complete
|
|
||||||
:tags-complete
|
|
||||||
:conversation-folder))
|
|
||||||
|
|
||||||
(defpackage :suggestions-window
|
(defpackage :suggestions-window
|
||||||
(:use
|
(:use
|
||||||
:cl
|
:cl
|
||||||
|
@ -1807,7 +1827,6 @@
|
||||||
:parse-subwin-w
|
:parse-subwin-w
|
||||||
:parse-subwin-h))
|
:parse-subwin-h))
|
||||||
|
|
||||||
|
|
||||||
(defpackage :ui-goodies
|
(defpackage :ui-goodies
|
||||||
(:use
|
(:use
|
||||||
:cl
|
:cl
|
||||||
|
@ -1970,26 +1989,6 @@
|
||||||
(:shadowing-import-from :misc :random-elt :shuffle)
|
(:shadowing-import-from :misc :random-elt :shuffle)
|
||||||
(:export))
|
(:export))
|
||||||
|
|
||||||
(defpackage :command-line
|
|
||||||
(:use
|
|
||||||
:cl
|
|
||||||
:alexandria
|
|
||||||
:cl-ppcre
|
|
||||||
:config
|
|
||||||
:constants
|
|
||||||
:text-utils
|
|
||||||
:misc-utils)
|
|
||||||
(:shadowing-import-from :misc :random-elt :shuffle)
|
|
||||||
(:export
|
|
||||||
:*start-folder*
|
|
||||||
:*start-timeline*
|
|
||||||
:*update-timeline*
|
|
||||||
:*script-file*
|
|
||||||
:*check-follow-requests*
|
|
||||||
:*reset-timeline-pagination*
|
|
||||||
:*notify-mentions*
|
|
||||||
:manage-opts))
|
|
||||||
|
|
||||||
(defpackage :main
|
(defpackage :main
|
||||||
(:use
|
(:use
|
||||||
:cl
|
:cl
|
||||||
|
|
|
@ -74,6 +74,7 @@
|
||||||
(:file "emoji-shortcodes")
|
(:file "emoji-shortcodes")
|
||||||
(:file "software-configuration")
|
(:file "software-configuration")
|
||||||
(:file "tui-utils")
|
(:file "tui-utils")
|
||||||
|
(:file "command-line")
|
||||||
(:file "specials")
|
(:file "specials")
|
||||||
(:file "complete")
|
(:file "complete")
|
||||||
(:file "program-events")
|
(:file "program-events")
|
||||||
|
@ -101,7 +102,6 @@
|
||||||
(:file "main-window")
|
(:file "main-window")
|
||||||
(:file "ui-goodies")
|
(:file "ui-goodies")
|
||||||
(:file "modules")
|
(:file "modules")
|
||||||
(:file "command-line")
|
|
||||||
(:file "main")
|
(:file "main")
|
||||||
(:module tests
|
(:module tests
|
||||||
:components ((:file "package")
|
:components ((:file "package")
|
||||||
|
|
Loading…
Reference in New Issue