1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
3 * This file is part of the LibreOffice project.
5 * This Source Code Form is subject to the terms of the Mozilla Public
6 * License, v. 2.0. If a copy of the MPL was not distributed with this
7 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
9 * This file incorporates work covered by the following license notice:
11 * Licensed to the Apache Software Foundation (ASF) under one or more
12 * contributor license agreements. See the NOTICE file distributed
13 * with this work for additional information regarding copyright
14 * ownership. The ASF licenses this file to you under the Apache
15 * License, Version 2.0 (the "License"); you may not use this file
16 * except in compliance with the License. You may obtain a copy of
17 * the License at http://www.apache.org/licenses/LICENSE-2.0 .
20 #include <sal/config.h>
22 #include <accelerators/keymapping.hxx>
24 #include <xml/acceleratorconfigurationwriter.hxx>
26 #include <acceleratorconst.h>
28 #include <com/sun/star/xml/sax/XExtendedDocumentHandler.hpp>
29 #include <com/sun/star/awt/KeyModifier.hpp>
31 #include <comphelper/attributelist.hxx>
32 #include <rtl/ref.hxx>
36 AcceleratorConfigurationWriter::AcceleratorConfigurationWriter(const AcceleratorCache
& rContainer
,
37 css::uno::Reference
< css::xml::sax::XDocumentHandler
> xConfig
)
38 : m_xConfig (std::move(xConfig
))
39 , m_rContainer (rContainer
)
43 AcceleratorConfigurationWriter::~AcceleratorConfigurationWriter()
47 void AcceleratorConfigurationWriter::flush()
49 css::uno::Reference
< css::xml::sax::XExtendedDocumentHandler
> xExtendedCFG(m_xConfig
, css::uno::UNO_QUERY_THROW
);
51 // prepare attribute list
52 rtl::Reference
<::comphelper::AttributeList
> pAttribs
= new ::comphelper::AttributeList
;
54 pAttribs
->AddAttribute(
56 u
"http://openoffice.org/2001/accel"_ustr
);
57 pAttribs
->AddAttribute(
58 u
"xmlns:xlink"_ustr
, u
"http://www.w3.org/1999/xlink"_ustr
);
61 xExtendedCFG
->startDocument();
63 xExtendedCFG
->unknown(
64 u
"<!DOCTYPE accel:acceleratorlist PUBLIC \"-//OpenOffice.org//DTD"
65 " OfficeDocument 1.0//EN\" \"accelerator.dtd\">"_ustr
);
66 xExtendedCFG
->ignorableWhitespace(OUString());
68 xExtendedCFG
->startElement(AL_ELEMENT_ACCELERATORLIST
, pAttribs
);
69 xExtendedCFG
->ignorableWhitespace(OUString());
71 // TODO think about threadsafe using of cache
72 AcceleratorCache::TKeyList lKeys
= m_rContainer
.getAllKeys();
73 for (auto const& lKey
: lKeys
)
75 const OUString aCommand
= m_rContainer
.getCommandByKey(lKey
);
76 impl_ts_writeKeyCommandPair(lKey
, aCommand
, xExtendedCFG
);
79 /* TODO write key-command list
80 for (auto const& writeAccelerator : m_aWriteAcceleratorList)
81 WriteAcceleratorItem(writeAccelerator);
84 xExtendedCFG
->ignorableWhitespace(OUString());
85 xExtendedCFG
->endElement(AL_ELEMENT_ACCELERATORLIST
);
86 xExtendedCFG
->ignorableWhitespace(OUString());
87 xExtendedCFG
->endDocument();
91 void AcceleratorConfigurationWriter::impl_ts_writeKeyCommandPair(const css::awt::KeyEvent
& aKey
,
92 const OUString
& sCommand
,
93 const css::uno::Reference
< css::xml::sax::XDocumentHandler
>& xConfig
)
95 rtl::Reference
<::comphelper::AttributeList
> pAttribs
= new ::comphelper::AttributeList
;
97 OUString sKey
= KeyMapping::get().mapCodeToIdentifier(aKey
.KeyCode
);
98 // TODO check if key is empty!
100 pAttribs
->AddAttribute(u
"accel:code"_ustr
, sKey
);
101 pAttribs
->AddAttribute(u
"xlink:href"_ustr
, sCommand
);
103 if ((aKey
.Modifiers
& css::awt::KeyModifier::SHIFT
) == css::awt::KeyModifier::SHIFT
)
104 pAttribs
->AddAttribute(u
"accel:shift"_ustr
, u
"true"_ustr
);
106 if ((aKey
.Modifiers
& css::awt::KeyModifier::MOD1
) == css::awt::KeyModifier::MOD1
)
107 pAttribs
->AddAttribute(u
"accel:mod1"_ustr
, u
"true"_ustr
);
109 if ((aKey
.Modifiers
& css::awt::KeyModifier::MOD2
) == css::awt::KeyModifier::MOD2
)
110 pAttribs
->AddAttribute(u
"accel:mod2"_ustr
, u
"true"_ustr
);
112 if ((aKey
.Modifiers
& css::awt::KeyModifier::MOD3
) == css::awt::KeyModifier::MOD3
)
113 pAttribs
->AddAttribute(u
"accel:mod3"_ustr
, u
"true"_ustr
);
115 xConfig
->ignorableWhitespace(OUString());
116 xConfig
->startElement(AL_ELEMENT_ITEM
, pAttribs
);
117 xConfig
->ignorableWhitespace(OUString());
118 xConfig
->endElement(AL_ELEMENT_ITEM
);
119 xConfig
->ignorableWhitespace(OUString());
122 } // namespace framework
124 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */